October 2013 - cl-opengl-devel - mailman3.common-lisp.net

Confused as to how generate-gl-function works
by Chris Bagley 30 Oct '13

30 Oct '13

It seems to be compiling a new lambda on every call. I'll walk through my logic below: So I am looking at how (gen-buffers) is implemented. (defun gen-buffers (count) (with-foreign-object (buffer-array '%gl:uint count) (%gl:gen-buffers count buffer-array) (loop for i below count collecting (mem-aref buffer-array '%gl:uint i)))) %gl:gen-buffers is deifned as (defglextfun ("glGenBuffers" gen-buffers) :void (n sizei) (buffers (:pointer uint))) which expands to: (progn (declaim (notinline gen-buffers)) (defun gen-buffers (n buffers) (generate-gl-function "glgenbuffers" 'gen-buffers ':void '((n sizei) (buffers (:pointer uint))) n buffers)) (setf (get 'gen-buffers 'proc-address-dummy) #'gen-buffers) 'gen-buffers) and generate-gl-function (defun generate-gl-function (foreign-name lisp-name result-type body &rest args) (let ((address (gl-get-proc-address foreign-name)) (arg-list (mapcar #'first body))) (when (or (not (pointerp address)) (null-pointer-p address)) (error "Couldn't find function ~A" foreign-name)) (compile lisp-name `(lambda ,arg-list (multiple-value-prog1 (foreign-funcall-pointer ,address (:library opengl) ,@(loop for i in body collect (second i) collect (first i)) ,result-type) #-cl-opengl-no-check-error (check-error ',lisp-name)))) (apply lisp-name args))) What is going on here? I don't believe that it is recompiling the wrapper function on every call, but I'm having issues working out how else this works. Hope someone can help me out here. Cheers Baggers

3 8

OSX and (gl:get-integer :num-extensions)
by Chris Bagley 24 Oct '13

24 Oct '13

I have two users for whom a call to (gl:get-integer :num-extensions) errors with: OpenGL signaled (1280 . iNVLID-ENUM) from GET-INTGER-V The only thing they both have in common it seems is OSX Here is copied from one of their slime error buffers. OpenGL signalled (1280 . INVALID-ENUM) from GET-INTEGER-V. [Condition of type CL-OPENGL-BINDINGS:OPENGL- ERROR] Restarts: 0: [CONTINUE] Continue 1: [RETRY] Retry SLIME REPL evaluation request. 2: [*ABORT] Return to SLIME's top level. 3: [ABORT] Abort thread (#<THREAD "repl-thread" RUNNING {1003448023}>) Backtrace: 0: (CL-OPENGL-BINDINGS:CHECK-ERROR #<unavailable argument>) 1: (CL-OPENGL:GET-INTEGER :NUM-EXTENSIONS 1) 2: (CEPL::GET-GL-EXTENSIONS) 3: (CEPL::CEPL-POST-CONTEXT-INITIALIZE) 4: (CEPL:REPL 640 480) 5: (SB-INT:SIMPLE-EVAL-IN-LEXENV (CEPL:REPL) #<NULL-LEXENV>) 6: (EVAL (CEPL:REPL)) 7: (SWANK::EVAL-REGION "(cepl:repl) ..) It seems from here https://developer.apple.com/library/mac/releasenotes/general/macosxlionapid… this enum was only added in OsX 10.7 (Lion) but at least one of these folks is using mavericks which has 4.2 support (so I'm told :)) Any idea what would be causing this? Baggers

2 2

Re: [cffi-devel] OSX and (gl:get-integer :num-extensions)
by Luís Oliveira 24 Oct '13

24 Oct '13

This is an OpenGL error, checked via glGetError(). I've Cc'ed cl-opengl's mailing list to see if anyone can help there. -- Luís Oliveira http://kerno.org/~luis (sent from my phone) On Oct 24, 2013 9:14 AM, "Chris Bagley" <chris.bagley(a)gmail.com> wrote: > I have two users for whom a call to (gl:get-integer :num-extensions) > errors with: > OpenGL signaled (1280 . iNVLID-ENUM) from GET-INTGER-V > > The only thing they both have in common it seems is OSX > Here is copied from one of their slime error buffers. > > OpenGL signalled (1280 . INVALID-ENUM) from GET-INTEGER-V. > [Condition of type CL-OPENGL-BINDINGS:OPENGL- > ERROR] > > Restarts: > 0: [CONTINUE] Continue > 1: [RETRY] Retry SLIME REPL evaluation request. > 2: [*ABORT] Return to SLIME's top level. > 3: [ABORT] Abort thread (#<THREAD "repl-thread" RUNNING {1003448023}>) > > Backtrace: > 0: (CL-OPENGL-BINDINGS:CHECK-ERROR #<unavailable argument>) > 1: (CL-OPENGL:GET-INTEGER :NUM-EXTENSIONS 1) > 2: (CEPL::GET-GL-EXTENSIONS) > 3: (CEPL::CEPL-POST-CONTEXT-INITIALIZE) > 4: (CEPL:REPL 640 480) > 5: (SB-INT:SIMPLE-EVAL-IN-LEXENV (CEPL:REPL) #<NULL-LEXENV>) > 6: (EVAL (CEPL:REPL)) > 7: (SWANK::EVAL-REGION "(cepl:repl) ..) > > It seems from here > https://developer.apple.com/library/mac/releasenotes/general/macosxlionapid… this enum was only added in OsX 10.7 (Lion) is that the most likely > cause of the issue? > > Baggers >

1 0

glClearColor not found on some machine, some CL system
by Rujia Liu 04 Oct '13

04 Oct '13

Hi! I'm new to cl-opengl and was reading this tutorial: http://nklein.com/2010/06/nehe-tutorial-02-drawing-triangles-and-quadrilate… I've downloaded tut02.lisp, but have trouble running it. On my machine, ccl 1.6 (windows XP, 32 bit, OpenGL 1.5) gives: ; Warning: Don't know how to setup a hook before saving cores on this Lisp. ; While executing: #<Anonymous Function #xCE06D0E>, in process listener(1). > Error: Couldn't find function glClearColor > While executing: CL-OPENGL-BINDINGS::GENERATE-GL-FUNCTION, in process listener (1). > Type :GO to continue, :POP to abort, :R for a list of available restarts. > If continued: Skip loading "tut02.lisp" > Type :? for other options. But SBCL 1.1.4 (win32-thread fork) runs perfectly. On another machine (windows 7, 64 bit, OpenGL 4.3), both ccl 1.6 and SBCL (both 32-bit) gave the error message before. Could anyone give me some suggestions? Thanks in advance - Rujia

2 3