qvbtest.hsp

sample\obaq\qvbtest.hsp » Plain Format

#include "obaq.as"
#include "mod_qvb.as"

	;	QVBファイルに保存されたデータのOBAQ描画サンプル
	;	(qvbload命令の詳細は、mod_qvb.asファイルを参照してください)

	;	初期設定
	;
	qreset			; OBAQの初期化
	celload "obaqlogo.bmp"	; OBAQロゴ読み込み
	logoid=stat		; ロゴのID

	;	OBAQ設定
	;
	qvbload mymodel,"test.qvb"
	qaddmodel my, mymodel, -1, 96,20,0, 1,1	; モデルを追加

*main
	;	描画メイン
	;
	redraw 0		; 画面の更新を開始
	gradf ,,,,1,0,128	; 画面クリア
	qexec			; OBAQによるオブジェクトの更新

	stick key,15		; キーの取得
	if key&128 : end	; [ESC]キーで終了

	qdraw			; オブジェクトの描画

	gmode 2:pos 470,40	; ロゴ表示
	celput logoid

	redraw 1		; 画面の更新を終了
	await 12		; 一定時間待つ
	frame++
	goto *main