mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 09:04:43 +00:00
c5e2be53f9
Functionally it doesn't matter what kind of images we store for the tests, as _LOADIMAGE() will open them exactly the same. png however has the advantages of being substantially smaller, and also viewable directly on GitHub in PRs, making them easier to review.
28 lines
647 B
QBasic
28 lines
647 B
QBasic
$Console:Only
|
|
ChDir _StartDir$
|
|
|
|
TILE$ = MKL$(&HAAFFBB55)
|
|
|
|
' Paint with tiling, black border color.
|
|
' background is colored white, circle is black.
|
|
'
|
|
' Note the starting location for Paint is neither
|
|
' white or black, the starting color should not
|
|
' matter when using a border color.
|
|
'
|
|
' Result should fill the entire circle with pattern
|
|
test1& = _NewImage(128, 50, 9)
|
|
_Dest test1&
|
|
|
|
' Make the entire image white
|
|
Line (0, 0)-(127, 49), 7, BF
|
|
|
|
Circle (64, 25), 25, 0
|
|
Pset (64, 25), 15 ' Set the starting location a third color
|
|
|
|
Paint (64, 25), TILE$, 0
|
|
|
|
AssertImage test1&, "tile_border_white_bg.png"
|
|
System
|
|
|
|
'$include:'../utilities/imageassert.bm'
|