;; | ----------------------------------------------------------------------------
;; | MI_GetBearing
;; | ----------------------------------------------------------------------------
;; | Function : Returns the bearing measured from North, clockwise positive
;; |            direction
;; | Argument : 'ang'   - AutoCAD measured angle in degrees
;; | Returns  : 'angB'  - Bearig angle in degrees
;; | Updated  : December 11, 2000
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_GetBearing( ang / angB )

(cond
	((and (>= ang 0.0) (<= ang 90.0))
		(setq angB (- 90.0 ang))
	)
	(T
		(setq angB (- 450.0 ang))
	)
)
angB
)