Cleanup, improve aiming code

src/Dodge/Render/Picture.hs

@@ -111,6 +111,7 @@ mouseCursorType u = case u ^. uvWorld . input . mouseContext of
     OverCombEscape -> rotate (pi / 4) $ drawPlus 5
     OverTerminalReturn{} -> drawReturn 5
     OverTerminalEscape -> rotate (pi / 4) $ drawPlus 5
+    MouseGameRotate -> rotate a (drawVerticalDoubleArrow 5)
   where
     w = u ^. uvWorld
     selsec = u ^? uvWorld . hud . hudElement . diSelection . _Just . _1
@@ -191,6 +192,15 @@ drawDrag x =
     y = 0.5 * x
     w = 0.3 * x
 
+drawVerticalDoubleArrow :: Float -> Picture
+drawVerticalDoubleArrow x =
+        line [V2 0 z, V2 0 (- z)]
+        <> line [V2 (- w) (z - w), V2 0 z, V2 w (z - w)]
+        <> line [V2 (- w) (w - z), V2 0 (- z), V2 w (w - z)]
+  where
+    z = 1.5 * x
+    w = 0.6 * x
+
 drawDragDrop :: Float -> Picture
 drawDragDrop x =
     line (fmap (+ V2 z (- x)) [V2 (- x) x, V2 0 x, V2 0 (- x)])