DIRECTORY
CD,
CDBasics,
CDCommandOps,
CDExtras,
CDIO,
CDMenus,
CDOps,
CDProperties,
CDSequencer,
CDTexts,
FS,
Imager,
ImagerInterpress,
IO,
Real,
RefTab,
Rope,
SymTab,
TerminalIO;

CDInterpressPlotImpl: CEDAR PROGRAM
IMPORTS CD, CDBasics, CDCommandOps, CDExtras, CDIO, CDMenus, CDOps, CDProperties, CDSequencer, CDTexts, FS, Imager, ImagerInterpress, IO, Real, RefTab, Rope, SymTab, TerminalIO =
BEGIN


standardPageX: REAL = 0.216; --(72*8.5; points) United States standard page with....
standardPageY: REAL = 0.277; --(72*11.0; points)
versatecDeviceX: REAL = 0.97; --of the very special versatec plotter sitting close to my office... It really doe not store in this constant the with of any other versatec plotter available...

c400PageX: REAL = 0.292;
c400PageY: REAL = 0.419;


defaultPageX: REAL _ standardPageX;
defaultPageY: REAL _ standardPageY;
defaultStripeX: REAL _ versatecDeviceX;     
defaultBorder: REAL _ Imager.metersPerInch;
defaultScale: REAL _ 0; --Imager.metersPerPoint/comm.design.technology.lambda


abortFlag: REF BOOL = NEW[BOOL_FALSE];
fileNameDefault: Rope.ROPE _ "///temp/temp.IP";
normalsetUp: BOOL _ FALSE;

pageX: REAL; 
pageY: REAL;      
contextFilter: REF CD.ContextFilter = NEW[CD.ContextFilter_ALL[Imager.black]];

RectToRectangle: PROC [r: CD.Rect] RETURNS [Imager.Rectangle] = 
BEGIN
RETURN [[x: r.x1, y: r.y1, w: r.x2-r.x1, h: r.y2-r.y1]]
END;

ResetContextFilter: PROC [ignoreProperties: BOOL _ TRUE] =
BEGIN
normalsetUp _ ignoreProperties;
FOR layer: CD.Layer IN CD.Layer DO
IF ignoreProperties THEN contextFilter[layer] _ Imager.black
ELSE contextFilter[layer] _ NIL;
CDProperties.PutPropOnLayer[layer, $CDxInterpressPlot, NIL]; 
ENDLOOP;
contextFilter[CD.backGround] _ NIL;
END;

SetUpContextFilter: PROC [] =
BEGIN
normalsetUp _ FALSE;
FOR layer: CD.Layer IN CD.Layer DO
IF CDProperties.GetPropFromLayer[layer, $CDxInterpressPlot]=$do THEN 
contextFilter[layer] _ Imager.black
ELSE contextFilter[layer] _ NIL;
ENDLOOP;
contextFilter[CD.backGround] _ NIL;
END;

HardCopyCommand: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["HardCopy\n"]; 
abortFlag^ _ FALSE;
[] _ CDCommandOps.CallWithResource[
proc: ProtectedHardCopy, 
comm: comm, 
resource: $CDSimplePlotImpl, 
abortFlag: abortFlag
];
END;

ProtectedHardCopy: PROC [comm: CDSequencer.Command] =
BEGIN
fileName: Rope.ROPE _ fileNameDefault;
pageNumX: INT _ 1; --number of vertical stripes
pageNumY: INT _ 1; --number of horizontal stripes
nX, nY: INT; --number of current page
borderX, borderY: REAL; --border of page
absolutelyNoAdjustments: BOOL _ FALSE;
ref: ImagerInterpress.Ref;
dr: CD.DrawRef;
clip: CD.Rect;
start: CD.Position;
sizePerPage: CD.Position;
scale: REAL;
substituteFonts: BOOL _ FALSE;
deviceTranslation: Imager.VEC _ [0, 0];
help: Rope.ROPE_NIL;

