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

[cl-opengl-devel] GLU Functions
by Michael McDermott 26 Sep '08

26 Sep '08

I was porting some Scheme code to Common Lisp and found that I was short a few GLU functions (gluQuadOrientation, gluQuadTexture, gluQuadNormals) so I added them. Attached are my changes in darcs send's format. Michael McDermott

2 1

[cl-opengl-devel] How is work normally done on this project?
by raito＠raito.com 26 Sep '08

26 Sep '08

Hi all, I'm new to this list, and I'd like to be useful. Different projects work differently, so how are things done here? (I'll say that experiences on other projects have been unpleasant.) I'm probably not much use on the lib itself (as yet), as I don't know CFFI very well, and I've only been at Lisp a couple years (which c.l.l would call a rank novice). But I have implemented some of the rebook examples that currently aren't in the examples (including the texturing example). They need to be cleaned a little bit first, but could be useful. I've also done a couple of the NeHe tutorials, too. I don't have any problem with OpenGL itself, though (I worked on IrisGL on Reality Engines a long time ago, and other stuff since then). I did the examples more to get used to cl-opengl than to get used to OpenGL. Neil Gilmore raito(a)raito.com

2 1

[cl-opengl-devel] Pixel packing modes
by Andy Hefner 26 Sep '08

26 Sep '08

Here's a patch I've had sitting around for a while. It looked like some of the options for glPixelStore were missing, so I added them. I don't actually use any of them, so I haven't been able to test it, but with all this recent traffic I thought I'd send it along.

2 1

[cl-opengl-devel] OpenGL man pages
by Bart Botta 26 Sep '08

26 Sep '08

Khronos has released source for the GL 2.1 man pages http://www.opengl.org/discussion_boards/ubbthreads.php?ubb=showflat&Number=… Do we want (and does anyone have time :) to modify these for cl-opengl? if so, should they go in the main tree, or in a separate one just for documentation? -- -b-

2 1

[cl-opengl-devel] Trouble using gl:color-mask.
by raito＠raito.com 26 Sep '08

26 Sep '08

(Yes, 2 messages in one day). I'm doing some code that relies fairly heavily on the stencil buffer, and naturally, I'm committing the sin of saying something doesn't work when I probably don't have the latest stuff (either Lisp or cl-opengl), but here goes anyway. To test this, I gutted one the smooth redbook example, and changed the display function to the following: (defmethod glut:display ((w smooth-window)) (gl:clear :color-buffer) (gl:color 0 1 0) (gl:with-primitives :quads (gl:vertex 5 5) (gl:vertex 25 5) (gl:vertex 25 25) (gl:vertex 5 25)) (gl:color 1 0 0) (gl:color-mask :false :false :false :false) (gl:with-primitives :quads (gl:vertex 5 5) (gl:vertex 25 5) (gl:vertex 25 25) (gl:vertex 5 25)) (gl:flush)) The result ought to be that you see a green square, and not a red square. To make sure that this was not a driver or video card issue, I wrote the same program in C, and that worked correctly. It did not work using sbcl 1.0.13 on XP, nor using 1.0.11 on OS X. The C code was written using Xcode on the Mac, and did work correctly. Any pointers would be most helpful (I'd love to fix it myself). I'm not doing the usual reflection stuff with the stencil buffer, where the fact that the color buffer is being overwritten doesn't matter, because it gets written again anyway. I'm creating a stencil, drawing some stuff, then changing the stencil and drawing again, then re-creating the original stencil. The current behavior means that the color buffer has stuff I want to keep overwritten. Neil Gilmore raito(a)raito.com

2 2

[cl-opengl-devel] GL 3 branch
by Bart Botta 26 Sep '08

26 Sep '08

My gl3 branch is available at http://www.3bb.cc/tmp/darcs/cl-opengl/ if anyone wants to provide feedback or testing... new features/changes: - Automatically check for GL errors by default. Can be disabled by pushing a flag onto *features* and recompiling. - GL3 support + new extensions in the low level bindings (%gl package), and corresponding changes to the .spec parsers. - 'GL3 only' mode, loaded with cl-opengl3.asd, containing a subset of the functions corresponding to the 'forward compatible' mode of GL3 and a few extensions which haven't been added to core yet. (it still contains the full set of enums though, since that would have taken too much spec reading to narrow down) - Split out functions with bitfield arguments from the main GLenum type, so that the shortened versions of the enum names (without -bit or -bits) don't conflict with other enums. - cl-glut windows should close when a cl-glut app exits improperly, probably needs more testing to make sure the code for this doesn't interfere with anything else though. - more functions exported/wrapped in the main GL: package. - various other fixes Most of those should be transparent for correct code if you load with cl-opengl.asd, which is the main thing that needs testing. --- -b-

1 0

[cl-opengl-devel] Texture Example
by Martin Kielhorn 17 Sep '08

17 Sep '08

Hi, I am new to Lisp and experimenting with cl-opengl. I really wanted to see how I can use textures in Lisp (without having to copy the elements of the array too much). Strangely there was no example in the cl-opengl package. So this is what I've come up with. Copy the code to minimal_texture_example.lisp and run sbcl --load minimal_texture_example.lisp It will open a window. Press 't' to create a texture and 'space' to fill it with some pattern. The interesting part is that with sb-sys:without-gcing and sb-sys:vector-sap the starting-pointer of the array can be extracted and used in gl:tex-sub-image-2d. I also wrote a small wrapper library in C to capture YUV-frames from a webcam with v4l2 and display the data with (gl:tex-sub-image-2d :texture-rectangle-nv 0 0 0 +width+ +height+ :ycbcr-mesa :unsigned-short-8-8-rev-mesa (video-take)) It is quite fast. Martin Kielhorn #| use cl-opengl to display some texture |# (require 'cl-glut) (defpackage texture-example (:use :cl)) (in-package texture-example) (defparameter +width+ 512) ; must be power of two (defparameter +height+ 512) ; must be power of two (defparameter +window-width+ 800) (defparameter +window-height+ 600) (defclass window (glut:window) ((tex :accessor tex :initform #x0)) (:default-initargs :pos-x 100 :pos-y 100 :width +window-width+ :height +window-height+ :mode '(:double :rgb))) (defmethod glut:display ((win window)) "draw a textured QUAD" (gl:clear :color-buffer-bit) (gl:load-identity) (gl:with-primitive :quads (gl:tex-coord 0 0)(gl:vertex +width+ +height+) (gl:tex-coord 1 0)(gl:vertex 0 +height+) (gl:tex-coord 1 1)(gl:vertex 0 0) (gl:tex-coord 0 1)(gl:vertex +width+ 0)) (glut:swap-buffers)) (defmethod glut:reshape ((win window) width height) (when (zerop height) (setq height 1)) (gl:viewport 0 0 width height) (gl:matrix-mode :projection) (gl:load-identity) (gl:ortho 0 +window-width+ 0 +window-height+ -1 1) (gl:matrix-mode :modelview) (gl:load-identity)) (defvar *field* (make-array (* +width+ +height+ 4) :element-type '(unsigned-byte 8))) (defun update-tex (win) (unless (eq (tex win) #x0) (loop for i below +width+ do (loop for j below +height+ do (let ((pixel (* 4 (+ i (* +width+ j))))) (setf (aref *field* (+ 0 pixel)) (mod i 215) (aref *field* (+ 1 pixel)) (mod j 215))))) (sb-sys:without-gcing (let ((addr (sb-sys:vector-sap *field*))) (gl:tex-sub-image-2d :texture-2d 0 0 0 +width+ +height+ :rgba :unsigned-byte addr))))) (defmethod glut:keyboard ((win window) key x y) (declare (ignore x y)) (case key ;; switch textures on/off (#\t (if (eq (tex win) #x0) (progn (setf (tex win) (first (gl:gen-textures 1))) (gl:enable :texture-2d) (gl:bind-texture :texture-2d (tex win)) (gl:tex-parameter :texture-2d :texture-min-filter :nearest) (gl:tex-parameter :texture-2d :texture-mag-filter :nearest) (gl:tex-image-2d :texture-2d 0 :rgba +width+ +height+ 0 :rgba :unsigned-byte (cffi:null-pointer))) (progn (gl:delete-textures (list (tex win))) (gl:disable :texture-2d) (setf (tex win) #x0)))) (#\space (update-tex win)) (#\q (glut:destroy-current-window) (sb-ext:quit))) (glut:post-redisplay)) (defmethod glut:idle ((win window)) (sleep (/ 1. 30.)) (glut:post-redisplay)) (defun view () (glut:display-window (make-instance 'window))) (view)

2 1

[cl-opengl-devel] problem with vertex arrays
by Sebastian Berchtold 10 Sep '08

10 Sep '08

Really good answers :) Thank you a lot! -- GMX Kostenlose Spiele: Einfach online spielen und Spaß haben mit Pastry Passion! http://games.entertainment.gmx.net/de/entertainment/games/free/puzzle/61691…

1 0

[cl-opengl-devel] problem with vertex arrays
by Sebastian Berchtold 10 Sep '08

10 Sep '08

Hello, im not an experienced lisper and especially new to c-bindings. I try to handle vertex arrays in cl-opengl and have some problems with the type-specifiers. I try to explain it on the redbook example varray.lisp: When compiling it it get the following error: -+ Errors (1) `-- SB-INT:SIMPLE-READER-PACKAGE-ERROR at 1100 (line 33, column 22) on #<SB-SYS:FD-STREAM for "file /home/jonnyb/zeug/progs/cl-opengl/examples/redbook/varray.lisp" {B797599}>: Symbol "VERTEX-POINTER" not found in the CL-OPENGL package. When i change the package name "gl:" to "%gl:" in the line: (gl:vertex-pointer 2 :int 0 vertices) and also in the lines: (gl:color-pointer 3 :float 0 colors))) (gl:interleaved-arrays :c3f-v3f 0 intertwined) i can avoid these errors. But then the debugger pops up with the following: The value (25 25 100 325 175 25 175 325 250 25 ...) is not of type SB-SYS:SYSTEM-AREA-POINTER. [Condition of type TYPE-ERROR] This leads me to the following questions: Whats the difference between the "%gl:" und the "gl" package? it spent some time on it but didnt get it Does anybody know how to fix that?^^ Does this example run on somebody elses machine? Im running it in sbcl on linux. Thank you for your help! -- Der GMX SmartSurfer hilft bis zu 70% Ihrer Onlinekosten zu sparen! Ideal für Modem und ISDN: http://www.gmx.net/de/go/smartsurfer -- Ist Ihr Browser Vista-kompatibel? Jetzt die neuesten Browser-Versionen downloaden: http://www.gmx.net/de/go/browser

2 1

[cl-opengl-devel] problem with vertex arrays
by Sebastian Berchtold 10 Sep '08

10 Sep '08

I'm sorry! i didn't find the discussion on vertex arrays earlier on this list. So the only question remaining is: Whats the difference between the "gl:" und the "%gl" package? I hope i din't steal too much of you time! Sebastian -- GMX Kostenlose Spiele: Einfach online spielen und Spaß haben mit Pastry Passion! http://games.entertainment.gmx.net/de/entertainment/games/free/puzzle/61691…

1 0