to aaa
;UCBLogo
;Animacija valjanja kvadrata po zamisljenom putu.
;Pokrenuti s:
;------------
;hod
;------------
end

TO HOD
HT REPEAT 10 [ ~
		REPEAT 9 [PPT SETPENSIZE [1 1] ~
			REPEAT 4 [FD 50 LT 90] ~
			SETPENSIZE [3 3] PE ~
			REPEAT 4 [FD 50 LT 90] ~
			RT 10] ~
		PU FD 50 LT 90 PD]
PPT SETPENSIZE [1 1]
end