<> <> <> <> <> DIRECTORY IO, Rope, SVModelTypes, SVSceneTypes; SVFileoutPoly: DEFINITIONS = BEGIN Scene: TYPE = SVSceneTypes.Scene; StorePolyScene: PROC [scene: Scene, f: IO.STREAM, fileName: Rope.ROPE]; END.