Add load-shader-program procedure.

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

* 2d/font.scm:
* 2d/sprite.scm: Use it.

1 files changed, 5 insertions, 0 deletions

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 ...)