-- File: TFO3d.mesa (Text Fileout)
-- Last edited by Bier on December 19, 1982 5:56 pm
-- Author: Eric Bier on July 6, 1983 4:17 pm
-- Contents: Useful functions for creating text files to describe 3d objects and scenes. (used by Fileout3dImpl, BasicObject3dImpl and intended for use by programs which define other master objects to implement their FileoutProc [see DisplayList3d]).

DIRECTORY
 GraphicsColor,
IO,
 Matrix3d,
 Rope,
 SVArtwork,
 SVMatrix2d;

TFO3d: DEFINITIONS =

BEGIN

Color: TYPE = GraphicsColor.Color;
Material: TYPE = SVArtwork.Material;
Matrix3by3: TYPE = SVMatrix2d.Matrix3by3;
Matrix4by4: TYPE = Matrix3d.Matrix4by4;
OMap: TYPE = SVArtwork.OMap;
Point3d: TYPE = Matrix3d.Point3d;
SMap: TYPE = SVArtwork.SMap;

FileoutMatrix: PROC [f: IO.STREAM, mat: Matrix4by4];

FileoutMatrix3by3: PROC [f: IO.STREAM, mat: Matrix3by3];

FileoutPoint3d: PROC [f: IO.STREAM, point3d: Point3d];

FileoutPoint3dAsPoint2d: PROC [f: IO.STREAM, point3d: Point3d];

FileoutColor: PROC [f: IO.STREAM, color: Color];

FileoutSurface: PROC [f: IO.STREAM, surface: REF ANY];

FileoutMaterial: PROC [f: IO.STREAM, material: Material];

FileoutSMap: PROC [f: IO.STREAM, sMap: SMap];
FileoutOMap: PROC [f: IO.STREAM, oMap: OMap];

END.