fix rotate-vertices when an axis input is float-vector

euslisp · Jun 27, 2023 · 2009d50 · 2009d50
1 parent 64b08f3
commit 2009d50
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lisp/geo/geobody.l b/lisp/geo/geobody.l
@@ -119,7 +119,7 @@
 	;move all vertices with respect to this coordinates
 	;without moving coordinates.
     (let (rotmat)
-	(if (float-vector-p axis) (setq rotmat (rotation rad axis)))
+	(if (float-vector-p axis) (setq rotmat (rotation-matrix rad axis)))
         (dolist (v model-vertices)
 	   (if (float-vector-p axis)
 	       (transform rotmat v v)