>bsaveの時
http://hsp.tv/play/pforum.php?mode=all&num=7691
これ↑で2次元配列を使ってるような事書いてるから分かると思うんだけど・・・
(あっちは解決してないの?)
buffer 1:picload dir_exe+"\\sample\\demo\\logop.bmp":gsel 0,1
dim dx,4,4:dim dy,4,4:dim sx,4,4:dim sy,4,4:dim px,4:dim py,4:dim x1,4:dim y1,4
repeat 4
dx(0,cnt)=0,50,50,0
dy(0,cnt)=cnt*50,cnt*50,50+cnt*50,50+cnt*50
sx(0,cnt)=cnt*90,90+cnt*90,90+cnt*90,cnt*90
sy(0,cnt)=0,0,50,50
loop
repeat
repeat 4
no=cnt
px(no)=(px(no)+rnd(4))\640
py(no)=(py(no)+rnd(3))\480
x=px(no)
y=py(no)
repeat 4
x1(cnt)=dx(cnt,no)+x
y1(cnt)=dy(cnt,no)+y
loop
dup x2,sx(0,no) ;memcpyでもいいけど
dup y2,sy(0,no)
gsquare 1,x1,y1,x2,y2
loop
await 10
loop
#注
2次元配列やdupを使わなくても出来ます。
これをそのままメインループ内に置くと見難くなると思うので
ユーザ定義命令等を利用した方がいいと思う