Action:
|
Moves geometry in the direction specified.
|
|
Filename:
|
cstr/cstr_scm/tmod_scm.cxx
|
|
Syntax:
|
(tolerant:move edge vector)
|
|
Arg Types:
|
edge
|
edge
|
|
vector
|
gvector
|
|
Returns:
|
entity
|
|
|
edge is an input argument of type EDGE.
|
|
|
vector is a magnitude and direction in which the geometry has to be moved.
|
|
Example:
|
; tolerant:move
|
|
; Create something with tolerant topology
|
|
(define block1 (solid:block
|
|
|
(position 0 0 0) (position 50 50 50)))
|
|
;; block1
|
|
(define zoom (zoom-all))
|
|
;; zoom
|
|
(define edge1 (car (entity:edges block1)))
|
|
;; edge1
|
|
(define tol-edge (edge:tolerant edge1))
|
|
;; tol-edge
|
|
; OUTPUT Original
|
|
|
(define move (tolerant:move tol-edge
|
|
|
(gvector 15 0 -15)))
|
|
;; move
|
|
; OUTPUT Result
|
|
|
|
|
Figure 3-10. tolerant:move
|