X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela_GL.lisp;fp=gacela_GL.lisp;h=9bd403462de36fee646bb6f44ab3166ab1b202d6;hb=31db8863bd1281f94f426aac5936fb897351362f;hp=84e38d63cb6fb269e9548afaf7b41f002ff40e97;hpb=e1ff0e053ac905d71ed73cc7b0cefae3120cb0d1;p=gacela.git

diff --git a/gacela_GL.lisp b/gacela_GL.lisp
index 84e38d6..9bd4034 100644
--- 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"))