PlotPage: PROC [context: Imager.Context] =
BEGIN
r: CD.Rect _ CDBasics.RectAt[start, sizePerPage];
r _ CDBasics.Intersection[r, clip];
IF ~CDBasics.NonEmpty[r] THEN RETURN;
IF abortFlag^ THEN RETURN;
Imager.TranslateT[context, deviceTranslation];
Imager.ScaleT[context, scale];
Imager.TranslateT[context, [-r.x1, -r.y1]];
Imager.ClipRectangle[context, RectToRectangle[r]];
dr _ CD.CreateDrawRef[comm.design, context];
dr.minimalSize _ 0;
dr.stopFlag _ abortFlag;
dr.contextFilter _ contextFilter;
dr.interestClip _ r;
IF substituteFonts THEN {
dr.specialFonts _ TRUE;
CDProperties.PutProp[dr.properties, $FontExchange, fontReplace];
};
CDOps.DrawDesign[comm.design, dr];
END;

PreAmble: PROC [ref: ImagerInterpress.Ref, contextFilter: REF CD.ContextFilter] =
BEGIN
declared: RefTab.Ref _ RefTab.Create[];
FOR layer: CD.Layer IN CD.Layer DO
IF contextFilter[layer]#NIL THEN 
IF RefTab.Insert[declared, contextFilter[layer], contextFilter[layer]] THEN
ImagerInterpress.DeclareColor[ref, contextFilter[layer]]
ENDLOOP;
declared _ NIL;
END;

SetUp: PROC [] =
BEGIN

RequestBorder: PROC [anyWay: BOOL _ FALSE] =
BEGIN
borderY _ borderX _ 0;
IF (anyWay AND ~special) THEN borderY _ borderX _ defaultBorder
ELSE {
SELECT TerminalIO.RequestSelection[label: "border", choice: LIST["yes", "fill space", "never"]] FROM
1 => borderY _ borderX _ defaultBorder;
3 => absolutelyNoAdjustments _ TRUE;
ENDCASE => NULL;
}
END;

SetUpVaryingScaling: PROC [clip: CD.Rect] =
BEGIN
insidePageX, insidePageY: REAL; --what fits in a page without border
IF special AND TerminalIO.Confirm["multiple pages ?"] THEN {
pageNumX _ TerminalIO.RequestInt["Number of pages in x direction? >"];
IF pageNumX<1 OR pageNumX>20 THEN {
TerminalIO.WriteRope[" to bad\n"];
ERROR ABORTED
};
}
ELSE {
pageNumX _ 0;
};
RequestBorder[anyWay: pageNumX=0];
insidePageX _ pageX-2*borderX; 
insidePageY _ pageY-2*borderY;
IF pageNumX=0 THEN { 
pageNumY _ 1;
pageNumX _ 1;
sizePerPage _ CDBasics.SizeOfRect[clip];
scale _ MIN[insidePageX/sizePerPage.x, insidePageY/sizePerPage.y];
}
ELSE {
sizePerPage.x _ (clip.x2-clip.x1)/pageNumX+1;
sizePerPage.y _ Real.Fix[insidePageY*((sizePerPage.x-1.0)/insidePageX)];
scale _ insidePageX/sizePerPage.x;
pageNumY _ ( (clip.y2-clip.y1)+(sizePerPage.y-1) )/sizePerPage.y;
};
help _ IF pageY=c400PageY THEN " Example usage:\n    InterpressToPD tem.pd _ ///temp/temp.IP bw400\n" ELSE " Example usage:\n    InterpressToPD tem.pd _ ///temp/temp.IP raven384\n";
END;--SetUpVaryingScaling

SetUpStriped: PROC [clip: CD.Rect] =
BEGIN
borderY _ defaultBorder;
borderX _ 0;
pageNumY _ 1;
IF special AND TerminalIO.Confirm["multiple stripes ?"] THEN {
pageNumX _ TerminalIO.RequestInt["How many stripes? >"];
IF pageNumX<1 OR pageNumX>20 THEN {
TerminalIO.WriteRope[" to bad\n"];
ERROR ABORTED
}
}
ELSE {
pageNumX _ 1;
};
help _ " Example usage:\n    InterpressToPD tem.pd _ ///temp/temp.IP versatec\n";
sizePerPage.x _ (clip.x2-clip.x1)/pageNumX;
sizePerPage.y _ clip.y2-clip.y1;
scale _ pageX/sizePerPage.x;
pageY _ scale*sizePerPage.y+2*borderY;
END;

