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/font.scm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

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

diff --git a/2d/font.scm b/2d/font.scm
index 0917e66..3f4674f 100644
--- a/2d/font.scm
+++ b/2d/font.scm
@@ -59,13 +59,11 @@
 (define (enable-fonts)
   (SDL:ttf-init)
   (set! font-shader
-        (make-shader-program
-         (load-vertex-shader
-          (string-append %pkgdatadir
-                         "/shaders/font-vertex.glsl"))
-         (load-fragment-shader
-          (string-append %pkgdatadir
-                         "/shaders/font-fragment.glsl")))))
+        (load-shader-program
+         (string-append %pkgdatadir
+                        "/shaders/font-vertex.glsl")
+         (string-append %pkgdatadir
+                        "/shaders/font-fragment.glsl"))))
 
 (define-record-type <font>
   (make-font ttf point-size)
-- 
cgit v1.2.3