DIRECTORY
Basics 	USING [bitsPerWord, LongMult, RawWords],
BasicTime 	USING [GMT, Now, Period, Update],
CedarProcess USING [Priority, SetPriority],
Commander 	USING [CommandProc, Register],
Cursors 	USING [SetCursor],
Cursory 	USING [SetMousePosition], 
Imager 	USING [black, ClipRectangleI, Context, DoSave, Font, MaskRectangleI, SetColor, SetFont, SetXY, SetXYI, ShowRope, TranslateT, white],
ImagerBackdoor USING [invert],
ImagerFont 	USING [Extents, RopeBoundingBox, RopeWidth],
ImagerTerminal USING [BWContext],
InputFocus	USING [CaptureButtons, PopInputFocus, PushInputFocus, ReleaseButtons],
Interminal 	USING [GetMousePosition, MousePosition],
PopUpMenu USING [],
PrincOps 	USING [BBptr, BBTable, BBTableSpace, BitAddress, BitBltFlags, SrcDesc],
PrincOpsUtils USING [AlignedBBTable, BITBLT],
Process 	USING [Detach, MsecToTicks, Pause],
Real 	USING [FixI, RoundI],
Rope 	USING [InlineIsEmpty, ROPE],
RuntimeError USING [UNCAUGHT],
Terminal 	USING [ColorMode, Current, FrameBuffer, GetBWFrameBuffer, GetColorFrameBufferA, GetColorFrameBufferB, GetColorMode, ModifyColorFrame, Virtual],
TIPUser 	USING [InstantiateNewTIPTable, TIPScreenCoords, TIPTable],
UserProfile 	USING [Boolean, CallWhenProfileChanges, Number, ProfileChangedProc, Token],
VFonts 	USING [EstablishFont, FontHeight],
ViewerClasses USING [NotifyProc],
ViewerLocks USING [CallUnderColumnLock, CallUnderViewerTreeLock],
ViewerPrivate USING [CreateContext];

PopUpMenuImpl: CEDAR MONITOR
IMPORTS Basics, BasicTime, CedarProcess, Commander, Cursors, Cursory, Imager, ImagerBackdoor, ImagerFont, ImagerTerminal, InputFocus, Interminal, PrincOpsUtils, Process, Real, Rope, RuntimeError, Terminal, TIPUser, UserProfile, VFonts, ViewerLocks, ViewerPrivate
EXPORTS PopUpMenu = 
BEGIN 


sHeight, sWidth: INTEGER; 	-- size of screen, in pixels; [screen containing menu]
mHeight, mWidth: INTEGER; 	-- size of menu, in pixels
mX, mY: INTEGER;		-- menu position, in screen coordinates
context: Imager.Context;  	-- menu context
mOnColor: BOOL;  		-- menu [NOT cursor] on color screen 
lastRemoved: BasicTime.GMT _ BasicTime.Now[]; --for crazy heuristics
lastMouse: Interminal.MousePosition;  -- at start; remember between calls is creature comfort

reCheck: CONDITION _ [timeout: Process.MsecToTicks[1000]];

allDone: BOOL _ TRUE; 	--monitored
moduleFree: BOOL _ FALSE; 	--monitored; initializations frees module
escaped: BOOL _ FALSE;

blackBorderW: INTEGER = 2;
whiteBorderW: INTEGER = 2; 
borderW: INTEGER = blackBorderW+whiteBorderW;
border2W: INTEGER = borderW+borderW;

gSelection: NAT _ 0;
gTitleLines: NAT; 	-- 0 or 1 header lines
gLabel: Rope.ROPE;
gChoice: LIST OF Rope.ROPE _ NIL;
gDefault: NAT;
gMouse: REF _ NIL;
gHelp: LIST OF Rope.ROPE;
gHelpOn: INTEGER _ -1;
gHelpMode: BOOL _ FALSE;

vt: Terminal.Virtual _ Terminal.Current[]; --always use this terminal
tipTable: TIPUser.TIPTable;
font: Imager.Font _ NIL;
lineHeight: INTEGER; --in pixels


SetDone: ENTRY PROC [] = {
allDone _ TRUE;
BROADCAST reCheck
};

SetTimeOut: ENTRY PROC [key: REF] = {
IF timeOutKey=key AND ~moduleFree THEN allDone _ timedOut _ TRUE; 
BROADCAST reCheck
};

Wait: ENTRY PROC [] = {
allDone _ FALSE;
WHILE ~allDone DO WAIT reCheck ENDLOOP;
};


Enter: ENTRY PROC [] = {
WHILE ~moduleFree DO WAIT reCheck ENDLOOP;
moduleFree _ FALSE
};

Leave: ENTRY PROC [] = {
moduleFree _ TRUE;
BROADCAST reCheck
};

