March 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

[cl-opengl-devel] division-by-zero error
by James Baker 07 Mar '08

07 Mar '08

(argh, forgot to cc the list!) sorry, should have included more details in the first mail. I'm running debian stable, using the closed-source nvidia drivers and built sbcl from source myself. ok well, using (sb-int:with-float-traps-masked (:invalid :divide-by-zero)) as suggested by Luís allows me to load cl-glut-examples, but the issue still occurs if i try to run an example (i.e. rb-hello) backtrace from there is = (SB-VM:SIGFPE-HANDLER #<unavailable argument> #.(SB-SYS:INT-SAP #XB79FB36C) #<unavailable argument>) 0] backtrace 0: (SB-VM:SIGFPE-HANDLER #<unavailable argument> #.(SB-SYS:INT-SAP #XB79FB36C) #<unavailable argument>) 1: (SB-VM:SIGFPE-HANDLER #<unavailable argument> #.(SB-SYS:INT-SAP #XB79FB36C) #<unavailable argument>)[:EXTERNAL] 2: ((FLET #:WITHOUT-INTERRUPTS-BODY-[INVOKE-INTERRUPTION]11)) 3: (SB-SYS:INVOKE-INTERRUPTION #<CLOSURE (FLET SB-UNIX::INTERRUPTION) {B79FB105}>) 4: ((FLET SB-UNIX::RUN-HANDLER) 8 #.(SB-SYS:INT-SAP #XB79FB36C) #.(SB-SYS:INT-SAP #XB79FB3EC)) 5: ("foreign function: call_into_lisp") 6: ("foreign function: funcall3") 7: ("foreign function: interrupt_handle_now") On Thu, Mar 6, 2008 at 2:30 PM, Bart Botta <00003b(a)gmail.com> wrote: > (oops, forgot to reply to the list, sorry about the extra copies) > > > Just as a guess, you might try deleting .fasl files in cl-opengl and > cffi directories, if that doesn't help, will need more information: > > > On 3/5/08, James Baker <cycle.code.media(a)gmail.com> wrote: > > "division-by-zero" issue, I'm using both cffi + cl-opengl from darcs > > and sbcl 1.0.15. > > > What OS/platform/graphics card drivers? > > > > > > (SB-VM:SIGFPE-HANDLER > > #<unavailable argument> > > #.(SB-SYS:INT-SAP #XB79FA9EC) > > #<unavailable argument>) > > 0] > > > > What does it say if you type backtrace at that prompt? > > -- > -b- >

3 9

[cl-opengl-devel] division-by-zero error
by James Baker 06 Mar '08

06 Mar '08

hi folks, sorry if this has been discussed before but..... I'm trying to check out the cl-glut-examples but all I get is this "division-by-zero" issue, I'm using both cffi + cl-opengl from darcs and sbcl 1.0.15. Below is a snippit of what sbcl spits out. thanks, James * (asdf:oos 'asdf:load-op 'cl-glut-examples) ; loading system definition from /home/james/lisp/systems/cl-glut-examples.asd ; into #<PACKAGE "ASDF0"> ; registering #<SYSTEM CL-GLUT-EXAMPLES {A8CDEA1}> as CL-GLUT-EXAMPLES ; loading system definition from /home/james/lisp/systems/cl-glu.asd into ; #<PACKAGE "ASDF0"> ; registering #<SYSTEM CL-GLU {AA8AFD9}> as CL-GLU debugger invoked on a DIVISION-BY-ZERO in thread #<THREAD "initial thread" {A72F711}>: arithmetic error DIVISION-BY-ZERO signalled Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [RETRY ] Retry performing #<ASDF:LOAD-OP NIL {A79C939}> on #<ASDF:CL-SOURCE-FILE "hello" {A8E1709}>. 1: [ACCEPT] Continue, treating #<ASDF:LOAD-OP NIL {A79C939}> on #<ASDF:CL-SOURCE-FILE "hello" {A8E1709}> as having been successful. 2: [ABORT ] Exit debugger, returning to top level. (SB-VM:SIGFPE-HANDLER #<unavailable argument> #.(SB-SYS:INT-SAP #XB79FA9EC) #<unavailable argument>) 0]

2 1

Re: [cl-opengl-devel] division-by-zero error
by Luís Oliveira 06 Mar '08

06 Mar '08

On Thu, Mar 6, 2008 at 2:40 AM, James Baker <cycle.code.media(a)gmail.com> wrote: > I'm trying to check out the cl-glut-examples but all I get is this > "division-by-zero" issue, I'm using both cffi + cl-opengl from darcs > and sbcl 1.0.15. [...] > * (asdf:oos 'asdf:load-op 'cl-glut-examples) Does this help? (sb-int:with-float-traps-masked (:invalid :divide-by-zero) (asdf:oos 'asdf:load-op 'cl-glut-examples)) -- Luís Oliveira http://student.dei.uc.pt/~lmoliv/

1 0