; hsp3dish で celput を使って描画できるかテスト

#include "hsp3dish.as"

	#packopt name "celput_anime"
	#packopt type 0
	#packopt xsize 640
	#packopt ysize 480
	
	; ウインドウID=0を初期化
	screen 0, 640, 480, screen_normal
	title "hsp3dish cellput test"
	
	sw = ginfo_sx
	sh = ginfo_sy

	; スプライトシート画像を読み込み
	imgid = 3
	buffer imgid
	celload "player_64x64_512x256.png", imgid

	; 画像を分割。
	; 64 x 64 で分割して、基準座標を (32, 32) にしている
	celdiv imgid, 64, 64, 32, 32
	n = 19

	; 描画先を指定。ウインドウID=0 を指定してる。
	gsel 0

	; redraw 0 を呼んだ時の画面クリア設定
	; 0 or 1, 色指定($000000 - $ffffff)
	setcls CLSMODE_SOLID, $4080c0
	
	an = 0.0

*mainloop
	; ESCキーで終了
	stick key, $ff
	if key & $80 : goto *jobend

	redraw 0	; 描画開始

	gmode 2		; αチャンネル有効、半透明無効でコピーを指定

	x = sw / 2 - 32
	y = sh / 2 - 32
	imgnum = int(an) \ n
	
	; celput で描画
	pos x, y
	celput imgid, imgnum

	redraw 1	; 描画終了

	an = an + 0.2
	
	await (1000 / 60)
	goto *mainloop

*jobend:
	end