%!PS-Adobe-2.0 EPSF-2.0 %%Title: tips6.eps %%Creator: xpick Version 1.21 Rev: 23/11/93 - by Evgeni Chernyaev %%CreationDate: Wed Aug 21 08:58:13 1996 %%BoundingBox: 0 0 394 112 %%EndComments %*********************************************************************** %* * %* Function: Display a Lempel-Ziv Welch (LZW) encoded color image. * %* This is an Encapsulated PostScript file suitable for any * % kind of PostScript printer: Level I/II, color/grayscale...* %* To optimize output on GrayScale printers you may uncomment* %* line '/GRAYneeded true def'. * %* * %* Author: Evgeni CHERNYAEV (chernaev@vxcern.cern.ch) * %* * %*********************************************************************** gsave userdict begin /EPSneeded true def %/GRAYneeded true def end %*********************************************************************** %* Image Description * %*********************************************************************** /colomns 394 def /rows 112 def /mm {2.835 mul} def userdict /EPSneeded known { /EPSneeded userdict /EPSneeded get def }{ /EPSneeded false def } ifelse userdict /GRAYneeded known { /GRAYneeded userdict /GRAYneeded get def }{ /GRAYneeded false def } ifelse EPSneeded { /IfRotate false def /MarginX 0 def /MarginY 0 def /Ymax rows def /Xmax colomns def /Ymin 0 def /Xmin 0 def }{ /IfRotate colomns rows gt {true} {false} ifelse def /MarginX 5 mm def /MarginY 5 mm def 0 0 moveto clippath pathbbox /Ymax exch def /Xmax exch def /Ymin exch def /Xmin exch def } ifelse /IfColor systemdict /colorimage known {true} {false} ifelse def GRAYneeded {/IfColor false def} if /IfLevel2 systemdict /filter known {true} {false} ifelse def %*********************************************************************** % Procedures * %*********************************************************************** /Table 4096 array def /StrArray 10 array def /InLine 70 string def /BinCodes 112 string def /CurBit 0 def /FreeCode 258 def /CurCodeSize 9 def /CurMask 511 def /incr IfColor {3} {1} ifelse def IfLevel2 not {/setcolorspace null def /filter null def} if %*********************************************************************** /ReadLine { % Read Next Data Line (ASCII85 decode) * %*********************************************************************** BinCodes 0 BinCodes 56 56 getinterval putinterval currentfile InLine readline pop pop 1 1 14 { /i exch 1 sub def /k i 5 mul def /c1 InLine k get 33 sub 255 and def /rest c1 1868977 mul InLine k 1 add get 33 sub 255 and 614125 mul add InLine k 2 add get 33 sub 255 and 7225 mul add InLine k 3 add get 33 sub 255 and 85 mul add InLine k 4 add get 33 sub 255 and add def /k i 4 mul 56 add def BinCodes k c1 3 mul rest 16777216 idiv add 255 and put /rest rest 16777216 mod def BinCodes k 1 add rest 65536 idiv put BinCodes k 2 add rest 256 idiv 255 and put BinCodes k 3 add rest 255 and put } for } bind def %*********************************************************************** /ReadCode { % Read next code * %*********************************************************************** /CurByte CurBit 8 idiv def /CurCode BinCodes CurByte get 8 bitshift BinCodes CurByte 1 add get add 8 bitshift BinCodes CurByte 2 add get add CurCodeSize CurBit 7 and add 24 sub bitshift CurMask and def /CurBit CurBit CurCodeSize add dup 448 ge {ReadLine 448 sub} if def } bind def %*********************************************************************** /DecodeCode { % Decode CurCode * %*********************************************************************** ReadCode CurCode 256 eq { /FreeCode 258 def /CurCodeSize 9 def /CurMask 511 def /StrInd -1 def /Lrest 0 def ReadCode }{ L Lrest gt { /StrInd StrInd 1 add def /Lrest 65535 def StrArray StrInd get null eq {StrArray StrInd 65535 string put} if /CurStr StrArray StrInd get def } if Table FreeCode CurStr 65535 Lrest sub L getinterval dup 0 Table OldCode get putinterval dup L incr sub Table CurCode FreeCode lt {CurCode} {OldCode} ifelse get 0 incr getinterval putinterval put /Lrest Lrest L sub def /FreeCode FreeCode 1 add def FreeCode CurMask ge CurCodeSize 12 lt and { /CurCodeSize CurCodeSize 1 add def /CurMask CurMask 1 bitshift 1 add def } if } ifelse /OldCode CurCode def Table CurCode get dup length incr add /L exch def } bind def %*********************************************************************** /DisplayImage { % Display a LZW-encoded color image * %*********************************************************************** /DelX Xmax Xmin sub MarginX 2 mul sub def /DelY Ymax Ymin sub MarginY 2 mul sub def /SizeX IfRotate {rows} {colomns} ifelse def /SizeY IfRotate {colomns} {rows} ifelse def /FactorX DelX SizeX div def /FactorY DelY SizeY div def /Factor FactorX FactorY le {FactorX} {FactorY} ifelse def /ScaleX SizeX Factor mul def /ScaleY SizeY Factor mul def DelX ScaleX sub 2 div MarginX add DelY ScaleY sub 2 div MarginY add translate IfRotate {ScaleY ScaleX} {ScaleX ScaleY} ifelse scale /Palette currentfile 768 string readhexstring pop def currentfile InLine readline pop pop IfColor not { 0 1 255 { Palette exch dup /i exch 3 mul def Palette i 0 add get 0.299 mul Palette i 1 add get 0.587 mul add Palette i 2 add get 0.114 mul add cvi put } for /Palette Palette 0 256 getinterval def } if /Matr IfRotate {[0 colomns rows 0 0 0]} {[colomns 0 0 rows neg 0 rows]} ifelse def IfLevel2 { [/Indexed IfColor {/DeviceRGB} {/DeviceGray} ifelse 255 Palette] setcolorspace /infile currentfile /ASCII85Decode filter /LZWDecode filter def 8 dict dup /ImageType 1 put dup /Width colomns put dup /Height rows put dup /BitsPerComponent 8 put dup /ImageMatrix Matr put dup /Interpolate false put dup /Decode [0 255] put dup /DataSource infile put image }{ 0 1 255 { Table exch dup incr mul Palette exch incr getinterval put } for ReadLine ReadLine colomns rows 8 Matr {DecodeCode} IfColor {false 3 colorimage} {image} ifelse } ifelse } bind def %*********************************************************************** %* Image decoding * %*********************************************************************** DisplayImage 000000 ffffff bebebe 718191 5d5d5d 61a1c2 61c2a1 c26175 305061 89e2ff 306150 89ffe2 613038 ff89a5 5d55c2 da71d6 719dff c6d6ff 3c558d 6185da aeeeee b6eeb6 0000ff a120f2 d2b68d b22020 208920 656565 ff0000 4069e2 b2b2b2 c2c2c2 818181 000081 650000 810000 4099a5 baa1a5 00343c 008100 008181 00ff00 00ffff 185d65 2c7d89 810081 818100 ffff00 ff00ff 8d8d8d 959595 9d9d9d a5a5a5 aeaeae b6b6b6 cacaca d2d2d2 dadada e2e2e2 eaeaea f2f2f2 7d7d7d 0000ee 551889 ffffce 0000be 717171 d2b6b6 eee6e6 796969 69b6b6 c2e2e2 386565 000040 005500 005540 005581 0055be 0055ff 00aa00 00aa40 00aa81 00aabe 00aaff 00ff40 00ff81 00ffbe 550000 550040 550081 5500be 5500ff 555500 555540 555581 5555be 5555ff 55aa00 55aa40 55aa81 55aabe 55aaff 55ff00 55ff40 55ff81 55ffbe 55ffff aa0000 aa0040 aa0081 aa00be aa00ff aa5500 aa5540 aa5581 aa55be aa55ff aaaa00 aaaa40 aaaa81 aaaabe aaaaff aaff00 aaff40 aaff81 aaffbe aaffff ff0040 ff0081 ff00be ff5500 ff5540 ff5581 ff55be ff55ff ffaa00 ffaa40 ffaa81 ffaabe ffaaff ffff40 ffff81 ffffbe fa1440 5050fa 3cfa34 ce5d5d 006500 ff4400 beb669 9500d2 346589 cecece ba8508 fffaee 0000aa 005555 0055aa 00aa55 00aaaa 00ff55 00ffaa 550055 5500aa 555555 5555aa 55aa55 55aaaa 55ff55 55ffaa aa0055 aa00aa aa5555 aa55aa aaaa55 aaaaaa aaff55 aaffaa ff0055 ff00aa ff5555 ff55aa ffaa55 ffaaaa ffff55 ffffaa ff7dbe 3c7dff 3cbe00 3cbe3c 3cbe7d 3cbebe 3cbeff 3cff00 3cff3c 3cff7d 3cffbe 3cffff 7d0000 7d003c 7d007d 7d00be 7d00ff 7d3c00 7d3c3c 7d3c7d 7d3cbe 7d3cff 7d7d00 7d7d3c 7d7dbe 7d7dff 7dbe00 7dbe3c 7dbe7d 7dbebe 7dbeff 7dff00 7dff3c 7dff7d 7dffbe 7dffff be0000 be003c be007d be00be be00ff be3c00 be3c3c be3c7d be3cbe be3cff be7d00 be7d3c be7d7d be7dbe be7dff bebe00 bebe3c bebe7d bebeff beff00 beff3c beff7d beffbe beffff ff003c ff007d ff3c00 ff3c3c ff3c7d ff3cbe ff3cff ff7d00 ff7d3c ff7d7d J-Y"/3$]7K#D>EP:q1$i!!%Sfi/n;8.N]@U7&!N1jE<[.O@Wn[3@'nb-^757;L$,t,86#% jjBKDY&-+f:1mM9jS"!DQV>U$IEe`-OW^gL[hW6Q#9B#.qr=M(u,X,P,1E`kN% ="Tc_Aoh+fk'&t\ctIN)4XQJ9A^bC8)!j]7>CibV.JRaZlY1jJD_7 `%9eq`j.#eYn*UQr4OTh!rtU4>Nl&D&+dm=\.<*If>3PA%/rJooT;H[-e978BYUU-`m0A#kc7:o`n "g)39[A?Z*d?b;p2qsUo"(U&O*J7fsafGYWed\H9G-LO+m1!>Y%24.p[b^O@gG]#L@abiG $!5m5%Jt_%eg1!32:A'0>?%ZY_#;8oXZ^a_FAZEGWVGQ!KP6YcI-><`cMJ_kO ll-=PYO#IGbd?V=51R(.Rr7&kmMh2J\aGrf=1%DMcI]!gnJLE&,a*%GVr3^X"a-6O1nYGZ1Z`nk%^nfl[1./#IJ= j+ND,g5T;<5kJ"f^h9obLQ$I6pNZpT%rR_Lq0Eeq"m5NKM<@<6"4-'&nc")F?C46hm5UZu UES&Dh3/o&Q3Ko,^3'?WApsFRjWHlOpX>+&s+fb6;604^&*]=Pa3sSr6+VTMh;U%do"(43 rCu]g@j9uN"JE[#K$3[B.7/j_eH-e"&#d%9kUMHt3o=ME3Y3K:B)%CF%nWukR^*)E#[lDl L/-hk6,jc?flSf9&<7&P(-[&8A#28KmN8tuN7Jl*5\j,OMF2Ud$^jpX>7dc\[CE6>i^0>7 m7jE-Q:eL6o21@fH-7Qg9%T"nsDR]b7LMF\6_`mP9iZ\!+/`WQHhOb`eV<-f=MTLW/f'>.lOf+ R[gYlIk2c@HA%@Yfu+.p:+EXuOA\!/_q@OrTj'131\+/^R:e*]`0uDrndO6l&TaeN =EF,W:._sgc(n*M"7Z#Mr01KX2*+,4BO3tMi8S;lhV/o\(dhHhH 1T#"-Z>FI#H>\3THOcRKM\<6tP(&pZ>l-7oQd]-Ce>03RKq`*GerAio22fe$,0"]UD:`+Q fM?rHm_`l<(1YKYEc\N5X5 ~> showpage grestore %%Trailer