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.
19 lines
382 B
QBasic
19 lines
382 B
QBasic
$Console:Only
|
|
ChDir _StartDir$
|
|
|
|
TILE$ = MKL$(&HAAFFBB55)
|
|
|
|
' Paint with tiling, white border color.
|
|
' background is black, circle is white.
|
|
'
|
|
' Result should fill the entire circle with pattern
|
|
test1& = _NewImage(128, 50, 9)
|
|
_Dest test1&
|
|
|
|
Circle (64, 25), 25, 7
|
|
Paint (64, 25), TILE$, 7
|
|
|
|
AssertImage test1&, "tile_border_black_bg.png"
|
|
System
|
|
|
|
'$include:'../utilities/imageassert.bm'
|