HSPTV!掲示板

こんにちは。
ＨＳＰはかなり昔から使っているのですが、gzoom の使い方がわかりません。
お手数ですが、中央にある画像をまっすぐアップさせてくるソースを
上げてもらえないでしょうか。
どうぞよろしくお願い致します。

mes "あ"

repeat
	redraw 1:await 10:redraw 0
	gzoom 16+cnt,16+cnt,0,0,0,16,16
loop

こんな感じですか？
どうしても中心からでないとというなら、
celputの方がやりやすいかも。

buffer 1,16,16

mes "あ"
celdiv 1,16,16,8,8
;
gsel 0
repeat
	redraw 1:await 10:redraw 0
	pos 250,250
	celput 1,0,(0.1*cnt),(0.1*cnt)
loop

gzoomでコピーした画像の中心はカレントポジションに
表示するサイズの半分の値を足した位置なので
中心にしたい座標から表示サイズの半分を引いた値が
表示する座標になります。

    screen 1
    circle 0, 0, 100, 100    ;  100x100の円を描く
    
    zx = 10    ;  最初に表示するＸサイズ
    zy = 10    ;  最初に表示するＹサイズ

    gsel 0, 1

    repeat
        cx = 320 - zx / 2    ;  表示するＸ座標
        cy = 240 - zy / 2    ;  表示するＹ座標
        pos cx , cy
        gzoom zx, zy, 1, 0, 0, 100, 100

        zx + 2    ;  表示サイズを増やす際に値が奇数だと
        zy + 2    ;  小数点切捨ての誤差が出てぶれる

        title "表示座標Ｘ=" + cx + "　表示座標Ｙ=" + cy
        await 33
        if cy <= 0 : break  ;  画面一杯に拡大したら終了
    loop

おお！できました！
大変お世話になりました。
ありがとうございました。