解決した物を何度もスミマセン。
間違いがあったので修正しました。
buffer 1
picload dir_exe+"/sample/demo/jp6girl.bmp"
size2x=ginfo_winx
size2y=ginfo_winy
buffer 2,640,480
repeat 32 :y=cnt
repeat 43 :x=cnt
if x+y&1 {
color x*6,255,255-y*8
boxf x*15,y*15,x*15+14,y*15+14
}
loop
loop
zoom=1.5
size1x=zoom*size2x
size1y=zoom*size2y
posx=ginfo_winx/2-size1x/2
posy=0
x1=posx,posx+size1x,posx+size1x,posx
y1=posy,posy,posy+size1y,posy+size1y
x2=0,size2x,size2x,0
y2=0,0,size2y,size2y
gsel 0
gcopy 2,0,0,640,480
gmode 4,,,200
gsquare 1,x1,y1,x2,y2
>ただちょっと座標が+1とか-1とか動いてしまうのがやっかいですね
ループさせてちょっとずつ拡大したらたしかにたわみはしますね、
でも輪郭がぼそぼそなのは元の画像の縁取りが甘いだけです。