Action:
|
Creates a work coordinate system.
|
|
Filename:
|
kern/kern_scm/wcs_scm.cxx
|
|
APIs:
|
api_wcs_create
|
|
Syntax:
|
(wcs origin-pos {x-pos | x-vec} {y-pos | y-vec})
|
|
Arg Types:
|
origin-pos
|
position
|
|
x-pos
|
position
|
|
x-vec
|
gvector
|
|
y-pos
|
position
|
|
y-vec
|
gvector
|
|
Returns:
|
wcs
|
|
Description:
|
The
origin-pos,
x-pos and
y-pos are used to define the
xy-plane. The
z-axis is defined by the right hand rule.
|
|
|
origin-pos specifies the center of model space.
|
|
|
x-pos specifies the
x-axis location.
|
|
|
y-pos specifies the
y-axis location. The
y-axis is defined perpendicularly to the
x-axis in the
xy-plane.
|
|
|
x-vec specifies the axis in the
x-direction.
|
|
|
y-vec specifies the axis in the
y-direction.
|
|
Example:
|
; wcs
|
|
; Create a new WCS.
|
|
(define wcs1
|
|
|
(wcs (position 0 0 0) (gvector 1 0 0)
|
|
|
(gvector 0 1 0)))
|
|
;; wcs1
|
|
; OUTPUT WCS 1
|
|
|
; Create a second WCS.
|
|
(define wcs2
|
|
|
(wcs (position 30 0 0)
|
|
|
(position 30 30 0) (position 30 0 10)))
|
|
;; wcs2
|
|
; Set a color for the wcs.
|
|
(entity:set-color wcs1 6)
|
|
;; ()
|
|
; OUTPUT WCS 2
|
|
|
|
|
Figure 15-10. wcs
|