DIRECTORY
Icons USING [IconFlavor, NewIconFromFile],
Imager USING [ConstantColor, Context],
InputFocus USING [SetInputFocus],
MessageWindow USING [Append],
Graph USING [ColorIndex, GraphColorsArray, GraphFontsArray, ValueList, Viewer],
GraphCarets USING [GetFocus, SetFocus],
GraphCleanUp USING [CleanUpHandle],
GraphPrivate USING [BackgroundIndex, ChartMenus, Draw, EraseSelEntity, EraseSelText, GraphHandle, GraphProc, JumpDownAnyCurve, JumpLeftAnyCurve, JumpLeftSameCurve, JumpRightAnyCurve, JumpRightSameCurve, JumpUpAnyCurve, Lock, MoveSelText, MoveXhair2To1, OutputType, PaintAll, PaintInfo, SelectPoint, SelectEntity, SelectText, ShowSelEntityOnPanel, ShowSelTextOnPanel, SlideLeftNSteps, SlideOnSameCurve, SlideRightNSteps, SwitchAuto, SwitchCaretBlinking, SwitchCaretVisibility, SwitchGrid, SwitchTarget, Unlock, Wait, ZoomIn, ZoomOut, ZoomPoint],
GraphUtil USING [HandleFromViewer, HandleNotNil, ReplaceFileExt, SetCursorForBackgroundIndex, UseDefaultColors],
Process USING [Abort],
Rope USING [Cat, Equal, ROPE],
TIPUser USING [InstantiateNewTIPTable, TIPScreenCoords],
UserProfile USING [CallWhenProfileChanges, ProfileChangedProc, Token],
ViewerClasses USING [Column, NotifyProc, PaintProc, PaintRectangle, Viewer, ViewerClass, ViewerClassRec], 
ViewerEvents USING [EventProc, RegisterEventProc],
ViewerOps USING [CreateViewer, EnumerateViewers, EnumProc, OpenIcon, PaintViewer, RegisterViewerClass, SwapIconAndViewer, TopViewer],
WindowManager USING [colorDisplayOn];

