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
let vertexPositions =
-- 3D positions | texture coordinates
[ (-0.5), (-0.75), 0, 0, 0 -- 0
, 0.5 , (-0.75), 0, 1, 0 -- 1
, 0.5 , 0.75 , 0, 1, 1 -- 2
, (-0.5), 0.75 , 0, 0, 1 -- 3
[ 100, 100, 0, 0, 0 -- 0
, 200, 100, 0, 1, 0 -- 1
, 200, 200, 0, 1, 1 -- 2
, 100, 200, 0, 0, 1 -- 3
] :: [GL.GLfloat]
-- create draw order indices
@ -114,7 +114,7 @@ main = do
-- -- 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