diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-13 00:03:33 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-13 00:03:33 +0000 |
commit | bbcc6f9fcd3737edc987b1df9e63e52407da99d3 (patch) | |
tree | 8635345408dcecb0c553d98ea27fffa9fc6d52e0 /Master/texmf-dist/tex/latex/prosper/barre-rico.ps | |
parent | dba09c751a6f9d8fd641a41c73fc590634c4eb19 (diff) |
prosper
git-svn-id: svn://tug.org/texlive/trunk@1223 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/prosper/barre-rico.ps')
-rw-r--r-- | Master/texmf-dist/tex/latex/prosper/barre-rico.ps | 293 |
1 files changed, 293 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/prosper/barre-rico.ps b/Master/texmf-dist/tex/latex/prosper/barre-rico.ps new file mode 100644 index 00000000000..5717efd8e9b --- /dev/null +++ b/Master/texmf-dist/tex/latex/prosper/barre-rico.ps @@ -0,0 +1,293 @@ +%!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 |