obaqhg1.hsp

sample\hgimg3\obaqhg1.hsp » Plain Format

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

	;	OBAQ描画サンプル
	;

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

	;	OBAQ設定
	;
	qaddpoly my, 5, 96,20,0	; 三角形を追加

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

	;	背景色の設定
	;
	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