to aaa
;UCBLogo
;Prvi zadatak sa zupanijskih natjecanja 1999.
;Crta pravokutni trokut uvjek s duljom katetom
;vodoravno postavljenom (pogledati sluzbeni tekst zadatka).
;Pozvati s:
;---------------
;pravi 50 100
;---------------
;pravi 100 50
;---------------
end
to pravi :a :b
if or (not (numberp :a)) (not (numberp :b)) [stop]
if or (not (:a>0)) (not (:b>0)) [stop]
pu setpos [0 0] seth 90 ppt
ifelse :a>:b [fd :a lt 90 fd :b] [fd :b lt 90 fd :a]
setpos [0 0]
end