SavedRec: TYPE = RECORD [
col: BOOL,
x, y, w, h: INTEGER,
fb1: Terminal.FrameBuffer_NIL,
buffer1: REF_NIL,
fb2: Terminal.FrameBuffer_NIL,
buffer2: REF_NIL
];

bpWm1: NAT = Basics.bitsPerWord-1;

bBFlags: PrincOps.BitBltFlags ~ PrincOps.BitBltFlags[
direction: forward,
disjoint: TRUE,
disjointItems: TRUE,
gray: FALSE,
srcFunc: null,
dstFunc: null,
reserved: 0
];

PixToWords: PROC [n: INTEGER, bpp: NAT] RETURNS [INTEGER] = INLINE {
RETURN [(n*bpp+bpWm1)/Basics.bitsPerWord]
};

Save: PROC [x, y, w, h: INTEGER, col: BOOL_FALSE] RETURNS [s: REF SavedRec] = TRUSTED {
blit: PrincOps.BBptr;
AllocateBitmap: PROC [wW, hL: CARDINAL] RETURNS [REF] = TRUSTED INLINE {
c: CARD _ Basics.LongMult[wW, hL];
IF c>=LAST[CARDINAL] THEN { 
s.h _ hL _ (LAST[CARDINAL]-1)/wW;
c _ Basics.LongMult[wW, hL];
};
RETURN [NEW[Basics.RawWords[c]]];
};
Blit: PROC [fb: Terminal.FrameBuffer, buffer: REF] = TRUSTED INLINE {
blit.flags _ bBFlags;
blit.src _ PrincOps.BitAddress[
word: fb.base + 
Basics.LongMult[s.y, fb.wordsPerLine] +
s.x*fb.bitsPerPixel/Basics.bitsPerWord,
reserved: 0,
bit: s.x*fb.bitsPerPixel MOD Basics.bitsPerWord
];
blit.srcDesc.srcBpl _ fb.bitsPerPixel*fb.width;
blit.dst _ PrincOps.BitAddress[LOOPHOLE[buffer], 0, 0];
blit.dstBpl _ PixToWords[s.w, fb.bitsPerPixel]*Basics.bitsPerWord;
blit.width _ s.w*fb.bitsPerPixel;
blit.height _ s.h;
PrincOpsUtils.BITBLT[blit];
};
DoWithFrame: PROC [] = TRUSTED {
Blit[s.fb1, s.buffer1];
IF s.buffer2#NIL THEN Blit[s.fb2, s.buffer2];
};
bitBlitTable: PrincOps.BBTableSpace; 
blit _ PrincOpsUtils.AlignedBBTable[@bitBlitTable];
s _ NEW[SavedRec_[
col: col,
x: x, y: y, w: w, h: h
]];
IF s.col THEN {
s.fb1 _ Terminal.GetColorFrameBufferA[vt];
IF s.fb1=NIL THEN s.fb1 _ Terminal.GetBWFrameBuffer[vt];--bad color mode change
s.buffer1 _ AllocateBitmap[PixToWords[s.w, s.fb1.bitsPerPixel], s.h];
IF Terminal.GetColorMode[vt].full THEN {
s.fb2 _ Terminal.GetColorFrameBufferB[vt];
IF s.fb2#NIL THEN s.buffer2 _ AllocateBitmap[PixToWords[s.w, s.fb2.bitsPerPixel], s.h];
};
Terminal.ModifyColorFrame[vt, DoWithFrame];
}
ELSE {
s.fb1 _ Terminal.GetBWFrameBuffer[vt];
s.buffer1 _ AllocateBitmap[PixToWords[s.w, s.fb1.bitsPerPixel], s.h];
Blit[s.fb1, s.buffer1];
}
};

Restore: PROC [s: REF SavedRec] = TRUSTED {
blit: PrincOps.BBptr;
Blit: PROC [fb: Terminal.FrameBuffer, buffer: REF] = TRUSTED INLINE {
blit.flags _ bBFlags;
blit.src _ PrincOps.BitAddress[LOOPHOLE[buffer], 0, 0];
blit.srcDesc.srcBpl _ PixToWords[s.w, fb.bitsPerPixel]*Basics.bitsPerWord;
blit.dst _ PrincOps.BitAddress[
word: fb.base + 
Basics.LongMult[s.y, fb.wordsPerLine] +
s.x*fb.bitsPerPixel/Basics.bitsPerWord,
reserved: 0,
bit: s.x*fb.bitsPerPixel MOD Basics.bitsPerWord
];
blit.dstBpl _ fb.bitsPerPixel*fb.width;
blit.width _ s.w*fb.bitsPerPixel;
blit.height _ s.h;
PrincOpsUtils.BITBLT[blit];
};
DoWithFrame: PROC [] = TRUSTED {
Blit[s.fb1, s.buffer1];
IF s.buffer2#NIL THEN Blit[s.fb2, s.buffer2];
};
bitBlitTable: PrincOps.BBTableSpace; 
blit _ PrincOpsUtils.AlignedBBTable[@bitBlitTable];
IF s.col THEN Terminal.ModifyColorFrame[vt, DoWithFrame] ELSE Blit[s.fb1, s.buffer1];
};

SetUpTimeOutWatcher: PROC [i: NAT] = {
timedOut _ FALSE;
IF i<=0 OR i>10000 THEN timeOutKey _ NIL --upper limit to prevent overflow
ELSE {
timeOutKey _ NEW[BasicTime.GMT _ BasicTime.Update[BasicTime.Now[], i]];
TRUSTED {Process.Detach[FORK TimeOutWatcherProcess[key: timeOutKey]]};
}
};

timedOut: BOOL;
timeOutKey: REF BasicTime.GMT _ NIL; 
--NIL means no time out expected; SetUpTimeOutWatcher is only writer

TimeOutWatcherProcess: PROC [key: REF BasicTime.GMT] = {
CedarProcess.SetPriority[excited];
DO
Process.Pause[Process.MsecToTicks[500]];
IF timeOutKey#key THEN RETURN; --invalid invocation of TimeOutWatcherProcess
IF moduleFree THEN RETURN; --not timed out
IF BasicTime.Period[from: key^, to: BasicTime.Now[]]>0 THEN { --time out
SetTimeOut[key];
};
ENDLOOP;
};


helpSave: REF SavedRec _ NIL;

NthRestFirstRope: PROC [list: LIST OF Rope.ROPE, n: INTEGER] RETURNS [r: Rope.ROPE_NIL] = INLINE {
FOR l: LIST OF Rope.ROPE _ list, l.rest WHILE l#NIL DO
IF n<=0 THEN {r _ l.first; EXIT};
n _ n-1;
ENDLOOP;
};

Box: PROC [x, y, w, h, border: INTEGER] = {
Imager.SetColor[context, Imager.white];
Imager.MaskRectangleI[context, x, y, w, h];
Imager.SetColor[context, Imager.black];
Imager.MaskRectangleI[context, x, y, border, h];
Imager.MaskRectangleI[context, x+w-border, y, border, h];
Imager.MaskRectangleI[context, x, y, w, border];
Imager.MaskRectangleI[context, x, y+h-border, w, border];
};

HelpMessage: PROC [n: INTEGER] = {
msg: Rope.ROPE _ NIL;
Draw: PROC [] = {
border: NAT ~ 2; below: NAT ~ 2; 
y: INTEGER; 
e: ImagerFont.Extents _ ImagerFont.RopeBoundingBox[font, msg];
h: INTEGER _ Real.FixI[MIN[e.descent+e.ascent+2*border]]; --text height
w: INTEGER _ Real.FixI[MIN[e.rightExtent-e.leftExtent+2*border+1, sWidth]]; --text width 
ty: INTEGER _ mY+mHeight+below; --text boxes upper y in screen coordinates
tx: INTEGER _ MIN[mX, sWidth-w]; --text boxes left x in screen coordinates
IF ty+h>=sHeight THEN {
ty _ mY-h-below;
IF ty<0 THEN RETURN;
};
helpSave _ Save[tx, ty, w, h, mOnColor];
y _ sHeight-ty-h;
Box[tx, y, w, h, 1];
Imager.SetColor[context, Imager.black];
Imager.SetXY[context, [(tx+border)-e.leftExtent, y+border+e.descent]];
Imager.ShowRope[context, msg];
};
IF n#gHelpOn THEN {
gHelpOn _ n;
IF helpSave#NIL THEN {Restore[helpSave]; helpSave _ NIL};
msg _ NthRestFirstRope[gHelp, n];
IF ~Rope.InlineIsEmpty[msg] THEN Imager.DoSave[context, Draw];
}
};

MoveCursor: ENTRY PROC [x, y: INTEGER, col: BOOL] = {
ENABLE UNWIND => NULL;
InvertPictureLine: PROC [pos: NAT] = INLINE {
Imager.MaskRectangleI[context, mX+borderW, sHeight-mY-borderW-lineHeight*pos, mWidth-border2W, lineHeight];
};
sel: NAT _ 0;
IF allDone THEN RETURN; 
IF col=mOnColor THEN
IF x>mX+blackBorderW AND x<mX+mWidth-blackBorderW THEN {
IF y<=mY+borderW THEN {
IF y>mY-lineHeight THEN {gHelpMode _ TRUE; HelpMessage[0]}
}
ELSE IF y<mY+mHeight-borderW THEN
sel _ (1-gTitleLines)+(y-borderW-mY)/lineHeight;
};
IF gSelection#sel THEN {
context.SetColor[ImagerBackdoor.invert];
IF gSelection#0 THEN InvertPictureLine[gSelection+gTitleLines];
gSelection _ sel;
IF gSelection#0 THEN InvertPictureLine[gSelection+gTitleLines];
IF gHelpMode THEN HelpMessage[gSelection];
};
}; 

