justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Fix near plane distance

Browse Source
This commit is contained in:
justin
2021-08-31 13:21:02 +01:00
parent 740abd1609
commit b096b8ef20
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/MatrixHelper.hs
+6 -5
View File
@@ -23,9 +23,10 @@ perspectiveMatrixb rot zoom (V2 tranx trany) (V2 winx winy) (V2 viewFromx viewFr
$ scaleMat (V2 (2*zoom/winx) (2*zoom/winy)) $ scaleMat (V2 (2*zoom/winx) (2*zoom/winy))
!*! rotMatr (-rot) !*! rotMatr (-rot)
!*! transMat (V2 (viewFromx-tranx) (viewFromy-trany)) !*! transMat (V2 (viewFromx-tranx) (viewFromy-trany))
!*! perMat (zoom * 0.4) -- !*! perMat (zoom * 0.4)
!*! perMat 0.4
!*! transMat (V2 (-viewFromx) (-viewFromy)) !*! transMat (V2 (-viewFromx) (-viewFromy))
!*! vertScale !*! vertScale (negate 0.005)
!*! vertTrans 20 !*! vertTrans 20
isoMatrix isoMatrix
@@ -75,11 +76,11 @@ transMat (V2 x y) = V4
(V4 0 0 1 0) (V4 0 0 1 0)
(V4 0 0 0 1) (V4 0 0 0 1)
vertScale :: V4 (V4 Float) vertScale :: Float -> V4 (V4 Float)
vertScale = V4 vertScale s = V4
(V4 1 0 0 0) (V4 1 0 0 0)
(V4 0 1 0 0) (V4 0 1 0 0)
(V4 0 0 (negate 0.005) 0) (V4 0 0 s 0)
(V4 0 0 0 1) (V4 0 0 0 1)
vertTrans :: Float -> V4 (V4 Float) vertTrans :: Float -> V4 (V4 Float)