test9.hsp

sample\hgimg3\test9.hsp » Plain Format

#include "hgimg3.as"

	;	ライトのコントロールサンプル
	;
	screen 0,640,480,0
	cls 4
	hgini

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

	;	Xモデル登録
	;
	addxfile m_xmodel,"font_a.x"	; モデルを読み込む
	;
	max=5
	dim obj,max
	repeat max
	regobj obj.cnt, m_xmodel	; オブジェクトの登録
	setpos obj.cnt, cnt*8-16, 0, 0
	loop
	;
	setdir HGOBJ_LIGHT, 0, 64, 0	; 標準ライトのアンビエント
	;
	reglight exlight		; 追加のライト
	setscale exlight, 255, 0, 0	; ライト色を設定
	setdir exlight, 0, 64, 0	; アンビエント色を設定
	;
	clscolor $80			; 背景色の設定
	;
	a=1
	gosub *set_all
*main
	stick key
	if key&128 : goto *owari

	hgdraw				; 描画

	fprt "HGIMG3 Plugin test",8,8

	hgsync 10			; 時間待ち

	;	カメラをカーソルキーで動かす
	;
	if key&4 : a=limit(a+1,0,max-1) : gosub *set_all
	if key&1 : a=limit(a-1,0,max-1) : gosub *set_all 

	;	モデルを回転させる
	addang obj.a, 0, 0.05, 0

	goto *main

*set_all
	;	変数aのオブジェクトを特別なライトに
	repeat max
	if cnt=a : objlight obj.cnt, exlight : else : objlight obj.cnt, HGOBJ_LIGHT
	loop
	return

*owari
	end