cl-opengl-devel

cl-opengl-devel@common-lisp.net

214 discussions

[cl-opengl-devel] cl-opengl and *READ-DEFAULT-FLOAT-FORMAT*
by Sumant Oemrawsingh 02 Jun '09

02 Jun '09

Hi, I recently installed cl-opengl, but had problems during compilation, regarding an asserted type (single-float) not matching a derived type (double-float). After some time of looking into the problem, I found that I was compiling in a lisp (sbcl) where I redefined *READ-DEFAULT-FLOAT-FORMAT* to DOUBLE-FLOAT) for something or other. Setting this back (or restarting) allowed compilation. I would expect that a library is independent on this. I.e. constant floats should be consistently written as either 1.0d0 or 1.0f0, no? Anyway, just thought to let you know that this _might_ cause problems for others. Or maybe others aren't so stupid to globally change *R-D-F-F*... -Sumant

2 1

Re: [cl-opengl-devel] Clozure and cl-opengl
by Greg Santucci 02 Jun '09

02 Jun '09

--- On Tue, 2/6/09, Luís Oliveira <luismbo(a)gmail.com> wrote: > > Exception occurred while executing foreign code > > Are you using FreeGLUT? If not, you should. > > -- > Luís Oliveira > http://student.dei.uc.pt/~lmoliv/ > Yes, I'm using FreeGLUT. Its the same freeglut.dll I used with CLisp 2.42 that worked without any problems. It comes from here: http://www.turtle.dds.nl/gl4newlisp/freeglut.dll I also rebuilt it with MingW. It works with CLisp. I don't know if I am using a version of cffi that Clozure doesn't like. In the kernel debugger, if I choose "Exit from this debugger, asserting that any exception was handled", it runs for one frame, refreshes the display, then throws another exception. Thank you for your time. Regards, Greg Need a Holiday? Win a $10,000 Holiday of your choice. Enter now.http://us.lrd.yahoo.com/_ylc=X3oDMTJxN2x2ZmNpBF9zAzIwMjM2MTY2MTMEdG1fZG…

1 0

Re: [cl-opengl-devel] Clozure and cl-opengl
by Greg Santucci 02 Jun '09

02 Jun '09

