Cleanup arc drawing

src/Dodge/Render/ShapePicture.hs

@@ -2,7 +2,7 @@ module Dodge.Render.ShapePicture (
     worldSPic,
 ) where
 
-import Picture.Test
+import Picture.Arc
 import Dodge.Viewpoints
 import Dodge.Render.Label
 import Dodge.WorldEvent.ThingsHit
@@ -79,7 +79,7 @@ drawSweep cr cfig w = fromMaybe mempty $ do
 --        $ arc (rot + a) (rot + _crDir cr) (dist mwp p * campos ^. camZoom)
         $ color white (circle 100)
            -- <> arcTest (3*pi/4) 100 green 0 1 red 100
-            <> arcTest 0 5 green (3*pi/4) 50 red 100 white
+            <> arcFull 0 5 green (3*pi/4) 50 red 100 white
             -- <> f green 0 (pi/2) 100
 --            <> f red 2 3 100
             <> f blue 4 4.5 100 white
@@ -87,7 +87,7 @@ drawSweep cr cfig w = fromMaybe mempty $ do
           --  <> f 3 0 220 <> f 4 0 240
           --  <> f (-0.5) 0.5 260 <> f 0.5 (-0.5) 280
   where
-    f col a b c = arcTest a 25 col b 1 red c
+    f col a b c = arcFull a 25 col b 1 red c
     --f a b c = thickArc a b c 5
     --rot = campos ^. camRot
     p = _crPos cr