HSPで遊ぶ

試験やらねばという時に限ってプログラミングが捗るんですねー。(白目)

今回は暇つぶしのHSPです。

bgscr 0,ginfo(20),ginfo(21),0,0,0
buffer 1,ginfo(20),ginfo(21)
onkey *exit

gsel 0
cls 4
gsel 1
cls 4
gsel 0

gmode 3,ginfo(20),ginfo(21),3
h = 0.0

*main
	mouse -1
	pos 0,0
	gcopy 1,0,0,ginfo(20),ginfo(21)
	if(rnd(3)=0){
		hsvcolor (double(h)-15.0)+double(rnd(30)),200,200
		h+=0.1
		if(h>1910.0){h=0.0}
		size = (rnd(130)+70)/2
		x = rnd(ginfo(20))
		y = rnd(ginfo(21))
		circle x-size,y-size,x+size,y+size
	}
	wait 0
	goto *main
*exit
	end

簡単です。
円をどんどん書きながらフェードアウトしていきます。
地味に色合いをぐるぐる回るようにしてあります。