34 lines
974 B
Haskell
34 lines
974 B
Haskell
module Dodge.Render.List
|
|
where
|
|
import Dodge.Data
|
|
import Dodge.Base.Window
|
|
import Picture
|
|
|
|
renderListAt :: Float -> Float -> World -> [(String,Color)] -> Picture
|
|
renderListAt tx ty w =
|
|
concatMapPic (winScale w) . zipWith (listPairAt tx ty w) [0..]
|
|
|
|
listPairAt
|
|
:: Float -- ^ x offset
|
|
-> Float -- ^ y offset
|
|
-> World
|
|
-> Int -- ^ y offset (discrete)
|
|
-> (String,Color) -- ^ The text item
|
|
-> Picture
|
|
{-# INLINE listPairAt #-}
|
|
listPairAt xoff yoff w yint (s,col)
|
|
= translate (xoff + 15 - halfWidth w) (yoff + halfHeight w - (20 * (fromIntegral yint+1)))
|
|
. scale 0.1 0.1
|
|
. dShadCol col
|
|
$ text s
|
|
{- | Colour picture and add black drop shadow. -}
|
|
dShadCol :: Color -> Picture -> Picture
|
|
{-# INLINE dShadCol #-}
|
|
dShadCol c p = pictures
|
|
[ color black $ translate 1.2 (-1.2) p
|
|
, color c p
|
|
]
|
|
winScale :: World -> Picture -> Picture
|
|
{-# INLINE winScale #-}
|
|
winScale w = scale (2 / getWindowX w) (2 / getWindowY w)
|