Cleanup scope zooming

2023-01-07 10:43:53 +00:00
parent 87ea7da1d4
commit 6b259fa200
8 changed files with 54 additions and 74 deletions
@@ -115,6 +115,7 @@ heldItemSPic ht it = case ht of
    SHATTERGUN -> shatterGunSPic
    HELDDETECTOR dt -> noPic (colorSH (detectorColor dt) $ upperPrismPoly 3 $ rectWH 2 2)
    KEYCARD _ -> noShape (setDepth 0 $ translate (-5) (-5) $ rotate (pi / 2.5) keyPic)
+    BINOCULARS -> mempty -- TODO

 torchShape :: Shape
 torchShape =