to aaa
;MSWLogo
;Demonstracija jednostavne animacije.
;Pokrenuti s:
;-----------
;ht lik 30 3
;-----------
;
end

to lik :izdrzljivost :brzina
repeat :izdrzljivost [lik1 wait :brzina cs ~
					lik2 wait :brzina cs]
end

to lik1
fd 100 rt 90 fd 60 lt 45 fd 60 bk 60 rt 45 bk 60 
lt 30 repeat 6 [fd 30 lt 60] rt 30
bk 60 lt 45 bk 60
pu home pd rt 90 fd 60 rt 45 fd 60 bk 60 lt 45 bk 60
lt 45 bk 60 rt 45 bk 60 pu home pd
end

to lik2
fd 100 rt 135 fd 60 lt 45 fd 60 bk 60 rt 45 bk 60 
lt 75 repeat 6 [fd 30 lt 60]
bk 60 lt 45 bk 60
pu home pd rt 135 fd 60 rt 45 fd 60 bk 60 lt 45 bk 60
lt 135 bk 60 rt 45 bk 60 pu home pd
end