From 1a315b9b0f46964016795d7d528753295903839f Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 22 May 2014 20:02:27 -0400
Subject: Add load-shader-program procedure.

* 2d/shader.scm (load-shader-procedure): New procedure.

* 2d/font.scm:
* 2d/sprite.scm: Use it.
---
 2d/shader.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to '2d/shader.scm')

diff --git a/2d/shader.scm b/2d/shader.scm
index d8b165e..0be977f 100644
--- a/2d/shader.scm
+++ b/2d/shader.scm
@@ -42,6 +42,7 @@
             shader-type
             shader-id
             make-shader-program
+            load-shader-program
             shader-program-id
             shader-program?
             shader-program-linked?
@@ -217,6 +218,10 @@ VERTEX-SHADER and FRAGMENT-SHADER."
               shaders)
     shader-program))
 
+(define (load-shader-program vertex-shader-file-name fragment-shader-file-name)
+  (make-shader-program (load-vertex-shader vertex-shader-file-name)
+                       (load-fragment-shader fragment-shader-file-name)))
+
 (define current-shader-program (make-parameter #f))
 
 (define-syntax-rule (with-shader-program shader-program body ...)
-- 
cgit v1.2.3