test1.hsp

sample\hgimg3\test1.hsp » Plain Format

#include "hgimg3.as"

	;	立方体をキーで回転させるサンプル
	;

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

	;	初期設定
	;
	hgini

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

	;	カメラ位置設定
	;
	selcpos
	objset3 0.0, 0.0, 20.0

*main
	;	描画メイン
	;
	hgdraw				; 描画処理
	hgsync 10			; 時間待ち

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

	;	キー操作で回転
	;	(スペースキー押しで移動)
	;
	if k&16 {
		selpos mychr
		if k&2 : objadd3 0.0, -0.05, 0.0
		if k&8 : objadd3 0.0, 0.05, 0.0
		if k&4 : objadd3 0.05, 0.0, 0.0
		if k&1 : objadd3 -0.05, 0.0, 0.0
	} else {
		selang mychr
		if k&1 : objadd3 0.0, -0.05, 0.0
		if k&4 : objadd3 0.0, 0.05, 0.0
		if k&2 : objadd3 0.05, 0.0, 0.0
		if k&8 : objadd3 -0.05, 0.0, 0.0
	}

	goto *main

*owari
	end