-- File: Fileout3d.mesa
-- Last edited by Bier on December 18, 1982 1:25 am
-- Author: Eric Bier on July 2, 1982 5:43 pm
-- Contents: Facilities for creating text files and writing out a human-readable version of a 3d object database

DIRECTORY
 DisplayList3d,
 IO,
 Rope,
 Shading;

Fileout3d: DEFINITIONS =

BEGIN

LightSourceList: TYPE = Shading.LightSourceList;
Scene: TYPE = REF SceneObj;
SceneObj: TYPE = DisplayList3d.SceneObj;

FileoutScene: PROC [scene: Scene, f: IO.STREAM, fileName: Rope.ROPE];
FileoutLightSources: PROC [f: IO.STREAM, lsl: LightSourceList];

END.