#include "hgimg.as"

	;	2Dスプライト表示サンプル
	;	(パレットモード)
	;
	randomize

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

	;	初期設定
	;
	hgini
	onexit *owari

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


	;	スプライトの登録
	;
	setuv 64,64,127,127
	addspr pchr,1
	regobj mychr,pchr

	setuv 0,64,63,127
	addspr mchr,1

	texload "testchr.bmp"	; テクスチャの登録

	;	準備
	;
	gsel 0
	clscolor 128
	setborder 740.0f, 580.0f, 200.0f ; クリップ範囲

*main
	;	描画メイン
	;
	hgdraw				; 描画処理
	getsync t1,0			; 前回からの負荷を取得
	fprt "2D sprite test",8,8
	fprt "T"+t1,8,24
	hgsync 10

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

	selpos mychr
	objgetfv fv
	if k&1 : fvadd fv,-2.0f, 0.0f, 0.0f
	if k&4 : fvadd fv,2.0f, 0.0f, 0.0f
	if k&2 : fvadd fv,0.0f, -2.0f, 0.0f
	if k&8 : fvadd fv,0.0f, 2.0f, 0.0f
	fvmin fv, -320.0f, -240.0f, -100.0f
	;fvmax fv, 320.0f, 240.0f, 100.0f
	objsetfv fv

	if k&16 {			; リンゴ発射
		regobj apple,mchr,OBJ_MOVE|OBJ_BORDER
		selpos apple:objsetfv fv
		fvset fv, 0.0f, 0.0f, 0.0f
		rnd a,1024:froti fv.2,a
		fvdir fv, 0.0f, -4.0f, 0.0f
		seldir apple:objsetfv fv
	}

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

*owari
	hgbye
	end