DIRECTORY
Basics USING [BITSHIFT, bitsPerWord, BYTE, LongMult],
IIColorDefs USING [Color, ColorOperator, ConstantColor, ConstantColorImplRep, SampledColor],
IIColorOperator USING [GetColorOperatorClass, Mapper, MapPixels, NewMapper],
IIColorPrivate USING [ConstantColorImpl, ConstantColorImplRep],
IIDevice USING [BoxProc, Class, ClassRep, Device, DeviceBox, DeviceRep, HalftoneParameters, RunProc],
IIMask USING [RunsFromBits, RunsFromBox],
IIPixelArray USING [GetPixels, MaxSampleValue],
IIPixelArrayDefs USING [PixelArray],
IIPixelMap USING [PixelMap, Reshape],
IIRaster USING [],
IISample USING [BitsPerSample, GetPointer, GetPointSamples, NewBuffer, Sample, SampleBuffer, Sampler, SamplerRep, SetSamplerIncrements, SetSamplerPosition, UnsafePutF, UnsafeSamples],
IITransformation USING [ApplyPreRotate, Cat, Transformation, Translate],
PrincOps USING [BBTableSpace, BitAddress, BitBltFlags, BitBltTable, BitBltTablePtr, GrayParm, op, zBNDCK, zINC],
PrincOpsUtils USING [AlignedBBTable, BITBLT],
Real USING [RoundC],
Terminal USING [FrameBuffer, GetColorFrameBufferA, ModifyColorFrame, Virtual],
Vector2 USING [VEC];

IIGrayDeviceImpl: CEDAR PROGRAM
IMPORTS Basics, IIColorOperator, IIMask, IIPixelArray, IIPixelMap, IISample, IITransformation, PrincOpsUtils, Real, Terminal
EXPORTS IIColorDefs, IIRaster
~ BEGIN OPEN IIDevice;

BYTE: TYPE ~ Basics.BYTE;
VEC: TYPE ~ Vector2.VEC;
Transformation: TYPE ~ IITransformation.Transformation;
Color: TYPE ~ IIColorDefs.Color;
ConstantColor: TYPE ~ IIColorDefs.ConstantColor;
SampledColor: TYPE ~ IIColorDefs.SampledColor;
ColorOperator: TYPE ~ IIColorDefs.ColorOperator;
PixelArray: TYPE ~ IIPixelArrayDefs.PixelArray;
Sample: TYPE ~ IISample.Sample;
SampleBuffer: TYPE ~ IISample.SampleBuffer;
UnsafeSamples: TYPE ~ IISample.UnsafeSamples;

ConstantColorImpl: TYPE ~ IIColorPrivate.ConstantColorImpl;
ConstantColorImplRep: PUBLIC TYPE ~ IIColorPrivate.ConstantColorImplRep;

Case: TYPE ~ {nil, constant, stipple, sampled};

StippleArray: TYPE ~ PACKED ARRAY [0..16) OF BYTE;

Data: TYPE ~ REF DataRep;
DataRep: TYPE ~ RECORD[
terminal: Terminal.Virtual,
frame: Terminal.FrameBuffer, -- the frame buffer
case: Case _ nil, -- what type of color
sampledBlack: BOOL _ FALSE,
sampledBlackClear: BOOL _ FALSE,
bitsPerPixel: IISample.BitsPerSample _ 0,
flags: PrincOps.BitBltFlags _ [], -- bitblt flags
grayWord: WORD _ 0, -- constant gray word (two pixels)
stipple: StippleArray _ ALL[0], -- stipple pattern
sampledColor: SampledColor _ NIL, -- sampled color
paToDevice: Transformation _ NIL, -- transformation from pa coords to display
source: IIPixelMap.PixelMap _ [0, 0, 0, 0, 0, 0, NIL], -- source values from pixel array
sampler: IISample.Sampler _ NIL, -- sampler information
buffer: IISample.SampleBuffer _ NIL -- scan line buffer for samples
];

