#include "hgimg.as"

	;	2Dスプライト表示サンプル
	;	(フルカラーモード)
	;


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

	;	初期設定
	;
	hgini
	onexit *owari

	;	背景画像の登録
	;
	texloadbg "sky.jpg"

	;	スプライトの登録
	;
	setuv 0,0,79,79
	addspr pchr,1
	texload "rock2.bmp"		; テクスチャの登録
	regobj mychr,pchr,OBJ_2D
	selpos mychr
	objmovmode OBJMOV_SPLINE	; スプライン移動モードを選択
	objsetf3 0.0f, 0.0f, 0.0f
	selang mychr
	objsetf3 0.0f, 0.0f, 0.0f
	selscale mychr
	objsetf3 1.0f, 1.0f, 0.0f

	;	メイン画面を選択
	;
	gsel 0
	color 255,255,255

*main
	;	描画メイン
	;
	hgdraw				; 描画処理
	a=stat
	getsync t1,0			; 前回からの負荷を取得

	if a {				; 処理落ちしてなければ描画
		pos 0,0
		mes "2D sprite test"	; 通常の描画命令も使えます
	}
	hgsync 10

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

	if k&1 {			; [<-]キーで拡大
		selscale mychr
		objmov2 0, 60, 3, 3
	}
	if k&4 {			; [->]キーで縮小
		selscale mychr
		objmov2 0, 60, 1, 1
	}
	if k&2 {			; [↑]キーで移動
		selpos mychr
		objmov2 0, 30, 0, 0
		objmov2 0, 30, 0, -80
	}
	if k&8 {			; [↓]キーで移動
		selpos mychr
		objmov2 0, 30, 0, 0
		objmov2 0, 30, 0, 80
	}

	selang mychr
	objaddf1 2,0.025f		; 回転させる
	goto *main

*owari
	hgbye
	end