obaqhg3.hsp

sample\hgimg3\obaqhg3.hsp » Plain Format

#include "hgimg3.as"
#include "obaq.as"

	;	OBAQ描画サンプル
	;

	;	初期設定
	;
	hgini
	qreset			; OBAQの初期化
	qgetptr obaq_ptr
	hgobaq obaq_ptr, 0, 1

	;	OBAQモデル
	;
	addobaq3d m_obaq
	regobj obj, m_obaq
	setscale obj, 0.25,0.25,0.25
	setangr obj, -32,0,0

	;	OBAQ設定
	;
	qmat 0,mat_wire		; 枠線
	qaddpoly my, 5, 96,20,0	; 三角形を追加
	qmat my,mat_wire	; 線描画を設定

	;	OBAQロゴ
	;
	texload "obaqlogo.bmp"	; OBAQロゴ読み込み
	logoid=stat		; ロゴのID

	;	表示の準備
	;
	setpos HGOBJ_CAMERA, 0,0,-50	; カメラ位置の設定

	;	背景色の設定
	;
	clscolor $40

*main
	;	描画メイン
	;
	qexec				; OBAQによるオブジェクトの更新
	hgdraw				; 描画処理

	color 255,0,0:gmode 2,128,64	; ロゴ描画の設定
	pos 110,64:hgrotate logoid,0,0,0 ; ロゴ描画

	hgsync 10			; 時間待ち

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

	goto *main

*owari
	end