Action:
|
Projects an edge onto a plane.
|
|
Filename:
|
kern/kern_scm/qedg_scm.cxx
|
|
Syntax:
|
(edge:project-to-plane edge plane-pos plane-normal)
|
|
Arg Types:
|
edge
|
edge
|
|
plane-pos
|
position
|
|
plane-normal
|
gvector
|
|
Returns:
|
edge
|
|
Description:
|
This returns the new edge that is the projection of the given edge onto the plane. The input edge is projected parallel to the input gvector. It gets projected onto the place specified by the position and the gvector.
|
|
|
edge specifies the edge to project.
|
|
|
plane-pos specifies the position on the plane.
|
|
|
plane-normal specifies the normal to the plane.
|
|
Example:
|
; edge:project-to-plane
|
|
; Create a linear edge.
|
|
(define edge1
|
|
|
(edge:linear (position 0 0 0)
|
|
|
(position 30 30 0)))
|
|
;; edge1
|
|
; OUTPUT Original
|
|
|
; Project the edge onto a plane.
|
|
(define project
|
|
|
(edge:project-to-plane edge1 (position 20 20 0)
|
|
|
(gvector 0 1 0)))
|
|
;; project
|
|
; OUTPUT Result
|
|
|
|
|
Figure 12-3. edge:project-to-plane
|