DIRECTORY
PressReader,
Real,
Rope,
SirPress,
TSArtwork,
TSOutputPress,
TextNode,
TSGraphic,
IO,
TSOutput,
TSTypes USING [Dimn, zeroDimn, RealDimn, DimnRatio, bp, Dimensions];
TSIncludePressImpl: CEDAR PROGRAM
IMPORTS PressReader, Real, Rope, SirPress, TSArtwork, TextNode, IO, TSTypes
= BEGIN OPEN TSTypes;

bytesPerPage: NAT ~ 512; -- as per press file format.
micasPerPoint: REAL = 2540.0/72.0;
pointsPerMica: REAL = 72.0/2540.0;

ObjectFromBranchProc: TYPE = TSArtwork.ObjectFromBranchProc;
ROPE: TYPE = Rope.ROPE;

IncludePressRec: TYPE = RECORD [pressFileName: ROPE, topMargin, leftMargin, height, width: REAL];

Break: PROC [char: CHAR] RETURNS [IO.CharClass] = {
IF char = ': THEN RETURN [break];
IF char = '  OR char = '	 OR char = ', OR char = '; OR char = '\n THEN RETURN [sepr];
RETURN [other];
};

GetName: PROC [stream: IO.STREAM] RETURNS [name: ROPE] ~ {
name _ NIL;
name _ IO.GetTokenRope[stream, Break ! IO.EndOfStream => CONTINUE].token;
};

GetBP: PROC [stream: IO.STREAM] RETURNS [REAL] = {
r: REAL _ IO.GetReal[stream];
unit: ROPE _ GetName[stream];
multipler: REAL _ SELECT TRUE FROM
unit.Equal["in"] => 72.0,
unit.Equal["pt"] => 72.0/72.27,
unit.Equal["cm"] => 72.0/2.54,
unit.Equal["mm"] => 72.0/25.4,
unit.Equal["bp"] => 1.0,
ENDCASE => 0.0;
IF multipler = 0.0 THEN ERROR;
RETURN [r*multipler];
};

IncludePressFromBranch: ObjectFromBranchProc = {
data: REF IncludePressRec _ NEW[IncludePressRec];
textNode: TextNode.RefTextNode _ TextNode.NarrowToTextNode[node];
nodeContents: ROPE _ textNode.rope;
stream: IO.STREAM _ IO.RIS[nodeContents];
data.pressFileName _ GetName[stream];
FOR i: NAT IN [0..4) DO
keyword: ROPE _ GetName[stream];
colon: ROPE _ GetName[stream];
IF colon.Equal[":"] THEN NULL ELSE ERROR;
SELECT TRUE FROM
keyword.Equal["TopMargin", FALSE] => data.topMargin _ GetBP[stream];
keyword.Equal["LeftMargin", FALSE] => data.leftMargin _ GetBP[stream];
keyword.Equal["Height", FALSE] => data.height _ GetBP[stream];
keyword.Equal["Width", FALSE] => data.width _ GetBP[stream];
ENDCASE => ERROR;
ENDLOOP;
object _ NEW[TSGraphic.ObjectRec];
object.paintProc _ IncludePressPaint;
object.layoutProc _ IncludePressLayout;
object.data _ data;
};

IncludePressLayout: TSGraphic.LayoutProc = {
data: REF IncludePressRec _ NARROW[self.data];
extent _ [zeroDimn, RealDimn[data.width, bp], zeroDimn, RealDimn[data.height, bp]];
};

