;; | ----------------------------------------------------------------------------
;; | GE_GetRadiusBD
;; | ----------------------------------------------------------------------------
;; | Function : Returns the radius of an arc, given the bulge factor and
;; |            distance between the two points
;; | Arguments:
;; |           'B' - Bulge factor (returned from the polyline DXF listing)
;; |           'D' - Distance between ends of the Arc
;; | Action   : Returns a radius of the arc
;; | Updated  : September 25, 2002
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_GetRadiusBD ( B D / H )

(setq H (* B D 0.5))
(GE_GetRadiusHD H D)
)