--- On Tue, 2/6/09, Luís Oliveira <luismbo(a)gmail.com> wrote: > > Is cl-opengl supposed to work with Clozure? I'm > running Clozure on Win32, > > and I'm able to load cl-opengl using (asdf:oos > 'asdf:load-op :cl-glut- > > examples), however upon running one of the examples > Clozure crashes out to > > its kernel debugger. > > Yes, and it works for me on Linux/x86-64. I do not have > access to a > Windows system at the moment. Perhaps you could paste a > backtrace? > Certainly. Exception on foreign stack Exception occurred while executing foreign code ? for help [7560] Clozure CL kernel debugger: B current thread: tcr = 0x5cb310, native thread ID = 0x1980, interrupts enabled (#x00B80D44) #x08DC69A5 : #<Function %GLUTMAINLOOP #x08DC6946> + 95 (#x00B80D4C) #x08DC676D : #<Function MAIN-LOOP #x08DC6756> + 23 (#x00B80D54) #x081139A5 : #<Function %%STANDARD-COMBINED-METHOD-DCODE #x081136FE> + 679 (#x00B80D8C) #x083686DD : #<Function CALL-CHECK-REGS #x083685E6> + 247 (#x00B80DA8) #x083744B5 : #<Function TOPLEVEL-EVAL #x083741C6> + 751 (#x00B80DE8) #x08375E25 : #<Function READ-LOOP #x0837570E> + 1815 (#x00B80EFC) #x0836832D : #<Function TOPLEVEL-LOOP #x083682E6> + 71 (#x00B80F04) #x08318175 : #<Function (:INTERNAL (TOPLEVEL-FUNCTION (LISP-DEVELOPMENT-SYSTEM T))) #x08318116> + 95 (#x00B80F14) #x083D945D : #<Function (:INTERNAL MAKE-MCL-LISTENER-PROCESS) #x083D9216> + 583 (#x00B80F60) #x08330A95 : #<Function RUN-PROCESS-INITIAL-FORM #x083307F6> + 671 (#x00B80FA4) #x083312E5 : #<Function (:INTERNAL %PROCESS-PRESET-INTERNAL) #x08331196> + 335 (#x00B80FCC) #x083061BD : #<Function (:INTERNAL THREAD-MAKE-STARTUP-FUNCTION) #x083060A6> + 279 [7560] Clozure CL kernel debugger: Here are the messages that appeared when loading cl-opengl with (asdf:operate 'asdf:load-op :cl-glut-examples) ; loading system definition from C:/lispbox/packages/cl-opengl/cl-glut-examples.asd into #<Package "ASDF0"> ; registering #<SYSTEM CL-GLUT-EXAMPLES #x8A74C2E> as CL-GLUT-EXAMPLES ; loading system definition from C:/lispbox/packages/cl-opengl/cl-glut.asd into #<Package "ASDF0"> ; registering #<SYSTEM CL-GLUT #x8A9616E> as CL-GLUT ; loading system definition from C:/lispbox/packages/cl-opengl/cl-opengl.asd into #<Package "ASDF0"> ; registering #<SYSTEM CL-OPENGL #x8ABF966> as CL-OPENGL ; loading system definition from C:/lispbox/packages/cffi-090526/cffi.asd into #<Package "ASDF0"> ; registering #<SYSTEM CFFI #x8AC93F6> as CFFI ; loading system definition from C:/lispbox/packages/babel_0.3.0/babel.asd into #<Package "ASDF0"> ; registering #<SYSTEM BABEL #x8A6415E> as BABEL ; loading system definition from C:/lispbox/packages/alexandria/alexandria.asd into #<Package "ASDF0"> ; registering #<SYSTEM :ALEXANDRIA #x8A9F416> as ALEXANDRIA ; loading system definition from C:/lispbox/packages/trivial-features_0.4/trivial-features.asd into #<Package "ASDF0"> ; registering #<SYSTEM TRIVIAL-FEATURES #x8AB3456> as TRIVIAL-FEATURES ; loading system definition from C:/lispbox/packages/cl-opengl/cl-glu.asd into #<Package "ASDF0"> ; registering #<SYSTEM CL-GLU #x8B37FF6> as CL-GLU ; Warning: Don't know how to setup a hook before saving cores on this Lisp. ; While executing: #<Anonymous Function #x8D980EE>, in process listener(1). ;Compiler warnings for "C:/lispbox/packages/cl-opengl/glu/glu.lisp" : ; In CL-GLU:UN-PROJECT4: Undefined function CL-GLU::%GLUUNPROJECT4 ;Compiler warnings for "C:/lispbox/packages/cffi-090526/src/cffi-openmcl.lisp" : ; In CFFI-SYS:%CLOSE-FOREIGN-LIBRARY: Undefined function CLOSE-SHARED-LIBRARY NIL Regards, Greg Need a Holiday? Win a $10,000 Holiday of your choice. Enter now.http://us.lrd.yahoo.com/_ylc=X3oDMTJxN2x2ZmNpBF9zAzIwMjM2MTY2MTMEdG1fZG…

2 1

[cl-opengl-devel] Clozure and cl-opengl
by Greg Santucci 02 Jun '09

02 Jun '09