class: IIDevice.Class ~ NEW[IIDevice.ClassRep _ [
type: $GrayDisplay,
SetColor: GraySetColor,
SetPriority: GraySetPriority,
SetHalftone: GraySetHalftone,
MaskRuns: GrayMaskRuns,
MaskBoxes: GrayMaskBoxes,
MaskBits: GrayMaskBits,
MoveBoxes: GrayMoveBoxes
]];

NewGrayDevice: PUBLIC PROC[terminal: Terminal.Virtual] RETURNS[Device] ~ {
frame: Terminal.FrameBuffer ~ Terminal.GetColorFrameBufferA[terminal];
IF frame=NIL OR frame.bitsPerPixel#8 THEN RETURN[NIL]
ELSE {
data: Data ~ NEW[DataRep _ [terminal: terminal, frame: frame]];
pixelsPerInch: REAL ~ terminal.colorPixelsPerInch;
surfaceToDevice: Transformation ~ IITransformation.Translate[[frame.height, 0]];
surfaceToDevice.ApplyPreRotate[90];
RETURN[NEW[IIDevice.DeviceRep _ [class: class,
box: [smin: 0, fmin: 0, smax: frame.height, fmax: frame.width],
surfaceToDevice: surfaceToDevice,
surfaceUnitsPerInch: [pixelsPerInch, pixelsPerInch],
surfaceUnitsPerPixel: 1,
data: data]]];
};
};


nullBitBltTable: PrincOps.BitBltTable ~ [
dst: [word: NIL, bit: 0], dstBpl: 0,
src: [word: NIL, bit: 0], srcDesc: [srcBpl[0]],
width: 0, height: 0, flags: []
];

bitsPerPixel: NAT ~ 8;
bitsPerWord: NAT ~ Basics.bitsPerWord;

StippleArrayFromWord: PROC[t: WORD] RETURNS[array: StippleArray _ ALL[0]] ~ {
bits: PACKED ARRAY [0..16) OF BOOL ~ LOOPHOLE[t];
FOR i: [0..16) IN [0..16) DO IF bits[i] THEN array[i] _ BYTE.LAST ENDLOOP;
};

PixelFromIntensity: PROC[Y: REAL] RETURNS[BYTE] ~ {
IF Y<=0 THEN RETURN[0]; -- black
IF Y>=1 THEN RETURN[BYTE.LAST]; -- white
RETURN[Real.RoundC[Y*BYTE.LAST]]; -- gray
};

sourceLgBitsPerSample: NAT ~ 3; -- for array of samples from sampled color
sourceBitsPerSample: NAT ~ Basics.BITSHIFT[1, sourceLgBitsPerSample];
maxSourceSample: Sample ~ Basics.BITSHIFT[1, sourceBitsPerSample]-1;

