Permalink
Browse files

Allow specifying fill on with-pushed-matrix

  • Loading branch information...
Shinmera committed Jan 28, 2019
1 parent 8a1952a commit e2a6eba8c6b12b8006621a949607fdd5ec3aa8b8
Showing with 3 additions and 2 deletions.
  1. +3 −2 transforms.lisp
@@ -65,10 +65,11 @@
((*projection-matrix* projection-matrix) '*projection-matrix*)
((*model-matrix* model-matrix) '*model-matrix*))
collect `(,variable
,(ecase fill
,(case fill
(:zero `(mat4))
(:identity `(meye 4))
((:copy NIL) `(mcopy4 ,variable)))))
((:copy NIL) `(mcopy4 ,variable))
(T fill))))
,@body)))

(defun translate (v &optional (matrix (model-matrix)))

0 comments on commit e2a6eba

Please sign in to comment.