sample\hgimg4\test4.hsp » Plain Format
#include "hgimg4.as"
title "HGIMG4 Test"
gpreset
setcls CLSMODE_SOLID, $404040
sx=ginfo_sx ; 画面のXサイズ
sy=ginfo_sy ; 画面のYサイズ
celload "res/ball64.png",3
celdiv 3, 64,64, 32,32
id=0
x = sx / 2
y = sy / 2
rot = 0.0
repeat
stick key
if key&$100 { ; マウスクリック判定
x=mousex
y=mousey
id++
if id>=64 : id=0
}
redraw 0
gmode 5,256,256,255
pos x,y : celput 3,id,2,2,rot
rot+=0.05
; 文字を表示
color 255,255,255
pos 16,16
mes "celput Sample"
redraw 1
await 1000/60
loop