;; | ----------------------------------------------------------------------------
;; | GE_GetBiggestCrown
;; | ----------------------------------------------------------------------------
;; | Function : Returns the biggest crown distance possible in an arc segment
;; | Arguments:
;; |           'CenPt' - Center point of the arc
;; |           'rad'   - Radius of the arc
;; |           'sa'    - Start Angle
;; |           'ea'    - End   Angle
;; | Action   : Returns a largest crown distance possible
;; | Updated  : October 24, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_GetBiggestCrown ( CenPt rad sa ea / pt Crown pt1 pt2 )

(setq
	pt    (GE_GetArcMidpt CenPt rad sa ea)
	pt1   (polar CenPt sa rad)
	pt2   (polar CenPt ea rad)
	Crown (distance (MI_MidPoint pt1 pt2) pt)
)
Crown
)