annotation:clear-all
List of: Scheme Extensions
Subjects: Feature Naming
Contents: Kernel

Action: Removes all annotations.

Filename: kern/kern_scm/anno_scm.cxx

APIs: api_clear_annotations

Syntax: (annotation:clear-all)

Arg Types: None

Returns: unspecified

Example: ; annotation:clear-all

; Create a swept part with annotations turned on.

(option:set "annotation" #t)

;; #f

(option:set "unhook_annotations" #f)

;; #t

(define prof (edge:ellipse (position 0 0 0)


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

;; prof

(define path (gvector 0 0 1))

;; path

(define swp (sweep:law prof path))

;; swp

(define face1 (list-ref (entity:faces swp) 0))

;; face1

; Confirm annotation on face.

(entity:annotations face1)

;; (#[entity 7 1])

; Unhook annotations.

(annotation:unhook-all)

;; ()

; Annotation no longer accessible through face.

(entity:annotations face1)

;; ()

; Hook annotations.

(annotation:hook-all)

;; ()

; Annotation again accessible through face.

(entity:annotations face1)

;; (#[entity 7 1])

; Clear annotations

(annotation:clear-all)

;; ()

; Annotations no longer present.

(entity:annotations face1)

;; ()
PDF/KERN/12SCA.PDF
HTM/DATA/KERN/KERN/12SCA/0009.HTM