mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-07 14:10:17 +00:00
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.
23 lines
495 B
QBasic
23 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.png"
|
|
System
|
|
|
|
'$include:'../utilities/imageassert.bm'
|