PopUpNotify: ViewerClasses.NotifyProc = {

ProtectedNotify: PROC [input: LIST OF REF ANY] = {
IF allDone THEN SetDone[] 
ELSE {
FOR list: LIST OF REF ANY _ input, list.rest WHILE list#NIL DO
WITH input.first SELECT FROM
coords: TIPUser.TIPScreenCoords => 
MoveCursor[coords^.mouseX, sHeight-coords^.mouseY, coords^.color];
atom: ATOM => 
IF atom=$Done THEN SetDone[]
ELSE IF atom=$Escaped THEN {
escaped _ TRUE;
SetDone[];
};
ENDCASE => NULL;
ENDLOOP
};
};

ProtectedNotify[input ! RuntimeError.UNCAUGHT => GOTO failed];
EXITS failed => {gSelection _ 0; SetDone[]};
};


RequestSelection: PUBLIC PROC [
label: Rope.ROPE _ NIL, choice: LIST OF Rope.ROPE, 
default: NAT _ 0, timeOut: NAT _ 0, mouse: REF _ NIL
] RETURNS [selection: INT _ 0] = {
ENABLE UNWIND => Leave[];

ComputeMenuPosition: PROC [] = INLINE {
DefaultPos: PROC [] = INLINE{
IF BasicTime.Period[from: lastRemoved, to: BasicTime.Now[]]>0 THEN { 
h: INTEGER ~ mHeight/3;
lastMouse _ Interminal.GetMousePosition[];
IF lastMouse.mouseX>mWidth THEN 
lastMouse.mouseX _ lastMouse.mouseX-mWidth;
IF lastMouse.mouseY>h THEN 
lastMouse.mouseY _ lastMouse.mouseY-h;
};
};
IF gMouse=NIL THEN DefaultPos[]
ELSE WITH gMouse SELECT FROM
m: TIPUser.TIPScreenCoords => {
frame: Terminal.FrameBuffer _ 
IF m.color THEN Terminal.GetColorFrameBufferA[vt] 
ELSE Terminal.GetBWFrameBuffer[vt];
lastMouse _ [mouseX: m.mouseX, mouseY: frame.height-m.mouseY, color: m.color];
};
m: REF Interminal.MousePosition => lastMouse _ m^;
lr: LIST OF Rope.ROPE => {
gHelp _ lr;
DefaultPos[];
};
ENDCASE => lastMouse _ Interminal.GetMousePosition[];
mOnColor _ lastMouse.color;
};

WithViewerLock: PROC [] = {
saved: REF SavedRec _ PrepareMenu[];
escaped _ gHelpMode _ FALSE;
gHelpOn _ -1;
Imager.DoSave[context, PaintMenu];
CheatDefaultMousePos[];
SetUpTimeOutWatcher[timeOut];
Wait[];
RemoveMenu[saved];
}; 

Enter[];
InputFocus.PushInputFocus[];
InputFocus.CaptureButtons[PopUpNotify, tipTable];
Cursors.SetCursor[menu];
gDefault _ default;
gLabel _ label;
gChoice _ choice;
gMouse _ mouse;
gHelp _ NIL;
MenuSizeInPixels[label, choice];
DO
ComputeMenuPosition[];
gSelection _ 0;
IF mOnColor THEN ViewerLocks.CallUnderColumnLock[WithViewerLock, color]
ELSE ViewerLocks.CallUnderViewerTreeLock[WithViewerLock];
IF ~escaped THEN EXIT;
gMouse _ $Escaped
ENDLOOP;
InputFocus.ReleaseButtons[];
InputFocus.PopInputFocus[];
IF timedOut THEN selection _ -1 ELSE selection _ gSelection;
gMouse _ NIL; 
Leave[];
}; 


MenuSizeInPixels: PROC [label: Rope.ROPE, gChoice: LIST OF Rope.ROPE] = INLINE {
lines, width: NAT _ 0; 
IF label#NIL THEN {
lines _ 1; 
width _ Real.RoundI[ImagerFont.RopeWidth[font, label].x];
};
gTitleLines _ lines;
FOR l: LIST OF Rope.ROPE _ gChoice, l.rest WHILE l#NIL DO
lines _ lines+1; 
width _ MAX[width, Real.RoundI[ImagerFont.RopeWidth[font, l.first].x]];
ENDLOOP;
mWidth _ width + border2W;
mHeight _ lines*lineHeight + border2W;
}; 

