justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Add partial box to infobox

Browse Source
This commit is contained in:
justin
2022-04-10 23:23:29 +01:00
parent 12852a7670
commit 3592245b46
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Creature/Picture.hs
+3 -3
View File
@@ -11,14 +11,14 @@ module Dodge.Creature.Picture
, picAtCrPosNoRot , picAtCrPosNoRot
) where ) where
import Dodge.Data import Dodge.Data
import Dodge.Base --import Dodge.Base
import Dodge.Creature.Test import Dodge.Creature.Test
import Dodge.Render.InfoBox --import Dodge.Render.InfoBox
--import Dodge.Render.List --import Dodge.Render.List
--import Dodge.Creature.AlertLevel.Data --import Dodge.Creature.AlertLevel.Data
--import Dodge.Picture.Layer --import Dodge.Picture.Layer
import Dodge.Clock import Dodge.Clock
import Dodge.Debug.Picture --import Dodge.Debug.Picture
import Picture import Picture
import Geometry import Geometry
import Shape import Shape
src/Dodge/Render/InfoBox.hs
+1
View File
@@ -15,6 +15,7 @@ import Geometry
renderInfoListAt :: Float -> Float -> Configuration -> World -> (Point2,[String]) -> Picture renderInfoListAt :: Float -> Float -> Configuration -> World -> (Point2,[String]) -> Picture
renderInfoListAt x y cfig w (p,ss) = renderListAt x y cfig (zip ss (repeat yellow)) renderInfoListAt x y cfig w (p,ss) = renderListAt x y cfig (zip ss (repeat yellow))
<> winScale cfig (color yellow $ lConnect (V2 (x-hw) (hh-20-y)) (worldPosToScreen w p)) <> winScale cfig (color yellow $ lConnect (V2 (x-hw) (hh-20-y)) (worldPosToScreen w p))
<> listCursorNSW x y cfig 0 yellow 19 (length ss)
where where
hw = halfWidth cfig hw = halfWidth cfig
hh = halfHeight cfig hh = halfHeight cfig