DIRECTORY
BasicTime USING [GMT],
ImagerBox USING [Extents],
ImagerFont USING [CorrectionType],
ImagerTransformation USING [Transformation],
ImagerTypeface USING [Typeface],
IO USING [STREAM],
Prop USING [PropList],
RefTab USING [Ref],
Rope USING [ROPE],
Vector2 USING [VEC];

ImagerFDTypeface: CEDAR DEFINITIONS
= BEGIN

password: CARD32 = 19FD6A03H; -- the first four bytes of the file (big endian); low order byte is a version number.

ROPE: TYPE = Rope.ROPE;
VEC: TYPE = Vector2.VEC;
Transformation: TYPE = ImagerTransformation.Transformation;

Data: TYPE = REF DataRep;
DataRep: TYPE = RECORD [
fontExtents: ImagerBox.Extents,
commonLeftExtents: RealSeq,
commonRightExtents: RealSeq,
commonDescents: RealSeq,
commonAscents: RealSeq,
commonEscapements: RealSeq,
charToDeviceTransformations: TransformationSeq,
typefaceCellSeq: TypefaceCellSeq,
placementTransformations: TransformationSeq,
overflowCharInfoSeq: OverflowCharInfoSeq,
charInfoRunSeq: CharInfoRunSeq,
propList: Prop.PropList,
transformationCache: RefTab.Ref,
setTable: ARRAY CharSet OF CharRuns м ALL[NIL]
];

RealCode: TYPE = BYTE;
RealSeq: TYPE = REF RealSeqRep;
RealSeqRep: TYPE = RECORD[SEQUENCE size: NAT OF REAL];

TransformationSeq: TYPE = REF TransformationSeqRep;
TransformationSeqRep: TYPE = RECORD[SEQUENCE size: NAT OF Transformation];

CharSet: TYPE = BYTE;

CharRuns: TYPE = REF CharRunsRep; -- non-overlapping runs, sorted by bc
CharRunsRep: TYPE = RECORD [
link: CharRuns, -- self.link.bc > self.ec
bc, ec: BYTE,
s: SEQUENCE nt: NAT OF CharRunEntry -- indexed by easy Transformation code
];

CharRunEntry: TYPE = RECORD [
typefaceIndex: TypefaceIndex,
charInfoRunIndex: CharInfoRunIndex
];

CharInfoRunIndex: TYPE = NAT;
CharInfoRunSeq: TYPE = REF CharInfoRunSeqRep;
CharInfoRunSeqRep: TYPE = RECORD [SEQUENCE size: NAT OF CharInfoRun];
CharInfoRun: TYPE = REF CharInfoRunRep;
CharInfoRunRep: TYPE = RECORD [
xcCodeDelta: INT, -- Add to get translated code
bits: AmplCorr,
placementCode: CARDINAL, -- index into data.placementTransformations
s: SEQUENCE size: NAT OF CharInfo
];

AmplCorr: TYPE = PACKED RECORD [
amplified: BOOL м FALSE,
correction: ImagerFont.CorrectionType м mask
];

TypefaceIndex: TYPE = NAT;
TypefaceCellSeq: TYPE = REF TypefaceCellSeqRep;
TypefaceCellSeqRep: TYPE = RECORD [SEQUENCE size: NAT OF TypefaceCell];
TypefaceCell: TYPE = REF TypefaceCellRep;
TypefaceCellRep: TYPE = RECORD [
fontName: ROPE,
typeface: ImagerTypeface.Typeface м NIL,
createDate: BasicTime.GMT, -- for version checking against typeface.created
type: ATOM -- for version checking against typeface.class.type
];

InfoRepTag: TYPE = MACHINE DEPENDENT {short(0), verbose(1), (255)};
CharInfo: TYPE = PACKED RECORD [
SELECT tag: InfoRepTag FROM
short => [leftExtent, rightExtent, descent, ascent, escapementX, escapementY: RealCode],
verbose => [overflowIndex: OverflowIndex],
ENDCASE
];

