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
8204bc83
Commit
8204bc83
authored
Sep 21, 2021
by
Dave Cooper
Browse files
Merge branch 'hotfix/seq-and-cofg'
parents
29f49337
d2d1640e
Pipeline
#4730
passed with stages
in 9 minutes and 14 seconds
Changes
2
Pipelines
1
Expand all
Hide whitespace changes
Inline
Side-by-side
base/rest/source/vanilla-mixin.lisp
View file @
8204bc83
This diff is collapsed.
Click to expand it.
surf/source/brep.lisp
View file @
8204bc83
...
...
@@ -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