GraphViewer: CEDAR PROGRAM
IMPORTS Icons, InputFocus, MessageWindow, GraphCarets, GraphCleanUp, GraphPrivate, GraphUtil, Process, Rope, TIPUser, UserProfile, ViewerEvents, ViewerOps, WindowManager
EXPORTS GraphPrivate = { OPEN Graph, GraphPrivate, GraphUtil;

chartIcon: Icons.IconFlavor _ Icons.NewIconFromFile["Graph.icons", 0];
graphViewerClass: ViewerClasses.ViewerClass _ NEW [ViewerClasses.ViewerClassRec _
[paint: GraphPaint,
icon: chartIcon,
cursor: textPointer,
tipTable: TIPUser.InstantiateNewTIPTable["Graph.TIP"],
notify: GraphNotify
]];
initialColumn: ViewerClasses.Column; -- {static, left, right, color}
createOption: {closeOtherViewers, swapLastViewer, iconic, badCreateOption};
backgroundIndex: BackgroundIndex; -- {white, gray, darkGray, black, unknown}

defaultColorsArray: PUBLIC GraphColorsArray _ [
[R: 1.0,  G: 1.0,  B: 1.0], -- 0, white, reserved for color cursor, foreground or background.
[R: 1.0,  G: 0.0,  B: 0.8], -- 1, purple red
[R: 0.4,  G: 0.0,  B: 1.0], -- 2, purple
[R: 0.0,  G: 0.0,  B: 1.0], -- 3, blue
[R: 0.0,  G: 0.56, B: 1.0], -- 4, greenish blue
[R: 0.0,  G: 1.0,  B: 1.0], -- 5, green blue
[R: 0.0,  G: 1.0,  B: 0.0], -- 6, green
[R: 0.52, G: 1.0,  B: 0.0], -- 7, yellow green
[R: 1.0,  G: 1.0,  B: 0.0], -- 8, yellow
[R: 1.0,  G: 0.60, B: 0.0], -- 9, orange yellow
[R: 1.0,  G: 0.42, B: 0.0], -- 10, yellowish orange
[R: 1.0,  G: 0.25, B: 0.0], -- 11, orange
[R: 1.0,  G: 0.0,  B: 0.0], -- 12, red
[R: 0.5,  G: 0.5,  B: 0.5], -- 13, gray, reserved for background. (default target color.)
[R: 0.17, G: 0.17, B: 0.17], -- 14, dark gray, reserved for background.
[R: 0.0,  G: 0.0,  B: 0.0]  -- 15, black, reserved for color cursor, foreground or background.
];

defaultFontsArray: PUBLIC GraphFontsArray _ [
["TimesRoman", FALSE, FALSE, 8, 9.0], -- 0, TimesRoman8, reserved.
["TimesRoman", TRUE, FALSE, 12, 13.0], -- 4, 12b, reserved.
["TimesRoman", FALSE, TRUE, 8, 9.0], -- 1, ~8i
["TimesRoman", TRUE, FALSE, 8, 9.0], -- 2, ~8b
["TimesRoman", FALSE, FALSE, 6, 7.0], -- 3, ~6

["Helvetica", FALSE, FALSE, 8, 9.0], -- 5, Helvetica8
["Helvetica", FALSE, FALSE, 6, 7.0], -- 6, ~6
["Helvetica", TRUE, FALSE, 14, 15.0], -- 7, ~14b

["Gacha", FALSE, FALSE, 8, 9.0], -- 8, Gacha8
["Hippo", FALSE, FALSE, 8, 9.0], -- 9, Hippo8
["Logo", FALSE, FALSE, 12, 14.0], -- 10, Logo12
["Math", FALSE, FALSE, 8, 9.0] -- 11, Math8, reserved.
];

systemColor: PUBLIC ARRAY ColorIndex OF Imager.ConstantColor;


ShowChart: PUBLIC GraphProc = {
IF HandleNotNil[handle] THEN { OPEN handle;
viewer: Viewer _ chart.viewer;
IF viewer = NIL THEN NewChartViewer[handle]
ELSE {
Unlock[handle];
IF viewer.iconic THEN ViewerOps.OpenIcon[icon: viewer, bottom: FALSE]
ELSE ViewerOps.TopViewer[viewer];
};
};
}; -- ShowChart

NewChartViewer: GraphProc = { OPEN handle;
viewer: Viewer _ chart.viewer _ ViewerOps.CreateViewer[
flavor: $Graph,
info: [
class: graphViewerClass,
name: ReplaceFileExt[graph.fileName, "graph"],
menu: ChartMenus[],
column: initialColumn,
iconic: TRUE,
data: handle],
paint: FALSE];

Unlock[handle];
SELECT createOption FROM
iconic => ViewerOps.PaintViewer[viewer, all, TRUE, NIL];
closeOtherViewers => ViewerOps.OpenIcon[icon: viewer,
closeOthers: TRUE, bottom: TRUE, paint: TRUE];
swapLastViewer => {
vLast: Viewer _ NIL;
LastViewer: ViewerOps.EnumProc = {
IF v.column = initialColumn AND NOT v.iconic THEN {vLast _ v; RETURN[FALSE]};
}; -- LastViewer
ViewerOps.EnumerateViewers[LastViewer];

IF vLast = NIL THEN ViewerOps.OpenIcon[icon: viewer,
closeOthers: TRUE, bottom: TRUE, paint: TRUE]
ELSE {
ViewerOps.SwapIconAndViewer[icon: viewer,
openViewer: vLast, paint: TRUE]; -- this paints the new viewer only.
ViewerOps.PaintViewer[vLast, all, TRUE, NIL]; -- paint the last viewer.
};
};
ENDCASE;
}; -- NewChartViewer


IsGraphViewer: PUBLIC PROC [viewer: Viewer] RETURNS [BOOL] = {
IF viewer = NIL THEN RETURN[FALSE];
RETURN[viewer.class.flavor = $Graph];
}; -- IsGraphViewer

GraphPaint: ViewerClasses.PaintProc = {
IF IsGraphViewer[self] AND context # NIL AND NOT self.iconic THEN {
handle: GraphHandle _ HandleFromViewer[self];
IF handle # NIL THEN { OPEN handle;
IF whatChanged # NIL AND ISTYPE[whatChanged, PaintInfo] THEN {
paintInfo.output _ screen;
Draw[context, handle];
}
ELSE {
Lock[handle];
paintInfo.output _ screen;
paintInfo.action _ paint;
IF whatChanged = NIL THEN paintInfo.item _ all
ELSE IF ISTYPE[whatChanged, ViewerClasses.PaintRectangle] THEN {
vr: ViewerClasses.PaintRectangle _ NARROW[whatChanged];
paintInfo.item _ rectangle;
paintInfo.rect _ [vr.x, vr.y, vr.w, vr.h];
};
Draw[context, handle];
waitingGraph _ FALSE;
Unlock[handle];
};
}; -- handle # nil
};
}; -- GraphPaint

