pattern:remove

List of:	Scheme Extensions
Subjects:	Patterns
Contents:	Kernel

Action:

Removes all patterns from an entity.

Filename:

kern/kern_scm/pattern_scm.cxx

Syntax:

(pattern:remove entity)

Arg Types:

entity

entity

Returns:

boolean

entity specifies an entity.

Example:

; pattern:remove

; create a pattern to be removed

(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

; position the prism

(define origin (position 1 2 3))

;; origin

(define transform (entity:transform prism

(transform:axes

origin (gvector 1 0 0) (gvector 0 1 0))))

;; transform

; make a pattern

(define t1 (transform:translation (gvector 0 0 0)))

;; t1

(define t2 (transform:translation (gvector 2 2 0)))

;; t2

(define t3 (transform:translation (gvector 4 0 0)))

;; t3

(define t4 (transform:translation (gvector 0 4 0)))

;; t4

(define t5 (transform:translation (gvector 4 4 0)))

;; t5

(define pat (pattern:from-list

(list t1 t2 t3 t4 t5)))

;; pat

; mirror the pattern about the origin

(define root (position 0 0 0))

;; root

(define normal (gvector 1 1 0))

;; normal

(set! pat (pattern:mirror pat root normal))

;; #[pattern [list]]]

; apply the pattern to the prism

(define body (entity:pattern prism pat))

;; body

; remove the pattern

(entity:remove body)

;; #t

PDF/KERN/14SCI.PDF
HTM/DATA/KERN/KERN/14SCI/0086.HTM