;; | ----------------------------------------------------------------------------
;; | GE_GetArcMidPt
;; | ----------------------------------------------------------------------------
;; | Function : Returns the midpoint of the arc which is assumed to be defined in
;; |            the Counter clockwise direction
;; | Arguments:
;; |           'CenPt' - Center point of the arc
;; |           'rad'   - Radius of the arc
;; |           'sa'    - Start Angle
;; |           'ea'    - End   Angle
;; | Action   : Returns a radius of the arc segment which is (sqr(D)/8H + H/2)
;; | Updated  : October 24, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_GetArcMidPt ( CenPt rad sa ea / pt diff )

(if (< ea sa)
	(setq ea (+ ea (* 2.0 pi)))
)
(setq
	diff (- ea sa)
	pt (polar CenPt (+ sa (* 0.5 diff)) rad)
)
)