GraphBeforeDestroy: ViewerEvents.EventProc = {
handle: GraphHandle _ HandleFromViewer[viewer];
IF handle # NIL AND event=destroy AND IsGraphViewer[viewer] AND before THEN {
Lock[handle];
IF GraphCarets.GetFocus[] = handle THEN GraphCarets.SetFocus[NIL];
IF handle.selectProc # NIL THEN {
TRUSTED {Process.Abort[handle.selectProc]};
Unlock[handle];
UNTIL handle.selectProc = NIL DO Wait[]; ENDLOOP;
Lock[handle];
};
handle.chart.viewer _ NIL;
Unlock[handle];
};
}; -- GraphBeforeDestroy

GraphAfterDestroy: ViewerEvents.EventProc = {
handle: GraphHandle _ HandleFromViewer[viewer];
IF handle # NIL AND event=destroy AND IsGraphViewer[viewer] AND NOT before THEN {
Lock[handle];
IF handle.controller = NIL THEN handle _ GraphCleanUp.CleanUpHandle[handle, TRUE]
ELSE Unlock[handle];
};
}; -- GraphAfterDestroy

GraphNotify: ViewerClasses.NotifyProc= {
IF IsGraphViewer[self] AND NOT self.iconic THEN {
handle: GraphHandle _ HandleFromViewer[self];
IF HandleNotNil[handle] THEN {
mx, my: INTEGER;
nArg: INT;
FOR params: LIST OF REF ANY _ input, params.rest UNTIL params = NIL DO
Lock[handle];
WITH params.first SELECT FROM
xy: TIPUser.TIPScreenCoords => {
mx _ xy.mouseX;
my _ xy.mouseY;
};
n: REF LONG INTEGER => nArg _ n^;
a: ATOM => {
SELECT a FROM
$SetFocus => InputFocus.SetInputFocus[handle.chart.viewer];
$SelectText => SelectText[handle, mx, my];
$Slide => SlideOnSameCurve[handle, mx, my];
$SelectCurve => SelectEntity[handle, mx, my];
$SelectPoint => SelectPoint[handle, mx, my];
$ZoomPoint => ZoomPoint[handle, mx, my];
$ShowSelTextOnPanel => ShowSelTextOnPanel[handle];
$ShowSelEntityOnPanel => ShowSelEntityOnPanel[handle];
$JumpLeftSameCurve => JumpLeftSameCurve[handle];
$JumpLeftAnyCurve => JumpLeftAnyCurve[handle];
$JumpUp => JumpUpAnyCurve[handle];
$ZoomIn => ZoomIn[handle, mx, my];
$LeftStep => SlideLeftNSteps[handle, nArg];
$RemoveCurve => EraseSelEntity[handle];
$JumpRightSameCurve => JumpRightSameCurve[handle];
$JumpRightAnyCurve => JumpRightAnyCurve[handle];
$ClearText => EraseSelText[handle];
$MoveSelText => MoveSelText[handle, mx, my];
$JumpDown => JumpDownAnyCurve[handle];
$ZoomOut => ZoomOut[handle, mx, my];
$RightStep => SlideRightNSteps[handle, nArg];
$PrimaryVisibility, $SecondaryVisibility, $TextCaretVisibility =>
SwitchCaretVisibility[handle, SELECT a FROM
$PrimaryVisibility => primary, $SecondaryVisibility => secondary,
ENDCASE => text
];
$PrimaryBlinking, $SecondaryBlinking, $TextCaretBlinking =>
SwitchCaretBlinking[handle, SELECT a FROM
$PrimaryBlinking => primary, $SecondaryBlinking => secondary,
ENDCASE => text
];
$SaveCrosshair => MoveXhair2To1[handle];
$ToggleAutoBounds => SwitchAuto[handle, bounds];
$ToggleAutoDiv => SwitchAuto[handle, divisions];
$ToggleTargetX, $ToggleTargetY => 
SwitchTarget[handle, IF a = $ToggleTargetX THEN x ELSE y];
$ToggleGridX, $ToggleGridY =>
SwitchGrid[handle, IF a = $ToggleGridX THEN x ELSE y];
$CleanAndPaint => PaintAll[handle, TRUE];
$Repaint => PaintAll[handle, FALSE];
ENDCASE;
};
ENDCASE;
Unlock[handle];
ENDLOOP;
};
};
}; -- GraphNotify