IncludePressPaint: TSGraphic.PaintProc = {
data: REF IncludePressRec _ NARROW[self.data];
handle: TSOutput.Handle _ NARROW[context];
pressState: TSOutputPress.PressState _ NARROW[handle.outputState];
pressHandle: SirPress.PressHandle _ pressState.pressHandle;
pressFile: PressReader.Handle _ PressReader.OpenPressFile[data.pressFileName];
fontTable: REF ARRAY [0..6*16) OF PressReader.FontDirectoryEntry _ NEW[ARRAY [0..6*16) OF PressReader.FontDirectoryEntry];
xTranslate: INT _ Real.RoundLI[(DimnRatio[originX, bp] - data.leftMargin)*micasPerPoint];
yTranslate: INT _ Real.RoundLI[(DimnRatio[originY, bp] - (11*72-data.topMargin))*micasPerPoint];
FontInitProc: PressReader.FontEntryProc = {  -- build a list of needed fonts
fontTable[fontDirectoryEntry.fontSet*16 + fontDirectoryEntry.font] _ fontDirectoryEntry;
}; -- FontInitProc

PageProc: PressReader.PageProc = {
EntityProc: PressReader.EntityProc = {  -- Xe, Ye, fontSet
xe: INT _ entityTrailer.Xe + xTranslate;
ye: INT _ entityTrailer.Ye + yTranslate;
x: INT _ xe;
y: INT _ ye;
currentFont: PressReader.FontDirectoryEntry;  -- will be established by setFont
currentSpaceX, currentSpaceY: INT;  --  will be established by setFont
hue: REAL _ 0.0;
saturation: REAL _ 1.0;
brightness: REAL _ 0.0;
skipAlternative, inAlternative: BOOL _ FALSE;
reposition: BOOLEAN _ FALSE;
showCharactersProc: PressReader.ShowCharactersProc = {
IF skipAlternative THEN RETURN;
IF reposition THEN {pressHandle.PutText[text, x, y]; reposition _ FALSE}
ELSE pressHandle.PutTextHere[text];
};  -- showCharactersProc
fontProc: PressReader.FontProc = {
IF skipAlternative THEN RETURN;
currentFont _ fontTable[entityTrailer.fontSet*16+font];
IF currentFont.family.Length # 0 THEN
pressHandle.SetFont[currentFont.family, currentFont.size, currentFont.face.encoding, currentFont.rotation];
};
positionProc: PressReader.PositionProc = {
IF skipAlternative THEN RETURN;
IF opCode = setX THEN x _ xe + value
ELSE y _ ye + value;
reposition _ TRUE;
};
spacingProc: PressReader.SpacingProc = {
IF skipAlternative THEN RETURN;
SELECT opCode FROM
setSpaceX, setSpaceXShort => currentSpaceX _ value;
setSpaceY, setSpaceYShort => currentSpaceY _ value;
resetSpace => {
currentSpaceX _ 200;
currentSpaceY _ 0;
};
ENDCASE => ERROR;
IF opCode = resetSpace THEN pressHandle.ResetSpace ELSE pressHandle.SetSpace[currentSpaceX, currentSpaceY];
};
spaceProc: PressReader.SpaceProc = {
showCharactersProc[showCharacterImmediate, 1, " "];
};
colorProc: PressReader.ColorProc = {
IF skipAlternative THEN RETURN;
SELECT opCode FROM
setHue => pressHandle.SetHue[value];
setSaturation => pressHandle.SetSaturation[value];
setBrightness => pressHandle.SetBrightness[value];
ENDCASE => ERROR;
};
showRectangleProc: PressReader.ShowRectangleProc = {
IF skipAlternative THEN RETURN;
pressHandle.PutRectangle[x, y, width, height];
};
alternativeProc: PressReader.AlternativeProc = {
IF (types = 0) AND (elBytes = 0) AND (dlBytes = 0) THEN
inAlternative _ skipAlternative _ FALSE
ELSE IF inAlternative THEN skipAlternative _ TRUE
ELSE inAlternative _ TRUE;
};
showObjectProc: PressReader.ShowObjectProc = {
moveToProc: PressReader.MoveToProc = {pressHandle.PutMoveTo[x: x+xe, y: y+ye]};
drawToProc: PressReader.DrawToProc = {pressHandle.PutDrawTo[x: x+xe, y: y+ye]};
drawCurveProc: PressReader.DrawCurveProc = {
pressHandle.PutCubic[cX, cY, bX, bY, aX, aY];
};

IF skipAlternative THEN RETURN;
pressHandle.StartOutline;
pressFile.GetObject[moveToProc, drawToProc, drawCurveProc];
pressHandle.EndOutline;
};  -- showObjectProc
showDotsProc: PressReader.ShowDotsProc = {
codingType, dotsPerLine, scanLines, passDots, displayDots, passLines, displayLines: INT _ 0;
scanMode: CARDINAL _ 0;
windowWidth, windowHeight: INT _ 0;
dotInfo: PressReader.Dots;
samplingInfo: LIST OF PressReader.SamplingProperty _ NIL;
setCodingProc: PressReader.SetCodingProc  = {
codingType _ code;
windowWidth _ dotsPerLine _ displayDots _ dots;
windowHeight _ scanLines _ displayLines _ lines;
};
setModeProc: PressReader.SetModeProc = {scanMode _ mode};
setWindowProc: PressReader.SetWindowProc = {
passDots _ pd;
displayDots _ dd;
passLines _ pl;
displayLines _ dl;
};
setSizeProc: PressReader.SetSizeProc = {
windowWidth _ width;
windowHeight _ height;
};
setSamplingPropertiesProc: PressReader.SetSamplingPropertiesProc = {
samplingInfo _ samplingProperties;
};
dotsFollowProc: PressReader.DotsFollowProc = {
dotInfo _ dots;
};
ScratchRec: TYPE ~ RECORD [SEQUENCE length: NAT OF WORD];
scratch: REF ScratchRec;
bytesPerLine: INT _ 0;
IF skipAlternative THEN RETURN;
pressFile.GetDots[setCodingProc, setModeProc, setWindowProc, setSizeProc, setSamplingPropertiesProc, dotsFollowProc];
scratch _ NEW[ScratchRec[(dotsPerLine+3)/2]];
pressHandle.BeginScannedRectangle[
x: x, y: y,
dotsPerLine: dotsPerLine,
numberOfLines: scanLines,
width: windowWidth,
height: windowHeight,
nextLineDirection: LOOPHOLE[scanMode MOD 4],
nextDotDirection: LOOPHOLE[scanMode / 4],
coding: SELECT codingType FROM
0 => bitMap,
1 => bitSampled,
2 => bitBitSampled,
4 => nybbleSampled,
8 => byteSampled,
ENDCASE => ERROR
];
bytesPerLine _ (MAX[codingType, 1] * dotsPerLine + 7)/8;
scratch[bytesPerLine/2] _ 0; -- make sure array is big enough
dotInfo.file.SetIndex[INT[dotInfo.pageNumber]*bytesPerPage+dotInfo.byteOffset];
FOR i: INT IN [0..scanLines) DO
TRUSTED {[] _ dotInfo.file.UnsafeGetBlock[[base: (LOOPHOLE[@scratch[0]]), startIndex: 0, count: bytesPerLine]]};
TRUSTED {pressHandle.UnsafeShowLine[@scratch[0]]};
ENDLOOP;
pressHandle.EndScannedRectangle;
};  -- showDotsProc

fontProc[0];
pressHandle.SetColor[0, 0, 0];
pressFile.GetCommands[
showCharactersProc: showCharactersProc,
fontProc: fontProc,
positionProc: positionProc,
spacingProc: spacingProc,
spaceProc: spaceProc,
colorProc: colorProc,
showRectangleProc: showRectangleProc,
alternativeProc: alternativeProc,
showObjectProc: showObjectProc,
showDotsProc: showDotsProc
];

}; -- EntityProc

pressFile.GetPage[EntityProc];
};  -- PageProc
SkipFonts: PressReader.FontDirectoryProc = {
};
pressFile.GetFonts[FontInitProc];
pressFile.GetParts[pageNumber, PageProc, SkipFonts];
pressFile.ClosePressFile[];
};