OverflowIndex: TYPE = NAT;
OverflowCharInfoSeq: TYPE = REF OverflowCharInfoSeqRep;
OverflowCharInfoSeqRep: TYPE = RECORD [SEQUENCE size: NAT OF VerboseCharInfo];
VerboseCharInfo: TYPE = REF VerboseCharInfoRep;
VerboseCharInfoRep: TYPE = RECORD [extents: ImagerBox.Extents, escapement: VEC, propList: Prop.PropList м NIL];

FromStream: PROC [stream: IO.STREAM] RETURNS [Data];
FormatError: ERROR [diagnosis: ATOM, byteIndex: INT];

END.
   @  
ImagerFDTypeface.mesa
Copyright ╙ 1989, 1991 by Xerox Corporation.  All rights reserved.
Michael Plass, June 14, 1989 11:57:47 am PDT

NIL Transformation means resolution-independent
for compact representation of Kanji and fixed-width portions, if size=1 and bc#ec, then the charinfo applies for the entire range
Э╩>  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬЩKЪЬ
╧eЬ7ЩBKЩ,KЩ ЧЪ╧k	Ш	KЪЬ
ЮЬЮЬШKЪЬ
ЮЬШKЪЬЮЬШ"KЪЬЮЬШ,KЪЬЮЬШ KЪЮЬЮЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬЮЬШЧKШ KЪ╧nЬЮЬЮШ#ЪЬЮШKШ ЪЬ
ЮЬ╧f	Ь╧cUШsKШ ЧKЪЮЬЮЬЮЬШKЪЮЬЮЬЮЬШЪЬЮЬ'Ш;KШ ЧKЪЬЮЬЮЬ	ШЪЬ	ЮЬЮЬШKШKЪЬШKЪЬШKЪЬШKЪЬШKЪЬШЪЬ/Ш/KЪЮЬ,Щ/ЧKЪЬ!Ш!KЪЬ,Ш,KЪЬ)Ш)KЪЬШKЪЬШKШ KЪ	Ь
ЮЬ	ЮЬЮЬЮЬШ.ЪЬШKШ ЧЧKЪЬ
ЮЬЮЬШKЪЬ	ЮЬЮЬШЪЬЮЬЮЬЮЬЮЬЮЬЮЬШ6KШ ЧKЪЬЮЬЮЬШ3ЪЬЮЬЮЬЮЬЮЬЮЬШJKШ ЧЪЬ	ЮЬЮЬШKШ ЧKЪЬ
ЮЬЮЬб%ШGЪЬЮЬЮЬШKЪЬбШ)KЪЬЮЬШKЪЬЮЬЮЬЮЬб&ШJKЪЬШKШ ЧЪЬЮЬЮЬШKЪЬШKЪЬ"Ш"ШKШ ЧЧKЪЬЮЬЮЬШKЪЬЮЬЮЬШ-KЪЬЮЬЮЬЮЬЮЬЮЬШEKЪЬЮЬЮЬШ'ЪЬЮЬЮЬШKЪЬЮЬбШ/KЪЬШKЪЬЮЬб+ШDЪЬЮЬЮЬЮЬ	Ш!KЪЬБЩБЧKЪЬШKШ ЧЪЬ
ЮЬЮЬЮЬШ KЪЬЮЬЮЬШKЪЬ,Ш,KЪЬШKШ ЧKЪЬЮЬЮЬШKЪЬЮЬЮЬШ/KЪЬЮЬЮЬЮЬЮЬЮЬШGKЪЬЮЬЮЬШ)ЪЬЮЬЮЬШ KЪЬ
ЮЬШKЪЬ$ЮЬШ(KЪЬЮЬб0ШKKЪЬЮЬб3Ш>KЪЬШKШ ЧKЪЬЮЬЮЬЮ	ЬШCЪЬ
ЮЬЮЬЮЬШ ЪЮЬЮШKЪЬXШXKЪЬ*Ш*KЪЮШЧKЪЬШKШ ЧKЪЬЮЬЮЬШKЪЬЮЬЮЬШ7KЪЬЮЬЮЬЮЬЮЬЮЬШNKЪЬЮЬЮЬШ/KЪ	ЬЮЬЮЬ*ЮЬЮЬШoKШ KЪ
Я
ЬЮЬ
ЮЬЮЬЮЬШ4KЪЯЬЮЬЮЬЮЬШ5ЧKШ KЪЮЬШЧ ЕЧ    ф  b  