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
d2d1640e
Commit
d2d1640e
authored
Sep 21, 2021
by
Dave Cooper
Browse files
fixes for sequence cardinality bashing issue and typo fix in center-of-gravity
parent
29f49337
Changes
2
Expand all
Hide whitespace changes
Inline
Side-by-side
base/rest/source/vanilla-mixin.lisp
View file @
d2d1640e
This diff is collapsed.
Click to expand it.
surf/source/brep.lisp
View file @
d2d1640e
...
...
@@ -22,6 +22,15 @@
(
in-package
:surf
)
(
defun
make-triplets
(
list
)
(
let
((
count
0
)
triplet
triplet-list
)
(
setq
triplet-list
(
dolist
(
item
list
(
nreverse
triplet-list
))
(
if
(
<
count
3
)
(
progn
(
push
item
triplet
)
(
incf
count
))
(
progn
(
push
(
nreverse
triplet
)
triplet-list
)
(
setq
count
1
)
(
setq
triplet
(
list
item
))))))
(
setq
triplet-list
(
append
triplet-list
(
list
(
nreverse
triplet
))))))
(
define-object
brep
(
geometry-kernel-object-mixin
ifs-output-mixin
base-object
)
...
...
@@ -688,7 +697,7 @@ be faster to compute and exhibit more stability.
:&key ((tolerance (the adaptive-tolerance)) \"Controls how precisely the properties are computed\")"
center-of-gravity
(
&key
(
tolerance
(
the
adaptive-tolerance
)))
(
let
((
volume
(
the
volume
:tolerance
tolerance
)))
(
let
((
volume
(
the
(
volume
:tolerance
tolerance
)))
)
(
when
(
zerop
volume
)
(
error
"~a is a zero-volume brep. Center-of-gravity cannot be computed.~%"
(
cons
'the
(
reverse
(
the
root-path
)))))
(
scalar*vector
(
/
volume
)
...
...
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