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
b94f22c8
Commit
b94f22c8
authored
Jul 16, 2013
by
Dave Cooper
Browse files
fix for brep-intersect? function of brep
parent
96b594ae
Changes
1
Hide whitespace changes
Inline
Side-by-side
surf/source/brep.lisp
View file @
b94f22c8
...
...
@@ -438,16 +438,13 @@ The function returns a NIL value if no intersection is found and T if a intersec
(angle-tolerance (radians-to-degrees *angle-tolerance-radians-default*)) \"Number, in radians. The angle tolerance for intersection.\")"
brep-intersect?
(
brep
&key
(
tolerance
(
the
adaptive-tolerance
))
(
angle-tolerance
(
radians-to-degrees
*angle-tolerance-radians-default*
)))
(
let
((
box-1
(
the
bounding-box
))
(
box-2
(
the
brep
bounding-box
)))
(
if
(
box-intersection
box-1
box-2
)
't
(
and
(
the
(
bbox-intersect?
brep
))
(
brep-intersect?
*geometry-kernel*
(
the
%native-brep%
)
(
the
brep
%native-brep%
)
:tolerance
tolerance
:angle-tolerance
angle-tolerance
))
)))
(
other-brep
&key
(
tolerance
(
the
adaptive-tolerance
))
(
angle-tolerance
(
radians-to-degrees
*angle-tolerance-radians-default*
)))
(
or
(
box-intersection
(
the
bounding-box
)
(
the-object
other-brep
bounding-box
))
(
and
(
the
(
bbox-intersect?
other-brep
))
(
brep-intersect?
*geometry-kernel*
(
the
%native-brep%
)
(
the-object
other-brep
%native-brep%
)
:tolerance
tolerance
:angle-tolerance
angle-tolerance
))))
(
bbox-intersect?
(
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