Skip to content
Browse files

Revert uv flip on rectangles

  • Loading branch information...
Shinmera committed Mar 28, 2019
1 parent baf522d commit 4352926249d7d6b3ec56e24e23919163bc09c5ac
Showing with 6 additions and 6 deletions.
  1. +6 −6 geometry-shapes.lisp
@@ -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 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)))))
(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)))))

(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 4352926

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