finished episode 20

This commit is contained in:
nek0 2020-06-02 03:25:42 +02:00
parent 747d7379ae
commit c379042748

View file

@ -87,10 +87,10 @@ main = do
-- with added in texture coordinates -- with added in texture coordinates
let vertexPositions = let vertexPositions =
-- 3D positions | texture coordinates -- 3D positions | texture coordinates
[ (-0.5), (-0.75), 0, 0, 0 -- 0 [ 100, 100, 0, 0, 0 -- 0
, 0.5 , (-0.75), 0, 1, 0 -- 1 , 200, 100, 0, 1, 0 -- 1
, 0.5 , 0.75 , 0, 1, 1 -- 2 , 200, 200, 0, 1, 1 -- 2
, (-0.5), 0.75 , 0, 0, 1 -- 3 , 100, 200, 0, 0, 1 -- 3
] :: [GL.GLfloat] ] :: [GL.GLfloat]
-- create draw order indices -- create draw order indices
@ -114,7 +114,7 @@ main = do
-- -- MATRICES -- -- MATRICES
let proj = ortho (-2) 2 (-1.5) 1.5 (-1) 1 :: M44 GL.GLfloat let proj = ortho 0 800 0 600 (-1) 1 :: M44 GL.GLfloat
-- -- TEXTURE -- -- TEXTURE