Action:
|
Determines if a Scheme object is a
face:spline.
|
|
Filename:
|
kern/kern_scm/qfac_scm.cxx
|
|
Syntax:
|
(face:spline? object)
|
|
Arg Types:
|
object
|
scheme-object
|
|
Returns:
|
boolean
|
|
|
object specifies the
scheme-object that has to be queried for a face spline.
|
|
Example:
|
; face:spline?
|
|
; Define a spline edge 1.
|
|
(define e1 (edge:spline (list (position 0 0 0)
|
|
|
(position 20 -20 0) (position 20 0 0))))
|
|
;; e1
|
|
; Define linear edge 2.
|
|
(define e2 (edge:linear (position 20 0 0)
|
|
|
(position 20 20 0)))
|
|
;; e2
|
|
; Define linear edge 3.
|
|
(define e3 (edge:linear (position 20 20 0)
|
|
|
(position 0 20 0)))
|
|
;; e3
|
|
; Define linear edge 4.
|
|
(define e4 (edge:linear (position 0 20 0)
|
|
|
(position 0 0 0)))
|
|
;; e4
|
|
; Define a wire body from
|
|
; the spline and linear edges.
|
|
(define w (wire-body (list e1 e2 e3 e4)))
|
|
;; w
|
|
; Create a solid by sweeping
|
|
; a planar wire along a vector.
|
|
(define ws (solid:sweep-wire w (gvector 0 0 20)))
|
|
;; ws
|
|
; Get the faces of the solid.
|
|
(define edges1 (entity:faces ws))
|
|
;; edges1
|
|
; Determine if one of the faces is a spline face.
|
|
(face:spline? (car (cdr edges1)))
|
|
;; #f
|
|
; Determine if another face is a spline face.
|
|
(face:spline? (car (cdr (cdr (cdr edges1)))))
|
|
;; #t
|