PrepareMenu: PROC [] RETURNS [saved: REF SavedRec] = INLINE {
frameBuffer: Terminal.FrameBuffer_NIL; 
IF mOnColor THEN {
frameBuffer _ Terminal.GetColorFrameBufferA[vt];
context _ ViewerPrivate.CreateContext[color];
};
IF ~mOnColor OR frameBuffer=NIL THEN {
mOnColor _ FALSE;
frameBuffer _ Terminal.GetBWFrameBuffer[vt]; 
context _ ImagerTerminal.BWContext[vt: vt, pixelUnits: TRUE];
};
sHeight _ frameBuffer.height;
sWidth _ frameBuffer.width;
mWidth _ MIN[mWidth, sWidth];
mHeight _ MIN[mHeight, frameBuffer.height];
mX _ MIN[MAX[0, lastMouse.mouseX], sWidth-mWidth];
mY _ MIN[MAX[0, lastMouse.mouseY], sHeight-mHeight];
saved _ Save[mX, mY, mWidth, mHeight, mOnColor];
context.SetFont[font];
}; 

RemoveMenu: PROC [saved: REF SavedRec] = INLINE {
IF helpSave#NIL THEN {
Restore[helpSave]; 
helpSave _ NIL
};
Restore[saved]; 
lastRemoved _ BasicTime.Now[];
}; 

PaintMenu: PROC [] = {
tidleAdd: NAT ~ 3; baseLine: NAT ~ 4;
h: INTEGER _ mHeight-borderW+baseLine; 
Imager.TranslateT[context, [mX, sHeight-mY-mHeight]];
Imager.ClipRectangleI[context, 0, 0, mWidth, mHeight];
Box[0, 0, mWidth, mHeight, blackBorderW];
IF gLabel#NIL THEN {
h _ h-lineHeight;
Imager.SetXYI[context, borderW, h+tidleAdd];
Imager.ShowRope[context, gLabel];
};
FOR list: LIST OF Rope.ROPE _ gChoice, list.rest WHILE list#NIL DO
h _ h-lineHeight;
Imager.SetXYI[context, borderW, h];
Imager.ShowRope[context, list.first];
ENDLOOP;
Imager.SetColor[context, ImagerBackdoor.invert];
IF gTitleLines=1 THEN 
Imager.MaskRectangleI[context, 
blackBorderW, 
mHeight-borderW-lineHeight+1, 
mWidth-2*blackBorderW, 
lineHeight+1
]
}; 

CheatDefaultMousePos: PROC [] = INLINE {
IF gDefault#0 THEN {
Cursory.SetMousePosition[vt, [ --ignores color bit
mX+mWidth/2,
((gDefault-(1-gTitleLines))*lineHeight+mY+lineHeight/2)
]]; 
};
};

InitFontGlobals: UserProfile.ProfileChangedProc = {
change: INT _ MAX[-whiteBorderW, 
MIN[30, UserProfile.Number[key: "PopUpMenu.LineHeightChange", default: 0]]
];
font _ VFonts.EstablishFont[
family: UserProfile.Token[key: "PopUpMenu.FontFamily", default: "Helvetica"], 
size: UserProfile.Number[key: "PopUpMenu.FontSize", default: 10], 
bold: UserProfile.Boolean[key: "PopUpMenu.FontBold", default: FALSE],
italic: UserProfile.Boolean[key: "PopUpMenu.FontItalic", default: FALSE],
defaultOnFailure: TRUE
];
lineHeight _ VFonts.FontHeight[font]+whiteBorderW+change;
};

InitTipTable: PROC [] = {
tipTable _ TIPUser.InstantiateNewTIPTable["PopUp.tip" ! RuntimeError.UNCAUGHT => CONTINUE];
IF tipTable=NIL THEN tipTable _ TIPUser.InstantiateNewTIPTable["[Cedar]<CedarChest6.1>PopUpMenu>PopUp.tip"];
};

KeepQuiet: Commander.CommandProc = {
};

UserProfile.CallWhenProfileChanges[InitFontGlobals];
InitTipTable[];
Leave[]; --initializes monitor locks
Commander.Register["///Commands/PopUpMenu", KeepQuiet, "Loads PopUpMenu module"];
END.

6PopUpMenuImpl.mesa  
Copyright c 1983, 1986 by Xerox Corporation.  All rights reserved.
Created by Christian Jacobi, November 9, 1983 12:14 pm
Last Edited by: Christian Jacobi, August 20, 1986 7:19:37 pm PDT
Pier, June 23, 1986 11:39:21 am PDT

