Checkerboard canvas background.
This commit is contained in:
parent
b978f2e8cf
commit
8fc02cd0e6
1 changed files with 9 additions and 1 deletions
10
pixler.bas
10
pixler.bas
|
|
@ -44,7 +44,15 @@ layers(3).ihandle=_newimage(320,320,32)
|
|||
|
||||
_dest layers(0).ihandle
|
||||
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
|
||||
state.tool = 1
|
||||
state.zoom = 1.0
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue