cl-opengl-devel

Download

cl-opengl-devel@common-lisp.net

March 2009

2 participants
1 discussions

[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