Hi, Is cl-opengl supposed to work with Clozure? I'm running Clozure on Win32, and I'm able to load cl-opengl using (asdf:oos 'asdf:load-op :cl-glut- examples), however upon running one of the examples Clozure crashes out to its kernel debugger. I'm using: * Clozure 1.3 for Windows * cl-opengl from darcs get http://www.common-lisp.net/project/cl-opengl/darcs/cl-opengl/ * Alexandria from http://common-lisp.net/~loliveira/tarballs/inofficial/alexandria-2008-07-29… * Babel 0.3.0 * CFFI 0.10.4 * trivial-features 0.4 Regards, Greg Need a Holiday? Win a $10,000 Holiday of your choice. Enter now.http://us.lrd.yahoo.com/_ylc=X3oDMTJxN2x2ZmNpBF9zAzIwMjM2MTY2MTMEdG1fZG…

2 1

[cl-opengl-devel] Clozure and cl-opengl
by Greg Santucci 02 Jun '09

02 Jun '09

Hi, Is cl-opengl supposed to work with Clozure? I'm running Clozure on Win32, and I'm able to load cl-opengl using (asdf:oos 'asdf:load-op :cl-glut- examples), however upon running one of the examples Clozure crashes out to its kernel debugger. I'm using: * Clozure 1.3 for Windows * Alexandria from http://common-lisp.net/~loliveira/tarballs/inofficial/alexandria-2008-07-29… * Babel 0.3.0 * CFFI 0.10.4 * trivial-features 0.4 Regards, Greg Need a Holiday? Win a $10,000 Holiday of your choice. Enter now.http://us.lrd.yahoo.com/_ylc=X3oDMTJxN2x2ZmNpBF9zAzIwMjM2MTY2MTMEdG1fZG…

1 0

[cl-opengl-devel] Fwd: Is this project alive?
by Luís Oliveira 22 May '09

22 May '09

Even with Gmail "reply to all by default" feature I manage to screw this up regularly. *sigh* ---------- Forwarded message ---------- From: Luís Oliveira <luismbo(a)gmail.com> Date: Thu, May 21, 2009 at 3:23 PM Subject: Re: [cl-opengl-devel] Is this project alive? To: Jakob Reschke <jakob(a)resfarm.de> On Wed, May 20, 2009 at 8:06 PM, Jakob Reschke <jakob(a)resfarm.de> wrote: > The last commit in the darcs tree on common-lisp.net was 7 months ago > and I am missing the implementation gl:select-buffer for picking objects > from the screen. I would like to know if I should put hope into this > being done in near time. To me "from the outside" the development seems > to have kind of... slowed down, am I correct here or did I miss > something? It has slowed down, sure. Bart Botta has done some work related to OpenGL 3.0 but he has that on his own repository. The archives should have something about that. > I am not quite an expert with neither Lisp nor OpenGL which means that I > cannot participate very actively in the development of cl-opengl. Well, you mostly would have to know your way around CFFI. Its documentation has a nice tutorial, perhaps you can start there. Feel free to use this list (or cffi-devel) if you have any questions about that. Some of us also hang around #lisp at irc.freenode.net. > Or is there another way to pick objects, apart from selection buffer > stuff or maintaining coordinates etc. by hand, that can be used with > cl-opengl in its current state? The %GL package has all the GL functions. But those versions are usually low-level and require some CFFI knowledge. For instance, %GL:SELECT-BUFFER is there but its second argument is a foreign pointer. Once you get the hang of using the %GL functions, you can implement their lispy counterparts in the GL package. Cheers. -- Luís Oliveira http://student.dei.uc.pt/~lmoliv/

1 0

[cl-opengl-devel] Is this project alive?
by Jakob Reschke 20 May '09

20 May '09

The last commit in the darcs tree on common-lisp.net was 7 months ago and I am missing the implementation gl:select-buffer for picking objects from the screen. I would like to know if I should put hope into this being done in near time. To me "from the outside" the development seems to have kind of... slowed down, am I correct here or did I miss something? It is not my intention to grump about slow visible development, I just want to know if I should better look for something else... I am not quite an expert with neither Lisp nor OpenGL which means that I cannot participate very actively in the development of cl-opengl. Or is there another way to pick objects, apart from selection buffer stuff or maintaining coordinates etc. by hand, that can be used with cl-opengl in its current state? Best regards Jakob Reschke

1 0

[cl-opengl-devel] testing...
by Bart Botta 11 Apr '09

11 Apr '09

Is the list broken, or just slow today?

2 1

Re: [cl-opengl-devel] edge-flag-array and tex-coord-array fix
by Bart Botta 11 Apr '09

11 Apr '09

(just realized that this appears to have never reached the list, responding so people with commit access can see it too...) On Thu, Mar 26, 2009 at 9:33 AM, Brad Beer <bradwbeer(a)gmail.com> wrote: > > I have a (possible) fix for my edge-flag and tex-coord arrays. Please let > me know if I am submitting this correctly. would be better to have one of the formats that shows which file it is, try diff -Nau or darcs diff > > 191c191 > < (tex-coord-pointer ,size ,gl-type ,stride ,address-expr)))) > --- >> (,func-name ,size ,gl-type ,stride ,address-expr)))) > 193,194c193 > < `(edge-flag-pointer ,stride ,address-expr)) > < (vertex-attrib > --- >> `(,func-name ,stride ,address-expr)) (vertex-attrib > looks right (aside from apparently losing a newline), probably should do the same thing for vertex-attrib-pointer a few lines down given the choice, i'd probably pull that whole API out into a contrib until it stabilized though (and add a contrib/extension setup of some sort to cl-opengl in the process...) -- -3b

1 0

[cl-opengl-devel] Opengl Array Question...
by Brad Beer 09 Mar '09

09 Mar '09

I've been stuck on this for the last two weeks and I'm feeling frustrated. Hopefully someone here can help. I'm using cl-opengl with sbcl on an Ubuntu box. Everything been working well but I've run into trouble with vertex (and other) arrays. I'm trying to create a vertex, normal, tex-coord, and edge array format. I keep getting an error when I try to bind the vertex array. Undefined function: CL-OPENGL::TEX-COORD-POINTER I've looked and there is a tex-coord-pointer defined in cl-opengl! Anyway, here is my code below (Just the one object, if you want the rest I can send it). Thanks in advance for your time. (in-package #:qix) (gl:define-gl-array-format vnte (gl:vertex :type :float :components (x y z)) (gl:normal :type :float :components (nx ny nz)) (gl:tex-coord :type :float :components (tx ty)) (gl:edge-flag :type :float :components (e))) (defclass 3d-model (display-list) ((vertex-array :accessor vertex-array :initarg vertex-array :initform nil) (size))) (defclass 3d-square (3d-model) ((top :initarg :top :initform nil :accessor top) (left :initarg :left :initform nil :accessor left) (width :initarg :width :initform nil :accessor width) (height :accessor height :initarg :height :accessor height) (x-size :accessor x-size :initarg :x-size :initform 10) (y-size :accessor y-size :initarg :y-size :initform 10))) (defmethod initialize-instance :after ((this 3d-square) &rest args) (print "starting init!") (with-accessors ((vertex-array vertex-array) (width width) (height height) (x-size x-size) (y-size y-size) (top top) (left left)) this (setf (slot-value this 'size) (* x-size y-size)) (let ((dx (/ width x-size)) (dy (/ height y-size)) (tdx (/ x-size)) (tdy (/ y-size))) (setf vertex-array (gl:alloc-gl-array 'vnte (slot-value this 'size))) (loop for i from 0 to (- x-size 1) do (loop for j from 0 to (- y-size 1) do (let ((startx (+ left (* i dx))) (starty (- top (* j dy))) (endx (+ left (* i dx) dx)) (endy (- top (* j dy) dy)) (tex-startx (* i tdx)) (tex-starty (* j tdy)) (tex-endx (+ (* i tdx) tdx)) (tex-endy (+ (* j tdy) tdy)) (offset (+ (* i y-size 6 3) (* j 6 3)))) ; first triangle (setf (gl:glaref vertex-array offset 'x) (float startx)) (setf (gl:glaref vertex-array offset 'y) (float starty)) (setf (gl:glaref vertex-array offset 'z) (float 0)) (setf (gl:glaref vertex-array (+ offset 1) 'x) (float endx)) (setf (gl:glaref vertex-array (+ offset 1) 'y) (float starty)) (setf (gl:glaref vertex-array (+ offset 1) 'z) (float 0)) (setf (gl:glaref vertex-array (+ offset 2) 'x) (float startx)) (setf (gl:glaref vertex-array (+ offset 2) 'y) (float endy)) (setf (gl:glaref vertex-array (+ offset 2) 'z) (float 0)) ; second triangle (setf (gl:glaref vertex-array (+ offset 3) 'x) (float startx)) (setf (gl:glaref vertex-array (+ offset 3) 'y) (float endy)) (setf (gl:glaref vertex-array (+ offset 3) 'z) (float 0)) (setf (gl:glaref vertex-array (+ offset 4) 'x) (float endx)) (setf (gl:glaref vertex-array (+ offset 4) 'y) (float starty)) (setf (gl:glaref vertex-array (+ offset 4) 'z) (float 0)) (setf (gl:glaref vertex-array (+ offset 5) 'x) (float endx)) (setf (gl:glaref vertex-array (+ offset 5) 'y) (float endy)) (setf (gl:glaref vertex-array (+ offset 5) 'z) (float 0)) ; first triangle normals (setf (gl:glaref vertex-array offset 'nx) (float 0)) (setf (gl:glaref vertex-array offset 'ny) (float 0)) (setf (gl:glaref vertex-array offset 'nz) (float 1)) (setf (gl:glaref vertex-array (+ offset 1) 'nx) (float 0)) (setf (gl:glaref vertex-array (+ offset 1) 'ny) (float 0)) (setf (gl:glaref vertex-array (+ offset 1) 'nz) (float 1)) (setf (gl:glaref vertex-array (+ offset 2) 'nx) (float 0)) (setf (gl:glaref vertex-array (+ offset 2) 'ny) (float 0)) (setf (gl:glaref vertex-array (+ offset 2) 'nz) (float 1)) ;second triangle... (setf (gl:glaref vertex-array (+ offset 3) 'nx) (float 0)) (setf (gl:glaref vertex-array (+ offset 3) 'ny) (float 0)) (setf (gl:glaref vertex-array (+ offset 3) 'nz) (float 1)) (setf (gl:glaref vertex-array (+ offset 4) 'nx) (float 0)) (setf (gl:glaref vertex-array (+ offset 4) 'ny) (float 0)) (setf (gl:glaref vertex-array (+ offset 4) 'nz) (float 1)) (setf (gl:glaref vertex-array (+ offset 5) 'nx) (float 0)) (setf (gl:glaref vertex-array (+ offset 5) 'ny) (float 0)) (setf (gl:glaref vertex-array (+ offset 5) 'nz) (float 1)) ; first triangle texture (setf (gl:glaref vertex-array offset 'tx) (float tex-startx)) (setf (gl:glaref vertex-array offset 'ty) (float tex-starty)) (setf (gl:glaref vertex-array (+ offset 1) 'tx) (float tex-endx)) (setf (gl:glaref vertex-array (+ offset 1) 'ty) (float tex-starty)) (setf (gl:glaref vertex-array (+ offset 2) 'tx) (float tex-startx)) (setf (gl:glaref vertex-array (+ offset 2) 'ty) (float tex-endy)) ; second triangle texture (setf (gl:glaref vertex-array (+ offset 3) 'tx) (float tex-startx)) (setf (gl:glaref vertex-array (+ offset 3) 'ty) (float tex-endy)) (setf (gl:glaref vertex-array (+ offset 4) 'tx) (float tex-endx)) (setf (gl:glaref vertex-array (+ offset 4) 'ty) (float tex-starty)) (setf (gl:glaref vertex-array (+ offset 5) 'tx) (float tex-endx)) (setf (gl:glaref vertex-array (+ offset 1) 'ty) (float tex-endy)) ; First triangle edges (setf (gl:glaref vertex-array offset 'e) (float (if (zerop i) 1 0))) (setf (gl:glaref vertex-array (+ offset 1) 'e) (float 0)) (setf (gl:glaref vertex-array (+ offset 2) 'e) (float (if (zerop j) 1 0))) ;Seconde Triangle Edges (setf (gl:glaref vertex-array (+ offset 3) 'e) (float 0)) (setf (gl:glaref vertex-array (+ offset 4) 'e) (float (if (eql j (- y-size 1)) 1 0))) (setf (gl:glaref vertex-array (+ offset 5) 'e) (float (if (eql i (- x-size 1)) 1 0))))))))) (defmethod render ((this 3d-square)) ;;enable the correct arrays (gl:enable-client-state :vertex-array) (gl:enable-client-state :edge-flag-array) (gl:enable-client-state :normal-array) (gl:enable-client-state :texture-coord-array) (print "two") (gl:bind-gl-vertex-array (vertex-array this)) (format t "size = ~a~%" (slot-value this 'size)) (%gl:draw-arrays :triangles 0 (slot-value this 'size)))

2 1

← Newer
1
...
7
8
9
10
11
12
13
...
22
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

cl-opengl-devel