Action:
|
Determines if a scheme-object is an
elliptical-edge.
|
|
Filename:
|
kern/kern_scm/qedg_scm.cxx
|
|
Syntax:
|
(edge:elliptical? object)
|
|
Arg Types:
|
object
|
scheme-object
|
|
Returns:
|
boolean
|
|
Description:
|
Returns #t if a scheme-object is an elliptical edge.
|
|
|
object specifies the
scheme-object that has to be queried for an
elliptical-edge.
|
|
Example:
|
; edge:elliptical?
|
|
; Create an elliptical edge.
|
|
(define ellipse1
|
|
|
(edge:elliptical (position 15 15 0)
|
|
|
(position 25 15 0) 2 0 270))
|
|
;; ellipse1
|
|
; Determine if the edge is
|
|
; actually an elliptical edge.
|
|
(edge:elliptical? ellipse1)
|
|
;; #t
|
|
(define block1
|
|
|
(solid:block (position 15 15 0)
|
|
|
(position 25 25 10)))
|
|
;; block1
|
|
; Determine if the block is
|
|
; actually an elliptical edge.
|
|
(edge:elliptical? block1)
|
|
;; #f
|