;; | ----------------------------------------------------------------------------
;; | GE_Slope
;; | ----------------------------------------------------------------------------
;; | Function : Returns the slope as a percentage ( V / H )
;; | Arguments:
;; |           'pt1' - First point
;; |           'pt2' - Second point
;; | Action   : Returns the slope expressed as a percentage
;; |            If the Slope is negative, the direction from pt1 to pt2
;; |            is downhill
;; | Updated  : October 9, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_Slope ( pt1 pt2 / dZ d Slope)

(setq
	dZ (- (caddr pt2) (caddr pt1))
	d (distance (list (car pt1) (cadr pt1) 0.0) (list (car pt2) (cadr pt2) 0.0))
	Slope (* 100.0 (/ dZ d))
)
)