Action:
|
Determines whether or not the input entity is a helix.
|
|
Filename:
|
kern/kern_scm/law_scm.cxx
|
|
Syntax:
|
(is:helix in-entity)
|
|
Arg Types:
|
in-ent
|
entity
|
|
Returns:
|
boolean
|
|
Description:
|
The input entity
in-ent should be an edge.
|
|
|
in-entity specifies an entity.
|
|
Example:
|
; is:helix
|
|
; Create a profile to sweep into a helix.
|
|
(option:set "sil" #f)
|
|
;; #t
|
|
(define profile1 (edge:linear
|
|
|
(position 5 0 0) (position 10 0 0)))
|
|
;; profile1
|
|
(is:helix profile1)
|
|
;; #f
|
|
(define path1(edge:helix
|
|
|
(position 0 0 0)
|
|
|
(position 0 40 0)
|
|
|
(gvector 1 0 0) 10 20 #t))
|
|
;; path1
|
|
(define helix1(sweep:law profile1 path1))
|
|
;; helix1
|
|
(define edge-list (entity:edges helix1))
|
|
;; edge-list
|
|
(is:helix (list-ref edge-list 0))
|
|
;; #f
|
|
(is:helix (list-ref edge-list 1))
|
|
; Axis 0.000000 1.000000 0.000000
|
|
; Root 0.000000 9.325620 0.000000
|
|
; Pitch 20.000000
|
|
; Radius 5.000000
|
|
; Right Handed
|
|
;; #t
|
|
(is:helix (list-ref edge-list 2))
|
|
;; #f
|
|
(is:helix (list-ref edge-list 3))
|
|
; Axis 0.000000 1.000000 0.000000
|
|
; Root 0.000000 9.328920 0.000000
|
|
; Pitch 20.000000
|
|
; Radius 10.000000
|
|
; Right Handed
|
|
;; #t
|