--global variables are protected with MONITOR Enter and Leave
DebugProcess: PROC = {
DO -- forever
Process.Pause[Process.MsecToTicks[1000]];
IF Terminal.GetKeys[vt][ESC]=down THEN SetDone[];
ENDLOOP;
};


--SetDone and Wait for scheduling interaction menu

--Enter and Leave for scheduling module entrance

-- saving and restoring screen contents

--x, y, w, h in pixels
--wW: width in words; hL: height in lines
--in this case we cant allocate the words
--we don't care about uglyness, but please don't wedge!


--timeout nonsense
--monitored call only
--does not modify timeOutKey
--never called with key=NIL
--TimeOutWatcherProcess is NOT monitored

--help and move 
--Cursors.GetCursorInfo[].hotX.. is already included in x, y by window package...
--made sequential by viewer package

-- the main stuff
-- sets variables lastMouse and mOnColor
-- Only use real cursor coordinates if interval since last popup menu call is big enough
-- Reuse same position if call is immediately following, and is using a different menu;
-- In doupt change position, to make it possible to visualize area below pop up menu. 
--default: use mouse position or last position according of time
--offset menu [creature comfort]
--else reuse last mouse position
--computes lines and width (in pixels) of menu and save area
--sets variables mWidth, mHeight
--must be called with DoSave; changes state
--sets the cursor such that it points into the default field
--to bad, if font and lineHeight are not changed atomic... 
--do not catch errors again; land in debugger
TRUSTED {Process.Detach[FORK DebugProcess[]]};
�ʘ
codeš
œ™Kšœ
Ïm
œ7™BKš
œ6™6K™@K™#—K˜š
Ïk	˜	Kšœžœ#˜0Kšœ
žœžœ˜,Kšœ
žœ˜+Kšœ
žœ˜)Kšœžœ
˜Kšœžœ˜#Kšœžœ˜Œ
Kšœžœ
˜Kšœžœ'˜8Kšœžœ
˜!KšœžœA˜QKšœžœ#˜4Kšœ
žœ˜Kšœ	žœB˜QKšœžœžœ˜-Kšœžœ˜,Kšœžœ˜Kšœžœžœ˜"Kšœ
žœžœ˜Kšœ	žœŠ
˜™
Kšœžœ5˜CKšœžœF˜XKšœžœ˜*Kšœžœ˜!Kšœžœ0˜AKšœžœ˜$K˜—šÏb
œžœ
ž˜Kšžœÿ
˜†Kšžœ
˜—Kšžœ
˜K˜K™Kš
œ=™=K˜KšœžœÏc6˜QKšœžœ ˜5Kšœžœ (˜9Kšœ ˜*Kšœ
žœ '˜8Kšœžœ ˜DKšœ& 7˜]K˜Kšœ	ž	œ(˜:K˜Kšœ	žœžœ ˜"Kšœžœžœ *˜DKšœ	žœžœ
˜K˜Kšœžœ˜Kšœžœ˜Kšœ	žœ˜-Kšœ
žœ˜$K˜Kšœžœ˜Kšœ
žœ ˜)Kšœ
žœ
˜Kš	œ	žœ
žœžœžœ
˜!Kšœ
žœ
˜Kšœžœžœ
˜Kšœžœ
žœžœ
˜Kšœ	žœ˜Kšœžœžœ
˜K˜Kšœ+ ˜EKš
œ˜Kšœžœ
˜Kšœžœ ˜ K˜šÏnœžœ™šžœ
 
