X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela.scm;h=d440c087399421842ae1a6b8bd16517c0566b7ac;hb=3c8d1a6786c9ccc88fff5c1d381f5f4a9b333c72;hp=bfb4d123d47a9d896bb4cdc8d9c615845f5bacc6;hpb=a3bf97e36510439b714ac53543491f7955497f3d;p=gacela.git

diff --git a/src/gacela.scm b/src/gacela.scm
index bfb4d12..d440c08 100644
--- a/src/gacela.scm
+++ b/src/gacela.scm
@@ -136,19 +136,6 @@
   (glLoadIdentity)
   #t)
 
-(define get-current-color #f)
-(define set-current-color #f)
-
-(let ((current-color '(1 1 1 1)))
-  (set! get-current-color
-	(lambda ()
-	  current-color))
-
-  (set! set-current-color
-	(lambda* (red green blue #:optional (alpha 1))
-	  (set! current-color (list red green blue alpha))
-	  (glColor4f red green blue alpha))))
-
 
 ;;; Audio Subsystem