test2.hsp

sample\hgimg3\test2.hsp » Plain Format

#include "hgimg3.as"

	;	ダイレクト描画サンプル
	;

	;	ウインドゥサイズの設定
	;
	screen 0,640,480,0
	cls 4

	;	初期設定
	;
	hgini

	;	テクスチャの準備
	;
	texload "q.bmp"
	mest = stat
	rot = 0.0

	;	背景色の設定
	;
	clscolor $40

*main
	;	描画メイン
	;
	hgdraw				; 描画処理

	;	テクスチャの描画
	;
	gmode 0,128,128			; 元画像のサイズ指定
	pos 320,240			; 中心座標
	hgrotate mest,0,0,rot,256,256	; 2倍に拡大して表示
	rot+=0.01

	hgsync 10			; 時間待ち

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

	goto *main

*owari
	end