(glamour misc) : Use 'apply-rgba'

dharmatech · May 28, 2009 · 17c9437 · 17c9437
1 parent 8e79f6b
commit 17c9437
Showing 1 changed file with 2 additions and 11 deletions.
diff --git a/glamour/misc.sls b/glamour/misc.sls
@@ -84,17 +84,8 @@
 
          (glEnd)) )))
 
- (define (gl-color-rgba color)
-   (glColor4d (rgba-red   color)
-              (rgba-green color)
-              (rgba-blue  color)
-              (rgba-alpha color)))
-
- (define (gl-clear-color-rgba color)
-   (glClearColor (rgba-red   color)
-                 (rgba-green color)
-                 (rgba-blue  color)
-                 (rgba-alpha color)))
+ (define gl-color-rgba       (apply-rgba glColor4d))
+ (define gl-clear-color-rgba (apply-rgba glClearColor))
 
  )