SetUpFixedScaling: PROC [clip: CD.Rect] =
BEGIN
borderAnyway: BOOL;
scale _ defaultScale;
borderAnyway _ 
( (clip.x2-clip.x1)*scale < (pageX - 0.05) ) AND 
( (clip.y2-clip.y1)*scale < (pageY - 0.05) );
RequestBorder[borderAnyway];
sizePerPage.x _ Real.Round[(pageX-2*borderX)/scale];
sizePerPage.y _ Real.Round[(pageY-2*borderY)/scale];
pageNumX _ (clip.x2-clip.x1+sizePerPage.x-1)/sizePerPage.x;
pageNumY _ (clip.y2-clip.y1+sizePerPage.y-1)/sizePerPage.y;
help _ IF pageY=c400PageY THEN " Example usage:\n    InterpressToPD tem.pd _ ///temp/temp.IP bw400\n" ELSE " Example usage:\n    InterpressToPD tem.pd _ ///temp/temp.IP raven384\n";
END;

AdjustPosition: PROC [] =
BEGIN
IF absolutelyNoAdjustments THEN RETURN;
IF pageNumX=1 THEN {
borderX _ MIN[(pageX - (clip.x2-clip.x1)*scale)/2, defaultBorder];
};
IF pageNumY=1 THEN {
pictureHeight: REAL _ (clip.y2-clip.y1)*scale;
borderY _ MAX[pageY-defaultBorder-pictureHeight, (pageY-pictureHeight)/2];
};
END;

SubstituteFonts: PROC =
BEGIN
SELECT TerminalIO.RequestSelection["substitute fonts ?", LIST["no substitution", "standard substitution file", "user substitution file"]] FROM
2 => {
substituteFonts _ TRUE;
TerminalIO.WriteRope["use standard font substitution file\n"];
fontTab _ InitFontTab[];
};
3 => {
r: Rope.ROPE;
r _ TerminalIO.RequestRope["fullpath name for font substitution file > "];
substituteFonts _ TRUE;
fontTab _ InitFontTab[r];
};
ENDCASE => {
TerminalIO.WriteRope["don't substitute fonts\n"];
substituteFonts _ FALSE;
};
END;

GetClipRect: PROC [comm: CDSequencer.Command] =
BEGIN
n: INT _ TerminalIO.RequestSelection[label: "plot area", 
choice: LIST["complete design", "area of selection", "drawn rectangle"]
];
SELECT n FROM
3 => {
TerminalIO.WriteRope["plot rectangular area drawn\n"];
clip _ CDBasics.ToRect[comm.pos, comm.sPos];
};
2 => {
TerminalIO.WriteRope["plot area of selection\n"];
clip _ CDExtras.SelectedBox[comm.design];
};
ENDCASE => {
TerminalIO.WriteRope["plot complete design\n"];
clip _ CDExtras.BoundingBox[comm.design];
};
IF ~CDBasics.NonEmpty[clip] THEN {
TerminalIO.WriteRope["clip rectangle is empty\n"];
ERROR ABORTED
};
END;

GetMedium: PROC [] =
BEGIN
special _ FALSE;
fixedScale _ FALSE;
striped _ FALSE;
SELECT TerminalIO.RequestSelection["Plot", LIST["standard page and scale", "fill standard page", "fill versatec stripe", "fill c400 page", "other"]] FROM
1 => {
fixedScale _ TRUE;
TerminalIO.WriteRope["standard page and scale\n"];
};
3 => {
striped _ TRUE;
pageX _ defaultStripeX;
TerminalIO.WriteRope["fill versatec stripe\n"];
};
4 => {
pageX _ c400PageX;
pageY _ c400PageY;
TerminalIO.WriteRope["fill c400 page\n"];
};
5 => {
TerminalIO.WriteRope["special:\n"];
special _ TRUE;
SELECT TerminalIO.RequestSelection["Plot", LIST["fill standard pages", "fill versatec stripes", "standard scale standard pages", "fill c400 pages", "standard scale c400 pages"]] FROM
1 => {
TerminalIO.WriteRope["fill standard pages\n"];
};
2 => {
striped _ TRUE;
pageX _ defaultStripeX;
TerminalIO.WriteRope["fill versatec stripes\n"];
};
3 => {
fixedScale _ TRUE;
TerminalIO.WriteRope["standard scale standard pages\n"];
};
4 => {
pageX _ c400PageX;
pageY _ c400PageY;
TerminalIO.WriteRope["fill c400 pages\n"];
};
5 => {
pageX _ c400PageX;
pageY _ c400PageY;
fixedScale _ TRUE;
TerminalIO.WriteRope["standard scale c400 pages\n"];
};
ENDCASE => ERROR ABORTED;
};
--2,-- ENDCASE => {
TerminalIO.WriteRope["fill standard page\n"];
};
END; --GetMedium

