#include "hgimgx.as"

	;	2Dスプライト表示/回転/α合成サンプル
	;	(すべて整数値で指定しています)
	;	(DirectXモード)
	;


	;	ウインドゥサイズの設定
	;
	screen 0,640,480,0
	cls 4

	;	初期設定
	;
	hgini
	onexit *owari

	;	テクスチャフォント表示の準備
	;
	setfont 16,16,12,1	; font Tex select(cx,cy,px,mode)
	texload "fontchr.bmp"	; フォントテクスチャの登録


	;	スプライトの登録
	;
	setuv 0,0,79,79
	addspr pchr
	texload "..\\simple\\btex.bmp"	; テクスチャの登録
	regobj mychr,pchr,OBJ_2D
	selpos mychr
	objset2 0,0,0	; x,y
	selscale mychr
	objset2 0,2,2	; x,y倍率
	selefx mychr
	objset1 0,0		; α輝度(0=見えない)
	objmov1 0,60,256	; 60フレーム後にα輝度256(通常)にする


	;	カメラ位置設定
	;
	gsel 0
	clscolor 128
	rot = 32	; 回転角度

*main
	;	描画メイン
	;
	hgdraw				; 描画処理
	getsync t1,0			; 前回からの負荷を取得
	fprt "2D sprite test",8,8
	fprt "Rotation="+rot,8,30
	fprt "Press [<-][->]",8,52
	hgsync 12

	stick k,127
	if k&128 : goto *owari		; [ESC]で終了

	selpos mychr
	if k&1 : rot=rot-1		; [<-]キーで回転
	if k&4 : rot=rot+1		; [->]キーで回転

	selang mychr
	objset1r 2,rot	; 回転角度を設定(256で一周)
	goto *main

*owari
	hgbye
	end