Logo - Zadatak Cvijet (Zup 2013)

to cvijet :k :m :n :a :b :c
make "alfa 90 - 180/:k
make "beta (360/:k)/(:m-1)
make "gama 90 - 180/:n
make "delta 90-180/:k

rt :delta
repeat :k [

	make "kut 90 + :beta*((:m-2)/2)
	repeat :m-1 [
		fd :a/:m

		lt :kut
		fd :b lt :gama
		repeat :n [fd :c rt 360/:n]
		rt :gama  bk :b
		rt :kut

		make "kut :kut - :beta

	]
	fd :a/:m

	lt :delta
	fd :b lt :gama repeat :n [fd :c rt 360/:n] rt :gama  bk :b
	rt :delta

	rt 360/:k

]

end