Start to unify selection lists

src/Dodge/Render/List.hs

@@ -1,5 +1,6 @@
 module Dodge.Render.List where
 
+import Dodge.Data.SelectionList
 import Data.Foldable
 import Data.Maybe
 import Dodge.Base.WinScale
@@ -8,14 +9,27 @@ import Dodge.Data.Config
 import Geometry
 import Picture
 
+drawSelectionList :: Configuration -> SelectionList -> Picture
+drawSelectionList cfig sl = listPicturesAtScaleOff 
+    (_slVerticalGap sl) 
+    (_slScale sl)
+    (_slPosX sl)
+    (_slPosY sl)
+    cfig
+    (_slOffset sl)
+    (concatMap _siPictures (_slItems sl))
+
 -- given a list of pictures that are each the size of a "text" call, displays them as
 -- a list on the screen
 listPicturesAt :: Float -> Float -> Configuration -> [Picture] -> Picture
-listPicturesAt tx ty cfig = listPicturesAtOff tx ty cfig 0
+listPicturesAt tx ty cfig = listPicturesAtScaleOff 10 1 tx ty cfig 0
 
 listPicturesAtOff :: Float -> Float -> Configuration -> Int -> [Picture] -> Picture
 listPicturesAtOff tx ty cfig i = mconcat . zipWith (listTextPictureAt tx ty cfig) [i ..]
 
+listPicturesAtScaleOff :: Float -> Float -> Float -> Float -> Configuration -> Int -> [Picture] -> Picture
+listPicturesAtScaleOff ygap s tx ty cfig i = mconcat . zipWith (listTextPictureAtScale ygap s tx ty cfig) [i ..]
+
 stackPicturesAt :: Float -> Float -> Configuration -> [Picture] -> Picture
 stackPicturesAt tx ty cfig = stackPicturesAtOff tx ty cfig 0
 
@@ -97,6 +111,15 @@ listTextPictureAt xoff yoff cfig yint =
     hw = halfWidth cfig
     hh = halfHeight cfig
 
+listTextPictureAtScale :: Float -> Float -> Float -> Float -> Configuration -> Int -> Picture -> Picture
+listTextPictureAtScale ygap s xoff yoff cfig yint =
+    winScale cfig
+        . translate (xoff + 15 - hw) (negate yoff + hh - ((s * 10 + ygap) * (fromIntegral yint + 1)))
+        . scale (s * 0.1) (s * 0.1)
+  where
+    hw = halfWidth cfig
+    hh = halfHeight cfig
+
 renderListAt :: Float -> Float -> Configuration -> [(String, Color)] -> Picture
 renderListAt tx ty cfig = listPicturesAt tx ty cfig . map (\(str, col) -> color col $ text str)