face:scar?
List of: Scheme Extensions
Subjects: Debugging
Contents: Kernel

Action: Checks the input body or face for scars and returns list (or unspecified if no scars exist).

Filename: kern/kern_scm/qfac_scm.cxx

Syntax: (face:scar? face | body)

Arg Types: face face | face ...

body body | body ...

Returns: (edge | edge ...) | unspecified


face specifies a face or a list of faces.


body specifies a body or a list of bodies.

Example: ; face:scar?

; Create four types of face/edge geometry to

; demonstrate command.

(define block1 (solid:block -40 -5 -15 -25 5 15))

;; block1

(define edge (edge:linear (position -30 0 0)


(position -30 0 10)))

;; edge

(define body1 (hh:combine (list block1 edge)))

;; body1

(face:scar? block1)

;; ()

; Create a planar disk.

(define pdisk (face:planar-disk


(position 0 0 0) (gvector 0 0 10) 10))

;; pdisk

(define disk-edge (edge:linear


(position -10 0 0) (position 10 0 0)))

;; disk-edge

(define body2 (hh:combine (list pdisk disk-edge)))

;; body2

(face:scar? body2)

;; ()

(define block2 (solid:block 20 10 0 30 20 40))

;; block2

(define block2-edge (edge:linear


(position 27 10 0) (position 22 15 20)))

;; block2-edge

(define body3 (hh:combine (list block2 block2-edge)))

;; body3

(define cylinder (solid:cylinder


(position -5 0 -14) (position -5 0 -34) 5))

;; cylinder

(define cyl-edge (edge:linear


(position -3 5 -14) (position -3 5 -35)))

;; cyl-edge

(define body4 (hh:combine (list cylinder cyl-edge)))

;; body4

Figure 13-1. face:scar.
PDF/KERN/13SCF.PDF
HTM/DATA/KERN/KERN/13SCF/0011.HTM