;; | ----------------------------------------------------------------------------
;; | GE_VecNormalize
;; | ----------------------------------------------------------------------------
;; | Function : Normalize a vector (scale to a unit length)
;; |
;; | Arguments: 'v' - Vector to be normalized
;; |
;; | Returns  : 'v' - The normalized vector
;; |
;; | Comments:  Normalizing results in the vector being reduced to a unit length
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_VecNormalize( v )

	(GE_VecScale v (/ 1.0 (distance v (list 0.0 0.0 0.0))))
)