mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-19 21:25:11 +00:00
24 lines
495 B
QBasic
24 lines
495 B
QBasic
|
$Console:Only
|
||
|
ChDir _StartDir$
|
||
|
|
||
|
TILE$ = MKL$(&HAAFFBB55)
|
||
|
|
||
|
' Paint with tiling, black border color.
|
||
|
' background is colored white, circle is black.
|
||
|
'
|
||
|
' Result should no change anything, as the inside
|
||
|
' of the circle matches the border color.
|
||
|
test1& = _NewImage(128, 50, 9)
|
||
|
_Dest test1&
|
||
|
|
||
|
' Make the entire image white
|
||
|
Line (0, 0)-(127, 49), 7, BF
|
||
|
|
||
|
Circle (64, 25), 25, 0
|
||
|
Paint (64, 25), TILE$, 7
|
||
|
|
||
|
AssertImage test1&, "tile_border_black_nocolor.bmp"
|
||
|
System
|
||
|
|
||
|
'$include:'../utilities/imageassert.bm'
|