Gacela as Guile modules.

[gacela.git] / src / gacela.scm

diff --git a/src/gacela.scm b/src/gacela.scm
index bfb4d123d47a9d896bb4cdc8d9c615845f5bacc6..d440c087399421842ae1a6b8bd16517c0566b7ac 100644 (file)
--- 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