Commit before static wall change

2021-04-27 22:01:03 +02:00
parent 6d229f8de2
commit 2085d5a048
9 changed files with 10 additions and 19 deletions
@@ -165,9 +165,11 @@ farWallDist cpos w = min (halfWidth w / (horizontalMax+50) ) (halfHeight w / (ve
    tRays = rotF [(y, maxViewDistance) | y <- zs]
    bRays = rotF [(y,-maxViewDistance) | y <- zs]
    rotF = map (h . (+.+) cpos . rotateV (_cameraRot w))
-    zs = take 9 [-maxViewDistance,0 - 0.8*maxViewDistance..]
+    zs = takeWhile (< maxViewDistance) [-maxViewDistance,0 - 0.8*maxViewDistance..]
    maxViewDistance = 800
    

+    
+
 dirRays :: Float -> [Point2]
 dirRays dir = take 11 $ iterate (rotateV (0.5 * pi / 10)) $ rotateV (dir-pi*0.25) (600,0)