(******************************************************************************
*                                SHP3D1  .DEF                                 *
*                              ABO Software Dep.                              *
*                                                                             *
* Purpose : To provide a definition for 3D objects.                           *
*                                                                             *
*   Notes : This module is very simple.                                       *
*                                                                             *
*         Version Date : 22/10/92                                             *
******************************************************************************)
DEFINITION MODULE SHP3D1;

IMPORT FIO;
FROM MTRX3D1  IMPORT Matrix3D;
FROM PNT3D1   IMPORT Point3D;
FROM VIEW3D1  IMPORT View3D;
FROM COLOR1   IMPORT ColorRGB;

CONST
	POLYMAX   =8;
	MAXPOINT  =200;
	MAXPOLYGON=200;

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

	Shape3D = RECORD
		Points     : INTEGER;
		Polygons   : INTEGER;
		Point      : ARRAY[1..MAXPOINT] OF Point3D;
		Polygon    : ARRAY[1..MAXPOLYGON] OF Polygon;
	END;

	
PROCEDURE displayshape(
	VAR s	:Shape3D;
	pos		:Matrix3D;
	color	:ColorRGB;
	view	:View3D);

PROCEDURE WrShp(
	f		:FIO.File;
	VAR s		:Shape3D);

PROCEDURE RdShp(
	f		:FIO.File;
	VAR s:Shape3D);

PROCEDURE debugs(
	VAR s1		:Shape3D);

	
END SHP3D1.
