|
Action:
|
Creates a work coordinate system given a transform.
|
|
|
Filename:
|
kern/kern_scm/wcs_scm.cxx
|
|
|
Syntax:
|
(wcs:from-transform transform)
|
|
|
Arg Types:
|
transform
|
transform
|
|
|
Returns:
|
wcs
|
|
|
transform maps from the model space to the new working coordinate system.
|
|
|
Example:
|
; wcs:from-transform
|
|
; Create a new WCS.
|
|
(define wcs1
|
|
|
(wcs (position 0 0 0) (position 5 0 0)
|
|
|
(position 0 5 0)))
|
|
;; wcs1
|
|
(define transform1 (transform:rotation
|
|
|
(position 0 0 0) (gvector -10 0 0) 60))
|
|
;; transform1
|
|
; Create a new WCS from a transform rotation.
|
|
(define wcs2 (wcs:from-transform transform1))
|
|
;; wcs2
|
|
(define transform2
|
|
|
(transform:translation (gvector 10 10 20)))
|
|
;; transform2
|
|
; Create a new WCS from a transform translation.
|
|
(define wcs3 (wcs:from-transform transform2))
|
|
;; wcs3
|
|
; OUTPUT Example
|
|
|
|
|
Figure 15-11. wcs:from-transform
|