Action:
|
Determines if a scheme-object is a
curve:elliptical.
|
|
Filename:
|
kern/kern_scm/qgom_scm.cxx
|
|
Syntax:
|
(curve:elliptical? object)
|
|
Arg Types:
|
object
|
scheme-object
|
|
Returns:
|
boolean
|
|
Description:
|
This extension returns
#t if the object is a
curve:elliptical; otherwise, it returns
#f.
|
|
|
object specifies the
scheme-object that has to be queried for ellipticity.
|
|
Example:
|
; curve:elliptical?
|
|
; Create elliptical edge 1.
|
|
(define edge1
|
|
|
(edge:elliptical (position 0 0 0)
|
|
|
(position 20 0 0) .75 0 180))
|
|
;; edge1
|
|
; Create circular edge 2.
|
|
(define edge2
|
|
|
(edge:circular
|
|
|
(position 0 0 0) 20 0 180))
|
|
;; edge2
|
|
; Determine if edge1 is an elliptical curve.
|
|
(curve:elliptical? (curve:from-edge edge1))
|
|
;; #f
|
|
; Determine if edge2 is an elliptical curve.
|
|
(curve:elliptical? (curve:from-edge edge2))
|
|
;; #t
|