omedetai.hsp

sample\new\omedetai.hsp » Plain Format

	;グラフィック機能を使ったサンプル
	;おめでたい感じの画面が出ます

	wx=800:wy=600 ; 画面サイズ
	screen 0,wx,wy
	cx=wx/2:cy=wy/2
	dist=int(sqrt( cx*cx + cy*cy ))+8
	dim x,4
	dim y,4
	kai=16 ; 角数
	tt=0
	plus=3.141592/kai*2

	x(0)=cx:y(0)=cy
	x(3)=cx:y(3)=cy

	r1=255:g1=0:b1=0 ; 1つ目の色
	r2=255:g2=255:b2=0 ; 2つ目の色

	repeat
	rot=0.01 * tt
	redraw 0

		repeat kai
		x(1)=int(sin(rot)*dist)+cx
		y(1)=int(cos(rot)*dist)+cy
		rot+=plus
		x(2)=int(sin(rot)*dist)+cx
		y(2)=int(cos(rot)*dist)+cy
		if cnt&1 : color r1,g1,b1 : else : color r2,g2,b2
		gsquare  -1,x,y
		loop
		tt++

	redraw 1
	await 30
	loop