™
Kš
œ)™)Kšžœžœžœ™1Kšžœ
™—Kš
œ™K™—K™Kš
œ2™2K˜š¡œžœ
žœ˜Kšœ
žœ
˜Kšž	œ˜Kš
œ˜—K˜š¡
œžœ
žœžœ˜%Kšžœžœ
žœžœ˜BKšž	œ˜Kš
œ˜—K˜š¡œžœ
žœ˜Kšœ
žœ
˜Kšžœ
žœ
žœ	žœ
˜'Kš
œ˜K˜—K™Kš
œ0™0K˜š¡œžœ
žœ˜Kšžœ
žœ
žœ	žœ
˜*Kšœ
ž˜Kš
œ˜—K˜š¡œžœ
žœ˜Kšœ
žœ
˜Kšž	œ˜Kš
œ˜—K˜K™Kš
œ'™'K™šœ
žœžœ˜Kšœžœ
˜
Kšœžœ
˜Kšœžœ
˜Kšœ	žœ
žœ
˜Kšœžœ
˜Kšœ	žœ
ž˜Kš
œ˜—K˜Kšœžœ˜"K˜š
œ5˜5Kš
œ˜Kšœ
žœ
˜Kšœžœ
˜Kšœžœ
˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜K˜—š¡
œžœžœžœžœžœžœ˜DKšžœ#˜)Kš
œ˜—K˜š¡œžœžœž
œžœžœ
žœ˜WKš
œ™Kšœ¡
˜š¡œžœ
žœžœžœžœ
žœ˜HKš
œ)™)Kšœžœ˜"šžœžœ
žœžœ˜Kš
œ)™)Kš
œ7™7Kšœžœ
žœ˜!Kš
œ˜Kš
œ˜—Kšžœžœ˜!Kš
œ˜—š¡œžœ$žœžœ˜EKš
œ˜š
œ˜š
œ˜Kš
œ'˜'Kš
œ'˜'—Kš
œ˜Kšœžœ˜/Kš
œ˜—Kš
œ/˜/Kšœžœ˜7Kš
œB˜BKš
œ!˜!Kš
œ˜Kšœžœ˜K˜—š¡œžœžœ˜ Kš
œ˜Kšžœžœ
žœ˜-K˜—Kš
œ%˜%Kš
œ3˜3šœžœ˜Kš
œ	˜	K˜Kš
œ˜—šžœžœ˜Kš
œ*˜*Kšžœžœ
žœ' ˜OKš
œE˜Ešžœ žœ˜(Kš
œ*˜*Kšžœžœ
žœF˜WK˜—Kš
œ+˜+K˜
—š
ž˜Kš
œ&˜&Kš
œE˜EKš
œ˜Kš
œ
˜
—K˜—K˜š¡œžœžœ
žœ˜+Kšœ¡
˜š
¡œžœ$žœžœ
žœ˜EKš
œ˜Kšœžœ˜7Kš
œJ˜Jš
œ˜š
œ˜Kš
œ'˜'Kš
œ'˜'—Kš
œ˜Kšœžœ˜/Kš
œ˜—Kš
œ'˜'Kš
œ!˜!Kš
œ˜Kšœžœ˜K˜—š¡œžœžœ˜ Kš
œ˜Kšžœžœ
žœ˜-K˜—Kš
œ%˜%Kš
œ3˜3Kšžœžœ,žœ˜UK˜—K™J™Jš
œ™K˜š¡œžœžœ˜&Kš
œ™Kšœžœ
˜Kš	žœžœ	žœžœ
 !˜Jšžœ˜Kšœ
žœžœ)˜GKšžœžœ*˜FK˜
—Kš
œ˜—K˜Kšœ
žœ
˜šœžœ
žœžœ˜%Kš
 D˜D—K˜š¡œžœžœžœ˜8Kš
