Tidying

src/Dodge/Render/HUD.hs

@@ -321,10 +321,6 @@ invHead cfig s =
         . scale 0.4 0.4
         $ text s
 
-
---clObjFloatIn :: Float
---clObjFloatIn = fromIntegral clObjIntIn * 9
-
 drawCarte :: Configuration -> World -> Picture
 drawCarte cfig w =
     pictures $

src/Dodge/Render/List.hs

@@ -101,17 +101,6 @@ listCursorChooseBorderScale ygap s borders xoff yoff cfig yint col cursxsize cur
 listCursorChooseBorder ::
     Set CardinalPoint -> Float -> Float -> Configuration -> Int -> Color -> Int -> Int -> Picture
 listCursorChooseBorder = listCursorChooseBorderScale 10 1
---listCursorChooseBorder borders xoff yoff cfig yint col cursxsize cursysize =
---    winScale cfig
---        . translate
---            (6 + xoff - halfWidth cfig)
---            (halfHeight cfig + 12.5 - (20 * fromIntegral yint + yoff + 20 + hgt))
---        . color col
---        $ chooseCursorBorders wth hgt borders
---  where
---    x = 9
---    wth = x * fromIntegral cursxsize + 9
---    hgt = 20 * fromIntegral cursysize
 
 -- note we cannot simply scale lines because they are drawn as solid rectangles
 chooseCursorBorders :: Float -> Float -> Set CardinalPoint -> Picture