Hi
the attached patch does two things:
1) it adds glu:build-2d-mipmaps
2) as suggested earlier this month, more mouse-buttons are now
recognized (:wheel-up, :wheel-down and :button4 to :button7)
i'd be happy to see it applied
cupe
{
hunk ./glu/glu.lisp 95
-;;; TODO: gluBuild{1,2,3}DMipmaps; gluBuildP1,2,3}DMipmapLevels
+;;; TODO: gluBuild{1,3}DMipmaps; gluBuildP1,3}DMipmapLevels
+
+
+(defcfun ("gluBuild2DMipmaps" %GluBuild2DMipmaps) :void
+ (target %gl:enum)
+ (internalformat %gl:int)
+ (width %gl:sizei)
+ (height %gl:sizei)
+ (format %gl:enum)
+ (type %gl:enum)
+ (data :pointer))
+
+
+(defun build-2d-mipmaps (target internal-format width height format type data)
+ (let ((internal-size (gl::internal-format->int internal-format)))
+ (if (pointerp data)
+ (%gluBuild2dMipmaps target internal-size width height format type data)
+ (cl-opengl::with-pixel-array (array type data)
+ (%gluBuild2dMipmaps target internal-size width height format type
array)))))
hunk ./glu/package.lisp 43
+ #:build-2d-mipmaps
hunk ./glut/callbacks.lisp 183
- :right-button)
+ :right-button
+ :wheel-up
+ :wheel-down
+ :button4
+ :button5
+ :button6
+ :button7)
}
_______________________________________________
cl-opengl-devel mailing list
cl-opengl-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/cl-opengl-devel