GraySetColor: PROC[device: Device, color: Color, viewToDevice: Transformation] ~ {
data: Data ~ NARROW[device.data];
WITH color SELECT FROM
color: ConstantColor => {
impl: ConstantColorImpl ~ color.impl;
data.case _ constant;
data.source.refRep _ NIL;
data.flags _ [disjoint: TRUE, gray: TRUE, srcFunc: null, dstFunc: null];
WITH impl: impl SELECT FROM
stipple => {
word: WORD ~ impl.word;
SELECT impl.function FROM
replace => { data.flags.srcFunc _ complement };
paint => { data.flags.srcFunc _ complement; data.flags.dstFunc _ and };
invert => { data.flags.dstFunc _ xor };
erase => { data.flags.dstFunc _ or };
ENDCASE => ERROR;
IF word=WORD.LAST THEN data.grayWord _ word
ELSE { data.stipple _ StippleArrayFromWord[word]; data.case _ stipple };
};
ENDCASE => {
pixel: BYTE ~ PixelFromIntensity[impl.Y];
data.grayWord _ pixel*400B+pixel;
};
};
color: SampledColor => {
pa: PixelArray ~ color.pa;
um: Transformation ~ color.um;
colorOperator: ColorOperator ~ color.colorOperator;
samplesPerPixel: NAT ~ pa.samplesPerPixel;
sSize: NAT ~ pa.sSize;
fSize: NAT ~ pa.fSize;
maxIn: Sample ~ IIPixelArray.MaxSampleValue[pa, 0];
source: IIPixelMap.PixelMap ~ data.source.refRep.Reshape[
lgBitsPerPixel: sourceLgBitsPerSample, 
bounds: [sMin: 0, fMin: 0, sSize: sSize, fSize: fSize]];
sourceBase: LONG POINTER ~ source.refRep.pointer;
sourceWordsPerLine: NAT ~ source.refRep.rast;
pixels: SampleBuffer ~ IISample.NewBuffer[samplesPerPixel, fSize];
buffer: SampleBuffer ~ IISample.NewBuffer[1, fSize];
mapper: IIColorOperator.Mapper ~ IIColorOperator.NewMapper[
op: colorOperator, component: $Intensity, maxIn: maxIn, maxOut: maxSourceSample];
samples: UnsafeSamples ~ buffer.GetPointer[0, 0, fSize];
FOR s: NAT IN[0..sSize) DO
IIPixelArray.GetPixels[pa: pa, s: s, f: 0, buffer: pixels, count: fSize];
IIColorOperator.MapPixels[mapper: mapper, pixels: pixels, 
buffer: buffer, count: fSize];
TRUSTED { IISample.UnsafePutF[samples: samples, count: fSize, 
base: sourceBase, wordsPerLine: sourceWordsPerLine, 
bitsPerSample: sourceBitsPerSample, s: s, f: 0] };
ENDLOOP;
data.sampledColor _ color;
data.paToDevice _ IITransformation.Cat[pa.m, color.um, viewToDevice];
data.source _ source;
IF data.sampler=NIL THEN data.sampler _ NEW[IISample.SamplerRep _ []];
data.sampler.base _ sourceBase;
data.sampler.wordsPerLine _ sourceWordsPerLine;
data.sampler.bitsPerSample _ sourceBitsPerSample;
data.sampler.sMin _ source.sMin;
data.sampler.fMin _ source.fMin;
data.sampler.sSize _ source.sSize;
data.sampler.fSize _ source.fSize;
IISample.SetSamplerIncrements[data.sampler, data.paToDevice];
IF data.buffer=NIL THEN data.buffer _ IISample.NewBuffer[1, data.frame.width];
SELECT IIColorOperator.GetColorOperatorClass[colorOperator] FROM
$SampledBlack => {data.sampledBlack _ TRUE; data.sampledBlackClear _ FALSE};
$SampledBlackClear => {data.sampledBlack _ data.sampledBlackClear _ TRUE};
ENDCASE => data.sampledBlack _ data.sampledBlackClear _ FALSE;
data.case _ sampled;
};
ENDCASE => ERROR; -- unknown color variant
};

GraySetPriority: PROC[device: Device, priorityImportant: BOOL] ~ {
};

GraySetHalftone: PROC[device: Device, halftone: HalftoneParameters] ~ {
data: Data ~ NARROW[device.data];
};

Check: PROC[x: CARDINAL, max: NAT] RETURNS[NAT] ~
TRUSTED MACHINE CODE { PrincOps.zINC; PrincOps.zBNDCK };

