Action:
|
Gets the radius of a cylindrical face entity.
|
|
Filename:
|
kern/kern_scm/qfac_scm.cxx
|
|
Syntax:
|
(face:cylinder-radius entity)
|
|
Arg Types:
|
entity
|
cylindrical-face
|
|
Returns:
|
real
|
|
Description:
|
The returned
real specifies the radius of the cylinder face supplied as the
entity input. Note that the input argument is cylinder face and not a
solid:cylinder.
|
|
|
entity specifies a cylindrical-face.
|
|
Example:
|
; face:cylinder-radius
|
|
; Create a cylinder.
|
|
(define cyl1
|
|
|
(solid:cylinder (position 0 0 0)
|
|
|
(position 8 8 8) 32))
|
|
;; cyl1
|
|
; Find the faces of the cylinder.
|
|
(define faces1 (entity:faces cyl1))
|
|
;; faces1
|
|
; (#[entity 3 1] #[entity 4 1] #[entity 5 1])
|
|
; Find the radius of the cylindrical face.
|
|
(face:cylinder-radius (car faces1))
|
|
;; 32
|