Work on inventory management

src/Dodge/Render/List.hs

@@ -42,22 +42,9 @@ listTextPictureAt xoff yoff cfig yint = winScale cfig
     hh = halfHeight cfig
 
 renderListAt :: Float -> Float -> Configuration -> [(String,Color)] -> Picture
-renderListAt tx ty cfig =
-    concatMapPic (winScale cfig) . zipWith (listPairAt tx ty cfig) [0..]
+renderListAt tx ty cfig = listTextPicturesAt tx ty cfig . map (\(str,col) -> color col $ text str)
+--    concatMapPic (winScale cfig) . zipWith (listPairAt tx ty cfig) [0..]
 
-listPairAt
-    :: Float    -- ^ x offset
-    -> Float    -- ^ y offset
-    -> Configuration
-    -> Int      -- ^ y offset (discrete)
-    -> (String,Color)   -- ^ The text item
-    -> Picture
-{-# INLINE listPairAt #-}
-listPairAt xoff yoff cfig yint (s,col) 
-    = translate (xoff + 15 - halfWidth cfig) (yoff + halfHeight cfig - (20 * (fromIntegral yint+1)))
-    . scale 0.1 0.1
-    . dShadCol col
-    $ text s
 --TODO put the following functions in an appropriate place
 {- | Colour picture and add black drop shadow. -}
 dShadCol :: Color -> Picture -> Picture