--Setup
special: BOOL _ FALSE;
clipRect: BOOL _ FALSE;
fixedScale: BOOL _ FALSE;
striped: BOOL _ FALSE;
defaultScale _ Imager.metersPerPoint/comm.design.technology.lambda;
IF ~normalsetUp THEN {
TerminalIO.WriteRope["** SPECIAL COLORS\n"];  
SetUpContextFilter[]
};
pageX _ defaultPageX;
pageY _ defaultPageY;
fontTab _ NIL;
SubstituteFonts[];
GetClipRect[comm];
GetMedium[];
sizePerPage _ CDBasics.SizeOfRect[clip];
IF striped THEN SetUpStriped[clip]
ELSE IF fixedScale THEN SetUpFixedScaling[clip] 
ELSE SetUpVaryingScaling[clip];
AdjustPosition[];
TerminalIO.WriteF["  printing %01g rows and %01g columns\n", IO.int[pageNumX], IO.int[pageNumY]];
END; --Setup

SetUp[];
ref _ ImagerInterpress.Create[fileName];
PreAmble[ref, contextFilter];
deviceTranslation _ [borderX, borderY];
FOR nX IN [0..pageNumX) DO
FOR nY IN [0..pageNumY) DO
IF abortFlag^ THEN EXIT;
start.x _ clip.x1+nX*sizePerPage.x;
start.y _ clip.y1+nY*sizePerPage.y;
ImagerInterpress.DoPage[ref, PlotPage];
ENDLOOP;
ENDLOOP;
ImagerInterpress.Close[ref];
TerminalIO.WriteF1["  ""%01g"" created\n", IO.rope[fileName]];
IF ~Rope.IsEmpty[help] THEN TerminalIO.WriteRope[help];
IF ~abortFlag^ THEN TerminalIO.WriteRope[" done\n"]; 
END;

--************************************************

fontTab: SymTab.Ref;
wDir: Rope.ROPE;

fontReplace: REF PROC [CDTexts.CDFont] RETURNS [CDTexts.CDFont] 
_ NEW[PROC [CDTexts.CDFont] RETURNS [CDTexts.CDFont] _ FontReplace];

FontKeyRope: PROC[name: Rope.ROPE, scale: INT] RETURNS[key: Rope.ROPE] =
BEGIN
RETURN[ IO.PutFR["%g-%g", IO.rope[name], IO.int[scale] ]]
END;

FontReplace: PROC [cdFont: CDTexts.CDFont] RETURNS [CDTexts.CDFont] =
BEGIN
newFont: CDTexts.CDFont _ NIL;
fontKey: Rope.ROPE _ FontKeyRope[cdFont.supposedName, cdFont.scaleI];
WITH SymTab.Fetch[fontTab, fontKey].val SELECT FROM
f: CDTexts.CDFont => RETURN [f];
f: REF CDTexts.FontRec => RETURN [f];
ENDCASE => NULL;
WITH SymTab.Fetch[fontTab, cdFont.supposedName].val SELECT FROM 
l: LIST OF REF ANY => {
IF l.first#NIL AND l.rest#NIL AND l.rest.rest=NIL THEN {
scale: INT _ 0;
name: Rope.ROPE _ CDExtras.ToRope[l.first];
WITH l.rest.first SELECT FROM
ri: REF INT => scale _ ri^*cdFont.scaleI
ENDCASE => NULL;
IF scale>0 AND ~Rope.IsEmpty[name] THEN {
newFont _ CDTexts.MakeFont[name, scale];
IF newFont#NIL THEN { 
x: REF CDTexts.FontRec;
TRUSTED {x _ LOOPHOLE[newFont]};
[] _ SymTab.Store[fontTab, fontKey, x];
}
};
}
};
f: CDTexts.CDFont => newFont _ f;
f: REF CDTexts.FontRec => newFont _ f;
ENDCASE => NULL;
IF newFont=NIL THEN newFont_cdFont;
RETURN [newFont]
END;

InitFontTab: PROC [fileName: Rope.ROPE_NIL] RETURNS [fontTab: SymTab.Ref] = 
BEGIN

