Permalink
Browse files

Reverse this again idk

  • Loading branch information...
Shinmera committed Apr 8, 2018
1 parent 6709f6b commit 772d11f7dfb9f3094ac63824bafa89272ff28f5f
Showing with 6 additions and 6 deletions.
  1. +6 −6 geometry-shapes.lisp
View
@@ -25,12 +25,12 @@
u (- h) b 0)))
(incf l x) (incf r x) (incf u y) (incf b y)
(with-vertex-filling ((or mesh (make-instance 'vertex-mesh :vertex-type 'textured-vertex)) :pack pack)
(vertex :position (vec r u z) :uv (vec 1.0 0.0))
(vertex :position (vec r b z) :uv (vec 1.0 1.0))
(vertex :position (vec l b z) :uv (vec 0.0 1.0))
(vertex :position (vec l b z) :uv (vec 0.0 1.0))
(vertex :position (vec l u z) :uv (vec 0.0 0.0))
(vertex :position (vec r u z) :uv (vec 1.0 0.0)))))
(vertex :position (vec r u z) :uv (vec 1.0 1.0))
(vertex :position (vec r b z) :uv (vec 1.0 0.0))
(vertex :position (vec l b z) :uv (vec 0.0 0.0))
(vertex :position (vec l b z) :uv (vec 0.0 0.0))
(vertex :position (vec l u z) :uv (vec 0.0 1.0))
(vertex :position (vec r u z) :uv (vec 1.0 1.0)))))
(defun make-cube (size &key mesh pack (x 0) (y 0) (z 0))
(destructuring-bind (w d h) (enlist size size size)

0 comments on commit 772d11f

Please sign in to comment.