1 rizwank 1.1 %!PS-Adobe-2.0 EPSF-2.0
  2             %%Title: /home/mtr/myprogs/enscript/mtr_tiny.eps
  3             %%Creator: XV Version 3.10a  Rev: 12/29/94  -  by John Bradley
  4             %%BoundingBox: 279 421 298 443
  5             %%Pages: 1
  6             %%DocumentFonts:
  7             %%EndComments
  8             %%EndProlog
  9             
 10             %%Page: 1 1
 11             
 12             % remember original state
 13             /origstate save def
 14             
 15             % build a temporary dictionary
 16             20 dict begin
 17             
 18             % define string to hold a scanline's worth of data
 19             /pix 57 string def
 20             
 21             % define space for color conversions
 22 rizwank 1.1 /grays 19 string def  % space for gray scale line
 23             /npixls 0 def
 24             /rgbindx 0 def
 25             
 26             % lower left corner
 27             279 421 translate
 28             
 29             % size of image (on paper, in 1/72inch coords)
 30             19.00800 22.03200 scale
 31             
 32             % define 'colorimage' if it isn't defined
 33             %   ('colortogray' and 'mergeprocs' come from xwd2ps
 34             %     via xgrab)
 35             /colorimage where   % do we know about 'colorimage'?
 36               { pop }           % yes: pop off the 'dict' returned
 37               {                 % no:  define one
 38                 /colortogray {  % define an RGB->I function
 39                   /rgbdata exch store    % call input 'rgbdata'
 40                   rgbdata length 3 idiv
 41                   /npixls exch store
 42                   /rgbindx 0 store
 43 rizwank 1.1       0 1 npixls 1 sub {
 44                     grays exch
 45                     rgbdata rgbindx       get 20 mul    % Red
 46                     rgbdata rgbindx 1 add get 32 mul    % Green
 47                     rgbdata rgbindx 2 add get 12 mul    % Blue
 48                     add add 64 idiv      % I = .5G + .31R + .18B
 49                     put
 50                     /rgbindx rgbindx 3 add store
 51                   } for
 52                   grays 0 npixls getinterval
 53                 } bind def
 54             
 55                 % Utility procedure for colorimage operator.
 56                 % This procedure takes two procedures off the
 57                 % stack and merges them into a single procedure.
 58             
 59                 /mergeprocs { % def
 60                   dup length
 61                   3 -1 roll
 62                   dup
 63                   length
 64 rizwank 1.1       dup
 65                   5 1 roll
 66                   3 -1 roll
 67                   add
 68                   array cvx
 69                   dup
 70                   3 -1 roll
 71                   0 exch
 72                   putinterval
 73                   dup
 74                   4 2 roll
 75                   putinterval
 76                 } bind def
 77             
 78                 /colorimage { % def
 79                   pop pop     % remove 'false 3' operands
 80                   {colortogray} mergeprocs
 81                   image
 82                 } bind def
 83               } ifelse          % end of 'false' case
 84             
 85 rizwank 1.1 
 86             
 87             19 22 8			% dimensions of data
 88             [19 0 0 -22 0 22]		% mapping matrix
 89             {currentfile pix readhexstring pop}
 90             false 3 colorimage
 91             
 92             b5b5b5babababcbcbcbcbcbcbababababababcbcbcbababab6b6b6b4b4b4b2b2b2a0a0a0
 93             6262626c6c6ca3a3a3adadadd4d4d4202020212121
 94             babababcbcbcbcbcbcbcbcbcbababab8b8b8b8b8b8b6b6b6b4b4b4b4b4b4adadad737373
 95             7878787575756d6d6d6c6c6c6d6d6d838383606060
 96             babababcbcbcbcbcbcbcbcbcb8b8b8b8b8b8bababa6868688282828a8a8a7e7e7e7c7c7c
 97             7979796969697979797272726c6c6c636363575757
 98             bcbcbcbcbcbcbabababababab6b6b66e6e6e5454545d5d5d5959596868685d5d5d737373
 99             4c4c4c3d3d3d6f6f6f6f6f6f636363686868575757
