Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
G
gendl
Project overview
Project overview
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
45
Issues
45
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Commits
Issue Boards
Open sidebar
gendl
gendl
Commits
8b754bc7
Commit
8b754bc7
authored
Jan 31, 2013
by
Dave Cooper
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Issues 61, 63.
parent
8729d872
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
20 additions
and
3 deletions
+20
-3
regression/issues/source/issue-65.lisp
regression/issues/source/issue-65.lisp
+7
-2
surf/source/brep.lisp
surf/source/brep.lisp
+13
-1
No files found.
regression/issues/source/issue-65.lisp
View file @
8b754bc7
(
in-package
:gdl-user
)
(
in-package
:gdl-user
)
(
define-object
manifold-sample
(
base-object
)
(
define-object
manifold-sample
(
base-object
)
:objects
:objects
((
box
:type
'box-solid
((
box
:type
'box-solid
:width
2
:length
2
:height
2
)
:width
2
:length
2
:height
2
)
(
merged
:type
'merged-solid
:other-brep
(
the
box
:face-breps
:list-elements
))
(
merged
:type
'merged-solid
:other-brep
(
the
box
:face-breps
:list-elements
))
(
merged2
:type
'merged-solid
:other-brep
(
the
box
:face-breps
:list-elements
)
:make-manifold?
t
)))
\ No newline at end of file
(
"merge trial"
merged2
:type
'merged-solid
:other-brep
(
the
box
:face-breps
:list-elements
)
:make-manifold?
t
)))
surf/source/brep.lisp
View file @
8b754bc7
...
@@ -541,6 +541,18 @@ and moments for the brep. The moments are labeled as: :area-static-moments, :are
...
@@ -541,6 +541,18 @@ and moments for the brep. The moments are labeled as: :area-static-moments, :are
(
&key
(
tolerance
(
the
adaptive-tolerance
)))
(
&key
(
tolerance
(
the
adaptive-tolerance
)))
(
brep-compute-precise-properties
*geometry-kernel*
self
tolerance
))
(
brep-compute-precise-properties
*geometry-kernel*
self
tolerance
))
(
"Plist with keys: :area, :volume, :mass, :moments. Returns the area, volume, mass,
and moments for the brep. The moments are labeled as: :area-static-moments, :area-moments-of-inertia,
:area-products-of-inertia, :area-second-moment-about-coordinate-axii, :volume-static-moments,
:volume-moments-of-inertia, :volume-products-of-inertia, and :volume-second-moment-about-coordinate-axii.
:&key ((tolerance (the adaptive-tolerance)) \"Controls how precisely the properties are computed\")"
precise-properties-plist
(
&key
(
tolerance
(
the
adaptive-tolerance
)))
(
multiple-value-bind
(
area
volume
mass
moments
)
(
brep-compute-precise-properties
*geometry-kernel*
self
tolerance
)
(
list
:area
area
:volume
volume
:mass
mass
:moments
moments
)))
(
"Plist with keys: :area, :volume, :barycenter. Returns the approximate area, volume,
(
"Plist with keys: :area, :volume, :barycenter. Returns the approximate area, volume,
and barycenter (center of mass) for the brep. These are computed with tessellation techniques,
and barycenter (center of mass) for the brep. These are computed with tessellation techniques,
which may be less precise than the analytic techniques used in precise-properties, but should
which may be less precise than the analytic techniques used in precise-properties, but should
...
@@ -550,7 +562,7 @@ be faster to compute and exhibit more stability.
...
@@ -550,7 +562,7 @@ be faster to compute and exhibit more stability.
properties
properties
(
&key
(
edge-tess-tolerance
(
the
adaptive-tolerance
))
(
&key
(
edge-tess-tolerance
(
the
adaptive-tolerance
))
(
face-tess-tolerance
(
the
adaptive-tolerance
)))
(
face-tess-tolerance
(
the
adaptive-tolerance
)))
(
brep-compute-properties
*geometry-kernel*
self
:edge-tess-toleance
edge-tess-tolerance
(
brep-compute-properties
*geometry-kernel*
self
:edge-tess-tole
r
ance
edge-tess-tolerance
:face-tess-tolerance
face-tess-tolerance
))
:face-tess-tolerance
face-tess-tolerance
))
(
"Number. Area covered by the faces of the brep.
(
"Number. Area covered by the faces of the brep.
...
...
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