glu additions
Fri Sep 26 13:02:38 PDT 2008 mcdermott.michaelj@gmail.com
* glu additions
Added support for the following glu functions:
gluQuadOrientation
gluQuadTexture
gluQuadNormals
Also defined the C structures needed for these functions.
Set all three of the above to be exported.
Added the glu Sphere function to the export list.
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-cl-opengl/gl/constants.lisp new-cl-opengl/gl/constants.lisp
--- old-cl-opengl/gl/constants.lisp 2014-04-23 20:48:41.000000000 -0700
+++ new-cl-opengl/gl/constants.lisp 2014-04-23 20:48:41.000000000 -0700
@@ -1556,6 +1556,7 @@
(:negative-z-ext #x87DB)
(:never #x200)
(:nicest #x1102)
+ (:no-error #x0)
(:none #x0)
(:noop #x1505)
(:nor #x1508)
diff -rN -u old-cl-opengl/glu/glu.lisp new-cl-opengl/glu/glu.lisp
--- old-cl-opengl/glu/glu.lisp 2014-04-23 20:48:41.000000000 -0700
+++ new-cl-opengl/glu/glu.lisp 2014-04-23 20:48:41.000000000 -0700
@@ -323,12 +323,27 @@
;;;; 6.3 Rendering Styles
-;;(defcfun ("gluQuadricNormals" quadric-normals) :void
-;; (quadric-object quadric-obj)
-;; ...)
+(defcfun ("gluQuadricTexture" quadric-texture) :void
+ (quadric-object quadric-obj)
+ (texture-coords %gl:boolean))
+
+(defcenum glu-orientation
+ (:outside #x186B4)
+ (:inside #x186B5))
+
+(defcfun ("gluQuadricOrientation" quadric-orientation) :void
+ (quadric-object quadric-obj)
+ (orientation glu-orientation))
+
+(defcenum glu-normals
+ (:smooth #x186A0)
+ (:flat #x186A1)
+ (:none #x186A2))
+
+(defcfun ("gluQuadricNormals" quadric-normals) :void
+ (quadric-object quadric-obj)
+ (normals glu-normals))
-;; gluQuadricTexture
-;; gluQuadricOrientation
;; gluQuadricDrawStyle
;;;; 6.4 Quadrics Primitives
diff -rN -u old-cl-opengl/glu/package.lisp new-cl-opengl/glu/package.lisp
--- old-cl-opengl/glu/package.lisp 2014-04-23 20:48:41.000000000 -0700
+++ new-cl-opengl/glu/package.lisp 2014-04-23 20:48:41.000000000 -0700
@@ -37,6 +37,12 @@
(:use #:cl #:cffi)
(:export
;;# Functions
+ #:quadric-texture
+ #:quadric-orientation
+ #:quadric-normals
+ #:new-quadric
+ #:quadric-normals
+ #:sphere
#:build-2d-mipmaps
#:get-string
#:check-extension