œ™Kš
 ™Kš
 (™(Kš
œ"˜"š
ž˜Kš
œ(˜(Kšžœžœ
žœ -˜LKšžœžœ
žœ ˜*šžœ5žœ 
˜HKš
œ˜K˜—Kšžœ
˜—Kš
œ˜—K˜J™Jš
œ™K˜Kšœ
žœžœ
˜K˜š¡œžœžœ
žœžœžœžœ
žœ
žœžœ˜bš
žœžœ
žœžœžœžœ
ž˜6Kšžœžœžœ˜!Kš
œ˜Kšžœ
˜—K˜—K˜š¡œžœžœ˜+Kš
œ'˜'Kš
œ+˜+Kš
œ'˜'Kš
œ0˜0Kš
œ9˜9Kš
œ0˜0Kš
œ9˜9Kš
œ˜—K˜š¡œžœžœ˜"Kšœ
ž
œ
˜š¡œžœ˜Kšœžœ
žœ˜!Kšœžœ˜Kš
œ>˜>Jšœžœ
žœ  
˜GJšœžœ
žœ2 
˜YJšœžœ *˜JKšœžœžœ )˜Jšžœžœ˜Kš
œ˜Kšžœžœ
žœ
˜J˜—Kš
œ(˜(Kš
œ˜Kš
œ˜Kš
œ'˜'Kš
œF˜FKš
œ˜Kš
œ˜—šžœžœ˜Kš
œ˜Kšžœ
žœ
žœžœ˜9Kš
œ!˜!Kšžœžœ˜>K˜
—K˜—K˜š
¡
œžœ
žœžœžœ˜5Kšžœ
žœžœ
˜š¡œžœžœžœ˜-Kš
œk˜kKš
œ˜—Kšœžœ˜
Kš
œQ™QKšžœ	žœ
žœ˜šžœž˜šžœžœžœ˜8šžœžœ˜Kšžœžœžœ˜:Kš
œ
˜
—šžœ
žœž˜!Kš
œ0˜0—K˜——šžœžœ˜Kš
œ(˜(Kšžœžœ+˜?K˜Kšžœžœ+˜?Kšžœžœ˜*Kš
œ˜—Kš
œ˜—K˜šÐbnœ˜)Kš
œ#™#K˜š¡œžœ	žœ
žœ
žœ
žœ˜2Kšžœ	žœ˜šžœ˜šžœžœ
žœ
žœ
žœžœžœ
ž˜>šžœ
žœ
ž˜š
œ#˜#Kš
œB˜B—šœžœ˜Kšžœžœ
˜šžœ
žœžœ˜Kšœ
žœ
˜Kš
œ
˜
Kš
œ˜——Kšžœžœ
˜—Kš
ž˜—K˜—Kš
œ˜—K˜Kšœ%žœžœ	˜>Kšžœ'˜,Kš
œ˜—K˜K™K™K˜š¡œžœ
žœžœžœ
žœ
žœžœžœžœ
žœžœžœ
žœ	˜«
Kšžœ
žœ˜K˜š¡œžœžœ˜'Kš
œ(™(Kš
œX™XKš
œW™WK™Vš¡
œžœžœ
˜Kš
œ@™@šžœ<žœ˜EKšœžœ
˜Kš
œ*˜*K™ šžœžœ
˜ Kš
œ+˜+—šžœžœ
˜Kš
œ&˜&—K˜—Kš
  ™ K˜—Kšžœžœ
žœ
˜šžœ
žœžœ
ž˜š
œ˜š
œ˜Kšžœ	žœ#˜2Kšžœ˜#—Kš
œN˜NKš
œ˜—Kšœžœ,˜2šœžœ
žœžœ˜Kš
œ˜Kš
œ
˜
K˜—Kšžœ.˜5—Kš
œ˜Kš
œ˜—K˜š¡œžœ˜Kšœžœ˜$Kšœžœ
˜Kš
œ
˜
Kš
œ"˜"Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜K˜—Kš
œ˜K˜Kš
œ1˜1Kš
œ˜Kš
œ˜K˜K˜Kš
œ˜Kšœžœ
˜Kš
œ ˜ š
ž˜Kš
œ˜K˜Kšžœ
žœ7˜GKšžœ5˜9Kšžœ
žœ
žœ
˜Kš
œ˜Kšžœ
˜—K˜K˜Kšžœ
žœžœ˜<Kšœ	žœ˜Kš
œ˜Kš
œ˜—K˜K˜š¡œžœžœžœ
žœžœžœ˜PKš
œ<™<Kš
œ ™ Kšœžœ˜šžœžœ
žœ˜Kš
œ˜Kš
œ9˜9K˜—Kš
œ˜š
žœžœ
žœžœžœžœ
ž˜9Kš
œ˜Kšœžœ<˜GKšžœ
˜—Kš
œ˜Kš
œ&˜&Kš
œ˜—K˜š
¡œžœžœ	žœ
žœ˜=Kšœ"žœ˜'šžœ
žœ˜Kš
œ0˜0Kš
œ-˜-K˜—šžœžœ
žœ
žœ˜&Kšœžœ
˜Kš
œ-˜-Kšœ7žœ˜=K˜—Kš
œ˜Kš
œ˜Kšœ	žœ˜Kšœ
žœ˜+Kšœžœ
žœ&˜2Kšœžœ
žœ(˜4Jš
œ0˜0Kš
œ˜Kš
œ˜—K˜š¡
œžœ	žœ
žœ˜1šžœ
žœ
žœ˜Kš
œ˜Kšœž˜Kš
œ˜—Kš
œ˜Kš
œ˜Kš
œ˜—K˜š¡	œžœ˜K™+Kšœ
žœžœ˜%Kšœžœ˜'Kš
œ5˜5Kš
œ6˜6Kš
œ)˜)šžœžœ
žœ˜K˜Kš
œ,˜,Kš
œ!˜!K˜—š
žœžœ
žœžœžœžœ
ž˜BK˜Kš
œ#˜#Kš
œ%˜%Kšžœ
˜—Kš
œ0˜0šžœžœ
˜š
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜K˜
——Kš
œ˜K˜—š¡œžœžœ˜(Kš
œ<™<šžœžœ˜šœ ˜2Kš
œ˜Kš
œ7˜7Kš
œ˜—K˜—Kš
œ˜K˜—š¢œ$˜3šœžœžœ˜!KšžœG˜JKš
œ˜—š
œ˜Kš
œN˜NKš
œB˜BKšœ>žœ˜EKšœBžœ˜IKšœž˜Kš
œ˜—Kš
œ9˜9Kš
œ;™;Kš
œ˜—K˜š¡œžœ˜KšœEžœžœ˜[Kšžœ
žœ
žœX˜lKš
œ-™-Kš
œ˜—K˜š¢	œ˜$Kš
œ˜—K˜Kš
œ4˜4Kš
œ˜Kšœ	 ˜$Kš
œQ˜QKšžœžœ™.Kšžœ
˜K˜—…—;æX7