GrayMaskRunsInternal: PROC[data: Data, bounds: DeviceBox, runs: PROC[RunProc]] ~ {
frame: Terminal.FrameBuffer ~ data.frame;
base: LONG POINTER ~ frame.base;
wordsPerLine: NAT ~ frame.wordsPerLine;
SELECT data.case FROM
nil => ERROR; -- color not initialized
constant => TRUSTED {
bbspace: PrincOps.BBTableSpace;
bb: PrincOps.BitBltTablePtr ~ PrincOpsUtils.AlignedBBTable[@bbspace];
grayConstantRun: PROC[sMin, fMin: INTEGER, fSize: NAT] ~ TRUSTED {
f: NAT ~ Check[fMin, frame.width];
s: NAT ~ Check[sMin, frame.height];
line: LONG POINTER ~ base+Basics.LongMult[s, wordsPerLine];
bit: CARDINAL ~ f*bitsPerPixel;
bb.dst.word _ line+bit/bitsPerWord;
bb.dst.bit _ bit MOD bitsPerWord;
bb.width _ Check[fSize, frame.width-f]*bitsPerPixel;
bb.height _ Check[1, frame.height-s];
PrincOpsUtils.BITBLT[bb];
};
bb^ _ nullBitBltTable;
bb.dstBpl _ wordsPerLine*bitsPerWord;
bb.src.word _ LOOPHOLE[@data.grayWord];
bb.srcDesc.gray _ [yOffset: 0, widthMinusOne: 0, heightMinusOne: 0];
bb.flags _ data.flags;
runs[grayConstantRun];
};
stipple => TRUSTED {
bbspace: PrincOps.BBTableSpace;
bb: PrincOps.BitBltTablePtr ~ PrincOpsUtils.AlignedBBTable[@bbspace];
srcBase: LONG POINTER ~ LOOPHOLE[@data.stipple];
srcWordsPerLine: NAT ~ (4*bitsPerPixel)/bitsPerWord;
grayStippleRun: PROC[sMin, fMin: INTEGER, fSize: NAT] ~ TRUSTED {
fmin: NAT ~ Check[fMin, frame.width];
fmax: NAT ~ Check[fmin+fSize, frame.width];
smin: NAT ~ Check[sMin, frame.height];
smax: NAT ~ Check[smin+1, frame.height];
dstLine: LONG POINTER ~ base+Basics.LongMult[smin, wordsPerLine];
srcLine: LONG POINTER ~ srcBase+(smin MOD 4)*srcWordsPerLine;
FOR f: NAT IN [fmin..MIN[fmin+4, fmax]) DO
dstBit: NAT ~ f*bitsPerPixel;
srcBit: NAT ~ (f MOD 4)*bitsPerPixel;
bb.dst.word _ dstLine+dstBit/bitsPerWord;
bb.dst.bit _ dstBit MOD bitsPerWord;
bb.src.word _ srcLine+srcBit/bitsPerWord;
bb.src.bit _ srcBit MOD bitsPerWord;
bb.height _ (fmax-f+3)/4;
PrincOpsUtils.BITBLT[bb];
ENDLOOP;
};
bb^ _ nullBitBltTable;
bb.dstBpl _ 4*bitsPerPixel;
bb.srcDesc.gray _ [yOffset: 0, widthMinusOne: 0, heightMinusOne: 0];
bb.width _ bitsPerPixel;
bb.flags _ data.flags;
runs[grayStippleRun];
};
sampled => {
sampler: IISample.Sampler ~ data.sampler;
buffer: SampleBuffer ~ data.buffer;
graySampledRun: PROC[sMin, fMin: INTEGER, fSize: NAT] ~ CHECKED {
s: NAT ~ Check[sMin, frame.height];
f: NAT ~ Check[fMin, frame.width];
count: NAT ~ Check[fSize, frame.width-f];
samples: IISample.UnsafeSamples ~ buffer.GetPointer[0, f, count];
IISample.GetPointSamples[sampler: sampler, s: s, f: f, 
buffer: buffer, bi: 0, bj: f, count: count];
TRUSTED { IISample.UnsafePutF[samples: samples, count: count, 
base: base, wordsPerLine: wordsPerLine, bitsPerSample: 8, s: s, f: f, dstFunc: IF data.sampledBlackClear THEN and ELSE null]};
};
IISample.SetSamplerPosition[sampler: sampler, 
m: data.paToDevice, s: bounds.smin, f: bounds.fmin];
runs[graySampledRun];
};
ENDCASE => ERROR; -- illegal case
};

