Commit 2115bf2f authored by Dave Cooper's avatar Dave Cooper
Browse files

allow length-vector to accept 2D vectors.

parent 2bf5b19f
......@@ -27,6 +27,7 @@
(points-display :type 'points-display
:hidden? t
:points (the curve-sample-points))
......@@ -637,7 +637,10 @@ to both <b>vector-1</b> and <b>vector-2</b>.
:arguments (vector \"3D Vector\")"
(3d-distance vector +nominal-origin+))
(3d-distance (if (= (array-dimension vector 0) 3)
(make-vector (get-x vector) (get-y vector) 0))
(defun zero-vector? (vector)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment