;;; Buffers, Pixel Drawing/Reading
(defconstant GL_RGB #x1907)
+(defconstant GL_RGBA #x1908)
;;; Hints
(defconstant GL_PERSPECTIVE_CORRECTION_HINT #x0C50)
;;; OpenGL 1.2
(defconstant GL_BGR #x80E0)
+(defconstant GL_BGRA #x80E1)
;;; OpenGL Functions
(defcfun "void gacela_glBegin (int mode)" 0
(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);")
(defcfun "void gacela_glTranslatef (float x, float y, float z)" 0
"glTranslatef (x, y, z);")
+(defcfun "void gacela_glVertex2f (float x, float y)" 0
+ "glVertex2f (x, y);")
+
(defcfun "void gacela_glVertex3f (float x, float y, float z)" 0
"glVertex3f (x, y, z);")
(defcfun "void gacela_glBlendFunc (int sfactor, int dfactor)" 0
"glBlendFunc (sfactor, dfactor);")
+(defcfun "void gacela_glOrtho (float left, float right, float bottom, float top, float near_val, float far_val)" 0
+ "glOrtho (left, right, bottom, top, near_val, far_val);")
+
(defcfun "void gacela_gluPerspective (double fovy, double aspect, double zNear, double zFar)" 0
"gluPerspective (fovy, aspect, zNear, zFar);")
(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 float) (void "gacela_glColor4f"))
(defentry glDepthFunc (int) (void "gacela_glDepthFunc"))
(defentry glEnable (int) (void "gacela_glEnable"))
(defentry glDisable (int) (void "gacela_glDisable"))
(defentry glRotatef (float float float float) (void "gacela_glRotatef"))
(defentry glShadeModel (int) (void "gacela_glShadeModel"))
(defentry glTranslatef (float float float) (void "gacela_glTranslatef"))
+(defentry glVertex2f (float float) (void "gacela_glVertex2f"))
(defentry glVertex3f (float float float) (void "gacela_glVertex3f"))
(defentry glViewport (int int int int) (void "gacela_glViewport"))
(defentry glGenTextures (int) (object "gacela_glGenTextures"))
(defentry glLightfv (int int float float float float) (void "gacela_glLightfv"))
(defentry glNormal3f (float float float) (void "gacela_glNormal3f"))
(defentry glBlendFunc (int int) (void "gacela_glBlendFunc"))
+(defentry glOrtho (float float float float float float) (void "gacela_glOrtho"))
(defentry gluPerspective (double double double double) (void "gacela_gluPerspective"))
(defentry gluBuild2DMipmaps (int int int int int int int) (int "gacela_gluBuild2DMipmaps"))