QB64-PE/tests/compile_tests/paint/tile_border_black_bg.bas

$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'
Add PAINT tile image-based tests 2022-11-08 05:47:06 +00:00			`$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`

Swap bmp test images for png 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. 2022-11-10 02:46:50 +00:00			`AssertImage test1&, "tile_border_black_bg.png"`
Add PAINT tile image-based tests 2022-11-08 05:47:06 +00:00			`System`

			`'$include:'../utilities/imageassert.bm'`