#module
#deffunc fadeout 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 - (256 * cnt) / times
boxf csrx, csry, csrx + sx, csry + sy
gcopy id, px, py
redraw 1
wait sp
loop
}
boxf csrx, csry, csrx + sx, csry + sy
return
#global
buffer 2
picload "sample/hspdx/hspdx.bmp"
wx = winx : wy = winy
gsel 0
title "徐々に表示画像をブラックアウトします。"
fadeout 2, , , wx, wy, 32, 1 // 1コマ1ミリ秒、32回で完全消去
stop
|