#module
#deffunc chkflg int, int, int, int, int, int, int, int
mref id, 0 : mref px, 1 : mref py, 2 : mref sx, 3 : mref sy, 4 : mref w, 5 : mref h, 6 : mref size, 7
i = csrx, csry
repeat w / size + (w \ size ! 0)
i.2 = cnt
repeat sx / w + 2, -1
i.3 = cnt
repeat sy / h + 1
i.4 = w * i.3 + (cnt \ 2 = 0 * w / 2), h * cnt
pos i.2 * size + i.4 + i.0, i.5 + i.1 : gcopy id, i.2 * size + i.4, i.5, size, h
loop
loop
wait 1
loop
return
#global
buffer 2
picload "sample/demo/oniinfo.jpg"
buffer 3
picload "sample/hspdx/hspdx.bmp"
gsel 0
gcopy 2, , , winx, winy
chkflg 3, , , winx, winy, 40, 30, 2
stop
|