summaryrefslogtreecommitdiff
path: root/usergrps/uktug/baskervi/6_4/tips5.ps
blob: 206d944beea7d0ca55c861d8217ed75684f44f19 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
%!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><g)AEs@/YCI*<4ZX!SPP![kd3p@)NQbS<bk^Hj`\=)Mo$s-
.(t@LB<U$+<kDqO(Ib)jBbp$2f'R[X>U$IEe`-OW^gL[hW6Q#9B#.qr=M(u,X,P,1E`kN%
="Tc_Aoh+fk'&t\ctIN)4XQJ9A^bC8)!j]7>CibV.JRaZlY1jJD<t8.e[o;qRI=ZCI"'X`
`6$AN[2nE_n\VMEq:okRCR$+)@_*Qe#>_<XmU/*L%TaHLL%9;(RZC-4g$[VTVB5bj\)i>7
`%9eq`j.#eYn*UQr4OTh!rtU4>Nl&D&+dm=\.<*If>3PA%/rJoo<A7pbDUPE50n8RfgJSm
d1[pAZpL-K;.NrH^'d&(oL8&XBc'5-48/SA;4J^J6`WSp*_$as:pJ):Chft?d.E@/V/JJ+
&]c[XB]-GL`,?_N:<[Vh9CgTA,fT?/GqcdM'TXulapc*1a\s220fUqqbppt5"KaUBn,1]"
bL&0<.aV"fOU0<q]akfKnSIS^:R$O]6`P3dp?sUICEGgN1!M@6;.rW/S58PN4Z#MXI*2B$
dZkDEckK_48&I,7,ck$^-!a-iP\hFIaE2iO0%/8"D%K>T;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_FA<W<f9l5,-K/$22,)2XhGoJF)"%9W:A1Gg
=(2q5-OF)P6e`#7[W>ZE<A9,B!m-MSMje2m;s)lu&/6Xbl$>GWVGQ!KP6YcI-><`cMJ_kO
ll-=PYO#IGbd?V=51R(.Rr7&kmMh2J\aGrf=1%DMcI]!<d,W*X,L6c'Z6^IPqm,_5<th%U
d61(<41GZcOlM;aHcipi(FcY2>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-<llEoS:jMMU\cOiE4?)q$!*AkXdi03IG%h[E4B&GeW0Ab*'sZIO*<
`D4;&?Q<()G@GKJ$8?_p)IUDhA^9^*5fgnW,D-Ykd5DBDkVWbc]N^Nf$;<mu18H)Ronk0s
<jJ!!/7Q6d=RYeP8bl3_,bjF4C\g^n`Q9T@\n6#H-*3epT%02Y?"_73V`]]n'\U']Rk6L@
9a63pg-!Ygc2da<-FYeb](fP#H(@(,X#M+uHCdikH-]X[j(H%#T2M,+cdq8ABCu:u<"=LV
=q*d]71#Ye/r!3V*CK%E&Y`6"MG[P/7Hh].UJu,]]QW6q+$BUCY1W5/f<A.e'=r^IdKNN9
,*O*2Is.'uc-oj*;X$n3:)(!V;X!g[jQsl8PibCq)N<=F=gk6Y.I4U6'i?En.]1ViUf7tT
<#egRT+1JUbuknZ<Fk2XcRGh_8#4``N7VfeTrK\*4Zk)"bagELE6X3V8`%;nH^0bjZT)^\
ARjq*n4#T((*>7Qg9%T"nsDR]b7LMF\6_`mP9iZ\!+/`WQHhOb`eV<-f=MTLW/f'>.lOf+
R[gYl<a=?>Ik2c@HA%@Yfu+.p:+EXuOA\!/_q@OrTj'131\+/^R:e*]`0uDrndO6l&TaeN
=EF,W:._sgc(<ur\B7Dq46r;S/G*hedTXlKqgt+$]qptDL<?^sV,?<EeX8/!Yt1A6s(^)G
]2]1+9'M7\;[g$u(</o#Amop9Cs95eMFks;d8^k0;Rd6lfjD//05fQ%\5Rg,?qWd<E<ZW"
pbo*\-Q.6-"!YW"B$f1h7j'?e)8F`e%E44"CN4d7?][JAiY(ggk<3OKFn07t=NQZebi!d6
B"'[eoil'P8=Juh.5e$DOfM\R5#Hp:bq+VBXSG[SFE8DO4'tDI*b:7AnuHAZQ^Y335,8lr
pZDtPSb'jHcWT^#BAEHXoEKln=q<r5>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<(1YKY<O-dHLrF(kkMnD0ZtHLOe,"Z.jXI==2TF_2>E<fB?-TqS6(-LIVMJq,
fqrM%n(q9pH>c\N5X5
~>
showpage grestore
%%Trailer