mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-09 15:10:18 +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.
22 lines
446 B
QBasic
22 lines
446 B
QBasic
$Console:Only
|
|
ChDir _StartDir$
|
|
|
|
TILE$ = MKL$(&HAAFFBB55)
|
|
|
|
' Paint with tiling, no border color.
|
|
' background is colored white, circle is black.
|
|
'
|
|
' 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
|
|
Paint (64, 25), TILE$
|
|
|
|
AssertImage test1&, "tile_noborder_white_bg.png"
|
|
System
|
|
|
|
'$include:'../utilities/imageassert.bm'
|