From ac57fbe150e213389b4ef61b7a510a1fa8d5a093 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 25 Sep 2023 08:36:54 -0400
Subject: examples: triangle: Simplify by removing projection matrix.

---
 examples/triangle.scm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'examples')

diff --git a/examples/triangle.scm b/examples/triangle.scm
index 2debc85..945cbce 100644
--- a/examples/triangle.scm
+++ b/examples/triangle.scm
@@ -11,9 +11,9 @@
 
 (define (load)
   (define verts
-    (make-buffer #f32(0.0 0.0
-                          640.0 0.0
-                          320.0 480.0)))
+    (make-buffer #f32(-1.0 -1.0
+                          1.0 -1.0
+                          0.0 1.0)))
   (define colors
     (make-buffer #f32(1.0 0.0 0.0 1.0
                           0.0 1.0 0.0 1.0
@@ -52,11 +52,10 @@ varying vec4 fragColor;
 #else
 out vec4 fragColor;
 #endif
-uniform mat4 mvp;
 
 void main(void) {
     fragColor = color;
-    gl_Position = mvp * vec4(position, 0.0, 1.0);
+    gl_Position = vec4(position, 0.0, 1.0);
 }
 "
                 "
@@ -79,6 +78,6 @@ void main (void) {
 ")))
 
 (define (draw alpha)
-  (shader-apply shader vertex-array #:mvp (current-projection)))
+  (shader-apply shader vertex-array))
 
 (run-game #:load load #:draw draw)
-- 
cgit v1.2.3