box_fullscr.hsp

sample\hgimg\box_fullscr.hsp » Plain Format

#include "hgimgx.as"

	;	立方体をキーで回転させるサンプル
	;	(フルスクリーン DirectX8)
	;

	;	初期設定
	;
	bgscr 2,640,480,0		; フルスクリーンは必ずbgscrで作成
	cls 4
	hgsetreq SYSREQ_DXMODE,1	; フルスクリーンモードを指定
	hgsetreq SYSREQ_DXWIDTH,640	; フルスクリーン解像度X
	hgsetreq SYSREQ_DXHEIGHT,480	; フルスクリーン解像度Y
	hgini
	onexit *owari

	;	BOXオブジェクトを登録
	;
	setsizef 8.0f, 8.0f	; BOXのXYサイズ
	setuv 0,0,127,127	; テクスチャUV座標
	addbox mdid		; BOXモデルを作成
	modelshade mdid,1	; Shade Mode
	texload "btex_fc.bmp"	; テクスチャの登録
	regobj mychr,mdid, 0	; BOXモデルをオブジェクトとして登録

	;	カメラ位置設定
	;
	selcpos
	objsetf3 0.0f, 0.0f, 50.0f
	gsel 0
	color 255,255,255

*main
	;	描画メイン
	;
	hgdraw				; 描画処理
	getsync t1,0			; 前回からの負荷を取得
	hgsync 10			; 処理落ちしてなければ描画
	title "t"+t1+"/"+a

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

	;	キー操作で回転
	;
	selpos mychr
	if k&1 {			; [<-]キーで移動
		objaddf2 0, -1.0f, 0.0f
	}
	if k&4 {			; [->]キーで移動
		objaddf2 0, 1.0f, 0.0f
	}
	if k&2 {			; [<-]キーで移動
		objaddf2 0, 0.0f, -1.0f
	}
	if k&8 {			; [->]キーで移動
		objaddf2 0, 0.0f, 1.0f
	}
	selang mychr
	objaddf2 0,0.025f,0.025f		; 回転させる
	goto *main

*owari
	hgbye
	end