G2dImagerGraphCapture.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Michael Plass, February 7, 1986 12:27:17 pm PST
Jules Bloomenthal July 2, 1992 5:42 pm PDT
~
BEGIN
Graph:
TYPE ~
REF GraphRep;
GraphRep:
TYPE ~
RECORD [
SEQUENCE size:
NAT
OF Vertex];
Vertex: TYPE ~ REF VertexRep;
VertexRep:
TYPE ~
RECORD [
mark: BOOL ← FALSE,
index: NAT,
pos: Imager.VEC,
label: Rope.ROPE,
edgesOut: LIST OF NAT,
edgesIn: LIST OF NAT,
data: REF
];
CreateContext:
PROC [initalScale:
REAL]
RETURNS [Imager.Context];
GetGraph: PROC [context: Imager.Context] RETURNS [Graph];