Add aggressive light culling

2022-06-17 18:24:24 +01:00
parent 55341f7caf
commit cbfb417d21
26 changed files with 114 additions and 47 deletions
@@ -215,7 +215,7 @@ effectOnOffHeld f f' = ItInvEffectID
 jetPack :: Item
 jetPack = defaultEquipment
    { _itEquipPict = \_ _ -> (,) emptySH $ setDepth 20
-        $ pictures [color yellow $ polygon $ rectNSEW 5 (-5) (-3) (-11) ]
+        $ pictures [color yellow $ polygon $ reverse $ rectNSWE 5 (-5) (-11) (-3) ]
    , _itEffect = NoItEffect
    , _itID = Nothing
    }   & itUse . eqEq . eqSite .~ GoesOnBack