GrayMaskBoxesInternal: PROC[data: Data, bounds: DeviceBox, boxes: PROC[BoxProc]] ~ {
IF data.case=constant THEN TRUSTED {
frame: Terminal.FrameBuffer ~ data.frame;
base: LONG POINTER ~ frame.base;
wordsPerLine: NAT ~ frame.wordsPerLine;
bbspace: PrincOps.BBTableSpace;
bb: PrincOps.BitBltTablePtr ~ PrincOpsUtils.AlignedBBTable[@bbspace];
grayConstantBox: PROC[box: DeviceBox] ~ TRUSTED {
fmin: NAT ~ Check[box.fmin, frame.width];
fmax: NAT ~ Check[box.fmax, frame.width];
smin: NAT ~ Check[box.smin, frame.height];
smax: NAT ~ Check[box.smax, frame.height];
line: LONG POINTER ~ base+Basics.LongMult[smin, wordsPerLine];
bit: NAT ~ fmin*bitsPerPixel;
bb.dst.word _ line+bit/bitsPerWord;
bb.dst.bit _ bit MOD bitsPerWord;
bb.width _ (fmax-fmin)*bitsPerPixel;
bb.height _ smax-smin;
PrincOpsUtils.BITBLT[bb];
};
bb^ _ nullBitBltTable;
bb.dstBpl _ wordsPerLine*bitsPerWord;
bb.src.word _ LOOPHOLE[@data.grayWord];
bb.srcDesc.gray _ [yOffset: 0, widthMinusOne: 0, heightMinusOne: 0];
bb.flags _ data.flags;
boxes[grayConstantBox];
}
ELSE {
grayNonConstantBox: PROC[box: DeviceBox] ~ {
runs: PROC[run: RunProc] ~ { IIMask.RunsFromBox[box: box, run: run] };
GrayMaskRunsInternal[data: data, bounds: box, runs: runs];
};
boxes[grayNonConstantBox];
};
};

ModifyColorFrame: PROC [vt: Terminal.Virtual, action: PROC, xmin: NAT, ymin: NAT, xmax: NAT, ymax: NAT] ~ INLINE {
IF vt = NIL THEN action[]
ELSE Terminal.ModifyColorFrame[vt: vt, action: action, xmin: xmin, ymin: ymin, xmax: xmax, ymax: ymax];
};

GrayMaskRuns: PROC[device: Device, bounds: DeviceBox, runs: PROC[RunProc]] ~ {
data: Data ~ NARROW[device.data];
grayMaskRunsAction: PROC ~ { GrayMaskRunsInternal[data, bounds, runs] };
ModifyColorFrame[vt: data.terminal, action: grayMaskRunsAction,
xmin: bounds.fmin, ymin: bounds.smin, xmax: bounds.fmax, ymax: bounds.smax];
};

GrayMaskBoxes: PROC[device: Device, bounds: DeviceBox, boxes: PROC[BoxProc]] ~ {
data: Data ~ NARROW[device.data];
grayMaskBoxesAction: PROC ~ { GrayMaskBoxesInternal[data, bounds, boxes] };
ModifyColorFrame[vt: data.terminal, action: grayMaskBoxesAction,
xmin: bounds.fmin, ymin: bounds.smin, xmax: bounds.fmax, ymax: bounds.smax];
};

GrayMaskBits: PROC[device: Device, srcBase: LONG POINTER, srcWordsPerLine: NAT, 
ts, tf: INTEGER, boxes: PROC[BoxProc]] ~ {
data: Data ~ NARROW[device.data];
grayMaskBitsBox: PROC[box: DeviceBox] ~ {
grayMaskBitsBoxAction: PROC ~ {
runs: PROC[run: RunProc] ~ { IIMask.RunsFromBits[
base: srcBase, wordsPerLine: srcWordsPerLine, 
sBits: box.smin-ts, fBits: box.fmin-tf, sRuns: box.smin, fRuns: box.fmin, 
sSize: box.smax-box.smin, fSize: box.fmax-box.fmin, run: run];
};
GrayMaskRunsInternal[data: data, bounds: box, runs: runs];
};
ModifyColorFrame[vt: data.terminal, action: grayMaskBitsBoxAction,
xmin: box.fmin, ymin: box.smin, xmax: box.fmax, ymax: box.smax];
};
boxes[grayMaskBitsBox];
};

