LOGO - Silba 2012 - Zadatak: Poligon :: Kristijan Burnik

to drawpoli
make "l []
mouseon [
	make "l lput mousepos :l
][][mouseoff cs poligon :l][][
	cs
	if (count :l) > 0 [
		pu setpos first :l pd
		foreach :l [setpos ?]
		setpos mousepos
	]

]

end

to poligon :l
	(local "h "kh "kut "nh "tip)
	if (count :l) < 2 [stop]
	make "l (se :l list (first :l) (item 2 :l))
	pu setpos first :l
	seth towards first :l pd

	make "tip "konveksni
	foreach :l [
		make "nh int (towards ?)
		make "kut 0
		make "h int heading
		make "kh :h
		seth towards ?
		while [not (:kh = :nh)] [
			make "kut :kut + 1
			make "kh remainder (:h + :kut) 360
		]
		if :kut > 180 [circle 10 make "tip "konkavni]
		setpos ?
	]
	pr :tip
end