HSPTV!掲示板

画像を連続的に徐々に拡大させたいのですが、全然スムースに拡大してくれません。
何か良い方法があれば教えてください。

　　　　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

こんな感じ？

	load_pic = "画像のパス"

	BUF_0 = 0								;ウィンドウのバッファ
	BUF_1 = 1								;画像のバッファ
	
	screen BUF_0,640,480					;ウィンドウを初期化
　　　　
	buffer BUF_1:picload load_pic,0			;画像をロード
	px=ginfo(12):py=ginfo(13)				;サイズを取得
	xsize = 0:ysize = 0						;サイズをリセット
	gsel BUF_0								;描画先をウィンドウに
	
	repeat 100
		redraw 0
		width xsize,ysize					;画面サイズを変える
		gzoom xsize,ysize,BUF_1,0,0,px,py	;画像を描画
		xsize+5:ysize+5						;サイズを大きくする
		redraw 1
		await 1000/60
	loop
	

width 使えばよかったんですね。

ありがとうございました。