test6.hsp

sample\hgimg4\test6.hsp » Plain Format

#include "hgimg4.as"

title "HGIMG4 Test"

	randomize

	gpreset
	setcls CLSMODE_SOLID, $404040

	sx=ginfo_sx	; 画面のXサイズ
	sy=ginfo_sy	; 画面のYサイズ

	celload "hsp3dish.png",3

	gmode 0,640,200

	tx.0=0:ty.0=0
	tx.1=640:ty.1=0
	tx.2=640:ty.2=200
	tx.3=0:ty.3=200

	col.0=0xff0000
	col.1=0x00ff00
	col.2=0x0000ff
	col.3=0xffffff

	sw=0

	repeat
	redraw 0

	stick key
	if key&256 : sw=sw+1 : if sw>2 : sw=0

	n = cnt&127:if n>=64 : n=63-(n-64)
	x.0=n+150
	y.0=n/2+150
	x.1=sx-n-150
	y.1=n/2+150
	x.2=n+sx-150
	y.2=400-(n/2)
	x.3=150-n
	y.3=400-(n/2)

	if sw=0 : gsquare 3,x,y,tx,ty
	if sw=1 : color 255,0,0:gsquare -1,x,y
	if sw=2 : color 255,0,0:gsquare -257,x,y,col

	redraw 1
	await 1000/60
	
	loop