to aaa
;MSWLogo
;Jedna od mnogobrojnih rozeta.
;Pokrenuti s
;------------
;boja 5 200
;------------
;
end

to boja :broj :duljina
if :broj<0 [stop]
setpc (list random 255 random 255 random 255)
repeat 30 [repeat 3 [fd :duljina rt 120] rt 12]
rt :broj
boja :broj-1 :duljina-20
end