HSP「gmode 7」のテスト

#define EXENAME "HSP「gmode 7」のテスト"
#enum WINID_MAIN = 0
#enum WINID_CHARA
#const NICO_W 512
#const NICO_H 384
#const CLOCK_SIZE 32
#const CLOCK_X 7
#const CLOCK_Y 12
#const CHARA_W CLOCK_SIZE*CLOCK_X //224
#const CHARA_H CLOCK_SIZE*CLOCK_Y //384
#define BGCOLOR 128,128,128

#uselib "winmm.dll"
#cfunc timeGetTime "timeGetTime"

redraw 0
screen WINID_MAIN,NICO_W,NICO_H,0,(ginfo_dispx-NICO_W)/2,(ginfo_dispy-NICO_H)/2
buffer WINID_CHARA,CHARA_W,CHARA_H,0: picload "testL.jpg"

gsel WINID_MAIN,1: color BGCOLOR: title EXENAME
repeat
boxf
t_mod=timeGetTime()/100\12
pos 0,0: gmode 7,CHARA_W,NICO_H: gcopy WINID_CHARA,0,CHARA_H*t_mod,
redraw 1: await 1: redraw 0
loop

//[testL.jpg]http://image.blog.livedoor.jp/qd_flare-egakyo/imgs/a/e/ae6328ff.jpg