pageNumber: INT _ 1;

TSArtwork.Register["IncludePress", IncludePressFromBranch];

END.
LTSIncludePressImpl.mesa
Michael Plass, August 2, 1985 9:27:42 am PDT
ΚŸ–

"cedar" style˜–

"cedar" styleš
œ™J–

"cedar" style™,
unit–

"cedar" styleš
Οk	˜	J–

"cedar" style˜J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ	˜	J–

"cedar" styleš
œ
˜
J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ	˜	J–

"cedar" styleš
œ
˜
J–

"cedar" styleš
œ˜J–

"cedar" style˜	J–

"cedar" stylešœœ7˜D——–

"cedar" stylešœœ
˜!J–

"cedar" stylešœ9œ	˜KJ–

"cedar" stylešœœ
œ	˜J–

"cedar" style˜J–

"cedar" stylešœœΟc˜5J–

"cedar" stylešœœ˜"J–

"cedar" stylešœœ˜"J–

"cedar" style˜J–

"cedar" stylešœœ"˜<J–

"cedar" stylešœœœ
˜J–

"cedar" style˜J–

"cedar" styleš	œœœœ(œ˜aJ–

"cedar" style˜–

"cedar" styleš
Οnœœœœœ˜3Jšœœ
œ	˜!Jšœœœœœœ
œ˜UJšœ	˜Jš
œ˜—J–

"cedar" style˜šŸœœ
œ
œœœ˜:Jšœœ
˜Jšœœœœ˜IJ˜J˜—–

"cedar" stylešŸœœ
œ
œœœ˜2Jšœœœ˜Jšœœ˜šœœœ
œ
˜"Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jšœ˜—Jšœœ
œ
˜Jšœ˜Jš
œ˜—J–

"cedar" style˜–

"cedar" styleš
œ0˜0Jšœœœ˜1Jš
œA˜AJšœœ˜#Jš	œœ
œœ
œ˜)Jš
œ%˜%šœœ
œ˜Jšœ	œ˜ Jšœœ˜Jš
œœ
œ
œ
œ
˜)šœ
œ
˜Jšœœ$˜DJšœœ%˜FJšœœ!˜>Jšœœ ˜<Jšœœ
˜—Jšœ
˜—Jšœ	œ˜"Jš
œ%˜%Jš
œ'˜'Jš
œ˜Jš
œ˜—J–

