;; | ----------------------------------------------------------------------------
;; | GE_VecScale
;; | ----------------------------------------------------------------------------
;; | Function : Scale a vector by a scalar amount
;; |
;; | Arguments: 'v'   - Vector to be scaled
;; |            'scl' - Scalar amount to be scaled
;; |
;; | Returns  : 'v' - The scaled vector
;; |
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_VecScale( v scl )

	(mapcar '(lambda (x) (* x scl)) v)
)