GrayMoveBoxes: PROC [device: Device, ts, tf: INTEGER, boxes: PROC[BoxProc]] ~ TRUSTED {
data: Data ~ NARROW[device.data];
frame: Terminal.FrameBuffer ~ data.frame;
base: LONG POINTER ~ frame.base;
wordsPerLine: NAT ~ frame.wordsPerLine;
bbspace: PrincOps.BBTableSpace;
bb: PrincOps.BitBltTablePtr ~ PrincOpsUtils.AlignedBBTable[@bbspace];
action: SAFE PROC ~ TRUSTED { PrincOpsUtils.BITBLT[bb] };
moveBox: PROC[box: DeviceBox] ~ TRUSTED {
dfmin: NAT ~ Check[box.fmin, frame.width];
dsmin: NAT ~ Check[box.smin, frame.height];
dfmax: NAT ~ Check[box.fmax, frame.width];
dsmax: NAT ~ Check[box.smax, frame.height];
sfmin: NAT ~ dfmin-tf;
ssmin: NAT ~ dsmin-ts;
sfmax: NAT ~ dfmax-tf;
ssmax: NAT ~ dsmax-ts;
dstBit: CARDINAL ~ dfmin*bitsPerPixel;
srcBit: CARDINAL ~ sfmin*bitsPerPixel;
bpl: INTEGER _ wordsPerLine*bitsPerWord;
ss: NAT _ ssmin;
ds: NAT _ dsmin;
bb.flags _ [disjoint: TRUE, disjointItems: TRUE, direction: forward, gray: FALSE];
IF dsmin<ssmax AND dsmax>ssmin THEN {
bb.flags.disjoint _ FALSE;
IF dsmin=ssmin AND dfmin<sfmax AND dfmax>sfmin THEN bb.flags.disjointItems _ FALSE;
IF dsmin>ssmin OR (dsmin=ssmin AND dfmin>sfmin) THEN {
bb.flags.direction _ backward; bpl _ -bpl; ss _ ssmax-1; ds _ dsmax-1;
};
};
bb.dst.word _ base+Basics.LongMult[ds, wordsPerLine]+dstBit/bitsPerWord;
bb.dst.bit _ dstBit MOD bitsPerWord;
bb.dstBpl _ bpl;
bb.src.word _ base+Basics.LongMult[ss, wordsPerLine]+srcBit/bitsPerWord;
bb.src.bit _ srcBit MOD bitsPerWord;
bb.srcDesc.srcBpl _ bpl;
bb.width _ (dfmax-dfmin)*bitsPerPixel;
bb.height _ dsmax-dsmin;
ModifyColorFrame[vt: data.terminal, action: action,
xmin: MIN[dfmin, sfmin], ymin: MIN[dsmin, ssmin], 
xmax: MAX[dfmax, sfmax], ymax: MAX[dsmax, ssmax]];
};
bb^ _ nullBitBltTable;
boxes[moveBox];
};

END.

ŠImagerGrayDeviceImpl.mesa
Copyright c 1984, 1985 by Xerox Corporation.  All rights reserved.
Michael Plass, June 12, 1985 11:53:55 am PDT
Doug Wyatt, May 30, 1985 11:24:15 pm PDT
defaultDot: ImagerPixelMap.PixelMap ~ ImagerSampler.DotScreen[
r: 0.5, sSize: 16, fSize: 16, maxPixelValue: 255];

data.halftone _ halftone;
IF x IN[0..max] THEN RETURN[x] ELSE ERROR RuntimeError.BoundsFault

ΚΚ˜
codeš
œ™Kšœ
Οm
œ7™BK™,K™(—K˜š
Οk	˜	Jšœžœžœžœ˜5JšœžœK˜\Jšœžœ7˜LJšœžœ+˜?Jšœ	žœW˜eJšœžœ˜)Jšœ
žœ˜/Jšœžœ˜$Jšœžœ˜%Jšœ	žœ˜Jšœ	žœ©
˜·
Jšœžœ2˜HJšœ	žœb˜pJšœžœžœ˜-Jšœžœ
˜Jšœ	žœ@˜NJšœžœžœ˜—K˜KšΠblœžœ
ž˜Kšžœu˜|Kšžœ˜Kšœžœ
žœ
˜K˜Kšžœžœ
žœ
˜Kšžœžœžœ
˜Kšœžœ#˜7Kšœžœ˜ Kšœžœ˜0Kšœžœ˜.Kšœžœ˜0Kšœžœ˜/Kšœžœ˜Kšœžœ˜+Kšœžœ˜-K˜Kšœžœ$˜;Kšœžœ
žœ'˜HK˜Kšœžœ%˜/K˜Kšœžœžœ
žœ	žœ
žœ
˜2K˜Kšœžœžœ	˜šœ	žœžœ
˜K˜KšœΟc˜0Kšœ ˜'Kšœžœžœ
˜Kšœžœžœ
˜ K˜)Kšœ" ˜1Kšœ
žœ "˜6Kšœžœ ˜2Kšœžœ ˜2Kšœžœ +˜MKšœ1žœ !˜XKšœžœ ˜7Kšœ žœ
 ˜CK˜K˜—šœžœ˜1Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜K˜—š
