diff options
author | David Thompson <dthompson2@worcester.edu> | 2014-05-22 20:02:27 -0400 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2014-05-22 20:18:20 -0400 |
commit | 1a315b9b0f46964016795d7d528753295903839f (patch) | |
tree | 9a0833b3fd2290eea2a2be98f26e8e17ef9e9cf6 /2d/shader.scm | |
parent | e74f4e6d4ffcbf3923c597e75acbc5f0260516f8 (diff) |
Add load-shader-program procedure.
* 2d/shader.scm (load-shader-procedure): New procedure.
* 2d/font.scm:
* 2d/sprite.scm: Use it.
Diffstat (limited to '2d/shader.scm')
-rw-r--r-- | 2d/shader.scm | 5 |
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 ...) |