February 2008 - cl-opengl-devel - mailman3.common-lisp.net

[cl-opengl-devel] Patch for 2d mipmap generation and more mouse buttons
by Johann Korndoerfer 07 Mar '08

07 Mar '08

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) }

4 7

[cl-opengl-devel] GLUT handling for a mouse wheel
by Charlie McMackin 07 Mar '08

07 Mar '08

Having a GLUT window die on me because I accidentally scroll the mouse wheel down finally drove me mad enough to go track the problem down. I'm not sure if this is the correct way to do it, but weighing in at one line sexp it sure feels good. I picked :wheel-down but I guess any keyword can be put in it's place. the change: in glut/callbacks.lisp add (:wheel-down -1) to the mouse-button-state cenum. Charlie Mac

4 4

Re: [cl-opengl-devel] Patch for 2d mipmap generation and more mouse buttons
by Luís Oliveira 13 Feb '08

13 Feb '08

On 13/02/2008, Charlie McMackin <charliemac(a)gmail.com> wrote: > I'll give it a try, but it seems that no one else is hitting the error > on wheel-down due to -1 not be enumerated in mouse-button-state > either. (see other thread where I sent patch) Leads me to be more > suspect of my set-up. IIRC, I get that weird -1 when using the glut:mouse-wheel event. -- Luís Oliveira http://student.dei.uc.pt/~lmoliv/

2 1

[cl-opengl-devel] Translating checker.c
by Sohail Somani 04 Feb '08

04 Feb '08

Hello, I am trying to translate the checker.c example from the textures chapter: http://www.sgi.com/products/software/opengl/examples/redbook/source/ checker.c Unfortunately, the code http://paste.lisp.org/display/55290 does not work for some reason. Any ideas? Thanks! -- Sohail Somani http://uint32t.blogspot.com

2 2