finished episode 20
This commit is contained in:
parent
747d7379ae
commit
c379042748
1 changed files with 5 additions and 5 deletions
10
src/Main.hs
10
src/Main.hs
|
@ -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
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue