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/sprite.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/sprite.scm')
| -rw-r--r-- | 2d/sprite.scm | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/2d/sprite.scm b/2d/sprite.scm index c3dc4f1..39bc746 100644 --- a/2d/sprite.scm +++ b/2d/sprite.scm @@ -68,13 +68,11 @@ (define (enable-sprites) (set! sprite-shader - (make-shader-program - (load-vertex-shader - (string-append %pkgdatadir - "/shaders/sprite-vertex.glsl")) - (load-fragment-shader - (string-append %pkgdatadir - "/shaders/sprite-fragment.glsl"))))) + (load-shader-program + (string-append %pkgdatadir + "/shaders/sprite-vertex.glsl") + (string-append %pkgdatadir + "/shaders/sprite-fragment.glsl")))) ;; The <sprite> type represents a drawable object (texture, ;; texture-region, animation, etc.) with a given position, scale, |