From dd5e49dccc6575a8a34b8833e2fd4578944724b7 Mon Sep 17 00:00:00 2001
From: jgk <justin.g.kruger@gmail.com>
Date: Mon, 8 Mar 2021 02:05:55 +0100
Subject: [PATCH] Fix rotation on floor item labels

---
 src/Dodge/Rendering.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/Dodge/Rendering.hs b/src/Dodge/Rendering.hs
index 5f4827491..817b1dce1 100644
--- a/src/Dodge/Rendering.hs
+++ b/src/Dodge/Rendering.hs
@@ -404,7 +404,7 @@ drawItemName w flIt | magV (_crPos (you w) -.- _flItPos flIt) < 100
                         && hasLOS (_flItPos flIt) (_crPos (you w)) w
                                 = pictures 
                                     [ scale (2/_windowX w) (2/_windowY w) 
-                                        . tranItPos
+                                        . t
                                         . translate (-15) (-10*sqrt zoom - 5) $ dShadCol white 
                                         $ scale 0.1 0.1 $ text $ nameOfItem
                                     , tranItPos' $ scLine [(-8,10),(-15,10),(-15,-10),(-8,-10)]
@@ -419,8 +419,10 @@ drawItemName w flIt | magV (_crPos (you w) -.- _flItPos flIt) < 100
                                    --              ]
                     | otherwise = blank
     where tranItPos = uncurry translate $ zoom *.* (_flItPos flIt -.- _cameraPos w)
-          tranItPos' = uncurry translate $ (_flItPos flIt)
-          t = rotate (0 - (_cameraRot w)) . uncurry translate (zoom *.* (_flItPos flIt -.- _cameraPos w))
+          tranItPos' = uncurry translate (_flItPos flIt) . rotate (_cameraRot w)
+          t = rotate (0 - (_cameraRot w)) 
+                . uncurry translate (zoom *.* (_flItPos flIt -.- _cameraPos w))
+                . rotate (_cameraRot w)
           nameOfItem = case flIt of FlIt {} -> _itName $ _flIt flIt
                                     FlAm {_flAm = PistolBullet} -> "Bullets"
                                     FlAm {_flAm = LiquidFuel} -> "Liquid Fuel"