Checkerboard canvas background.

This commit is contained in:
visionmercer 2026-05-11 11:39:10 +02:00
commit 8fc02cd0e6

View file

@ -44,7 +44,15 @@ layers(3).ihandle=_newimage(320,320,32)
_dest layers(0).ihandle _dest layers(0).ihandle
addcommand "canvas ("+str$(_width)+","+str$(_height)+")" addcommand "canvas ("+str$(_width)+","+str$(_height)+")"
line (0,0)-(_width-1,_height-1),_rgb32(255),bf for y = 0 to _height - 16 step 16
for x = 0 to _width - 16 step 16
if ((x / 16) + (y / 16)) mod 2 = 0 then
line (x, y)-(x + 16, y + 16), _rgb32(127), bf
else
line (x, y)-(x + 16, y + 16), _rgb32(192), bf
end if
next
next
_dest 0 _dest 0
state.tool = 1 state.tool = 1
state.zoom = 1.0 state.zoom = 1.0