Logo - Zadatak Pretezak

;; https://www.dropbox.com/s/22pq7svlqiv4zp4/pretezak.pdf

to pretezak :d :x :y :z
	localmake "visina 0

	cs rt 90
	repeat 3 [ fd :d lt 120 if ycor > :visina [ make "visina ycor ] ]

	localmake "vsum :visina
	localmake "sum :x + :y + :z

	localmake "A ( :x / :sum ) * :vsum
	localmake "B ( :y / :sum ) * :vsum
	localmake "C ( :z / :sum ) * :vsum

	pu fd :d rt 150 fd :B rt 90

	while [ ycor < :A ] [ fd 1 ]

	pd

	rt 90 fd :B bk :B
	rt 120 fd :A bk :A
	rt 120 fd :C bk :C
end