09/06/14 01:36:05 P7gF5r5A
これで分解しろ
screen 0,100,100,0:buffer 2,100,100:picload "test.bmp"
bs_x=winx:bs_y=winy:xxa=bs_y*2+1:buffer 3,bs_x,xxa,0
repeat bs_y
lly=cnt
repeat bs_x
llx=cnt
gsel 2,0:pget llx,lly:gsel 3,0:color rval,gval,bval
if llx+lly\2=1:xxa=lly:else:xxa=lly+bs_y
pset llx,xxa:xxa+:pset llx,xxa
loop
loop
bmpsave "test2.bmp"