Remove RenderType datatype

2021-07-30 11:53:51 +02:00
parent c67feb485f
commit 834464db51
31 changed files with 164 additions and 227 deletions
@@ -6,7 +6,7 @@ module MatrixHelper
 import Geometry.Data

 import Linear.Matrix
-import Linear.V4
+--import Linear.V4
 import Graphics.Rendering.OpenGL (GLfloat)

 perspectiveMatrixb 
@@ -21,14 +21,12 @@ perspectiveMatrixb rot zoom (V2 tranx trany) (V2 winx winy) (V2 viewFromx viewFr
    . vToL
    . lmt 
    $ scaleMat (V2 (2*zoom/winx) (2*zoom/winy))
-    -- $ scaleMat (2/winx,2/winy)
        !*! rotMatr (-rot)
        !*! transMat (V2 (viewFromx-tranx) (viewFromy-trany))
        !*! perMat (zoom * 0.4)
        !*! transMat (V2 (-viewFromx) (-viewFromy))
        !*! vertScale 
        !*! vertTrans 20
-       -- !*! vertTrans 80

 isoMatrix 
    :: Float        -- ^ Rotation