|
Action:
|
Makes a copy of a pattern.
|
|
|
Filename:
|
kern/kern_scm/pattern_scm.cxx
|
|
|
Syntax:
|
(pattern:copy pat)
|
|
|
Arg Types:
|
pat
|
pattern
|
|
|
Returns:
|
pattern
|
|
|
pat specifies a pattern.
|
|
|
Example:
|
; pattern:copy
|
|
; make a pattern
|
|
(define center (position 1 2 3))
|
|
;; center
|
|
(define normal (gvector 0 0 1))
|
|
;; normal
|
|
(define num-radial 4)
|
|
;; num-radial
|
|
(define num-angular 5)
|
|
;; num-angular
|
|
(define spacing 3)
|
|
;; spacing
|
|
(define pat (pattern:radial center
|
|
|
normal num-radial num-angular spacing))
|
|
;; pat
|
|
; copy the pattern
|
|
(define pat_copy (pattern:copy pat))
|
|
;; pat_copy
|