Refactoring

2021-05-03 23:59:20 +02:00
parent b826299cbd
commit e21178b688
20 changed files with 830 additions and 731 deletions
@@ -165,7 +165,7 @@ 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 = takeWhile (< maxViewDistance) [-maxViewDistance,0 - 0.8*maxViewDistance..]
+    zs = takeWhile (< maxViewDistance) [-maxViewDistance,negate $ 0.8*maxViewDistance..]
    maxViewDistance = 800