From c37904274839aadd1a06becad90924b88290f570 Mon Sep 17 00:00:00 2001 From: nek0 Date: Tue, 2 Jun 2020 03:25:42 +0200 Subject: [PATCH] finished episode 20 --- src/Main.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index 383303f..b9fd62b 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -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