glDrawElements не отображает ввод из файла obj

Question

Я пишу загрузчик объектов в lisp, используя cl-opengl, и при попытке рендеринга загруженных вершин / элементов, используя glDrawElements, у меня остается пустой экран.

(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 и не нашел ничего особенно полезного и не могу придумать ничего, что могло бы вызвать это.

Answer 1

В вашем случае массив vertex - это массив с координатами 3 компонентов (x, y, z).Таким образом, параметр "size" gl:vertex-attrib-pointer должен быть равен 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 координатами вершины и его атрибутами.Каждая вершина состоит из трех индексов, 1-й - индекс координаты вершины, 2-й - индекс координаты текстуры, а 3-й - индекс вектора нормали.

Это означает, что следующееface

f 1/1/1 2/2/1 4/4/1

определяет один треугольник (с 3 вершинами), где индексы координат вершин (1-ые индексы) равны

1//   2//   4//

индексы основных текстурных координат (2-ые индексы)) равны

/1/   /2/   /4/

, а индексы соответствующих нормальных векторов (3-ий индексы) равны

//1   //1   //1

---

Вы можете попробовать

vertices #(-0.707 -0.5 0.0 
            0.707 -0.5 0.0
            0.0    1.0 0.0)

вместомассив вершин orignal и

elements #(0 1 2)

вместо индексов orignal для рисования одного треугольника по причинам отладки.