to aaa
;MSWLogo
;Demonstracija rada s vise kornjaca.
;Pokrenuti s:
;-------
;pikaso
;-------
;
end
to konc
for [n 1 15 1] [arc 360 :n*2]
end
to pikaso
cs setpensize [1 1] setscreencolor [220 255 255]
pu bk 220 rt 90 fd 270 pd label "Fredi pu home pd
arc 360 30 fill
repeat 15 [setturtle repcount st setpensize [3 3] ~
		setpc repcount rt repcount*24 ~
		fd 100 pu fd 5 pd arc 360 20 ~
		repeat 10 [rt 36 fd 20 arc 360 5+repcount] ~
		fd 50 fd 20 arc 360 5 pu fd 40 pd arc 360 20 fill]
	setturtle 0 
	pu home pd rt 55 pu fd 300 pd konc rt 125 fd 350 konc
	rt 90 pu fd 500 pd konc pd rt 90 fd 350 konc
	rt 90 fd 50 setpensize [1 1] rt 160 fd 95 konc
end