File: Filein3d.mesa
Last edited by Eric Bier on July 30, 1984 0:49:29 am PDT
Copyright © 1984 by Xerox Corporation. All rights reserved.
Contents: Recreates a 3d database from a 3d text file of the sort produced by Fileout3d.mesa
DIRECTORY
IO,
Rope,
SVSceneTypes;
Filein3d: DEFINITIONS =
BEGIN
Scene: TYPE = SVSceneTypes.Scene;
FileinScene:
PROC [scene: Scene, f:
IO.
STREAM, wdirForAIS: Rope.
ROPE];
RopeNotOnTop: SIGNAL [position: NAT, wasThere: Rope.ROPE, notThere: Rope.ROPE];
END.