(no commit message)

diff --git a/gacela.lisp b/gacela.lisp
index 5cb515a136798f745a03e9ba27dcabab65cf0556..dcbddde6836162300ffa5a89af9c8512c9da1975 100644 (file)
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -126,6 +126,14 @@
     (glLoadIdentity)
     t))
 
+(let ((current-color '(1 1 1 1)))
+  (defun get-color ()
+    current-color)
+
+  (defun set-color (red green blue (&optional (alpha 1)))
+    (setq current-color color)
+    (glColor4f red green blue alpha)))
+
 (defun copy-surface (source)
   (cond ((surface-p source)
         (let ((new-surface

diff --git a/gacela_GL.lisp b/gacela_GL.lisp
index 84e38d63cb6fb269e9548afaf7b41f002ff40e97..9bd403462de36fee646bb6f44ab3166ab1b202d6 100644 (file)
--- a/gacela_GL.lisp
+++ b/gacela_GL.lisp
@@ -98,6 +98,9 @@
 (defcfun "void gacela_glColor3f (float red, float green, float blue)" 0
   "glColor3f (red, green, blue);")
 
+(defcfun "void gacela_glColor4f (float red, float green, float blue, float alpha)" 0
+  "glColor4f (red, green, blue, alpha);")
+
 (defcfun "void gacela_glDepthFunc (int func)" 0
   "glDepthFunc (func);")
 
@@ -189,6 +192,7 @@
 (defentry glClearColor (float float float float) (void "gacela_glClearColor"))
 (defentry glClearDepth (double) (void "gacela_glClearDepth"))
 (defentry glColor3f (float float float) (void "gacela_glColor3f"))
+(defentry glColor4f (float float float) (void "gacela_glColor4f"))
 (defentry glDepthFunc (int) (void "gacela_glDepthFunc"))
 (defentry glEnable (int) (void "gacela_glEnable"))
 (defentry glDisable (int) (void "gacela_glDisable"))