Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
52c63871
Commit
52c63871
authored
Sep 12, 2012
by
Dave Cooper
Browse files
tagged for build 2012091200
parent
d5d5ec5a
Changes
4
Hide whitespace changes
Inline
Side-by-side
README
View file @
52c63871
...
...
@@ -36,7 +36,7 @@ main Genworks website soon.
Current Requirements:
o Common Lisp: recently patched Allegro CL 8.2, LispWorks, or SBCL
(SB
L
C verified only on Linux and Mac).
(SBC
L
verified only on Linux and Mac).
To load the entire system, you can do it with:
...
...
gdl/geom-base/prereqs/source/utilities.lisp
View file @
52c63871
...
...
@@ -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
)))
...
...
regression/source/general-sweep.lisp
View file @
52c63871
...
...
@@ -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"
)
...
...
surf/source/spiral-curve.lisp
View file @
52c63871
...
...
@@ -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
))))))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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