Action:
|
Replaces an edge with a tolerant edge.
|
|
Filename:
|
cstr/cstr_scm/tmod_scm.cxx
|
|
APIs:
|
api_replace_edge_with_tedge
|
|
Syntax:
|
(edge:tolerant edge)
|
|
Arg Types:
|
edge
|
edge
|
|
Returns:
|
entity
|
|
Description:
|
edge specifies an edge to be converted to a tolerant edge.
|
|
Example:
|
; edge:tolerant
|
|
; Define a block.
|
|
(define block1 (solid:block (position 0 0 0)
|
|
|
(position 50 50 50)))
|
|
;; block1
|
|
(define tol-edge (car (entity:edges block1)))
|
|
;; tol-edge
|
|
; tol-edge => #[entity 2 1]
|
|
; Define a tolerant edge
|
|
(define edge1 (edge:tolerant tol-edge))
|
|
;; edge1
|