Action:
|
Determines if a scheme-object is a
spline-edge.
|
|
Filename:
|
kern/kern_scm/qedg_scm.cxx
|
|
Syntax:
|
(edge:spline? object)
|
|
Arg Types:
|
object
|
scheme-object
|
|
Returns:
|
boolean
|
|
Description:
|
Returns #t if a scheme-object is a
spline-edge.
|
|
|
object specifies the
scheme-object that has to be queried for a
spline-edge.
|
|
Example:
|
; edge:spline?
|
|
; Create a circular edge.
|
|
(define edge1
|
|
|
(edge:circular (position 0 0 0) 25 0 185))
|
|
;; edge1
|
|
; Determine if the edge is actually a spline edge.
|
|
(edge:spline? edge1)
|
|
;; #f
|
|
; Create a edge:spline.
|
|
(define spline1
|
|
|
(edge:spline (list (position 0 0 0)
|
|
|
(position 5 5 0) (position 10 15 0)
|
|
|
(position 15 20 0) (position 20 15 0)
|
|
|
(position 25 5 0) (position 30 0 0)) 0 45))
|
|
;; spline1
|
|
; Determine if the edge is actually a spline edge.
|
|
(edge:spline? spline1)
|
|
;; #t
|