[cherry]<Thyme>Cedar6.0>Graph>Scratch>GraphConvert.mesa!2

Last edited:

Sweetsun Chen, November 15, 1985 5:38:35 pm PST

DIRECTORY

Imager USING [VEC],

ImagerFont USING [Font],

Graph USING [Angle, CaretIndex, Entity, EntityList, GraphHandle, JustifX, JustifY, Mark, NullVec, Operand, ROPE, SegmentDataList, ValueList];

GraphConvert: CEDAR DEFINITIONS = { OPEN Graph;

RopeOfPlace: PROC [p: Imager.VEC] RETURNS [s: ROPE];

RopeSize: PROC [rope: ROPE, 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] RETURNS [r: ROPE];

RopeFromValueList: PROC [vector: ValueList] RETURNS [r: ROPE];

RopeFromSDL: PUBLIC PROC[segmentDataList: SegmentDataList] RETURNS [r: ROPE];

VLFromSDL: PROC [segmentDataList: SegmentDataList] RETURNS [valueList: ValueList];

ValueListFromRope: PROC [r: ROPE] RETURNS [vl, last: ValueList ← NIL, length, pos: INT ← 0];

RopeOfEntityListIds: PROC [entityList: EntityList, exclude: Entity ← NIL] RETURNS [r: ROPE];

RopeOfXYValues: PROC [entity: Entity] RETURNS [rope: ROPE];

VLsFromValues: PROC [handle: GraphHandle] RETURNS [vlx, vly, lastX, lastY: ValueList, msg: ROPE];

converts contents in the values viewer to xvl and yvl.

LOG.

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