
<<GraphConvert.mesa, Copyright © 1985 by Xerox Corporation.  All rights reserved.>>
<<Last edited:>>
    <<Sweetsun Chen, October 10, 1985 9:50:56 pm PDT>>
<<>>
DIRECTORY
Imager USING [VEC],
ImagerFont USING [Font],
Graph USING [CaretIndex, Entity, EntityList, JustifX, JustifY, Mark, NullVec, ROPE, SegmentDataList, ValueList],
GraphPrivate USING [Angle, Operand];

GraphConvert: CEDAR DEFINITIONS = { OPEN Graph, GraphPrivate;

RopeOfPlace: PROC [p: Imager.VEC _ NullVec] RETURNS [s: ROPE _ NIL];
RopeSize: PROC [rope: ROPE _ NIL, font: ImagerFont.Font _ NIL] RETURNS[w, h: REAL _ 0.0];
RopeOfSlope: PROC [p1, p2: Imager.VEC _ NullVec] RETURNS [s: ROPE _ NIL];
RopeFromJustifX: PROC [justifX: JustifX] RETURNS [ROPE];
JustifXFromRope: PROC [jRope: ROPE] RETURNS [JustifX];
RopeFromJustifY: PROC [justifY: JustifY] RETURNS [ROPE];
JustifYFromRope: PROC [jRope: ROPE] RETURNS [JustifY];
RopeFromMark: PROC [mark: Mark] RETURNS [ROPE];
CharRopeFromMark: PROC [mark: Mark] RETURNS [ROPE];
MarkFromRope: PROC [mRope: ROPE] RETURNS [Mark];
RopeFromOperand: PROC [op: Operand] RETURNS [ROPE];
OperandFromRope: PROC [rOp: ROPE] RETURNS [Operand];
RopeFromAngle: PROC [angle: Angle] RETURNS [ROPE];
AngleFromRope: PROC [rA: ROPE] RETURNS [Angle];
RopeFromCaretIndex: PROC [index: CaretIndex _ primary] RETURNS [r: ROPE _ NIL];
RopeFromValueList: PROC [vector: ValueList _ NIL] RETURNS [r: ROPE _ NIL];
RopeFromSDL: PUBLIC PROC[segmentDataList: SegmentDataList _ NIL] RETURNS [r: ROPE _ NIL];
ValueListFromRope: PROC [r: ROPE _ NIL] RETURNS [vector: ValueList _ NIL, length, pos: INT _ 0];
RopeOfEntityListIds: PROC [entityList: EntityList _ NIL, exclude: Entity _ NIL] RETURNS [r: ROPE _ NIL];
}.

LOG.
SChen, created at October 9, 1985 6:00:24 pm PDT