summaryrefslogtreecommitdiff
path: root/2d/shader.scm
diff options
context:
space:
mode:
Diffstat (limited to '2d/shader.scm')
-rw-r--r--2d/shader.scm13
1 files changed, 7 insertions, 6 deletions
diff --git a/2d/shader.scm b/2d/shader.scm
index 0be977f..1ed18bd 100644
--- a/2d/shader.scm
+++ b/2d/shader.scm
@@ -284,9 +284,12 @@ location."
(color-b c)
(color-a c))))
-(define (uniform-location shader-program name)
- "Retrieve the location for the uniform NAME within SHADER-PROGRAM."
- (glGetUniformLocation (shader-program-id shader-program) name))
+(define uniform-location
+ (memoize
+ (lambda (shader-program name)
+ "Retrieve the location for the uniform NAME within SHADER-PROGRAM."
+ (glGetUniformLocation (shader-program-id shader-program)
+ (symbol->string name)))))
(define (uniform-set! shader-program name value)
"Use the appropriate setter procedure to translate VALUE into OpenGL
@@ -313,8 +316,6 @@ within SHADER-PROGRAM."
(begin body ...))
((_ ((name value) ...) body ...)
(begin
- (uniform-set! (current-shader-program)
- (symbol->string 'name)
- value)
+ (uniform-set! (current-shader-program) 'name value)
...
body ...))))