addline.hsp

sample\hgimg3\addline.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"	; フォントテクスチャの登録

	;	線分モデル登録
	;
	addline m_line,,$ffffff	; 線分モデルの登録
	regobj lobj,m_line	; オブジェクト登録
	setpos lobj, 0,-5,0	; 座標の指定
	setwork lobj, 10,-10,0	; 線分のオフセット

	;	BOXモデル登録
	;
	addbox m_model,10,10
	regobj obj, m_model		; オブジェクトの登録

	clscolor $80			; 背景色の設定

*main
	stick key,$3ff
	if key&128 : goto *owari

	hgdraw				; 描画

	fprt "Line Model Sample",8,8

	hgsync 10			; 時間待ち

	;	カメラをカーソルキーで動かす
	;
	if key&4 : addpos HGOBJ_CAMERA, -0.2, 0.0
	if key&1 : addpos HGOBJ_CAMERA, 0.2, 0.0
	if key&64 {
		if key&2 : addpos HGOBJ_CAMERA, 0,0, 0.2
		if key&8 : addpos HGOBJ_CAMERA, 0,0, -0.2
	} else {
		if key&2 : addpos HGOBJ_CAMERA, 0.0, 0.2
		if key&8 : addpos HGOBJ_CAMERA, 0.0, -0.2
	}

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

	goto *main

*owari
	end


#include "hgimg3.as"
hgini
repeat
hgdraw
hgsync 10
loop