"cedar" style˜–

"cedar" styleš
œ,˜,Jšœœœ˜.Jš
œS˜SJš
œ˜—J–

"cedar" style˜–

"cedar" stylešŸœ˜*Jšœœœ˜.Jšœœ
˜*Jšœ'œ˜BJš
œ;˜;Jš
œN˜NJš
œœ
œœ"œ
œœ!˜zJšœœJ˜YJšœœQ˜`–

"cedar" stylešŸœž!˜LJ–

"cedar" styleš
œX˜XJ–

"cedar" stylešœž˜—J–

"cedar" style˜–

"cedar" styleš
œ"˜"–

"cedar" stylešœ(ž˜:J–

"cedar" stylešœœ!˜(J–

"cedar" stylešœœ!˜(J–

"cedar" stylešœœ˜J–

"cedar" stylešœœ˜J–

"cedar" stylešœ.ž!˜OJ–

"cedar" stylešœœž"˜FJ–

"cedar" stylešœœ˜J–

"cedar" stylešœœ˜J–

"cedar" stylešœœ˜J–

"cedar" stylešœ œœ
˜-J–

"cedar" stylešœœœ
˜–

"cedar" styleš
œ6˜6J–

"cedar" stylešœœ
œ
˜J–

"cedar" stylešœœ0œ
˜HJ–

"cedar" stylešœ˜#J–

"cedar" stylešœž˜—–

"cedar" styleš
œ"˜"J–

"cedar" stylešœœ
œ
˜J–

"cedar" styleš
œ7˜7–

"cedar" stylešœ˜%J–

"cedar" styleš
œk˜k—J–

"cedar" style˜—–

"cedar" styleš
œ*˜*J–

"cedar" stylešœœ
œ
˜J–

"cedar" stylešœœ˜$J–

"cedar" stylešœ˜J–

"cedar" stylešœ
œ
˜J–

"cedar" style˜—–

"cedar" styleš
œ(˜(J–

"cedar" stylešœœ
œ
˜–

"cedar" stylešœ˜J–

"cedar" styleš
œ3˜3J–

"cedar" styleš
œ3˜3–

"cedar" styleš
œ˜J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ˜J˜—J–

"cedar" stylešœœ
˜—J–

"cedar" stylešœœœ4˜kJ–

"cedar" style˜—–

"cedar" styleš
œ$˜$J–

"cedar" styleš
œ3˜3J–

"cedar" style˜—–

"cedar" styleš
œ$˜$J–

"cedar" stylešœœ
œ
˜–

"cedar" stylešœ˜Jš
œ$˜$Jš
œ2˜2Jš
œ2˜2Jšœœ
˜—J–

"cedar" style˜—–

"cedar" styleš
œ4˜4J–

"cedar" stylešœœ
œ
˜J–

"cedar" styleš
œ.˜.J–

"cedar" style˜—–

"cedar" styleš
œ0˜0–

"cedar" stylešœ
œœ˜7J–

"cedar" stylešœ"˜'—J–

"cedar" stylešœ
œœ˜1J–

"cedar" stylešœœ
˜J–

"cedar" style˜—–

"cedar" styleš
œ.˜.K–

"cedar" styleš
œO˜OK–

"cedar" styleš
œO˜O–

"cedar" styleš
œ,˜,J–

"cedar" styleš
œ-˜-J–

"cedar" styleš
œ˜—J–

"cedar" style˜J–

"cedar" stylešœœ
œ
˜J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ;˜;J–

"cedar" styleš
œ˜J–

"cedar" stylešœž˜—–

"cedar" styleš
œ*˜*J–

"cedar" stylešœTœ˜\J–

"cedar" stylešœ
œ˜J–

"cedar" stylešœœ˜#J–

"cedar" style˜J–

"cedar" stylešœœ
œ œ
˜9–

"cedar" stylešŸ
œ ˜-J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ/˜/J–

"cedar" styleš
œ0˜0J–

"cedar" style˜—K–

"cedar" stylešŸœ.˜9–

"cedar" stylešŸ
œ˜,J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ˜J–

"cedar" style˜—–

"cedar" stylešŸœ˜(J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ˜—–

"cedar" stylešŸœ+˜DJ–

"cedar" styleš
œ"˜"J–

"cedar" style˜—–

"cedar" stylešŸœ ˜.J–

"cedar" style˜J–

"cedar" style˜—J–

"cedar" styleš
œœœœ	œ
œ
œ˜9J–

"cedar" stylešœ	œ˜J–

"cedar" stylešœœ˜J–

"cedar" stylešœœ
œ
˜J–

"cedar" styleš
œu˜uJ–

"cedar" stylešœ
œ ˜-–

"cedar" styleš
œ"˜"J–

"cedar" style˜J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ˜J–

"cedar" stylešœœ
œ˜,J–

"cedar" stylešœœ˜)–

"cedar" stylešœœ˜J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ˜J–

"cedar" stylešœ˜—J˜—Jšœœ%˜8Jšœž ˜=Jšœœ6˜Ošœœ
œ˜Jšœ+œ6˜pJšœ+˜2Jšœ
˜—J–

"cedar" styleš
œ ˜ J–

"cedar" stylešœž˜—J–

"cedar" style˜J–

"cedar" style˜J–

"cedar" styleš
œ˜–

"cedar" styleš
œ˜J–

"cedar" styleš
œ'˜'J–

"cedar" styleš
œ˜J–

"cedar" style˜J–

"cedar" style˜J–

"cedar" style˜J–

"cedar" style˜J–

"cedar" style˜%J–

"cedar" style˜!J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ˜J–

"cedar" styleš
œ˜J–

"cedar" style˜—J–

"cedar" stylešœž
˜—J–

"cedar" style˜J–

"cedar" style˜J–

"cedar" stylešœž˜—š
œ,˜,J–

"cedar" styleš
œ˜—J–

"cedar" styleš
œ!˜!J–

"cedar" styleš
œ4˜4J–

"cedar" styleš
œ˜Jš
œ˜—J–

"cedar" style˜J–

"cedar" stylešœœ˜J–

"cedar" style˜J–

"cedar" styleš
œ;˜;J–

"cedar" style˜J–

"cedar" stylešœ
˜——…—!€7k