(******************************************************************************
*                                POLY3I11.DEF                                 *
*                              ABO Software Dep.                              *
*                                                                             *
* Purpose : To provide an integer 3D polygon type.                            *
*                                                                             *
*   Notes : Routines for conversion to and from real polygons are included.   *
*                                                                             *
*         Version Date : 22/10/92                                             *
******************************************************************************)
DEFINITION MODULE POLY3I1;

FROM PNT3I1  IMPORT Point3I;
FROM POLY3D1 IMPORT Poly3D;
FROM VIEW3D1 IMPORT View3D;
FROM COLOR1  IMPORT ColorRGB;

CONST
  POLYMAX = 8;

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

PROCEDURE topoly3D(
	p1	:Poly3I):Poly3D;

PROCEDURE topoly3I(
	p1	:Poly3D):Poly3I;


PROCEDURE polynormal(
	poly:Poly3I):Point3I;

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

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

PROCEDURE debugpoly(poly:Poly3I);

END  POLY3I1.