OneLine: PROC [line: Rope.ROPE] =
BEGIN
stream: IO.STREAM _IO.RIS[line];
scale: INT;
subst, by: Rope.ROPE;
subst _ IO.GetRopeLiteral[stream];
by _ IO.GetRopeLiteral[stream];
scale _ IO.GetInt[stream];
[] _ fontTab.Store[subst, LIST[by, NEW[INT_scale]]];
END;

file: IO.STREAM _ NIL;
fontTab _ SymTab.Create[];
IF Rope.IsEmpty[fileName] THEN fileName _ "CDSubstituteFonts";
fileName _ CDIO.MakeName[base: fileName, ext: "SubstituteFonts", wDir: wDir];
file _ FS.StreamOpen[fileName ! FS.Error => {
TerminalIO.WriteRopes["no font substitution: ", error.explanation, "\n"]; 
GOTO thatsIt
}];
DO
line: Rope.ROPE;
line _ IO.GetLineRope[file ! IO.EndOfStream => GOTO thatsIt];
IF ~Rope.IsEmpty[line] THEN
OneLine[line ! 
IO.EndOfStream => GOTO thatsIt;
IO.Error => {
TerminalIO.WriteRopes["**error reading font substitution: ", line, "\n"];
CONTINUE
};
];
ENDLOOP;
EXITS thatsIt => NULL;
END;


--************************************************

Init: PROC = 
BEGIN
wDir _ CDIO.GetWorkingDirectory[NIL];
ResetContextFilter[ignoreProperties: TRUE];
CDSequencer.ImplementCommand[a: $InterpressPlot, p: HardCopyCommand, queue: doQueue];
CDMenus.CreateEntry[menu: $HardCopyMenu, entry: "b&w interpress", key: $InterpressPlot];
TerminalIO.WriteRope["BW Interpress plot loaded\n"];
END;

Init[];
END. 



ΪCDInterpressPlotImpl.mesa  
Copyright c 1984, 1986 by Xerox Corporation.  All rights reserved.
Last Edited by: Jacobi, July 12, 1985 8:50:32 am PST
Last Edited by: Jacobi, February 20, 1986 10:24:37 am PST

--constant sizes and scales 

--default sizes and scales 

--others 


