Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
2115bf2f
Commit
2115bf2f
authored
Jan 14, 2016
by
Dave Cooper
Browse files
allow length-vector to accept 2D vectors.
parent
2bf5b19f
Changes
2
Hide whitespace changes
Inline
Side-by-side
apps/graphs/source/assembly.lisp
View file @
2115bf2f
...
...
@@ -27,6 +27,7 @@
:objects
(
(
points-display
:type
'points-display
:hidden?
t
:points
(
the
curve-sample-points
))
...
...
geom-base/prereqs/source/utilities.lisp
View file @
2115bf2f
...
...
@@ -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
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment