mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-07 15:20: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
385 B
QBasic
19 lines
385 B
QBasic
$Console:Only
|
|
ChDir _StartDir$
|
|
|
|
TILE$ = MKL$(&HAAFFBB55)
|
|
|
|
' Paint with tiling, no border color.
|
|
' background is left black.
|
|
'
|
|
' Result should fill the entire circle with pattern
|
|
test1& = _NewImage(128, 50, 9)
|
|
_Dest test1&
|
|
|
|
Circle (64, 25), 25, 7
|
|
Paint (64, 25), TILE$
|
|
|
|
AssertImage test1&, "tile_noborder_black_bg.png"
|
|
System
|
|
|
|
'$include:'../utilities/imageassert.bm'
|