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

allow length-vector to accept 2D vectors.

parent 2bf5b19f
......@@ -27,6 +27,7 @@
:objects
(
(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)
vector
(make-vector (get-x vector) (get-y vector) 0))
+nominal-origin+))
(defun zero-vector? (vector)
......
Markdown is supported
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