;; | ---------------------------------------------------------------------------- ;; | GE_GetBulge ;; | ---------------------------------------------------------------------------- ;; | Function : Returns the bulge of an arc, given the H and D arguments ;; | Arguments: ;; | 'H' - Height of the arc (i.e distance between the midpoint of chord ;; | and midpoint (top) of arc) ;; | 'D' - Distance between ends of the Arc ;; | Action : Returns a bulge which is (2H/D) ;; | Updated : September 25, 2002 ;; | e-mail : rakesh.rao@4d-technologies.com ;; | Web : www.4d-technologies.com ;; | ---------------------------------------------------------------------------- (defun GE_GetBulge ( H D ) (/ (* 2.0 H) D) )