GriffinToTA.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Read Griffin files and convert to Tioga Artwork files
Rick Beach, February 9, 1985 5:22:43 pm PST
Maureen Stone December 9, 1982 4:55 pm
DIRECTORY
GFileFormatDefs USING [GFileFont, GFileStyle, GFileObject],
NameSymbolTable USING [Name],
PairList USING [Relation],
Rope USING [ROPE],
Graphics USING [Path],
Vector USING [Vec];
GriffinToTA: CEDAR DEFINITIONS = {
ROPE: TYPE = Rope.ROPE;
GriffinFileError: SIGNAL[why: ROPE];
ViewType: TYPE = {main, alternate, both};
FontRef: TYPE = REF GFileFormatDefs.GFileFont;
StyleRef: TYPE = REF GFileFormatDefs.GFileStyle;
ObjectRef: TYPE = REF GFileFormatDefs.GFileObject;
PathRef: TYPE = Graphics.Path;
CaptionRef: TYPE = REF CaptionRec;
CaptionRec:
TYPE =
RECORD [
position: Vector.Vec,
text: ROPE];
ColorRef: TYPE = REF ColorRec;
ColorRec:
TYPE =
RECORD [
next: ColorRef,
name: ROPE,
h, s, b: REAL];
PathStyleRef: TYPE = REF PathStyleRec;
PathStyleRec:
TYPE =
RECORD [
-- empty fields are NIL or 0
next: PathStyleRef,
name: NameSymbolTable.Name,
areaColor: ColorRef,
outlineColor: ColorRef,
pathType: ROPE,
lineWeight: REAL];
CaptionStyleRef: TYPE = REF CaptionStyleRec;
CaptionStyleRec:
TYPE =
RECORD [
-- empty fields are NIL or 0
next: CaptionStyleRef,
name: NameSymbolTable.Name,
family: ROPE,
size: REAL,
face: ROPE,
charRotation: ROPE,
lineFormatting: ROPE,
textColor: ColorRef];
fontMap: PairList.Relation; -- <fontNumber, FontRef>
styleMap: PairList.Relation; -- <styleNumber, StyleRef>
objectMap: PairList.Relation; -- <objectNumber, ObjectRef>
pathMap: PairList.Relation; -- <objectNumber, PathRef>
captionMap: PairList.Relation; -- <objectNumber, CaptionRef>
clusterMap: PairList.Relation; -- <clusterNumber, objectNumber>
firstCluster, lastCluster: CARDINAL;
colors: ColorRef;
colorNumber: CARDINAL;
pathStyles: PathStyleRef;
pathStyleNumber: CARDINAL;
captionStyles: CaptionStyleRef;
captionStyleNumber: CARDINAL;
ConvertFile: PROCEDURE[fileName: ROPE, view: ViewType];
ConvertFileToJaM: PROCEDURE[fileName: ROPE, view: ViewType];
}.