100             babababcbcbcbababab8b8b84c4c4c3a3a3a3f3f3f3c3c3c4b4b4b4e4e4e3c3c3c6f6f6f
101             4444445656567878787070706161616a6a6a636363
102             babababcbcbcbababab6b6b62727273333332929292a2a2a2e2e2e3a3a3a6a6a6a818181
103             a7a7a75959598c8c8c7676769e9e9e777777696969
104             bcbcbcbababab8b8b83030303131313232322f2f2f2b2b2b3b3b3b5858587c7c7c8a8a8a
105             b2b2b27a7a7a9696968b8b8b9191918e8e8e919191
106 rizwank 1.1 babababababab8b8b82222222626262e2e2e3232324a4a4a5c5c5c686868757575868686
107             b0b0b0bdbdbd7979796969696e6e6e7b7b7b525252
108             b8b8b8b6b6b6b6b6b63131313131314343434d4d4d5c5c5c5a5a5a6666666565655d5d5d
109             6a6a6ab6b6b66e6e6e6363636e6e6e6c6c6c616161
110             b8b8b8b6b6b6b6b6b6a1a1a13a3a3a5151514f4f4f2f2f2f4040404c4c4c949494424242
111             a8a8a89b9b9b5353535e5e5e666666676767646464
112             b6b6b6b6b6b6b4b4b4b0b0b04141415555554444444d4d4d4c4c4c5151518a8a8a616161
113             9d9d9db4b4b47b7b7b5c5c5c6363636767675f5f5f
114             b4b4b4b4b4b4b2b2b2aeaeae4545455959595b5b5b5b5b5b575757525252898989adadad
115             8c8c8cbfbfbf5b5b5b555555606060696969777777
116             b2b2b2b2b2b2b0b0b0acacac6363636161615959595d5d5d5b5b5b5353535e5e5e8c8c8c
117             adadadb1b1b16c6c6c5050506b6b6b6f6f6f6c6c6c
118             b2b2b2aeaeaeb0b0b0acacaca8a8a85858585b5b5b5e5e5e5f5f5f5353536868689e9e9e
119             b5b5b5c2c2c23a3a3a3e3e3e3e3e3e444444474747
120             b0b0b0aeaeaeacacacaaaaaaa4a4a4a5a5a55b5b5b5f5f5f5b5b5b3131313232323a3a3a
121             b5b5b59292924545454d4d4d353535575757565656
122             b0b0b0aeaeaeacacaca6a6a6a2a2a2a0a0a05d5d5d5e5e5e5555555555555a5a5a7a7a7a
123             a3a3a3acacac4c4c4c5f5f5f2e2e2e4848485e5e5e
124             aeaeaeacacacacacaca4a4a4a0a0a08f8f8f5858586161615a5a5a5555555d5d5d9a9a9a
125             a9a9a9b0b0b04545454e4e4e242424868686949494
126             aeaeaeacacaca8a8a8a2a2a2a0a0a09999994c4c4c5757575d5d5d6969696d6d6d898989
127 rizwank 1.1 aaaaaa2828281e1e1e9090909090909595951d1d1d
128             aaaaaaa8a8a8a8a8a8c9c9c99b9b9ba2a2a27575755757575757576565659f9f9fb4b4b4
129             7f7f7f2c2c2c4040408d8d8d8a8a8a818181232323
130             a8a8a8c4c4c4d2d2d2b8b8b8aeaeae797979a2a2a2a2a2a25f5f5f6969699e9e9eadadad
131             a2a2a24848486565658b8b8b8686867c7c7c1f1f1f
132             b9b9b9bfbfbfe5e5e5bebebea5a5a5aeaeaea4a4a49e9e9edddddd6f6f6f8b8b8b5d5d5d
133             a8a8a8e1e1e1e8e8e87e7e7e7c7c7c7272724c4c4c
134             dadadad3d3d3d5d5d5cccccc828282767676b6b6b6b1b1b17b7b7bb9b9b96a6a6a3f3f3f
135             afafafefefefc0c0c0f0f0f04d4d4d5454544d4d4d
136             
137             showpage
138             
139             % stop using temporary dictionary
140             end
141             
142             % restore original state
143             origstate restore
144             
145             %%Trailer