diff --git a/geometry-shapes.lisp b/geometry-shapes.lisp
index 369ef79f..516c6e6d 100644
--- a/geometry-shapes.lisp
+++ b/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)