#module
#deffunc fadein int, int, int, int, int, int, int
mref id, 0 : mref px, 1 : mref py, 2 : mref sx, 3 : mref sy, 4 : mref times, 5 : mref sp, 6
if times > 0 {
repeat times
redraw 0
gmode 3, sx, sy, 256 * cnt / times
boxf csrx, csry, csrx + sx, csry + sy
gcopy id, px, py
redraw 1
wait sp
loop
}
gmode 1, sx, sy
gcopy id, px, py
return
#global
buffer 2
picload "sample/hspdx/hspdx.bmp"
wx = winx : wy = winy
gsel 0
title "徐々に画像をホワイトインします。"
color 255, 255, 255
fadein 2, , , wx, wy, 5, 10 // 1コマ10ミリ秒、5回で完全消去
stop
|