Action:
|
Determines if a scheme-object is a coedge.
|
|
Filename:
|
kern/kern_scm/qedg_scm.cxx
|
|
Syntax:
|
(coedge? object)
|
|
Arg Types:
|
object
|
scheme-object
|
|
Returns:
|
boolean
|
|
Description:
|
This extension returns
#t if the object is a coedge; otherwise, it returns
#f.
|
|
|
object specifies a
scheme-object that has to be queried for a coedge.
|
|
Example:
|
; coedge?
|
|
; Create a solid block.
|
|
(define block1
|
|
|
(solid:block (position 0 0 0)
|
|
|
(position 10 10 10)))
|
|
;; block1
|
|
; Determine if the solid block is a coedge.
|
|
(coedge? block1)
|
|
;; #f
|
|
; Find the coedges of the solid block.
|
|
(define coedges1 (entity:coedges block1))
|
|
;; coedges1
|
|
; Determine if a coedge of the solid block is
|
|
; actually a coedge.
|
|
(coedge? (car coedges1))
|
|
;; #t
|