lemniscate :: Polygon
lemniscate = nub
           $ adaptiveSqrt (0.1) (0.000001 :+ 0.00000)
	   $ intercircle
lemniscate :: Polygon
lemniscate = nub
           $ adaptiveSqrt (0.1) (0.000001 :+ 0.00000)
	   $ intercircle
lemniscate = nub
           $ adaptiveSqrt (0.1) (0.000001 :+ 0.00000)
	   $ intercircle