Skip to content
Browse files

Fix missing stride fields.

  • Loading branch information...
Shinmera committed Jul 5, 2019
1 parent 481eee7 commit d3be40354b19613b29177a5f4ce1335decebb0e3
Showing with 6 additions and 0 deletions.
  1. +6 −0 gl-struct.lisp
@@ -130,6 +130,12 @@
(defmethod buffer-field-size ((class gl-struct-class) (standard (eql T)) base)
(buffer-field-size class (layout-standard class) base))

(defmethod buffer-field-stride ((class gl-struct-class) (standard (eql :std140)))
(buffer-field-size class standard 0))

(defmethod buffer-field-stride ((class gl-struct-class) (standard (eql T)))
(buffer-field-stride class (layout-standard class)))

(defvar *indentation* 0)
(defmethod describe-memory-layout ((class gl-struct-class) stream offset standard)
(let ((offset (round-to (buffer-field-base class T) offset)))

0 comments on commit d3be403

Please sign in to comment.
You can’t perform that action at this time.