%%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
/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
} bind def
%%EndProlog
%%Page: 1 1
%%PageBoundingBox: 0 0 5 5
userdict begin
DisplayImage
0 0
5.22 5.22
12
29 29
0
0
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDEDEDED6D6D6D6D6D6D6D6D6
D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6EFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC6C6C69C5252
B52929AD3131B52929AD3131B52929AD3131B52929AD3131AD3131AD9494EFEFEFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
B5B5B5A54A4AEF0808F70000F70000F70000F70000F70000F70000F70000F70000F70000C61818
AD9494EFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFEFEFEFC6C6C6A53939EF0808F70000F70000F70000F70000F70000F70000F70000F70000
F70000F70000F70000C61818A58484EFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFC6C6C69C5A5AEF0808F70000F70000F70000F70000F70000F70000
F70000F70000F70000F70000F70000F70000F70000C61818A5A5A5EFEFEFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB5B5B5A53939EF0808F70000F70000F70000F70000
F70000F70000B50000940000D60000F70000F70000F70000F70000F70000F70000C61818A58484
EFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC6C6C6A54A4AEF0808F70000F70000
F70000F70000F70000F70000BD00002900001000005A0000EF0808F70000F70000F70000F70000
F70000F70000C61818AD9494EFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDEDEDE9C5252EF0808
F70000F70000F70000F70000F70000F70000F70000940000100000100000290000D60000F70000
F70000F70000F70000F70000F70000F70000C61818B5A5A5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
D6D6D6AD3131F70000F70000F70000F70000F70000F70000F70000F70000AD0000180000100000
420000DE0000F70000F70000F70000F70000F70000F70000F70000EF0808947B7BFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFD6D6D6B52929F70000F70000F70000F70000F70000F70000F70000F70000
C60000210000080000520000EF0808F70000F70000F70000F70000F70000F70000F70000EF0808
947B7BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD6D6D6AD3131F70000F70000F70000F70000F70000
F70000F70000F70000DE0000310000100000730000F70000F70000F70000F70000F70000F70000
F70000F70000EF0808947B7BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD6D6D6B52929F70000F70000
F70000F70000F70000F70000F70000F70000E700004A00001000008C0000F70000F70000F70000
F70000F70000F70000F70000F70000EF0808947B7BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD6D6D6
AD3131F70000F70000F70000F70000F70000F70000F70000F70000F70000520000100000A50000
F70000F70000F70000F70000F70000F70000F70000F70000EF0808947B7BFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFD6D6D6B52929F70000F70000F70000F70000F70000F70000F70000F70000F70000
6B0000180000AD0000F70000F70000F70000F70000F70000F70000F70000F70000EF0808947B7B
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD6D6D6AD3131F70000F70000F70000F70000F70000F70000
F70000F70000F70000BD0000840000D60000F70000F70000F70000F70000F70000F70000F70000
F70000EF0808947B7BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD6D6D6B52929F70000F70000F70000
F70000F70000F70000F70000F70000E700007B0000520000AD0000F70000F70000F70000F70000
F70000F70000F70000F70000EF0808947B7BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDEDEDEAD3131
F70000F70000F70000F70000F70000F70000F70000F70000AD0000100000100000420000DE0000
F70000F70000F70000F70000F70000F70000F70000CE2929A59494FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFEFEFEFB59C9CC61818F70000F70000F70000F70000F70000F70000F70000B50000210000
1000004A0000E70000F70000F70000F70000F70000F70000F70000D629299C7B7BDEDEDEFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFB59C9CC61818F70000F70000F70000F70000F70000
F70000F70000B50000840000CE0000F70000F70000F70000F70000F70000F70000D62929A58484
DEDEDEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFAD9494C61010F70000
F70000F70000F70000F70000F70000F70000F70000F70000F70000F70000F70000F70000F70000
E72121947B7BDEDEDEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
F7F7F7B5B5B5C61010F70000F70000F70000F70000F70000F70000F70000F70000F70000F70000
F70000F70000D62929947B7BEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFEFEFEFAD9494C61818F70000F70000F70000F70000F70000F70000
F70000F70000F70000F70000D62929A58484DEDEDEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFB59C9CC61818EF0808E70000
EF0808E70000EF0808E70000EF0808E70000CE2929947B7BDEDEDEFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7F7
BDADAD9C7B7B9C7B7B9C7B7B9C7B7B9C7B7B9C7B7B9C7B7B9C7B7BA59494DEDEDEFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
