diff options
Diffstat (limited to 'uno')
| -rw-r--r-- | uno | 316 |
1 files changed, 316 insertions, 0 deletions
@@ -0,0 +1,316 @@ +%!PS-Adobe-3.0 +%%Creator: (ImageMagick) +%%Title: (uno) +%%CreationDate: (Sun Aug 10 19:46:10 2008) +%%BoundingBox: 595 209 611 236 +%%HiResBoundingBox: 595 209 611 236 +%%DocumentData: Clean7Bit +%%LanguageLevel: 1 +%%Orientation: Portrait +%%PageOrder: Ascend +%%Pages: 1 +%%EndComments + +%%BeginDefaults +%%EndDefaults + +%%BeginProlog +% +% Display a color image. The image is displayed in color on +% Postscript viewers or printers that support color, otherwise +% it is displayed as grayscale. +% +/DirectClassPacket +{ + % + % Get a DirectClass packet. + % + % Parameters: + % red. + % green. + % blue. + % length: number of pixels minus one of this color (optional). + % + currentfile color_packet readhexstring pop pop + compression 0 eq + { + /number_pixels 3 def + } + { + currentfile byte readhexstring pop 0 get + /number_pixels exch 1 add 3 mul def + } ifelse + 0 3 number_pixels 1 sub + { + pixels exch color_packet putinterval + } for + pixels 0 number_pixels getinterval +} bind def + +/DirectClassImage +{ + % + % Display a DirectClass image. + % + systemdict /colorimage known + { + columns rows 8 + [ + columns 0 0 + rows neg 0 rows + ] + { DirectClassPacket } false 3 colorimage + } + { + % + % No colorimage operator; convert to grayscale. + % + columns rows 8 + [ + columns 0 0 + rows neg 0 rows + ] + { GrayDirectClassPacket } image + } ifelse +} bind def + +/GrayDirectClassPacket +{ + % + % Get a DirectClass packet; convert to grayscale. + % + % Parameters: + % red + % green + % blue + % length: number of pixels minus one of this color (optional). + % + currentfile color_packet readhexstring pop pop + color_packet 0 get 0.299 mul + color_packet 1 get 0.587 mul add + color_packet 2 get 0.114 mul add + cvi + /gray_packet exch def + compression 0 eq + { + /number_pixels 1 def + } + { + currentfile byte readhexstring pop 0 get + /number_pixels exch 1 add def + } ifelse + 0 1 number_pixels 1 sub + { + pixels exch gray_packet put + } for + pixels 0 number_pixels getinterval +} bind def + +/GrayPseudoClassPacket +{ + % + % Get a PseudoClass packet; convert to grayscale. + % + % Parameters: + % index: index into the colormap. + % length: number of pixels minus one of this color (optional). + % + currentfile byte readhexstring pop 0 get + /offset exch 3 mul def + /color_packet colormap offset 3 getinterval def + color_packet 0 get 0.299 mul + color_packet 1 get 0.587 mul add + color_packet 2 get 0.114 mul add + cvi + /gray_packet exch def + compression 0 eq + { + /number_pixels 1 def + } + { + currentfile byte readhexstring pop 0 get + /number_pixels exch 1 add def + } ifelse + 0 1 number_pixels 1 sub + { + pixels exch gray_packet put + } for + pixels 0 number_pixels getinterval +} bind def + +/PseudoClassPacket +{ + % + % Get a PseudoClass packet. + % + % Parameters: + % index: index into the colormap. + % length: number of pixels minus one of this color (optional). + % + currentfile byte readhexstring pop 0 get + /offset exch 3 mul def + /color_packet colormap offset 3 getinterval def + compression 0 eq + { + /number_pixels 3 def + } + { + currentfile byte readhexstring pop 0 get + /number_pixels exch 1 add 3 mul def + } ifelse + 0 3 number_pixels 1 sub + { + pixels exch color_packet putinterval + } for + pixels 0 number_pixels getinterval +} bind def + +/PseudoClassImage +{ + % + % Display a PseudoClass image. + % + % Parameters: + % class: 0-PseudoClass or 1-Grayscale. + % + currentfile buffer readline pop + token pop /class exch def pop + class 0 gt + { + currentfile buffer readline pop + token pop /depth exch def pop + /grays columns 8 add depth sub depth mul 8 idiv string def + columns rows depth + [ + columns 0 0 + rows neg 0 rows + ] + { currentfile grays readhexstring pop } image + } + { + % + % Parameters: + % colors: number of colors in the colormap. + % colormap: red, green, blue color packets. + % + currentfile buffer readline pop + token pop /colors exch def pop + /colors colors 3 mul def + /colormap colors string def + currentfile colormap readhexstring pop pop + systemdict /colorimage known + { + columns rows 8 + [ + columns 0 0 + rows neg 0 rows + ] + { PseudoClassPacket } false 3 colorimage + } + { + % + % No colorimage operator; convert to grayscale. + % + columns rows 8 + [ + columns 0 0 + rows neg 0 rows + ] + { GrayPseudoClassPacket } image + } ifelse + } ifelse +} bind def + +/DisplayImage +{ + % + % Display a DirectClass or PseudoClass image. + % + % Parameters: + % x & y translation. + % x & y scale. + % label pointsize. + % image label. + % image columns & rows. + % class: 0-DirectClass or 1-PseudoClass. + % compression: 0-none or 1-RunlengthEncoded. + % hex color packets. + % + gsave + /buffer 512 string def + /byte 1 string def + /color_packet 3 string def + /pixels 768 string def + + currentfile buffer readline pop + token pop /x exch def + token pop /y exch def pop + x y translate + currentfile buffer readline pop + token pop /x exch def + token pop /y exch def pop + currentfile buffer readline pop + token pop /pointsize exch def pop + /Times-Roman findfont pointsize scalefont setfont + x y scale + currentfile buffer readline pop + token pop /columns exch def + token pop /rows exch def pop + currentfile buffer readline pop + token pop /class exch def pop + currentfile buffer readline pop + token pop /compression exch def pop + class 0 gt { PseudoClassImage } { DirectClassImage } ifelse + grestore + showpage +} bind def +%%EndProlog +%%Page: 1 1 +%%PageBoundingBox: 595 209 611 236 +DisplayImage +595 209 +16 27 +12.000000 +16 27 +0 +0 +1E20391E20391E20391E20391E20391E20391E20391E20391E20391E20391E20391F213A +1F213A1F213A1F213A1F213A1E20391E20391E20391E20391E20391E20391E20391E2039 +1E20391E20391E20391F213A1F213A1F213A1F213A1F213A1E20391E20391E20391E2039 +1E20391E20391E20391E20391E20391E20391E20391F213A1F213A1F213A1F213A1F213A +1E20391E20391E20391E20391E20391E20391E20391E20391E20391E20391E20391F213A +1F213A1F213A1F213A1F213A1E20391E20391E20391E20391E20391E20391E20391E2039 +1E20391E20391E20391F213A1F213A1F213A1F213A1F213A1E20391E20391E20391E2039 +1E20391E20391E20391E20391E20391E20391E20391F213A1F213A1F213A1F213A1F213A +1E20391E20391E20391E20391E20391E20391E20391E20391E20391E20391E20391F213A +1F213A1F213A1F213A1F213A1E20391E20391E20391E20391E20391D1F381E20391E2039 +1E20391E20391E20391E20391E20391E20391E20391E20391E20391E20391E20391E2039 +1E20391E20391E20391E20391E20391E20391E20391E20391E20391E20391F213A1F213A +1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B +1F203C1F203C1F203C1F203C1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B +1E1F3B1E1F3B1E1F3B1F203C1F203C1F203C1F203C1F203C1F203C1F203C1F203C1F203C +1F203C1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1F203C1F203C1F203C1F203C1F203C +1F203D1F203D1F203D1F203D1F203D1E1F3C1E1F3C1E1F3C1E1F3C1F203D1F203D1F203D +1F203D1F203D1F203D1F203D1F203E1F203E1F203E1F203E1F203E1E1F3D1E1F3D1E1F3D +1E1F3D1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E +1F203E1E1F3D1E1F3D1E1F3D1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E +1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E +1F203E1F203E1F203E20213F1F203E1F203E1F203E1F203E1F203E2425432122401D1E3C +1E1F3D20213F2122401F203E1F203E1E1F3D21224021224020213F20213F20213F20213F +20213F1A1B391B1C3A1B1C3A20213F22234123244220213F21224021224022234120213F +1F21401F21401F21401F21401F214022234223244223244223244322234120213F1B1C3B +1E1F3E2021402324422122401E21401E21401E21401E21401E2140202140202140202140 +2122412021401F203F1C1D3C1E1F3E2021402324432021401D203F1D203F1D203F1D203F +1D203F1E1F3E1D1E3D1B1C3B1D1E3D1F203F2122412122412223422223422223421F203F +1E21411E21411E21411E21411E21412E2F4E2728482021411D1D3D202040222242232443 +2223422122412122412122412023442023442023442023442023444646683A3A5C2E2E50 +2020422020421F1F411D1D3F1C1C3E1B1B3D1F1F41222244212143212143212143212143 +2121432727492222441D1D3F1B1B3D1E1E402121432020421F1F411D1D3F1E1E401E1E40 +1F1F411F1F411F1F411F1F411F1F412222442020421E1E402020422121432222441F1F41 +1F1F411F1F412222442121432020422020422020422020422020422020442020441F1F43 +202044212144212144202043202043202043212144212144212143202042202042202042 +202042212145212145212145212145212145212145212145212145212145212145212145 + +%%PageTrailer +%%Trailer +%%EOF |