32 lines
1.1 KiB
Haskell
32 lines
1.1 KiB
Haskell
module Dodge.Render.InfoBox
|
|
( renderInfoListAt
|
|
, renderInfoListsAt
|
|
) where
|
|
|
|
import Dodge.Data.CardinalPoint -- this should be imported implicitly
|
|
import Dodge.Base
|
|
import Dodge.Data.Camera
|
|
import Dodge.Data.Config
|
|
import Dodge.Render.Connectors
|
|
import Dodge.Render.List
|
|
import Geometry
|
|
import Picture
|
|
|
|
renderInfoListAt :: Float -> Float -> Configuration -> Camera -> (Point2, [String]) -> Picture
|
|
renderInfoListAt x y cfig cam (p, ss) =
|
|
toTopLeft cfig (renderListAt x y (zip ss (repeat white)))
|
|
<> color white (lConnect (V2 (x - hw) (hh -25 - y)) (worldPosToScreen cam p))
|
|
<> toTopLeft cfig (translate x (-y) $ listCursorChooseBorderScale 0 1 [North,South] 0 0 white 19 (length ss))
|
|
where
|
|
hw = halfWidth cfig
|
|
hh = halfHeight cfig
|
|
|
|
renderInfoListsAt :: Float -> Float -> Configuration -> Camera -> [(Point2, [String])] -> Picture
|
|
renderInfoListsAt x y cfig w =
|
|
fst . foldr f (mempty, 0)
|
|
where
|
|
f (p, ss) (pic, offset) =
|
|
( pic <> renderInfoListAt x (y + offset) cfig w (p, ss)
|
|
, offset + 20 * fromIntegral (length ss)
|
|
)
|