--set ups for this very plot which will be created right now
--not re-entrant: using a global abort flag (abortFlag)
--the real stuff
--single page
--multiple pages
--Font replacement stuff
Κώ˜
codeš
œ™Kšœ
Οm
œ7™BK™4K™9—K˜š
Οk	˜	Kšžœ
˜Kš
œ	˜	Kš
œ
˜
Kš
œ	˜	Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ
˜
Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kšžœ
˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜—K˜šΠblœžœ
ž˜#Kšžœ
žœ|žœ*˜²
—Kš
ž˜K˜K™Kš
œ™K˜Kšœžœ
Οc7˜TKšœžœ	 ˜0Kšœžœ	 ‘
˜Ώ
K˜Kšœžœ	˜Kšœžœ	˜K˜K™Kš
œ™K˜Kšœžœ˜#Kšœžœ˜#Kšœžœ ˜,Kšœžœ˜+Kšœžœ 5˜MK˜K™Kš
œ	™	K˜Kšœžœ
žœžœ
žœ
žœ˜&Kšœžœ˜/Kšœ
žœžœ
˜K™K™Kš
œ<™<K˜Kšœžœ˜
Kšœžœ ˜Kšœžœ
žœžœ
žœžœ˜NK˜šΟnœžœžœžœ˜@Kš
ž˜Kšžœ1˜7Kšžœ˜—š‘œžœžœžœ˜:Kš
ž˜Kš
œ˜š	žœžœžœ
žœž˜"Kšžœžœ$˜<Kšžœžœ
˜ Kšœ7žœ˜=Kšžœ
˜—Kšœžœžœ
˜#Kšžœ
˜—K˜š‘œžœ˜Kš
ž˜Kšœžœ
˜š	žœžœžœ
žœž˜"šžœ>žœ
˜EKš
œ#˜#—Kšžœžœ
˜ Kšžœ
˜—Kšœžœžœ
˜#Kšžœ
˜—K˜š‘œžœ˜3Kš
ž˜Kš
œ$˜$Kšœ
žœ
˜š
œ#˜#Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜—Kšžœ
˜—K˜š‘œžœ˜5Kš
œ7™7Kš
ž˜Kšœžœ˜&Kšœ
žœ ˜/Kšœ
žœ ˜1Kšœžœ ˜%Kšœžœ ˜(Kšœžœžœ
˜&Kš
œ˜Kšœžœ	˜Kšœžœ˜Kšœžœ
˜Kšœ
žœ
˜Kšœžœ
˜Kšœžœ
˜Kšœžœ
˜'Kšœžœ
žœ
˜K˜š‘œžœ˜*K™Kš
ž˜Kšœžœ,˜1Kš
œ#˜#Kšžœžœ
žœ
˜%Kšžœžœ
žœ
˜Kš
œ.˜.Kš
œ˜Kš
œ+˜+Kš
œ2˜2Kšœžœ%˜,Kš
œ˜Kš
œ˜Kš
œ!˜!Kš
œ˜šžœžœ˜Kšœžœ
˜Kš
œ@˜@K˜—Kš
œ"˜"Kšžœ
˜—K˜š‘œžœ,žœ
žœ˜QKš
ž˜Kš
œ'˜'š	žœžœžœ
žœž˜"šžœžœ
˜!šžœEž˜KKš
œ8˜8——Kšžœ
˜—Kšœžœ
˜Kšžœ
˜—K˜š‘œžœ˜KšžΟb
˜š‘
œžœ
žœžœ˜,Kš
ž˜Kš
œ˜Kšžœ	žœžœ"˜?šžœ˜šžœ6žœ ž˜dKš
œ'˜'Jšœžœ
˜$Jšžœžœ
˜—K˜
—Kšžœ
˜—K˜šΠbnœžœžœ˜+Kš
ž˜Kšœžœ $˜Dšžœ	žœ(žœ˜<Kš
œF˜Fšžœžœ
žœ˜#Kš
œ"˜"Kšžœ
ž˜
K˜—K˜
—šžœ˜Kš
œ
˜
K˜—Kš
œ"˜"Kš
œ˜Kš
œ˜šžœžœ˜Kš
œ
™
Kš
œ
˜
Kš
œ
˜
Kš
œ(˜(Kšœžœ7˜BK˜
—šžœ˜Kš
œ™Kš
œ-˜-Kš
œH˜HKš
œ"˜"Kš
œA˜AK˜—KšœžœžœHžœK˜΅
Kšžœ
 ˜—K˜š‘œžœžœ˜$Kš
ž˜Kš
œ˜Kš
œ˜Kš
œ
˜
šžœ	žœ*žœ˜>Kš
œ8˜8šžœžœ
žœ˜#Kš
œ"˜"Kšžœ
ž˜
K˜
—K˜
—šžœ˜Kš
œ
˜
K˜—Kš
œQ˜QKš
œ+˜+Kš
œ ˜ Kš
œ˜Kš
œ&˜&Kšžœ
˜—K˜š£œžœžœ˜)Kš
ž˜Kšœžœ
˜Kš
œ˜š
œ˜Kšœ-žœ
˜1Kš
œ-˜-—Kš
œ˜Kš
œ4˜4Kš
œ4˜4Kš
œ;˜;Kš
œ;˜;KšœžœžœHžœK˜΅
Kšžœ
˜—K˜š£œžœ˜Kš
ž˜Kšžœžœ
žœ
˜'šžœžœ˜Kšœ
žœ5˜BKš
œ˜—šžœžœ˜Kšœžœ˜.Kšœ
žœ=˜JKš
œ˜—Kšžœ
˜—K˜š‘œžœ˜Kš
ž˜šžœ3žœMž˜Ž
š
œ˜Kšœžœ
˜Kš
œ>˜>Kš
œ˜Kš
œ˜—˜Kšœžœ
˜
Kš
œJ˜JKšœžœ
˜Kš
œ˜K˜—šžœ˜Kš
œ1˜1Kšœžœ
˜Kš
œ˜——Kšžœ
˜—K˜š‘œžœ˜/Kš
ž˜šœžœ3˜9Kšœžœ;˜GKš
œ˜—šžœž˜
š
œ˜Kš
œ6˜6Kš
œ,˜,Kš
œ˜—š
œ˜Kš
œ1˜1Kš
œ)˜)Kš
œ˜—šžœ˜Kš
œ/˜/Kš
œ)˜)Kš
œ˜——šžœžœ˜"Kš
œ2˜2Kšžœ
ž˜
Kš
œ˜—Kšžœ
˜—K˜š‘	œžœ˜Kš
ž˜Kšœ
žœ
˜Kšœ
žœ
˜Kšœ
žœ
˜šžœ%žœfž˜™
˜Kšœ
žœ
˜Kš
œ2˜2K˜—š
œ˜Kšœ
žœ
˜Kš
œ˜Kš
œ/˜/K˜—š
œ˜Kš
œ˜Kš
œ˜Kš
œ)˜)K˜—š
œ˜Kš
œ#˜#Kšœ
žœ
˜šžœ%žœƒ
ž˜Ά
˜Kš
œ.˜.K˜—˜Kšœ
žœ
˜Kš
œ˜Kš
œ0˜0K˜—˜Kšœ
žœ
˜Kš
œ8˜8K˜—˜Kš
œ˜Kš
œ˜Kš
œ*˜*K˜—˜Kš
œ˜Kš
œ˜Kšœ
žœ
˜Kš
œ4˜4K˜—Kšžœžœ
žœ
˜—K˜—š œ
žœ˜Kš
œ-˜-Kš
œ˜——Kšžœ
 ˜—K˜Kš
 ˜Kšœ	žœžœ