œ>™>Kš
œ2™2K™—šΟn
œžœ
žœžœ˜JKš
œF˜FKšžœžœ
žœžœ
žœ
žœ
˜5šžœ˜Kšœ
žœ/˜?Kšœžœ˜2Kš
œP˜PKš
œ#˜#šžœ
žœ$˜.Kš
œ?˜?Kš
œ!˜!Kš
œ4˜4Kš
œ˜Kš
œ˜—K˜—K˜K˜—K˜š
œ)˜)Kšœžœ˜$Kšœžœ ˜/Kš
œ˜Kš
œ˜K˜—Kšœžœ˜Kšœ
žœ˜&K˜š
‘œžœžœžœžœ˜MKšœžœ
žœ	žœ
žœžœ˜1Kšžœžœ	žœ
žœ	žœžœ
žœ
žœ
˜JK˜K˜—š
‘œžœžœžœ
žœ˜3Kšžœžœ
žœ ˜ Kšžœžœ
žœ
žœ
žœ ˜(Kšžœžœ
žœ ˜)K˜K˜—Kšœžœ *˜JKšœžœ
žœ˜EKšœ!žœ˜DK˜š‘œžœ@˜RKšœ
žœ˜!šžœžœ
ž˜˜K˜%Kš
œ˜Kšœžœ
˜Kšœžœžœ ˜Hšžœžœ
ž˜š
œ˜Kšœžœ
˜šžœž˜Kš
œ/˜/Kš
œG˜GKš
œ'˜'Kš
œ%˜%Kšžœžœ
˜—Kšžœžœ
žœ
žœ˜+KšžœD˜HKš
œ˜—šžœ˜Kšœžœ˜)Kš
œ!˜!K˜——K˜—š
œ˜Kš
œ˜Kš
œ˜Kš
œ3˜3Kšœžœ˜*Kšœžœ˜Kšœžœ˜Kš
œ3˜3Kš
œš
˜š
Kšœžœ
žœ˜1Kšœžœ˜-Kš
œB˜BKš
œ4˜4Kš
œ
˜
K˜8šžœžœ
žœž˜Kš
œI˜IKš
œY˜YKšžœŸ
˜¦
Kšžœ
˜—Kš
œ˜Kš
œE˜EKš
œ˜Kšžœžœ
žœžœ˜FKš
œ˜Kš
œ/˜/Kš
œ1˜1Kš
œ ˜ Kš
œ ˜ Kš
œ"˜"Kš
œ"˜"Kš
œ=˜=Kšžœ
žœ
žœ7˜Nšžœ6ž˜@Kšœ&žœžœ˜LKšœDžœ˜JKšžœ1žœ
˜>—K˜K˜—Kšžœžœ ˜*—Kš
œ˜K˜—š‘œžœ$žœ˜BKš
œ˜K˜—š‘œžœ2˜GKšœ
žœ˜!K™K˜K˜—š‘œžœžœžœžœ
žœ˜1Kšžœ
žœ
žœ$˜8Kšžœžœ	žœ
žœžœ
žœ™BK˜—š‘œžœ&žœ˜RKš
œ)˜)Kšœžœ
žœ˜ Kšœžœ˜'šžœž˜Kšœžœ ˜&šœžœ˜K˜Kš
œE˜Eš	œžœ
žœ	žœžœ˜BKšœžœ˜"Kšœžœ˜#Kšœžœ
žœ)˜;Kšœžœ˜Kš
œ#˜#Kšœžœ
˜!Kš
œ4˜4Kš
œ%˜%Kšœžœ˜K˜—Kš
œ˜Kš
œ%˜%Kšœžœ˜'Kš
œD˜DKš
œ˜Kš
œ˜K˜—šœžœ˜K˜Kš
œE˜EKšœ	žœ
žœžœ˜0Kšœžœ ˜4š	œžœ
žœ	žœžœ˜AKšœžœ˜%Kšœžœ"˜+Kšœžœ˜&Kšœžœ˜(Kšœ	žœ
žœ,˜AKšœ	žœ
žœžœ˜=š	žœžœ
žœžœž˜*Kšœžœ˜Kšœžœžœ˜%Kš
œ)˜)Kšœžœ
˜$Kš
œ)˜)Kšœžœ
˜$Kš
œ˜Kšœžœ˜Kšžœ
˜—K˜—Kš
œ˜Kš
œ˜Kš
œD˜DKš
œ˜Kš
œ˜Kš
œ˜K˜—˜Kš
œ)˜)Kš
œ#˜#š	œžœ
žœ	žœžœ˜AKšœžœ˜#Kšœžœ˜"Kšœžœ˜)Kš
œA˜AKš
œd˜dKšžœ‡
žœžœžœ˜½
K˜—Kš
œc˜cKš
œ˜K˜—Kšžœžœ ˜!—K˜K˜—š‘œžœ'žœ˜Tšžœžœ
žœ˜$Kš
œ)˜)Kšœžœ
žœ˜ Kšœžœ˜'K˜Kš
œE˜Ešœžœžœ˜1Kšœžœ ˜)Kšœžœ ˜)Kšœžœ!˜*Kšœžœ!˜*Kšœžœ
žœ,˜>Kšœžœ˜Kš
œ#˜#Kšœžœ
˜!Kš
œ$˜$Kš
œ˜Kšœžœ˜K˜—Kš
œ˜Kš
œ%˜%Kšœžœ˜'Kš
œD˜DKš
œ˜Kš
œ˜K˜
—šžœ˜šœžœ˜,Kšœžœ<˜FK˜:K˜—Kš
œ˜K˜—K˜K˜—•StartOfExpansiont[vt: 
Terminal.Virtual, action: 
PROC, xmin: 
NAT _ 0, ymin: 
NAT _ 0, xmax: 
NAT _ 32767, ymax: 
NAT _ 32767]š‘œžœ žœžœžœžœžœžœ˜rKšžœžœ
žœ	˜Kšžœc˜gKš
œ˜K˜—š‘œžœ*žœ˜NKšœ
žœ˜!Kšœžœ0˜HKš
œŒ
˜Œ
K˜K˜—š‘
œžœ+žœ˜PKšœ
žœ˜!Kšœžœ2˜KKš
œ
˜
K˜K˜—š‘œžœžœ
žœžœžœ	žœ˜{Kšœ
žœ˜!šœžœ˜)šœžœ˜šœžœΰ
˜κ
Kš
œ˜—K˜:Kš
œ˜—Kš
œƒ
˜ƒ
K˜—Kš
œ˜K˜K˜—š
‘
œžœžœ	žœ
žœ˜WKšœ
žœ˜!Kš
œ)˜)Kšœžœ
žœ˜ Kšœžœ˜'K˜Kš
œE˜EKš	œžœ
žœžœžœ˜9šœ	žœžœ˜)Kšœžœ ˜*Kšœžœ!˜+Kšœžœ ˜*Kšœžœ!˜+Kšœžœ˜Kšœžœ˜Kšœžœ˜Kšœžœ˜Kšœžœ˜&Kšœžœ˜&Kšœžœ˜(Kšœžœ	˜Kšœžœ	˜Kšœžœžœžœ˜Ršžœ
žœ
žœ˜%Jšœžœ
˜Kš
žœ
žœ
žœ
žœžœ
˜Sšžœ
žœžœžœ˜6Jš
œF˜FK˜—K˜—Kš
œH˜HKšœžœ
˜$Kš
œ˜Kš
œH˜HKšœžœ
˜$Kš
œ˜Kš
œ&˜&Kš
œ˜Kš	œ:žœžœžœžœ˜™
K˜—Kš
œ˜K˜K˜K˜—K™Kšžœ
˜—…—<"Mv