Aplicatie MM pt desenare cercuri olimpice. Viteza de schimbare a culorilor: variabil si progresiv.

MTB

Se deseneaza cele 5 elipse care sunt denumite "cerc1" ... "cerc5" si care din Properties sunt
colorate corespunzator.
Se creaza 2 butoane: "Start" si "Stop" care sa porneasca timerul si sa il opreasca.

Page Script
--------------------
to handle timernotify t

	system systemTimer
	local culoare

--		rgbFill of ellipse "cerc1" = random(255),random(255),random(255)
--		rgbFill of ellipse "cerc2" = random(255),random(255),random(255)
--		rgbFill of ellipse "cerc3" = random(255),random(255),random(255)
--		rgbFill of ellipse "cerc4" = random(255),random(255),random(255)
--		rgbFill of ellipse "cerc5" = random(255),random(255),random(255)

	culoare = rgbFill of ellipse "cerc1"
	rgbFill of ellipse "cerc1" = rgbFill of ellipse "cerc2"
	rgbFill of ellipse "cerc2" = rgbFill of ellipse "cerc3"
	rgbFill of ellipse "cerc3" = rgbFill of ellipse "cerc4"
	rgbFill of ellipse "cerc4" = rgbFill of ellipse "cerc5"
	rgbFill of ellipse "cerc5" = culoare
end 

Button "Start" Script
--------------------
to handle buttonClick

	system systemTimer
	systemTimer=timerstart("periodic",1000,200,page "pagina")
	
end


Button "Stop" Script
--------------------
to handle buttonClick
	get timerStop(0)
end

Pentru a modifica timpul se umbla la parametrii lui timerStart (se pun variabile random sau
care cresc intr-o progresie la fiecare apel