- 501 名前：ローカルルール・その他変更議論中@自治スレ mailto:sage [2009/06/14(日) 01:36:05 ID: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"