˜Kšœ
žœžœ
˜Kšœžœžœ
˜Kšœ	žœžœ
˜Kš
œC˜Cšžœžœ˜Kš
œ.˜.Kš
œ˜Kš
œ˜—Kš
œ˜Kš
œ˜Kšœ
žœ
˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ(˜(Kšžœ	žœ˜"Kšžœžœ˜0Kšžœ˜Kš
œ˜Kšœ=žœžœ˜aKšžœ ˜—K˜Kš
œ˜Kš
œ(˜(Kš
œ˜Kš
œ'˜'šžœžœž˜šžœžœž˜Kšžœžœ
žœ
˜Kš
œ#˜#Kš
œ#˜#Kš
œ'˜'Kšžœ
˜—Kš
ž˜—Kš
œ˜Kšœ+žœ˜>Kšžœžœ˜7Kšžœ
žœ"˜5Kšžœ
˜—K˜K˜2K™K˜K˜Kšœžœ
˜K˜šœ
žœ
žœžœ˜@Kšœžœ
žœžœ!˜D—K˜š‘œžœžœ	žœžœžœ˜HJš
ž˜Jšžœžœžœ
žœ˜9Jšžœ
˜—K˜š‘œžœžœ˜EKš
ž˜Kšœžœ
˜Jšœžœ3˜Ešžœ$žœ
ž˜3Kšœžœ˜ Kšœžœžœ˜%Kšžœžœ
˜—šžœ0žœ
žœ
˜@š	œžœ
žœ
žœ
žœ˜šžœ	žœ
žœžœ
žœ
žœ
žœ˜8Kšœžœ˜Kšœžœ˜+šžœžœ
ž˜Kšœžœ
žœ˜(Kšžœžœ
˜—šžœ	žœžœ˜)Kš
œ(˜(šžœ	žœ
žœ˜Kšœžœ˜Kšžœžœ˜ Kš
œ'˜'K˜
—Kš
œ˜—Kš
œ
˜
—Kš
œ˜—Kš
œ!˜!Kšœžœ ˜&Kšžœžœ
˜—Kšžœ	žœ
žœ˜#Kšžœ
˜Kšžœ
˜—K˜š
£œžœžœ
žœžœ˜LKš
ž˜K˜š‘œžœ
žœ˜!Kš
ž˜Kš	œžœ
žœžœ
žœ˜ Kšœžœ
˜Kšœžœ
˜Kšœžœ˜"Kšœžœ˜Kšœžœ˜Kšœžœžœ
žœ
˜4Kšžœ
˜—K˜Kšœžœ
žœžœ
˜Kš
œ˜Kšžœžœ ˜>Kšœžœ>˜Mšœžœžœ˜-Kš
œJ˜JKšžœ˜Kš
œ˜—š
ž˜Kšœžœ
˜Kš	œžœΟr
Πkr€œžœ
˜=šžœž˜š
œ˜Kšžœžœ	˜šžœ˜
Kš
œI˜IKš
ž˜Kš
œ˜—Kš
œ˜——Kšžœ
˜—Kšžœžœ
˜Kšžœ
˜—K˜K˜K˜2K˜š‘œžœ˜
Kš
ž˜Kšœžœžœ˜%Kšœ%žœ˜+Kš
œU˜UKš
œX˜XKš
œ4˜4Kšžœ
˜K˜—Kš
œ˜Kšžœ˜K˜K˜—…—3zGR