何か良い方法があれば教えてください。
buffer WID_BUF_4 picload load_pic,0 px=ginfo(12) : py=ginfo(13) ppx=double(120) : ppy=double(150) repeat 100 redraw 0 screen WID_TMP_3,ppx,ppy if cnt=0 : gzoom ppx,ppy,WID_BUF_4,0,0,px,py if cnt>0 : gzoom ppx,ppy,WID_BUF_4,0,0,px,py if ppx>px : break ppx=ppx*double(1.1) : ppy=ppy*double(1.1) redraw 1 await 16 loop