intercircle :: Polygon
intercircle = fmap (zeroOut 0.01) 
            $ circle ((-0.25) :+ 0.0) 0.25 40
intercircle :: Polygon
intercircle = fmap (zeroOut 0.01) 
            $ circle ((-0.25) :+ 0.0) 0.25 40
intercircle = fmap (zeroOut 0.01) 
            $ circle ((-0.25) :+ 0.0) 0.25 40