-- File: Filein3d.mesa -- Last edited by Bier on December 18, 1982 1:25 am -- Author: Eric Bier on July 5, 1982 2:35 pm -- Contents: Recreates a 3d database from a 3d text file of the sort produced by Fileout3d.mesa DIRECTORY DisplayList3d, IO, Rope; Filein3d: DEFINITIONS = BEGIN Scene: TYPE = REF SceneObj; SceneObj: TYPE = DisplayList3d.SceneObj; FileinScene: PROC [scene: Scene, f: IO.STREAM]; -- RopeNotOnTop: SIGNAL [position: NAT, wasThere: Rope.ROPE, notThere: Rope.ROPE]; END.