21 lines
592 B
Haskell
21 lines
592 B
Haskell
module Dodge.SelectionSections.Draw where
|
|
|
|
import Control.Lens
|
|
import Dodge.Data.Config
|
|
import Dodge.Data.SelectionList
|
|
import Dodge.Render.List
|
|
import Dodge.ScreenPos
|
|
import Picture.Base
|
|
|
|
drawSelectionSections :: SelectionSections a -> ListDisplayParams -> Configuration -> Picture
|
|
drawSelectionSections sss ldp cfig =
|
|
translateScreenPos cfig (ldp ^. ldpPos) $
|
|
drawListYgapScaleYoff
|
|
(_ldpVerticalGap ldp)
|
|
(_ldpScale ldp)
|
|
0
|
|
pics
|
|
<> selSecDrawCursor 15 ldp sss
|
|
where
|
|
pics = foldMap _ssShownItems (_sssSections sss)
|