;; | ----------------------------------------------------------------------------
;; | MI_DrawGrSquare
;; | ----------------------------------------------------------------------------
;; | Function : Draw a square mark using (grdraw)
;; | Arguments: 'pt'   - Center point of the square
;; |            'Size' - Size(length) of side of the square
;; |            'Color'- Integer denoting color to be used for (grdraw)
;; | Action   : Creates a (grdraw) square using specified parameters.
;; | Updated  : January 10, 2000
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_DrawGRSquare( pt Size Color / Lst p1 p2 p3 p4 )

(setq
	Size (* 0.5 Size)
	Lst (GE_GetBoxAroundPt pt Size Size 0.0)
	p1 (nth 0 Lst)
	p2 (nth 1 Lst)
	p3 (nth 2 Lst)
	p4 (nth 3 Lst)
)
(grdraw p1 p2 Color)
(grdraw p2 p3 Color)
(grdraw p3 p4 Color)
(grdraw p4 p1 Color)
)