This commit is contained in:
2022-08-20 18:41:04 +01:00
parent ff9dbdf068
commit 6e598339f1
84 changed files with 58 additions and 216 deletions
+1 -1
View File
@@ -12,7 +12,7 @@ import Geometry
findBoundDists :: Configuration -> World -> (Float, Float, Float, Float)
findBoundDists cfig w
| debugOn Bound_box_screen cfig = (hh, - hh, hw, - hw)
| otherwise = fromMaybe (0, 0, 0, 0) $ farWallDistDirection ((w ^. cWorld . cwCam . cwcCenter)) w
| otherwise = fromMaybe (0, 0, 0, 0) $ farWallDistDirection (w ^. cWorld . cwCam . cwcCenter) w
where
hw = halfWidth cfig
hh = halfHeight cfig