Commit 52c63871 authored by Dave Cooper's avatar Dave Cooper
Browse files

tagged for build 2012091200

parent d5d5ec5a
......@@ -36,7 +36,7 @@ main Genworks website soon.
Current Requirements:
o Common Lisp: recently patched Allegro CL 8.2, LispWorks, or SBCL
(SBLC verified only on Linux and Mac).
(SBCL verified only on Linux and Mac).
To load the entire system, you can do it with:
......
......@@ -482,7 +482,7 @@ if given, must be orthogonal to the first two.
(when (and *zero-vector-checking?* (zero-vector? vector))
(error "~s has Euclidean length zero; cannot unitize." vector))
(if (= (length-vector vector) 1.0)
(if (near-to? (length-vector vector) 1.0)
vector
(scalar*vector (/ (length-vector vector)) vector)))
......
......@@ -128,12 +128,13 @@
(profile-curve (the triangle-curve))
(end-caps-on-brep? t)
(screw-curve (the screw-curve-input (curves 0)))
;;(screw-curve (the screw-curve-input (curves 0)))
)
:objects
(;;(screw-curve :type 'screw-spine)
((screw-curve :type 'screw-spine)
#+nil
(screw-curve-input :type 'native-reader
:file-name "/tmp/screw-curve.iwp")
......
......@@ -73,4 +73,13 @@ Defaults to the height divided by the tolerance-divisor."
:radius-2 2.0
:number-of-turns 2.0
:right-or-left :right
:tolerance 0.001)))
\ No newline at end of file
:tolerance 0.001)
(boxed-1 :type 'boxed-curve
:curve-in (the spiral-curve)
:center (translate (the center) :left 10))
(boxed-2 :type 'boxed-curve
:curve-in (the spiral-curve)
:orientation (alignment :top (the (:face-normal-vector :rear))))))
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