%!PS-Adobe-2.0 EPSF-2.0 %%Title: /ufs/goualard/TEMP/barre_hor.ps %%Creator: XV Version 3.10a Rev: 12/29/94 (PNG patch 1.2) - by John Bradley %%BoundingBox: -168 371 782 421 %%Pages: 1 %%DocumentFonts: %%EndComments %%EndProlog %%Page: 1 1 % remember original state /origstate save def % build a temporary dictionary 20 dict begin % define space for color conversions /grays 950 string def % space for gray scale line /npixls 0 def /rgbindx 0 def % lower left corner -168 371 translate % size of image (on paper, in 1/72inch coords) 949.96800 49.96800 scale % define 'colorimage' if it isn't defined % ('colortogray' and 'mergeprocs' come from xwd2ps % via xgrab) /colorimage where % do we know about 'colorimage'? { pop } % yes: pop off the 'dict' returned { % no: define one /colortogray { % define an RGB->I function /rgbdata exch store % call input 'rgbdata' rgbdata length 3 idiv /npixls exch store /rgbindx 0 store 0 1 npixls 1 sub { grays exch rgbdata rgbindx get 20 mul % Red rgbdata rgbindx 1 add get 32 mul % Green rgbdata rgbindx 2 add get 12 mul % Blue add add 64 idiv % I = .5G + .31R + .18B put /rgbindx rgbindx 3 add store } for grays 0 npixls getinterval } bind def % Utility procedure for colorimage operator. % This procedure takes two procedures off the % stack and merges them into a single procedure. /mergeprocs { % def dup length 3 -1 roll dup length dup 5 1 roll 3 -1 roll add array cvx dup 3 -1 roll 0 exch putinterval dup 4 2 roll putinterval } bind def /colorimage { % def pop pop % remove 'false 3' operands {colortogray} mergeprocs image } bind def } ifelse % end of 'false' case % define the colormap /cmap 117 string def % load up the colormap currentfile cmap readhexstring bcfe04 dcfe84 ccfe44 ecfec4 c4fe24 d4fe64 f4fee4 e4fea4 bcfe14 ccfe54 f4fed4 c4fe34 d4fe74 fcfef4 ecfeb4 e4fe94 f4fecc fcfee4 ecfeac c4fe1c d4fe54 ccfe3c dcfe74 bcfe0c dcfe8c ccfe4c ecfecc c4fe2c d4fe6c e4feac bcfe1c f4fedc c4fe3c fcfefc ecfebc e4fe9c fcfeec d4fe5c dcfe7c pop pop % lose return values from readhexstring % rlecmapimage expects to have 'w h bits matrix' on stack /rlecmapimage { /buffer 1 string def /rgbval 3 string def /block 384 string def % proc to read a block from file, and return RGB data { currentfile buffer readhexstring pop /bcount exch 0 get store bcount 128 ge { % it's a non-run block 0 1 bcount 128 sub { currentfile buffer readhexstring pop pop % look up value in color map /rgbval cmap buffer 0 get 3 mul 3 getinterval store % and put it in position i*3 in block block exch 3 mul rgbval putinterval } for block 0 bcount 127 sub 3 mul getinterval } { % else it's a run block currentfile buffer readhexstring pop pop % look up value in colormap /rgbval cmap buffer 0 get 3 mul 3 getinterval store 0 1 bcount { block exch 3 mul rgbval putinterval } for block 0 bcount 1 add 3 mul getinterval } ifelse } % end of proc false 3 colorimage } bind def 950 50 8 % dimensions of data [950 0 0 -50 0 50] % mapping matrix rlecmapimage 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f210221870d1f220e220311212a21 7f217f217f217f217f217f2175218211030e820e220e820e220e860e220e23050b048404 090e24212a21 7f217f217f217f217f217f2171218e110312260b041e131e131e131e131e871e17001702 1d24212c21 7f217f217f217f217f217f216921830d1f220e870e221226200408000b00841702070d21 0521842403100d212321 7f217f217f217f217f217f2121218524220f231f213a218f0d0a220e220e23051b041e13 1e0817000c008408190706210421851103221f0d212521 7f217f217f217f217f217f211e2189240e1c1b17000825242136218a0d1026021b041e13 081700110085172001030d210421840316030d212821 7f217f217f217f217f21342186111a120f070a215721860d1110220e220e860e12182504 17000300821b1f212521851f0e2326230e080e841d010908001100820820090209840c1d 1a06210521841026230d212a21 7f217f217f217f21792186241f10220e220e820e220e820e220e820e220e820e220e820e 220e830e070f01010182070a2117218b0610231c1508001708090a2151218e0d1f101d01 14201b1e131e131e08000700820c0d211021840d100311210921881103220e07050b0800 8400171e081e821e081e851e081e0817001000851e2009181a210b21850d22261d24212c 21 7f217f217f217f21472184241f10220e820e220e820e220e820e220e820e220e820e220e 820e220e810e2283221f0d210e219a241f10070f1c09151e041e131e131e131e131e131e 131e131e131e821e080002008b17081410210d1110220e220e820e220e820e220e010e81 2301880126012616191b08000500820422212f2182240d211921890d0a0e072625150417 00100082201a210921890d1110220e23011620048304051f210421891103231c15131e08 1700190082171e090309820c1a210e21841f0e0a0d212e21 7f217f217f217f213f2190241f100e070f011c1920041e131e081e0882081e0882081e08 82081e0882081e0803088304250a2107218b241f030e12181619151e08001d00811e268c 2614201b041e131e131e131e088108178117000f0082091f211521840d0610220e0f0e88 120f012625020c11211321890d0a22121809040817001300831e050a2105218a0d1f101d 0114201b1e170004008408260e220e860e230c020417001800821e2009020982181a2114 21810d213321 7f211221842422121f217f217f217f211221850d0a220e220e820e220e820e220e820e22 0e010e881d0f1605090b041e178117001a008f1e22210d1110221d0f0116190b041e1781 1700220001171f00820b2221102189111022120f0125151b1e011e81081e821e081e821e 081e821e081e821e081e821e1700030082171c0e110e861d01251b1e170015008220181d 021d81220e020e86070119150417000b0086081e131e08170019008308091d210c21830d 1f24214121 7f210721830d0a220e040e83230504088308052421492185240a22230f01130182070a21 7f2106218c240a03220e220e220e220e1d0f840f01231f217f210a2199240a221d0f0116 191b1e131e131e131e131e131e131e131e17002300810b16871609200413081700490087 171e051d1f10220e0a0e8712232625201b1e178117001b000108011e81081e821e081e82 1e081e821e081e821e081e831e0817000c0085171e201e08000300831720090c840c090b 1b1e871e081e081e0817001f0083081e201e821e20090809820c03210b21860d0a222307 0d210521010d3a21 7f21042188112218141b13081e088108178117000300821b1f2140218b241f100e070f1c 25021b1317811700140083081410217f218c241f10070f05021b04131e131e011e810817 811700010093170207220e220e220e220e220e220e22120f18018301231f216e218c0d0a 22120f0116191b130817004c000117811e208120090509822008002c008308200c188518 0c09021b1e821e081e821e081e821e081e811e08810817811700400081171e871e09181a 061c08000300851e200b1e1700250083171e200983091806211721820d110a010a841d26 1918214421 6c219a1103220e220e220e220e220e220e220e220e220e22120f050b08000d0093091d22 0e220e220e220e220e220e220e2203112127218c241f100e070f0105021b1e08001e0082 0422216a2189241f10220e230f1826018201260182012601890126160509150408170011 0085131e131e131e821e131e831e131e0882081700020083082524215e2183240a220e82 0e220e8b0e22120f011605190b1308178117004d008817081e2009181d06210821810900 22000408071e0117510085080b09181a21022182060900040082081700120082171e000f 00011e83091806210d21821a031d8e1d221d221d0e22030a110d240d240d810d21012182 2406214521 68219711030f252004131e131e131e131e131e131e131e131e131e821e08001100011e83 131e131e821e131e821e131e821e131e811e1383131c1f211e218d0d1110221d0f260519 0b041e17002500821b0c0103018426161c05250b258405160f1d0e210e82070f26012681 0126822601268426010f1f2117218a241f100e070f1609150408820817003900821b1f21 56218a0a0f0c2514190215041e0801088217081701173400011781001781170016000117 011e85200c181d06210e218105000d0083171e08000c00011781081e041e020802171e00 82081e208120090d0982201e001b00850820090c1a210721821817000b008b081e200920 1920192009200986090c1d1a060900030083171e20090209010c83181a0621082187060a 0e1d071d0e1d821d0f1802180107841d220a24215221 1d21830d1f220e820e220e820e220e820e220e860e220e221024212321840d10230f010a 01852616091b08003b00820812210421830d1f102281220e820e220e820e220e820e220e 820e220e820e220e890e1d0f011609201b1317811700470081081e821e081e821e081e82 1e081e821e081e821e081e821e081e821e081e821e081e821e081e821e081e841e081e08 000a0083170b260182012601820126018201260182012601820126018a01260126160525 19151b088108004200820c0d21032196240a03220e220e220e220e220e220e220e220e22 0e1d0f810f01150182231f210921840d0610220e0e0e8418140417002100821720090409 822017002c008317081e208520090c1d1a211621821a201e811e20832009200982092009 86092009181a0c003400011e8520090c181a211221831a0c200982092009820920091109 830c1a06210a2182062000080087082009181a0621060206812106810621052183061d0c 0984090c181d1a011a02060e21820d062482240d216021 1c21970d0702041e131e131e131e131e131e131e0420050f100d211f21840d231b17004d 00a008182212230f011609151b131e131e131e131e131e131e131e131e131e130817001b 0083170017007f0041008c201a241f10070f1c021b04131e821e131e821e131e821e131e 821e131e011e810817811700160001178205112101218a111022120f181614151b1e821e 081e821e081e821e081e821e081e821e0817811700250082090621032182060900260088 17081e20090c1d1a212e2183062017001f008317081e208120090a09830c181a21442183 240917008300081e2001208409181a0621142183061a1d1a841a062106217721 1b21830d071b000f008517080b05230e8f0e220e220e220e220e220e220e220e22842210 110d210821830d231e004f00841e041e08178117007f0065008117000e000108011e8720 0c16090b1e08003000880401181614201b1e178117003a00822006210421820620001f00 81171e861e20090c1d1a213521820609001700011788081e20090c181a0621492184060a 101a1086101a10110d210d880d061a180c09181a0601067f211b21 1b21820a1900140081081e821e131e821e131e821e131e821e131e8d1e131e13040b1925 1812221f0d210321820a20007f007f0033000108160081081e031e820817003600811700 40008308091a2106218203091e031e8120091609830c1d1a213d21821f01091409840c18 1a06214e21010d0124010685240624060d210321850a26012206217f211f21 1b21831020170029008c1708040b021925051626051e007f002f000d1782081e20812009 1e0982201e00370081171e811e208120090c0982181d0683061808007900011781081e07 1e8120090e09820c1d217f216721820611217f212221 1b21830d0e0c090c0982201e004d00820817002a000217011e8120090c09811e00380082 17081e851e090c181a068306210621822106218221062182210621822106212521821a0c 09010982201e002700011781081e811e2085200c181d06211321821a200022000117011e 82091e0035008317081e20812009090982201e0002008608091a062106217f215521810d 217f215321 2d21851a0c201e17004300850820090c1a068206200022008317081e208620090c181d1a 210f21821d08002e000117021e0120840c181a06214221821d0c09250983181d06211c21 821a20001c008817081e2009181d062101218109002d0081171e871e20090c181a06210e 21851d09200c1a217f215a2182110d215321810d217d21 30218306180c090f0983201e08002500811e09820920090109830c1a062104218203201e 081e01201309810c1d821d1a21182182062000260081171e011e8620090c181a06217f21 1521830d1d0c091909840c181d06210721821a191e091e83200920098209200982092009 8209200982092009820920098209200982092009820920098209200985090c181a06217f 217621810d215121860d1026142510217c21 462185061d0c2017002000820906214e21820618098209200981092082201e178217081e 011e01201309840c181a06217f217f217f217f214421810d2401248306240d217d21 4a21841d201e0800150081081e041e820906217f217f217f217f217f217f214521 4e2185061a18201e000b0085171e091d06217f217f217f217f217f217f214e21 5221821a0c090909830c1d06217f217f217f217f217f217f215121 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 7f217f217f217f217f217f217f213521 % % Compression made this file 2.88% of the uncompressed size. % showpage % stop using temporary dictionary end % restore original state origstate restore %%Trailer