(******************************************************************************
*                                POLY3D11.DEF                                 *
*                              ABO Software Dep.                              *
*                                                                             *
* Purpose : To provide basic 3D drawing elements.                             *
*                                                                             *
*   Notes : This acts as a simple interface for 3D points to be used          *
*                                                                             *
*         Version Date : 22/10/92                                             *
******************************************************************************)
DEFINITION MODULE POLY3D1;

FROM PNT3D1  IMPORT Point3D;
FROM VIEW3D1 IMPORT View3D;
FROM COLOR1  IMPORT ColorRGB;

CONST
  POLYMAX = 8;

TYPE
  Poly3D   =RECORD
    N          :INTEGER;
    P          :ARRAY[1..POLYMAX] OF Point3D;
  END;

PROCEDURE polynormal(
	poly:Poly3D):Point3D;

PROCEDURE clippoly(
	VAR poly:Poly3D;
	view:View3D):BOOLEAN;

PROCEDURE displaypoly(
	poly:Poly3D;
	c   :ColorRGB;
	view:View3D);

PROCEDURE debugpoly(poly:Poly3D);

END  POLY3D1.
