Commit d87ad96b authored by Dave Cooper's avatar Dave Cooper

added inter-line-line function

parent 1fbfaa6a
......@@ -504,6 +504,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:inter-circle-sphere
#:inter-line-sphere
#:inter-line-plane
#:inter-line-line
#:translate
#:create-obliqueness
#:proj-point-on-line
......
......@@ -1008,6 +1008,13 @@ all (i.e. they are parallel), NIL is returned.
(let ((s (/ (- (dot-vectors u w))
(dot-vectors u n))))
(translate-along-vector p-line n s)))))
(defun inter-line-line (p-line-1 u-line-1 p-line-2 u-line-2)
(inter-line-plane p-line-1 u-line-1 p-line-2
(cross-vectors (cross-vectors u-line-1 u-line-2)
u-line-2)))
(defmacro translate (origin &rest offsets)
......
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