Cleanup

src/Dodge/Render/Picture.hs

@@ -22,8 +22,8 @@ fixedCoordPictures u =
     aimDelaySweep u
         <> drawMenuOrHUD cfig u
         <> drawConcurrentMessage u
-        <> ttl (translate (hw - 100) 0 $ drawList (map text (_uvTestString u u)))
-        <> ttl
+        <> toTopLeft cfig (translate (hw - 100) 0 $ drawList (map text (_uvTestString u u)))
+        <> toTopLeft cfig
             ( translate (0.5 * hw) (- hh)
                 . drawList
                 . map text
@@ -45,19 +45,17 @@ fixedCoordPictures u =
     cfig = _uvConfig u
     hw = halfWidth cfig
     hh = halfHeight cfig
-    ttl = toTopLeft cfig
     f (k, l) = (show k, map _debugMessage l)
 
 displayFrameTicks :: Universe -> Picture
 displayFrameTicks u
     | debugOn Show_ms_frame $ _uvConfig u =
         translate (-10) (- halfHeight (_uvConfig u) + 6)
-            . scale 0.2 0.2
             $ fpsText (u ^. uvFrameTicks - u ^. uvLastFrameTicks)
     | otherwise = mempty
 
 fpsText :: (Show a, Ord a, Num a) => a -> Picture
-fpsText x = color col . text $ "ms/frame " ++ show x
+fpsText x = scale 0.2 0.2 . color col . text $ "ms/frame " ++ show x
   where
     col
         | x < 22 = blue
@@ -191,8 +189,8 @@ drawMenuCursor z =
 
 drawJumpDown :: Float -> Picture
 drawJumpDown x =
-    rotate (0.25 * pi) $
-        fold [line [V2 0 0, V2 x 0], line [V2 0 0, V2 0 x]]
+    --rotate (0.25 * pi) $ fold [line [V2 0 0, V2 x 0], line [V2 0 0, V2 0 x]]
+    rotate (0.25 * pi) $ line [V2 x 0, V2 0 0, V2 0 x]
 
 drawDragSelect :: Float -> Picture
 drawDragSelect x = polygonWire $ rectWH (0.5 * x) x