Opengl GLDraweElements不呈现obj文件中的输入

Opengl GLDraweElements不呈现obj文件中的输入,opengl,lisp,common-lisp,wavefront,Opengl,Lisp,Common Lisp,Wavefront,我正在使用cl-opengl在lisp中编写一个对象加载器,当尝试使用glpaurements渲染加载的顶点/元素时,我留下了一个空白屏幕 (require :cl-opengl) (require :sdl2) (defvar *vertices* nil) (defvar *elements* nil) (setf *vertices* (make-array 9 :fill-pointer 0)) (setf *elements* (make-array 9 :fill-pointer

我正在使用cl-opengl在lisp中编写一个对象加载器,当尝试使用
glpaurements
渲染加载的顶点/元素时,我留下了一个空白屏幕

(require :cl-opengl)
(require :sdl2)

(defvar *vertices* nil)
(defvar *elements* nil)

(setf *vertices* (make-array 9 :fill-pointer 0))
(setf *elements* (make-array 9 :fill-pointer 0))

(defvar *vertex-shader* "
#version 330 core 
layout (location = 0) in vec3 aPos;

void main() {
    gl_Position = vec4(aPos.x, aPos.y, aPos.z, 1.0);
}
")

(defvar *fragment-shader* "
#version 330 core
out vec4 FragColor;

void main() {
    FragColor = vec4(0.95f, 0.98f, 0.65f, 1.0f);
}
")

(defun split-str-1 (string &optional (separator " ") (r nil))
  (let ((n (position separator string
                     :from-end t
                     :test #'(lambda (x y)
                               (find y x :test #'string=)))))
    (if n
        (split-str-1 (subseq string 0 n) separator (cons (subseq string (1+ n)) r))
      (cons string r))))

(defun split-str (string &optional (separator " "))
  (split-str-1 string separator))

(defun parse-float (number)
  (with-input-from-string (in number)
    (read in)))

(defun load-obj (file-name)
   (let ((file (open file-name)))
     (with-open-stream (source file)
       (loop for line = (read-line source nil nil)
          while line do
            (let* ((split-line (split-str line " "))
                   (header (car split-line))
                   (rest (cdr split-line)))
              (cond ((string= header "v")
                     (dolist (vertex rest)
                       (vector-push-extend (parse-float vertex) vertices)))
                    ((string= header "f")
                     (dolist (face rest)
                       (let ((element (parse-integer (car (split-str face "/")))))
                          (vector-push-extend (- element 1) elements))))))))))

(defun main ()
  (load-obj "tortoise.obj")
  (sdl2:with-init (:everything)
  (sdl2:gl-set-attr :context-profile-mask 0)
  (sdl2:gl-set-attr :context-major-version 3)
  (sdl2:gl-set-attr :context-minor-version 3)

  (sdl2:with-window (win :flags `(:shown :opengl))
    (sdl2:with-gl-context (gl-context win)
    (sdl2:gl-make-current win gl-context)
    (gl:viewport 0 0 800 600)
    (gl:clear-color 0.957 0.376 0.286 1.0)

    (let ((glarray (gl:alloc-gl-array :float (length vertices)))
          (glarray-2 (gl:alloc-gl-array :unsigned-short (length elements))))
      (dotimes (i (length elements))
        (setf (gl:glaref glarray-2 i) (aref elements i)))
      (dotimes (i (length vertices))
        (setf (gl:glaref glarray i) (aref vertices i)))

      (let ((vbo (gl:gen-buffer))
            (vao (gl:gen-vertex-array))
            (ebo (gl:gen-buffer)))
        (gl:bind-vertex-array vao)
        (gl:bind-buffer :array-buffer vbo)
        (gl:buffer-data :array-buffer :static-draw glarray)
        (gl:free-gl-array glarray)
        (gl:bind-buffer :element-array-buffer ebo)
        (gl:buffer-data :element-array-buffer :static-draw glarray-2)
        (gl:vertex-attrib-pointer 0 4 :float nil 0 0)
        (gl:enable-vertex-attrib-array 0)

        (let ((vertex-shader (gl:create-shader :vertex-shader))
              (fragment-shader (gl:create-shader :fragment-shader)))
          (gl:shader-source vertex-shader *vertex-shader*)
          (gl:shader-source fragment-shader *fragment-shader*)
          (gl:compile-shader vertex-shader)
          (gl:compile-shader fragment-shader)
          (print (gl:get-shader-info-log vertex-shader))
          (print (gl:get-shader-info-log fragment-shader))

          (let ((program (gl:create-program)))
            (gl:attach-shader program vertex-shader)
            (gl:attach-shader program fragment-shader)
            (gl:link-program program)
            (gl:delete-shader vertex-shader)
            (gl:delete-shader fragment-shader)
            (gl:use-program program)))

        (sdl2:with-event-loop (:method :poll)
          (:idle ()
                 (gl:clear :color-buffer)
                 (gl:bind-vertex-array vao)
                 (gl:draw-elements :triangles glarray-2)
                 (gl:flush)
                 (sdl2:gl-swap-window win))
          (:quit () t))))))))

我尝试了多个obj文件,结果是一样的;屏幕上没有显示任何内容。我查看了其他一些SO帖子,没有发现任何特别有用的东西,也没有想到任何东西会导致这种情况。

在您的例子中,
顶点
数组是一个包含3个组件(x,y,z)坐标的数组。因此,
gl:vertex attrib pointer
的“size”参数必须是3,而不是4:

(gl:vertex-attrib-pointer 0 3 :float nil 0 0)
注意,如果使用4的大小,则顶点坐标的规格不对齐。最后,顶点数组被访问出边界


您对obj文件索引的假设可能是错误的

通常,obj文件如下所示:

v -1.000000 0.000000 1.000000
v 1.000000 0.000000 1.000000
v -1.000000 0.000000 -1.000000
v 1.000000 0.000000 -1.000000

vt 0.000000 0.000000
vt 1.000000 0.000000
vt 0.000000 1.000000
vt 1.000000 1.000000

vn 0.0000 1.0000 0.0000

f 1/1/1 2/2/1 4/4/1
f 1/1/1 4/4/1 3/3/1
它由顶点坐标(
v
含3个分量)、纹理坐标(
vt
2个分量)和法向量(
vn
3个分量)组成。
此外还有面(
f
)。每个面指定一个三角形,带有3个顶点坐标及其属性。
每个顶点由三个索引组成:第一个是顶点坐标的索引,第二个是纹理坐标的索引,第三个是法向量的索引

这意味着下面的面

f 1/1/1 2/2/1 4/4/1
定义一个三角形(具有3个顶点),其中顶点坐标的索引(第一个索引)为

相关纹理坐标的索引(第二个索引)为

相应法向量的指数(第三指数)为


你可以试试

vertices #(-0.707 -0.5 0.0 
            0.707 -0.5 0.0
            0.0    1.0 0.0)
而不是原始顶点数组和

elements #(0 1 2)

为了调试的原因,不使用原始索引,而是绘制一个三角形。

您至少得到了彩色背景吗?下一步是,如果您得到一些着色器错误。这将是有用的缩进/格式代码更好一点。我还认为变量
顶点
元素
应该写成
*顶点*
*元素*
@Ripi2是的,我得到了一个彩色的background@RainerJoswig好的,修正了。DEFVAR/SETF组合通常写为DEFPARAMETER。不过,没有什么是drawnalso,我比较确定我正确地解析了obj文件,我仔细检查了向量中的数据,它们与obj文件中的数据匹配。是的,它们是。这是我正在使用的obj文件。将顶点/元素设置为答案中的顶点/元素无法绘制anything@PavelF我只是想指出,从我所读到的内容来看,.obj文件中的索引没有正确匹配,并且没有现成的准备提供给GL.drawerelements。你需要重新组织它们。我还在想办法重新组织他们。
//1   //1   //1
vertices #(-0.707 -0.5 0.0 
            0.707 -0.5 0.0
            0.0    1.0 0.0)
elements #(0 1 2)