ProcessUserProfile: PUBLIC UserProfile.ProfileChangedProc = {
rope: Rope.ROPE _ UserProfile.Token[key: "Graph.Column", default: "color"];
initialColumn _ SELECT TRUE FROM
rope.Equal["color", FALSE] => color,
rope.Equal["left", FALSE] => left,
rope.Equal["right", FALSE] => right,
ENDCASE => static;
IF initialColumn = static THEN {
MessageWindow.Append[
Rope.Cat["Warning: Illegal entry in user profile, Graph.Column: ", rope, "."],
TRUE];
initialColumn _ color;
};
IF initialColumn = color AND NOT WindowManager.colorDisplayOn THEN initialColumn _ left;

rope _ UserProfile.Token[key: "Graph.CreateOption", default: "closeOtherViewers"];
createOption _ SELECT TRUE FROM
rope.Equal["closeOtherViewers", FALSE] => closeOtherViewers,
rope.Equal["swapLastViewer", FALSE] => swapLastViewer,
rope.Equal["iconic", FALSE] => iconic,
ENDCASE => badCreateOption;
IF createOption = badCreateOption THEN {
MessageWindow.Append[
Rope.Cat["Warning: Illegal entry in user profile, Graph.CreateOption: ", rope, "."],
TRUE];
createOption _ closeOtherViewers;
};

rope _ UserProfile.Token[key: "Graph.Background", default: "white"];
backgroundIndex _ SELECT TRUE FROM
rope.Equal["white", FALSE] => white,
rope.Equal["gray", FALSE] => gray,
rope.Equal["darkGray", FALSE] => darkGray,
rope.Equal["black", FALSE] => black,
ENDCASE => unknown;
IF backgroundIndex = unknown THEN {
MessageWindow.Append[
Rope.Cat["Warning: Illegal entry in user profile, Graph.Background: ", rope, "."],
TRUE];
backgroundIndex _ white;
};

IF reason = firstTime THEN UseDefaultColors[];
SetCursorForBackgroundIndex[backgroundIndex];
}; -- ProcessUserProfile

