;; | ----------------------------------------------------------------------------
;; | MI_DrawGrVecs
;; | ----------------------------------------------------------------------------
;; | Function : Draws a series of vectors using grdraw and the specified color
;; | Arguments: 'vlist'  - List of points to draw
;; |            'Closed' - Flag to indicate if the polygon is closed or not
;; |            'Color'  - Indicates the color to be used for drawing the vectors
;; | Updated  : September 9, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_DrawGrVecs( vlist Closed Color / Lst )

(setq Lst (GE_GetSegmentPoints vlist Closed))
(foreach tmp Lst
	(grdraw (car tmp) (cadr tmp) Color)
)
)