DIRECTORYPS,Vector2;PSPaintImpl: CEDAR PROGRAMIMPORTS PS, Vector2~ BEGIN OPEN PS;Fill: PROC [g: GState, oddWrap: BOOL] ~ {};Stroke: PROC [g: GState] ~ {};Image: PROC [g: GState, width: INT, height: INT, bitsPerSample: INT, matrix: Matrix, stringProc: PROC RETURNS [String]] ~ {};ImageMask: PROC [g: GState, width: INT, height: INT, invert: BOOL, matrix: Matrix, stringProc: PROC RETURNS [String]] ~ {};Perasepage: PROC [self: Root] ~ {g: GState ~ self.graphics;};Pfill: PROC [self: Root] ~ {g: GState ~ self.graphics;Fill[g, FALSE];};Peofill: PROC [self: Root] ~ {g: GState ~ self.graphics;Fill[g, TRUE];};Pstroke: PROC [self: Root] ~ {g: GState ~ self.graphics;Stroke[g];};Pimage: PROC [self: Root] ~ {g: GState ~ self.graphics;proc: Any ~ PopAny[self];matrixArray: Array ~ PopArray[self];bitsPerSample: INT ~ PopInt[self];height: INT ~ PopInt[self];width: INT ~ PopInt[self];stringProc: PROC RETURNS [String] ~ {Execute[self, proc];RETURN [PopString[self.ostack]];};Image[g, width, height, bitsPerSample, GetMatrix[matrix], stringProc];};Pimagemask: PROC [self: Root] ~ {g: GState ~ self.graphics;proc: Any ~ PopAny[self];matrixArray: Array ~ PopArray[self];invert: BOOL ~ PopBool[self];height: INT ~ PopInt[self];width: INT ~ PopInt[self];stringProc: PROC RETURNS [String] ~ {Execute[self, proc];RETURN [PopString[self.ostack]];};ImageMask[g, width, height, invert, GetMatrix[matrix], stringProc];};PaintPrimitives: PROC [self: Root] ~ {Register[self, "erasepage", Perasepage];Register[self, "fill", Pfill];Register[self, "eofill", Peofill];Register[self, "stroke", Pstroke];Register[self, "image", Pimage];Register[self, "imagemask", Pimagemask];};RegisterPrimitives[PaintPrimitives];END.   à  PSPaintImpl.mesaCopyright Ó 1986, 1987 by Xerox Corporation.  All rights reserved.Doug Wyatt, March 26, 1987 11:16:50 am PSTPostScript implementation: painting operators.Painting operatorsPrimitivesRegistrationÊœ  ˜ codešœ™KšœB™BK™*—K˜ K™.K™ šÏk	˜	Kšœ˜K˜—K˜ KšÏnœœ˜Kšœœ	˜Kšœœœœ˜head™šžœœœ˜)K˜K˜ —šžœœ˜K˜K˜ —šžœœœ
œœœœ˜|K˜K˜ —šž	œœœ
œ
œœœ˜zK˜K˜ ——™
šž
œœ˜!K˜K˜K˜ —šžœœ˜K˜Kšœœ˜K˜K˜ —šžœœ˜K˜Kšœœ˜K˜K˜ —šžœœ˜K˜K˜
K˜K˜ —šžœœ˜K˜K˜K˜$Kšœœ˜"Kšœœ˜Kšœœ˜šœœœ˜%K˜Kšœ˜ K˜—KšœF˜FK˜K˜ —šž
œœ˜!K˜K˜K˜$Kšœœ˜Kšœœ˜Kšœœ˜šœœœ˜%K˜Kšœ˜ K˜—KšœC˜CK˜K˜ ——™šžœœ˜&Kšœ(˜(Kšœ˜Kšœ"˜"Kšœ"˜"Kšœ ˜ Kšœ(˜(J˜J˜ —Jšœ$˜$—J˜ Jšœ˜— …—    î  
j  