Action:
|
Tests whether the geometry of a tolerant edge has local self-intersections (i.e., creases up on itself).
|
|
Filename:
|
intr/intr_scm/tmchk_scm.cxx
|
|
Syntax:
|
(tm-check:tedge-local-self-int edge)
|
|
Arg Types:
|
edge
|
tedge
|
|
Returns:
|
(tm-chk-info ...)
|
|
Errors:
|
Argument is not a
TEDGE.
|
|
Description:
|
Returns as
tm-check:tm-bad-topology would if the edge is not a
TEDGE. Otherwise it checks the edge geometry for having local self-intersections (i.e., regions where the tube around the edge, of radius equal to the edge tolerance, creases up on itself). If so, a list containing a
tm-chk-info of derived type
tedge-local-self-int is returned. This may indicate the edge parameter of the problem (via
tm-chk-info:edge-param). If there are no local self-intersections, an empty list is returned.
|
|
|
edge is an argument of type
TEDGE for which the local self-intersections are tested.
|
|
Example:
|
; tm-check:tedge-local-self-int
|
|
; Check for edge local self-intersections.
|
|
(define b (solid:block (position 0 0 0)
|
|
|
(position 10 10 10)))
|
|
;; b
|
|
(define e (car (tolerant:fix (car
|
|
|
(entity:edges b)))))
|
|
;; e
|
|
(tm-check:tedge-local-self-int e)
|
|
;; ()
|
|
; geometry is valid
|