DRAWPOLI

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