to aaa
;MSWLogo
;Zadatak s gradskog natjecanja u primorsko-goranskoj zupaniji 1999.
;
;TEXT ZADATKA:
;Napisi proceduru sunce :x koja crta sunce.
;Sunce se sastoji od kruznice i linija koje predstavljaju zrake sunca.
;Broj zraka se definira kao parametar pri pozivu funkcije.
;
;Pozvati sa:
;-----------
;sunce 12
;-----------
;
;Moj komentar:
;Ovo se rjesenje razlikuje od rjesenja danog od sluzbenog sastavljaca.
;
end

to sunce :x
if (not (numberp :x)) [pr [Ulazni podatak mora biti broj!] stop]
ifelse (:x<1) ~
	[pr [Ulazni podatak mora biti broj veci od 0!] stop] ~
	[circle 90 zrake 360/:x :x]
end

to zrake :kut :broj
if :broj<1 [stop]
pu fd 100 pd fd 20 pu bk 120 pd rt :kut
zrake :kut :broj-1
end