[Cyan]<CedarChest6.0>SolidModeler>SVFiles.mesa!1

File: SVFiles.mesa

Last edited by Bier on June 1, 1984 5:19:46 pm PDT

Author: Eric Bier on July 29, 1984 4:37:48 pm PDT

Contents: Interfaces which make creating scenes look like opening files.

DIRECTORY

IO,

Rope,

SVSceneTypes;

SVFiles: DEFINITIONS =

BEGIN

Scene: TYPE = SVSceneTypes.Scene;

SceneTable: TYPE = LIST OF Scene;

OpenScene: PROC [picName: Rope.ROPE, wdirForAIS: Rope.ROPE] RETURNS [scene: Scene, success: BOOL];

SaveScene: PROC [updatedScene: Scene, picName: Rope.ROPE] RETURNS [success: BOOL];

StoreScene: PROC [unNamedScene: Scene, newPicName: Rope.ROPE] RETURNS [success: BOOL];

FileExists: PROC [fileName: Rope.ROPE] RETURNS [answer: BOOL];

OpenFile: PROC [picName: Rope.ROPE] RETURNS [f: IO.STREAM, success: BOOL];

FilenameMinusExtension: PROC [wholeName: Rope.ROPE] RETURNS [firstPart: Rope.ROPE];

END.