;; ! ***************************************************************************
;; ! MD_CreatePolygon
;; ! ***************************************************************************
;; ! Function : Create an opaque polygonal face using 3dface or polyface mesh
;; !            objects
;; ! Arguments: 'CenPt'    - Center point of the polygon
;; !            'NumSides' - Number of sides in the polygon (higer number will
;; !                         approximate the figure to a circlular shape)
;; !                         There must be atleast 3 sides to a polygon
;; !            'Radius'   - Radius of the the circumscribing circle
;; !            'Mode'     - can be either "3DFace" "Polyface"
;; !                         If "Polyface" is chosen, the edges joining the
;; !                         center will be invisible.
;; ! Updated  : January 8, 2000
;; ! e-mail   : rakesh.rao@4d-technologies.com 
;; ! Web      : www.4d-technologies.com
;; ! ***************************************************************************


(defun MD_CreatePolygon ( CenPt NumSides Radius Mode / tmp ss EachAngle Lst )

(setq NumSides (abs NumSides))
(if (< NumSides 3) (setq NumSides 3))

(setq
	EachAngle (/ 360.0 NumSides)
	Lst (GE_Arc2Line CenPt Radius 0.0 (* 2.0 pi) "Angular" EachAngle)
)
)