Action:
|
Determines whether or not a Scheme object is of the
pattern Scheme data type.
|
|
Filename:
|
kern/kern_scm/pattern_scm.cxx
|
|
Syntax:
|
(pattern? object)
|
|
Arg Types:
|
object
|
scheme-object
|
|
Returns:
|
boolean
|
|
Description:
|
This extension returns
#t if the given object is a
patternScheme data type. Otherwise, it returns
#f.
|
|
|
object specifies the
scheme-object that has to be queried for a pattern.
|
|
Example:
|
; pattern?
|
|
; Create prism geometry to illustrate command.
|
|
(define height 1)
|
|
;; height
|
|
(define maj_rad 1)
|
|
;; maj_rad
|
|
(define min_rad 0.5)
|
|
;; min_rad
|
|
(define num_sides 3)
|
|
;; num_sides
|
|
(define prism
|
|
|
(solid:prism height maj_rad min_rad num_sides))
|
|
;; prism
|
|
(zoom-all)
|
|
;; [view 13369704]
|
|
; Verify prism is not a pattern.
|
|
(pattern? prism))
|
|
;; #f
|
|
; Create a pattern.
|
|
(define x-vec (gvector 2 0 0))
|
|
;; x-vec
|
|
(define num_x 5)
|
|
;; num_x
|
|
(define y-vec (gvector 0 2 0))
|
|
;; y-vec
|
|
(define num_y 5)
|
|
;; num_y
|
|
(define pat (pattern:linear x-vec num_x y-vec num_y))
|
|
;; pat
|
|
; Verify pat is a pattern.
|
|
(pattern? pat)
|
|
;; #t
|