From 491f4465e9c5fbc63ad92b8a6904d3e3c611ade1 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 21 Apr 2014 22:20:52 -0400
Subject: Add shader-program-attribute-location procedure.

* 2d/shader.scm (shader-program-attribute-location): New procedure.
---
 2d/shader.scm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to '2d')

diff --git a/2d/shader.scm b/2d/shader.scm
index c34f48b..094b929 100644
--- a/2d/shader.scm
+++ b/2d/shader.scm
@@ -28,6 +28,7 @@
   #:use-module (2d transform)
   #:use-module (2d vector2)
   #:use-module (2d color)
+  #:use-module (2d wrappers gl)
   #:export (make-shader
             make-vertex-shader
             make-fragment-shader
@@ -42,6 +43,7 @@
             shader-program-id
             shader-program?
             shader-program-linked?
+            shader-program-attribute-location
             with-shader-program
             %uniform-setters
             register-uniform-setter!
@@ -211,6 +213,10 @@ SHADERS."
         (glUseProgram 0)
         return-value))))
 
+(define (shader-program-attribute-location program name)
+  "Get the location of the attribute NAME within the shader PROGRAM."
+  (glGetAttribLocation (shader-program-id program) name))
+
 (define-record-type <uniform-setter>
   (make-uniform-setter predicate proc)
   uniform-setter?
-- 
cgit v1.2.3