#include "hgimg.as"

	;	2Dスプライト画面拡大モード表示サンプル
	;	(パレットモード・320x240を640x480に拡大して表示)
	;	CPUの遅い機種において640x480モードを比較的高速に表示します。
	;



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


	buffer 2,320,240,1
	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 "rock2.bmp"	; テクスチャの登録
	regobj mychr,pchr,OBJ_2D
	selpos mychr
	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
	cls 4
	palcopy 3
	hgdst 1

	;	カメラ位置設定
	;
	selcpos
	objsetf3 0.0f, 0.0f, 20.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]で終了

	if k&1 {			; [<-]キーで拡大
		selscale mychr
		objaddf2 0, 0.01f, 0.01f
	}
	if k&4 {			; [->]キーで縮小
		selscale mychr
		objaddf2 0, -0.01f, -0.01f
	}
	selang mychr
	objaddf1 2,0.025f		; 回転させる
	goto *main

*owari
	hgbye
	end