Fix near plane distance

2021-08-31 13:21:02 +01:00
parent 740abd1609
commit b096b8ef20
1 changed files with 6 additions and 5 deletions
@@ -23,9 +23,10 @@ perspectiveMatrixb rot zoom (V2 tranx trany) (V2 winx winy) (V2 viewFromx viewFr
    $ scaleMat (V2 (2*zoom/winx) (2*zoom/winy))
        !*! rotMatr (-rot)
        !*! transMat (V2 (viewFromx-tranx) (viewFromy-trany))
-        !*! perMat (zoom * 0.4)
+       -- !*! perMat (zoom * 0.4)
+        !*! perMat 0.4
        !*! transMat (V2 (-viewFromx) (-viewFromy))
-        !*! vertScale 
+        !*! vertScale (negate 0.005)
        !*! vertTrans 20

 isoMatrix 
@@ -75,11 +76,11 @@ transMat (V2 x y) = V4
    (V4 0 0 1 0)
    (V4 0 0 0 1)

-vertScale :: V4 (V4 Float)
-vertScale = V4
+vertScale :: Float -> V4 (V4 Float)
+vertScale s = V4
    (V4 1 0 0 0)
    (V4 0 1 0 0)
-    (V4 0 0 (negate 0.005) 0)
+    (V4 0 0 s 0)
    (V4 0 0 0 1)

 vertTrans :: Float -> V4 (V4 Float)