読者です 読者をやめる 読者になる 読者になる

すりごまの鯖缶?ブログ 2缶目

鯖管のことだったりプログラミングのことだったりマイクラのことだったり

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

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