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