Hack partially working gui line to dropped items

src/Dodge/Render.hs

@@ -34,7 +34,7 @@ import qualified Control.Foldl as F
 --import Data.List
 --import Data.Bifunctor
 --import Data.Function
-import qualified Data.IntMap.Strict as IM
+--import qualified Data.IntMap.Strict as IM
 --import qualified Data.Map as M
 --import qualified Data.Set as S
 import Graphics.Rendering.OpenGL hiding (color,scale,translate,rotate)

src/Dodge/Render/HUD.hs

@@ -214,7 +214,7 @@ closeObjectTexts w = pictures $ zipWith renderList [(0::Int)..] (map colAndText
           let p' = ( pushout - halfWidth w + 130
                    , halfHeight w - 20* (fromIntegral invPos +1) + 2.5
                    )
-          return $ lineCol 
+          return $ flip thickLineCol (1 / halfWidth w) 
                       [(itScreenPos, withAlpha 0 col)
                       ,(sc p'      , col)
                       ,(sc p       , col)
@@ -222,8 +222,8 @@ closeObjectTexts w = pictures $ zipWith renderList [(0::Int)..] (map colAndText
 {- | Colour picture and add black drop shadow. -}
 dShadCol :: Color -> Picture -> Picture
 dShadCol c p = pictures
-    [ color c p
-    , color black $ uncurry translate (1.2,-1.2) p
+    [ color black $ uncurry translate (1.2,-1.2) p
+    , color c p
     ]
 
 drawListCursor :: Color -> Int -> World -> Picture
@@ -264,9 +264,7 @@ cursorAt wth col xoff yoff yint w = winScale w
         ,( wth,12.5) 
         ]
 
-
 displayHP :: Int -> World -> Picture
 displayHP n w = translate (halfWidth w-80) (halfHeight w-20) $
                     scale 0.2 0.2 $ text $ reverse $ take 5 $ (++ repeat ' ') $ reverse $ show
                     $ _crHP $ _creatures w IM.! n
-