Permalink
Browse files

Minor

  • Loading branch information...
Shinmera committed Dec 10, 2017
1 parent aacf867 commit d6d08e497a9294687bfdfbee3192135f00efd28a
Showing with 11 additions and 4 deletions.
  1. +4 −4 helpers.lisp
  2. +7 −0 package.lisp
View
@@ -62,10 +62,10 @@
(vertex-form :initarg :vertex-form :initform :triangles :accessor vertex-form)))
(defmethod paint ((subject vertex-entity) (pass shader-pass))
(let ((shader (shader-program-for-pass pass subject)))
(setf (uniform shader "model_matrix") (model-matrix))
(setf (uniform shader "view_matrix") (view-matrix))
(setf (uniform shader "projection_matrix") (projection-matrix)))
(let ((program (shader-program-for-pass pass subject)))
(setf (uniform program "model_matrix") (model-matrix))
(setf (uniform program "view_matrix") (view-matrix))
(setf (uniform program "projection_matrix") (projection-matrix)))
(let ((vao (vertex-array subject)))
(gl:bind-vertex-array (resource vao))
(%gl:draw-elements (vertex-form subject) (size vao) :unsigned-int 0)
View
@@ -339,6 +339,13 @@
#:layer-active-p
#:layered-unit
#:layer)
;; loader.lisp
(:export
#:compute-assets
#:bake
#:baked-p
#:transition
#:bakable)
;; main.lisp
(:export
#:main

0 comments on commit d6d08e4

Please sign in to comment.