run "geomland make "scale :scale*50 ob "O point 0 0 ob "a 0 ob "r (exp (cos :a)) - (2 * (cos (4*:a))) + (pow sin (:a/12) 5) ob "P pointon (line :O :a) :r ob "H locus "P "a 2 180 ob "Butterfly polygon :H