Init: PROC [] = {
ViewerOps.RegisterViewerClass[$Graph, graphViewerClass];
[] _ ViewerEvents.RegisterEventProc[proc: GraphBeforeDestroy, event: destroy, before: TRUE];
[] _ ViewerEvents.RegisterEventProc[proc: GraphAfterDestroy, event: destroy, before: FALSE];
ProcessUserProfile[firstTime];
UserProfile.CallWhenProfileChanges[ProcessUserProfile];
GraphCarets.SetFocus[NIL];
}; -- Init

Init[];
}.

CHANGE LOG.
SChen, October 19, 1985 10:09:23 pm PDT, created.
BFile: GraphViewer.mesa, Copyright (C) 1985 by Xerox Corporation.  All rights reserved.
Last Edited by:
Sweetsun Chen, October 21, 1985 7:52:08 pm PDT

FS USING [ExpandName, GetDefaultWDir],
(constant) variables
destroy: GraphDestroy

parameters initialized or updated by ProcessUserProfile
entity colors: all vivid
gray or black
[family, bold, italic, vFontSize, pFontScale]
public procedures
if graph viewer already exists, then pop it up to the top;
else create the viewer for the graph on the handle.
Supposed to be locked before this is called.  This proc will unlock handle before paintproc is to be invoked.
inhibitDestroy: inhibitDestroy,
AddEntity: PUBLIC PROC [viewer: Viewer _ NIL, entity: Entity _ NIL] = {
IF vector = NIL OR NOT IsGraphViewer[viewer] THEN RETURN ELSE {
shouldPaint: BOOL _ FALSE;
expectedSize: CARDINAL;
handle: GraphHandle _ NARROW[viewer.data];
IF handle # NIL THEN {
Lock[handle];
expectedSize _ handle.graphSpec.nCurvesMax + 1;
IF vector.size # expectedSize THEN MessageWindow.Append[
IO.PutFR["Only %g elements in vector when %g expected.",
IO.int[vector.size], IO.int[expectedSize]], TRUE]
ELSE {
IF handle.curves = NIL THEN {
handle.lineStates _ NEW[StateSequence[handle.graphSpec.nCurvesMax]];
Note: lineStates[n] is the state of curve # n+1.
FOR i: CARDINAL IN[0..handle.graphSpec.nCurvesMax) DO
handle.lineStates[i] _ NEW[LineStateRec _ []];
ENDLOOP;
}
ELSE IF handle.curves.first # NIL THEN shouldPaint _ TRUE;
handle.curves _ CONS[vector, handle.curves]
};
Unlock[handle];
};
IF shouldPaint THEN ViewerOps.PaintViewer[viewer, client, FALSE, handle.curves];
};
}; -- AddEntity
other private procedures
[self: Viewer, context: Imager.Context, whatChanged: REF ANY, clear: BOOL]
there is no checking of the viewer class in Draw.
GraphOpen: ViewerEvents.EventProc = {
handle: GraphHandle _ HandleFromViewer[viewer];
IF handle # NIL AND event = open AND IsGraphViewer[viewer] AND NOT before THEN
handle.graphOpened _ TRUE;
}; -- GraphOpen

