Action:
|
Checks to see if an entity is tolerant or has tolerant topology.
|
|
Filename:
|
cstr/cstr_scm/tmod_scm.cxx
|
|
Syntax:
|
(tolerant? check-entity)
|
|
Arg Types:
|
check-entity
|
entity
|
|
Returns:
|
boolean
|
|
|
check-entity is an input entity.
|
|
Example:
|
; tolerant?
|
|
; Create something with tolerant topology
|
|
(define block1 (solid:block
|
|
|
(position 0 0 0) (position 50 50 50)))
|
|
;; block1
|
|
(tolerant:fix (entity:edges block1))
|
|
;; (#[entity 15 1] #[entity 16 1] #[entity 17 1]
|
|
;; #[entity 18 1] #[entity 19 1] #[entity 20 1]
|
|
;; #[entity 21 1] #[entity 22 1] #[entity 23 1]
|
|
;; #[entity 24 1] #[entity 25 1] #[entity 26 1])
|
|
(tolerant? (car (entity:edges block1)))
|
|
;; #t
|