Attempt to globally translate drawn lists

src/Dodge/SelectionSections/Draw.hs

@@ -1,5 +1,6 @@
 module Dodge.SelectionSections.Draw where
 
+import Picture.Base
 import Dodge.Data.CardinalPoint
 import Control.Lens
 import Data.Maybe
@@ -10,13 +11,12 @@ import Dodge.Data.SelectionList
 
 drawSelectionSections :: SelectionSections a -> ListDisplayParams -> Configuration -> Picture
 drawSelectionSections sss ldps cfig =
-    toTopLeft cfig (listPicturesAtScaleOff
+    toTopLeft cfig ((translate (ldps ^. ldpPosX) (negate $ ldps ^. ldpPosY) $ listPicturesAtScaleOff
         (_ldpVerticalGap ldps)
         (_ldpScale ldps)
-        (_ldpPosX ldps)
-        (_ldpPosY ldps)
         0
         pics
+        )
         <> thecursor'
         )
   where