initialColumn
createOption
backgroundType
colors
[] _ ViewerEvents.RegisterEventProc[proc: GraphOpen, event: open, before: FALSE];
�Ê
j˜Jš
œV™Vš
œ™Jš
œ.™.J™—š
Ïk	˜	Jš
œ&™&Jšœ�œ˜*Jšœ�œ˜&Jšœ�œ˜!Jšœ�œ
˜Jšœ�œD˜OJšœ�œ˜'Jšœ
�œ˜#Jšœ
�œŽ˜ Jšœ
�œa˜pJšœ�œ	˜Jšœ�œ�œ˜Jšœ�œ+˜8Jšœ�œ5˜FJšœ�œW˜jJšœ
�œ ˜2Jšœ
�œv˜…
Jšœ�œ˜%J˜—šœ
�œ
�˜Jš�œ¢
˜©
Jš�œ�œ ˜=—J˜Jš
œ™Jš
œF˜Fšœ.�œ ˜QJš
œ˜Jš
œ˜Jš
œ˜Jš
œ6˜6Jš
œ˜Jš
œ™Jš
œ˜—J™Jš
œ7™7Jšœ%Ïc˜DJš
œK˜KJšœ"ž*˜LJ˜šœ�œ˜/šœžA˜]J™—Jšœž˜,Jšœž˜(Jšœž
˜&Jšœž˜/Jšœž˜,Jšœž˜'Jšœž˜.Jšœž˜(Jšœž˜/Jšœž˜3Jšœž
˜)šœž
˜&J™
—Jšœž=˜YJšœž*˜GJšœžB˜^J˜J˜—šœ�œ˜-Jš
œ-™-Jšœ�œ�œž˜BJšœ�œ�œ
ž˜;Jšœ�œ�œž	˜.Jšœ�œ�œž	˜.Jšœ�œ�œž˜.J˜Jšœ�œ�œž˜5Jšœ�œ�œž˜-Jšœ�œ�œ
ž
˜0J˜Jšœ
�œ�œž˜-Jšœ
�œ�œž˜-Jšœ	�œ�œ
ž
˜/Jšœ	�œ�œ
ž˜6J˜J˜—Jšœ
�œ
�œ�œ˜=J˜Jš
œ™J˜šÏn	œ�œ˜J™:J™3J™mš�œ�œ�œ˜+Jš
œ˜Jš�œ
�œ
�œ˜+š�œ˜J˜Jš�œ�œ*�œ
˜EJš�œ˜!J˜—J˜—Jšœž˜J˜šŸœ�œ˜*š
œ7˜7J˜š
œ˜Jš
œ˜Jš
œ.˜.Jš
œ˜Jš
œ˜Jšœ�œ
˜
J™Jš
œ˜—Jšœ�œ˜—J˜J˜š�œ�˜Jšœ-�œ�œ˜8š
œ5˜5Jšœ
�œ
�œ	�œ˜.—š
œ˜Jšœ�œ
˜˜"Jš�œ�œ
�œ
�œ
�œ
�œ˜MJšœž
˜—J˜'J˜š�œ	�œ
�œ!˜4Jšœ
�œ
�œ	�œ
˜-—š�œ˜š
œ)˜)Jšœ�œž#˜D—Jšœ"�œ�œž˜GJ˜—J˜—Jš�œ
˜—Jšœž˜——J˜š
Ÿ	œ�œ
�œ�œ�œ™Gš�œ
�œ
�œ
�œ�œ
�œ
�œ™?Jšœ
�œ�œ
™Jšœ�œ
™Jšœ�œ™*š�œ
�œ
�œ™J™
Jš
œ/™/š�œ�œ™8Jš�œ6™8Jš�œ�œ�œ
™1—š�œ™š�œ�œ
�œ™šœ�œ-™DJš
œ0™0—š�œ�œ
�œ!�™5Jšœ�œ™.Jš�œ
™—J™
—Jš
�œ
�œ�œ
�œ�œ
™:Jšœ�œ™+J™—J™J™—Jš�œ
�œ'�œ™PJ™—Jšœž™J˜—š
Ÿ
œ�œ
�œ�œ�œ˜>Jš
�œ
�œ
�œ
�œ
�œ˜#Jš�œ˜%Jšœž˜—J˜Jš
œ™š
œ'˜'Jš
œJ™Jš�œ�œ�œ
�œ
�œ
�œ˜CJš
œ1™1Jš
œ-˜-š�œ
�œ
�œ�œ˜#š
�œ�œ
�œ
�œ�œ˜>J˜Jš
œ˜J˜
—š�œ˜Jš
œ
˜
J˜J˜Jš�œ�œ
�œ˜.š�œ
�œ
�œ,�œ˜@Jšœ#�œ˜7J˜Jš
œ*˜*J˜—Jš
œ˜Jšœ�œ
˜Jš
œ˜J˜—Jšœž˜—J˜—Jšœž
˜J˜—š
œ.˜.Jš
œ/˜/š�œ
�œ
�œ�œ�œ�œ˜MJ˜
Jš�œ!�œ�œ˜Bš�œ�œ
�œ˜!Jš�œ$˜+J˜Jš�œ�œ
�œ	�œ
˜1J˜
J˜—Jšœ�œ
˜J˜J˜—Jšœž˜—J˜š
œ-˜-Jš
œ/˜/š�œ
�œ
�œ�œ�œ
�œ�œ˜QJ˜
Jš�œ�œ
�œ-�œ
˜QJš�œ˜J˜—Jšœž˜J˜—š
œ%™%Jš
œ/™/š
�œ
�œ
�œ�œ�œ
�œ�™NJšœ�œ
™—šœž™J™——š
œ(˜(š�œ�œ
�œ
�œ˜1J˜-š�œ�œ˜Jšœ�œ
˜Jšœ�œ
˜
š�œ	�œ
�œ
�œ
�œ�œ
�œ
�˜FJ˜
š�œ�œ
�˜˜ Jš
œ˜Jš
œ˜J˜—Jšœ�œ
�œ
�œ˜!šœ�œ˜š�œ�˜
J˜;Jš
œ*˜*Jš
œ+˜+Jš
œ-˜-Jš
œ,˜,Jš
œ(˜(Jš
œ2˜2Jš
œ6˜6Jš
œ0˜0Jš
œ.˜.Jš
œ"˜"Jš
œ"˜"Jš
œ+˜+Jš
œ'˜'Jš
œ2˜2Jš
œ0˜0Jš
œ#˜#J˜,Jš
œ&˜&Jš
œ$˜$Jš
œ-˜-š
œA˜Ašœ�œ�˜+Jš
œA˜AJš�œ˜Jš
œ˜——š
œ;˜;šœ�œ�˜)Jš
œ=˜=Jš�œ˜Jš
œ˜——Jš
œ(˜(Jš
œ0˜0Jš
œ0˜0š
œ"˜"Jšœ�œ�œ�œ˜:—š
œ˜Jšœ�œ�œ�œ˜6—Jšœ#�œ˜)Jšœ�œ˜$Jš�œ
˜—J˜—Jš�œ
˜—J˜Jš�œ
˜—J˜—J˜—Jšœž˜J˜—šœ�œ#˜=Jš
œ
™
Jšœ�œ<˜Kšœ�œ
�œ
�˜ Jšœ�œ˜$Jšœ�œ
˜"Jšœ�œ˜$Jš�œ˜—š�œ�œ˜ š
œ˜Jš
œN˜NJš�œ˜—Jš
œ˜J˜—Jš�œ�œ
�œ�œ˜XJ˜Jš
œ™Jš
œR˜Ršœ�œ
�œ
�˜Jšœ �œ˜<Jšœ�œ˜6Jšœ�œ˜&Jš�œ˜—š�œ �œ˜(š
œ˜Jš
œT˜TJš�œ˜—Jš
œ!˜!J˜—J˜J™Jš
œD˜Dšœ�œ
�œ
�˜"Jšœ�œ˜$Jšœ�œ
˜"Jšœ�œ˜*Jšœ�œ˜$Jš�œ˜—š�œ�œ˜#š
œ˜Jš
œR˜RJš�œ˜—Jš
œ˜J˜—J˜J™Jš�œ�œ˜.Jš
œ-˜-Jšœž˜J˜—šŸœ�œ˜Jš
œ8˜8JšœV�œ˜\JšœU�œ˜\JšœJ�œ™QJš
œ˜J˜7Jšœ�œ˜Jšœž˜
—J˜J˜Jš
œ˜J˜š�œ
�œ
˜J˜1——…—+àAŒ