HSPTV!掲示板

repeat

redraw 0
color 255,255,255
boxf
picload "da.bmp"
wait 1
redraw 1
loop

特に何も特別なことはしていません
どこにミスがあったのか…それとも不具合ですかね？

ループの中で毎回画像を読みこんでいるのが原因ではないでしょうか

gcopyはいかがですか

buffer 1,1,1
picload "da.bmp"
screen 0,ginfo_sx,ginfo_sy,,,,ginfo_sx,ginfo_sy

repeat

	redraw 0

	color 255,255,255
	boxf

	gcopy 1,,,ginfo_sx,ginfo_sy

	redraw 1
	wait 1
loop

>ループの中で毎回画像を読みこんでいるのが原因ではないでしょうか
ループ中で毎回画像読み込みは駄目なんですね…ありがとうございます

Noapさん、サンプルありがとうございます
とりあえずgcopyでやっていきたいと思います

picload命令によってウィンドウが初期化されているのが原因です。
写真のサイズに合わせてウィンドウを作り、そこにpicloadで画像を描画でOKです

#include "mod_img.as"

imgload "da.bmp"

screen 0,size@mod_imgctx(0),size@mod_imgctx(1)


repeat
redraw 0
color 255,255,255
boxf
picload "da.bmp",1
wait 1
redraw 1
loop

すみません。毎回初期化しているのが原因であるということを分かりやすくつたえたくて(picloadで初期化しながら)画像を読みこんでいるという表現にしました。
またgcopyでコピーするより毎回読みこむのほうがCPUへの負荷が大きいのでgcopyのほうがいいと思います。

改めて見れば分かりやすくなるようにしたつもりが誤解を生む表現になっていてすみません。

waitがredraw 1の前に記述されているとチラつきが防止できない場合があります。
redrawのサンプルには

repeat
 redraw 0
 
 mes "ちらつきません"

 redraw 1
 
 wait 1
loop

となっています。

わたしもそう思いましたがredraw 1の後ろではなく前にwaitを入れるとちらつきが発生する根拠がつかめずあえて触れませんでした。

#uselib "user32.dll"
#func InvalidateRect "InvalidateRect" sptr,var,int

ookisa=ginfo_winx,ginfo_winy

buffer 1,1,1
picload "da.bmp"
ookisa=ginfo_sx,ginfo_sy
screen 0,ginfo_sx,ginfo_sy,,,,ginfo_sx,ginfo_sy

repeat

	redraw 0

	color 255,255,255//たぶんスプライト的な感じで消去するときにつかうはず
	boxf

	gcopy 1,,,ginfo_sx,ginfo_sy

	//redraw 1
	InvalidateRect hwnd,ookisa,1
	wait 1
loop

ぴったりなものを見つけたよ。

http://lhsp.s206.xrea.com/command/picload.html

waitを消してredraw 1の後に

await 1

をつけるとチラツキが軽減されると思います