Start implementing mapper item

2025-01-02 16:26:26 +00:00
parent 8bfaa12ea7
commit e9f5a39ed7
10 changed files with 68 additions and 47 deletions
@@ -171,8 +171,10 @@ drawMapperInventory p z itid _ w = fold $ do
    itm <- w ^? pointerToItemID itid
    ls <- itm ^? itUse . useMapperLines
    let r = w ^. wCam . camRot
-    return . scale z z . rotate r . uncurryV translate p 
-        $ foldMap (\(x,y) -> line [x,y]) ls
+    return . color red
+        $ foldMap (\(x,y) -> line [f x,f y]) ls
+  where
+    f = worldPosToScreen (w ^. wCam)

 drawCombineInventory ::
    Configuration ->