source: ETALON/papers/2016_HDR_ND/Advanced_diags/thin_pepper_pot_diagram.eps @ 736

Last change on this file since 736 was 736, checked in by delerue, 7 years ago

Progress on the HDR
File size: 18.7 KB
Line 
1%!PS-Adobe-2.0 EPSF-2.0
2%%Title: /mnt/data/texts/emittance/publications/emittance_calcs_v2/thin_pepper_pot_diagram.fig
3%%Creator: fig2dev Version 3.2 Patchlevel 4
4%%CreationDate: Thu Jan 14 00:25:56 2010
5%%For: delerue@laptop.delerue.org (Nicolas Delerue)
6%%BoundingBox: 0 0 456 178
7%%Magnification: 1.0000
8%%EndComments
9/MyAppDict 100 dict dup begin def
10/$F2psDict 200 dict def
11$F2psDict begin
12$F2psDict /mtrx matrix put
13/col-1 {0 setgray} bind def
14/col0 {0.000 0.000 0.000 srgb} bind def
15/col1 {0.000 0.000 1.000 srgb} bind def
16/col2 {0.000 1.000 0.000 srgb} bind def
17/col3 {0.000 1.000 1.000 srgb} bind def
18/col4 {1.000 0.000 0.000 srgb} bind def
19/col5 {1.000 0.000 1.000 srgb} bind def
20/col6 {1.000 1.000 0.000 srgb} bind def
21/col7 {1.000 1.000 1.000 srgb} bind def
22/col8 {0.000 0.000 0.560 srgb} bind def
23/col9 {0.000 0.000 0.690 srgb} bind def
24/col10 {0.000 0.000 0.820 srgb} bind def
25/col11 {0.530 0.810 1.000 srgb} bind def
26/col12 {0.000 0.560 0.000 srgb} bind def
27/col13 {0.000 0.690 0.000 srgb} bind def
28/col14 {0.000 0.820 0.000 srgb} bind def
29/col15 {0.000 0.560 0.560 srgb} bind def
30/col16 {0.000 0.690 0.690 srgb} bind def
31/col17 {0.000 0.820 0.820 srgb} bind def
32/col18 {0.560 0.000 0.000 srgb} bind def
33/col19 {0.690 0.000 0.000 srgb} bind def
34/col20 {0.820 0.000 0.000 srgb} bind def
35/col21 {0.560 0.000 0.560 srgb} bind def
36/col22 {0.690 0.000 0.690 srgb} bind def
37/col23 {0.820 0.000 0.820 srgb} bind def
38/col24 {0.500 0.190 0.000 srgb} bind def
39/col25 {0.630 0.250 0.000 srgb} bind def
40/col26 {0.750 0.380 0.000 srgb} bind def
41/col27 {1.000 0.500 0.500 srgb} bind def
42/col28 {1.000 0.630 0.630 srgb} bind def
43/col29 {1.000 0.750 0.750 srgb} bind def
44/col30 {1.000 0.880 0.880 srgb} bind def
45/col31 {1.000 0.840 0.000 srgb} bind def
46
47end
48save
49newpath 0 178 moveto 0 0 lineto 456 0 lineto 456 178 lineto closepath clip newpath
50-16.1 228.2 translate
511 -1 scale
52
53% This junk string is used by the show operators
54/PATsstr 1 string def
55/PATawidthshow {        % cx cy cchar rx ry string
56  % Loop over each character in the string
57  {  % cx cy cchar rx ry char
58    % Show the character
59    dup                         % cx cy cchar rx ry char char
60    PATsstr dup 0 4 -1 roll put % cx cy cchar rx ry char (char)
61    false charpath              % cx cy cchar rx ry char
62    /clip load PATdraw
63    % Move past the character (charpath modified the
64    % current point)
65    currentpoint                        % cx cy cchar rx ry char x y
66    newpath
67    moveto                      % cx cy cchar rx ry char
68    % Reposition by cx,cy if the character in the string is cchar
69    3 index eq {                        % cx cy cchar rx ry
70      4 index 4 index rmoveto
71    } if
72    % Reposition all characters by rx ry
73    2 copy rmoveto              % cx cy cchar rx ry
74  } forall
75  pop pop pop pop pop           % -
76  currentpoint
77  newpath
78  moveto
79} bind def
80/PATcg {
81  7 dict dup begin
82    /lw currentlinewidth def
83    /lc currentlinecap def
84    /lj currentlinejoin def
85    /ml currentmiterlimit def
86    /ds [ currentdash ] def
87    /cc [ currentrgbcolor ] def
88    /cm matrix currentmatrix def
89  end
90} bind def
91% PATdraw - calculates the boundaries of the object and
92% fills it with the current pattern
93/PATdraw {                      % proc
94  save exch
95    PATpcalc                    % proc nw nh px py
96    5 -1 roll exec              % nw nh px py
97    newpath
98    PATfill                     % -
99  restore
100} bind def
101% PATfill - performs the tiling for the shape
102/PATfill { % nw nh px py PATfill -
103  PATDict /CurrentPattern get dup begin
104    setfont
105    % Set the coordinate system to Pattern Space
106    PatternGState PATsg
107    % Set the color for uncolored pattezns
108    PaintType 2 eq { PATDict /PColor get PATsc } if
109    % Create the string for showing
110    3 index string              % nw nh px py str
111    % Loop for each of the pattern sources
112    0 1 Multi 1 sub {           % nw nh px py str source
113        % Move to the starting location
114        3 index 3 index         % nw nh px py str source px py
115        moveto                  % nw nh px py str source
116        % For multiple sources, set the appropriate color
117        Multi 1 ne { dup PC exch get PATsc } if
118        % Set the appropriate string for the source
119        0 1 7 index 1 sub { 2 index exch 2 index put } for pop
120        % Loop over the number of vertical cells
121        3 index                 % nw nh px py str nh
122        {                       % nw nh px py str
123          currentpoint          % nw nh px py str cx cy
124          2 index oldshow       % nw nh px py str cx cy
125          YStep add moveto      % nw nh px py str
126        } repeat                % nw nh px py str
127    } for
128    5 { pop } repeat
129  end
130} bind def
131
132% PATkshow - kshow with the current pattezn
133/PATkshow {                     % proc string
134  exch bind                     % string proc
135  1 index 0 get                 % string proc char
136  % Loop over all but the last character in the string
137  0 1 4 index length 2 sub {
138                                % string proc char idx
139    % Find the n+1th character in the string
140    3 index exch 1 add get      % string proc char char+1
141    exch 2 copy                 % strinq proc char+1 char char+1 char
142    % Now show the nth character
143    PATsstr dup 0 4 -1 roll put % string proc chr+1 chr chr+1 (chr)
144    false charpath              % string proc char+1 char char+1
145    /clip load PATdraw
146    % Move past the character (charpath modified the current point)
147    currentpoint newpath moveto
148    % Execute the user proc (should consume char and char+1)
149    mark 3 1 roll               % string proc char+1 mark char char+1
150    4 index exec                % string proc char+1 mark...
151    cleartomark                 % string proc char+1
152  } for
153  % Now display the last character
154  PATsstr dup 0 4 -1 roll put   % string proc (char+1)
155  false charpath                % string proc
156  /clip load PATdraw
157  neewath
158  pop pop                       % -
159} bind def
160% PATmp - the makepattern equivalent
161/PATmp {                        % patdict patmtx PATmp patinstance
162  exch dup length 7 add         % We will add 6 new entries plus 1 FID
163  dict copy                     % Create a new dictionary
164  begin
165    % Matrix to install when painting the pattern
166    TilingType PATtcalc
167    /PatternGState PATcg def
168    PatternGState /cm 3 -1 roll put
169    % Check for multi pattern sources (Level 1 fast color patterns)
170    currentdict /Multi known not { /Multi 1 def } if
171    % Font dictionary definitions
172    /FontType 3 def
173    % Create a dummy encoding vector
174    /Encoding 256 array def
175    3 string 0 1 255 {
176      Encoding exch dup 3 index cvs cvn put } for pop
177    /FontMatrix matrix def
178    /FontBBox BBox def
179    /BuildChar {
180        mark 3 1 roll           % mark dict char
181        exch begin
182        Multi 1 ne {PaintData exch get}{pop} ifelse  % mark [paintdata]
183          PaintType 2 eq Multi 1 ne or
184          { XStep 0 FontBBox aload pop setcachedevice }
185          { XStep 0 setcharwidth } ifelse
186          currentdict           % mark [paintdata] dict
187          /PaintProc load       % mark [paintdata] dict paintproc
188        end
189        gsave
190          false PATredef exec true PATredef
191        grestore
192        cleartomark             % -
193    } bind def
194    currentdict
195  end                           % newdict
196  /foo exch                     % /foo newlict
197  definefont                    % newfont
198} bind def
199% PATpcalc - calculates the starting point and width/height
200% of the tile fill for the shape
201/PATpcalc {     % - PATpcalc nw nh px py
202  PATDict /CurrentPattern get begin
203    gsave
204        % Set up the coordinate system to Pattern Space
205        % and lock down pattern
206        PatternGState /cm get setmatrix
207        BBox aload pop pop pop translate
208        % Determine the bounding box of the shape
209        pathbbox                        % llx lly urx ury
210    grestore
211    % Determine (nw, nh) the # of cells to paint width and height
212    PatHeight div ceiling               % llx lly urx qh
213    4 1 roll                            % qh llx lly urx
214    PatWidth div ceiling                % qh llx lly qw
215    4 1 roll                            % qw qh llx lly
216    PatHeight div floor                 % qw qh llx ph
217    4 1 roll                            % ph qw qh llx
218    PatWidth div floor                  % ph qw qh pw
219    4 1 roll                            % pw ph qw qh
220    2 index sub cvi abs                 % pw ph qs qh-ph
221    exch 3 index sub cvi abs exch       % pw ph nw=qw-pw nh=qh-ph
222    % Determine the starting point of the pattern fill
223    %(px, py)
224    4 2 roll                            % nw nh pw ph
225    PatHeight mul                       % nw nh pw py
226    exch                                % nw nh py pw
227    PatWidth mul exch                   % nw nh px py
228  end
229} bind def
230
231% Save the original routines so that we can use them later on
232/oldfill        /fill load def
233/oldeofill      /eofill load def
234/oldstroke      /stroke load def
235/oldshow        /show load def
236/oldashow       /ashow load def
237/oldwidthshow   /widthshow load def
238/oldawidthshow  /awidthshow load def
239/oldkshow       /kshow load def
240
241% These defs are necessary so that subsequent procs don't bind in
242% the originals
243/fill      { oldfill } bind def
244/eofill    { oldeofill } bind def
245/stroke    { oldstroke } bind def
246/show      { oldshow } bind def
247/ashow     { oldashow } bind def
248/widthshow { oldwidthshow } bind def
249/awidthshow { oldawidthshow } bind def
250/kshow     { oldkshow } bind def
251/PATredef {
252  MyAppDict begin
253    {
254    /fill { /clip load PATdraw newpath } bind def
255    /eofill { /eoclip load PATdraw newpath } bind def
256    /stroke { PATstroke } bind def
257    /show { 0 0 null 0 0 6 -1 roll PATawidthshow } bind def
258    /ashow { 0 0 null 6 3 roll PATawidthshow }
259    bind def
260    /widthshow { 0 0 3 -1 roll PATawidthshow }
261    bind def
262    /awidthshow { PATawidthshow } bind def
263    /kshow { PATkshow } bind def
264  } {
265    /fill   { oldfill } bind def
266    /eofill { oldeofill } bind def
267    /stroke { oldstroke } bind def
268    /show   { oldshow } bind def
269    /ashow  { oldashow } bind def
270    /widthshow { oldwidthshow } bind def
271    /awidthshow { oldawidthshow } bind def
272    /kshow  { oldkshow } bind def
273    } ifelse
274  end
275} bind def
276false PATredef
277% Conditionally define setcmykcolor if not available
278/setcmykcolor where { pop } {
279  /setcmykcolor {
280    1 sub 4 1 roll
281    3 {
282        3 index add neg dup 0 lt { pop 0 } if 3 1 roll
283    } repeat
284    setrgbcolor - pop
285  } bind def
286} ifelse
287/PATsc {                % colorarray
288  aload length          % c1 ... cn length
289    dup 1 eq { pop setgray } { 3 eq { setrgbcolor } { setcmykcolor
290  } ifelse } ifelse
291} bind def
292/PATsg {                % dict
293  begin
294    lw setlinewidth
295    lc setlinecap
296    lj setlinejoin
297    ml setmiterlimit
298    ds aload pop setdash
299    cc aload pop setrgbcolor
300    cm setmatrix
301  end
302} bind def
303
304/PATDict 3 dict def
305/PATsp {
306  true PATredef
307  PATDict begin
308    /CurrentPattern exch def
309    % If it's an uncolored pattern, save the color
310    CurrentPattern /PaintType get 2 eq {
311      /PColor exch def
312    } if
313    /CColor [ currentrgbcolor ] def
314  end
315} bind def
316% PATstroke - stroke with the current pattern
317/PATstroke {
318  countdictstack
319  save
320  mark
321  {
322    currentpoint strokepath moveto
323    PATpcalc                            % proc nw nh px py
324    clip newpath PATfill
325    } stopped {
326        (*** PATstroke Warning: Path is too complex, stroking
327          with gray) =
328    cleartomark
329    restore
330    countdictstack exch sub dup 0 gt
331        { { end } repeat } { pop } ifelse
332    gsave 0.5 setgray oldstroke grestore
333  } { pop restore pop } ifelse
334  newpath
335} bind def
336/PATtcalc {             % modmtx tilingtype PATtcalc tilematrix
337  % Note: tiling types 2 and 3 are not supported
338  gsave
339    exch concat                                 % tilingtype
340    matrix currentmatrix exch                   % cmtx tilingtype
341    % Tiling type 1 and 3: constant spacing
342    2 ne {
343        % Distort the pattern so that it occupies
344        % an integral number of device pixels
345        dup 4 get exch dup 5 get exch           % tx ty cmtx
346        XStep 0 dtransform
347        round exch round exch                   % tx ty cmtx dx.x dx.y
348        XStep div exch XStep div exch           % tx ty cmtx a b
349        0 YStep dtransform
350        round exch round exch                   % tx ty cmtx a b dy.x dy.y
351        YStep div exch YStep div exch           % tx ty cmtx a b c d
352        7 -3 roll astore                        % { a b c d tx ty }
353    } if
354  grestore
355} bind def
356/PATusp {
357  false PATredef
358  PATDict begin
359    CColor PATsc
360  end
361} bind def
362
363% right45
36411 dict begin
365/PaintType 1 def
366/PatternType 1 def
367/TilingType 1 def
368/BBox [0 0 1 1] def
369/XStep 1 def
370/YStep 1 def
371/PatWidth 1 def
372/PatHeight 1 def
373/Multi 2 def
374/PaintData [
375  { clippath } bind
376  { 20 20 true [ 20 0 0 -20 0 20 ]
377        {<0040100080200100400200800401000802001004
378        0020080040100080200000401000802001004002
379        0080040100080200100400200800401000802000>}
380     imagemask } bind
381] def
382/PaintProc {
383        pop
384        exec fill
385} def
386currentdict
387end
388/P5 exch def
389
390/cp {closepath} bind def
391/ef {eofill} bind def
392/gr {grestore} bind def
393/gs {gsave} bind def
394/sa {save} bind def
395/rs {restore} bind def
396/l {lineto} bind def
397/m {moveto} bind def
398/rm {rmoveto} bind def
399/n {newpath} bind def
400/s {stroke} bind def
401/sh {show} bind def
402/slc {setlinecap} bind def
403/slj {setlinejoin} bind def
404/slw {setlinewidth} bind def
405/srgb {setrgbcolor} bind def
406/rot {rotate} bind def
407/sc {scale} bind def
408/sd {setdash} bind def
409/ff {findfont} bind def
410/sf {setfont} bind def
411/scf {scalefont} bind def
412/sw {stringwidth} bind def
413/tr {translate} bind def
414/tnt {dup dup currentrgbcolor
415  4 -2 roll dup 1 exch sub 3 -1 roll mul add
416  4 -2 roll dup 1 exch sub 3 -1 roll mul add
417  4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
418  bind def
419/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
420  4 -2 roll mul srgb} bind def
421/reencdict 12 dict def /ReEncode { reencdict begin
422/newcodesandnames exch def /newfontname exch def /basefontname exch def
423/basefontdict basefontname findfont def /newfont basefontdict maxlength dict def
424basefontdict { exch dup /FID ne { dup /Encoding eq
425{ exch dup length array copy newfont 3 1 roll put }
426{ exch newfont 3 1 roll put } ifelse } { pop pop } ifelse } forall
427newfont /FontName newfontname put newcodesandnames aload pop
428128 1 255 { newfont /Encoding get exch /.notdef put } for
429newcodesandnames length 2 idiv { newfont /Encoding get 3 1 roll put } repeat
430newfontname newfont definefont pop end } def
431/isovec [
4328#055 /minus 8#200 /grave 8#201 /acute 8#202 /circumflex 8#203 /tilde
4338#204 /macron 8#205 /breve 8#206 /dotaccent 8#207 /dieresis
4348#210 /ring 8#211 /cedilla 8#212 /hungarumlaut 8#213 /ogonek 8#214 /caron
4358#220 /dotlessi 8#230 /oe 8#231 /OE
4368#240 /space 8#241 /exclamdown 8#242 /cent 8#243 /sterling
4378#244 /currency 8#245 /yen 8#246 /brokenbar 8#247 /section 8#250 /dieresis
4388#251 /copyright 8#252 /ordfeminine 8#253 /guillemotleft 8#254 /logicalnot
4398#255 /hyphen 8#256 /registered 8#257 /macron 8#260 /degree 8#261 /plusminus
4408#262 /twosuperior 8#263 /threesuperior 8#264 /acute 8#265 /mu 8#266 /paragraph
4418#267 /periodcentered 8#270 /cedilla 8#271 /onesuperior 8#272 /ordmasculine
4428#273 /guillemotright 8#274 /onequarter 8#275 /onehalf
4438#276 /threequarters 8#277 /questiondown 8#300 /Agrave 8#301 /Aacute
4448#302 /Acircumflex 8#303 /Atilde 8#304 /Adieresis 8#305 /Aring
4458#306 /AE 8#307 /Ccedilla 8#310 /Egrave 8#311 /Eacute
4468#312 /Ecircumflex 8#313 /Edieresis 8#314 /Igrave 8#315 /Iacute
4478#316 /Icircumflex 8#317 /Idieresis 8#320 /Eth 8#321 /Ntilde 8#322 /Ograve
4488#323 /Oacute 8#324 /Ocircumflex 8#325 /Otilde 8#326 /Odieresis 8#327 /multiply
4498#330 /Oslash 8#331 /Ugrave 8#332 /Uacute 8#333 /Ucircumflex
4508#334 /Udieresis 8#335 /Yacute 8#336 /Thorn 8#337 /germandbls 8#340 /agrave
4518#341 /aacute 8#342 /acircumflex 8#343 /atilde 8#344 /adieresis 8#345 /aring
4528#346 /ae 8#347 /ccedilla 8#350 /egrave 8#351 /eacute
4538#352 /ecircumflex 8#353 /edieresis 8#354 /igrave 8#355 /iacute
4548#356 /icircumflex 8#357 /idieresis 8#360 /eth 8#361 /ntilde 8#362 /ograve
4558#363 /oacute 8#364 /ocircumflex 8#365 /otilde 8#366 /odieresis 8#367 /divide
4568#370 /oslash 8#371 /ugrave 8#372 /uacute 8#373 /ucircumflex
4578#374 /udieresis 8#375 /yacute 8#376 /thorn 8#377 /ydieresis] def
458/Times-Roman /Times-Roman-iso isovec ReEncode
459/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
460/$F2psEnd {$F2psEnteredState restore end} def
461
462$F2psBegin
46310 setmiterlimit
4640 slj 0 slc
465 0.06299 0.06299 sc
466%
467% Fig objects follow
468%
469%
470% here starts figure with depth 50
471/Times-Roman-iso ff 300.00 scf sf
472810 1935 m
473gs 1 -1 sc (Incoming) dup sw pop 2 div neg 0 rm  col1 sh gr
474/Times-Roman-iso ff 300.00 scf sf
475810 2295 m
476gs 1 -1 sc (beam) dup sw pop 2 div neg 0 rm  col1 sh gr
477% Polyline
47815.000 slw
479gs  clippath
4807480 1995 m 7488 1876 l 7134 1852 l 7430 1932 l 7126 1971 l cp
481eoclip
482n 4949 1767 m
483 7470 1935 l gs /PC [[1.00 1.00 1.00] [0.00 0.00 1.00]] def
48415.00 15.00 sc P5 [16 0 0 -16 329.93 117.80] PATmp PATsp ef gr PATusp gs col1 s gr gr
485
486% arrowhead
487n 7126 1971 m 7430 1932 l 7134 1852 l 7190 1916 l 7126 1971 l 
488 cp gs col7 1.00 shd ef gr  col1 s
489% Polyline
490gs  clippath
4917490 2164 m 7482 2045 l 7128 2069 l 7432 2109 l 7136 2188 l cp
492eoclip
493n 4951 2274 m
494 7472 2106 l gs /PC [[1.00 1.00 1.00] [0.00 0.00 1.00]] def
49515.00 15.00 sc P5 [16 0 0 -16 330.07 140.40] PATmp PATsp ef gr PATusp gs col1 s gr gr
496
497% arrowhead
498n 7136 2188 m 7432 2109 l 7128 2069 l 7192 2124 l 7136 2188 l 
499 cp gs col7 1.00 shd ef gr  col1 s
500% Polyline
501gs  clippath
5027491 1189 m 7483 1070 l 7129 1094 l 7433 1134 l 7137 1213 l cp
503eoclip
504n 4952 1299 m
505 7473 1131 l gs /PC [[1.00 1.00 1.00] [0.00 0.00 1.00]] def
50615.00 15.00 sc P5 [16 0 0 -16 330.13 75.40] PATmp PATsp ef gr PATusp gs col1 s gr gr
507
508% arrowhead
509n 7137 1213 m 7433 1134 l 7129 1094 l 7193 1149 l 7137 1213 l 
510 cp gs col7 1.00 shd ef gr  col1 s
511% Polyline
512gs  clippath
5137479 2865 m 7487 2746 l 7133 2722 l 7429 2802 l 7125 2841 l cp
514eoclip
515n 4948 2637 m
516 7469 2805 l gs /PC [[1.00 1.00 1.00] [0.00 0.00 1.00]] def
51715.00 15.00 sc P5 [16 0 0 -16 329.87 175.80] PATmp PATsp ef gr PATusp gs col1 s gr gr
518
519% arrowhead
520n 7125 2841 m 7429 2802 l 7133 2722 l 7189 2786 l 7125 2841 l 
521 cp gs col7 1.00 shd ef gr  col1 s
522% Polyline
52345.000 slw
524n 4770 2655 m 4950 2655 l 4950 3150 l 4770 3150 l
525 cp gs /PC [[1.00 1.00 1.00] [0.00 0.69 0.00]] def
52615.00 15.00 sc P5 [16 0 0 -16 318.00 177.00] PATmp PATsp ef gr PATusp gs col13 s gr 
527% Polyline
528n 4770 1800 m 4950 1800 l 4950 2250 l 4770 2250 l
529 cp gs /PC [[1.00 1.00 1.00] [0.00 0.69 0.00]] def
53015.00 15.00 sc P5 [16 0 0 -16 318.00 120.00] PATmp PATsp ef gr PATusp gs col13 s gr 
531% Polyline
532n 4770 855 m 4950 855 l 4950 1305 l 4770 1305 l
533 cp gs /PC [[1.00 1.00 1.00] [0.00 0.69 0.00]] def
53415.00 15.00 sc P5 [16 0 0 -16 318.00 57.00] PATmp PATsp ef gr PATusp gs col13 s gr 
535% Polyline
53660.000 slw
537gs  clippath
5383525 1230 m 3525 930 l 2601 930 l 3351 1080 l 2601 1230 l cp
539eoclip
540n 1755 1080 m
541 3510 1080 l gs /PC [[1.00 1.00 1.00] [0.00 0.00 1.00]] def
54215.00 15.00 sc P5 [16 0 0 -16 117.00 72.00] PATmp PATsp ef gr PATusp gs col1 s gr gr
543
544% arrowhead
545n 2601 1230 m 3351 1080 l 2601 930 l 2751 1080 l 2601 1230 l 
546 cp gs col7 1.00 shd ef gr  col1 s
547% Polyline
548gs  clippath
5493480 1815 m 3480 1515 l 2556 1515 l 3306 1665 l 2556 1815 l cp
550eoclip
551n 1710 1665 m
552 3465 1665 l gs /PC [[1.00 1.00 1.00] [0.00 0.00 1.00]] def
55315.00 15.00 sc P5 [16 0 0 -16 114.00 111.00] PATmp PATsp ef gr PATusp gs col1 s gr gr
554
555% arrowhead
556n 2556 1815 m 3306 1665 l 2556 1515 l 2706 1665 l 2556 1815 l 
557 cp gs col7 1.00 shd ef gr  col1 s
558% Polyline
559gs  clippath
5603480 2355 m 3480 2055 l 2556 2055 l 3306 2205 l 2556 2355 l cp
561eoclip
562n 1710 2205 m
563 3465 2205 l gs /PC [[1.00 1.00 1.00] [0.00 0.00 1.00]] def
56415.00 15.00 sc P5 [16 0 0 -16 114.00 147.00] PATmp PATsp ef gr PATusp gs col1 s gr gr
565
566% arrowhead
567n 2556 2355 m 3306 2205 l 2556 2055 l 2706 2205 l 2556 2355 l 
568 cp gs col7 1.00 shd ef gr  col1 s
569% Polyline
570gs  clippath
5713480 2940 m 3480 2640 l 2556 2640 l 3306 2790 l 2556 2940 l cp
572eoclip
573n 1710 2790 m
574 3465 2790 l gs /PC [[1.00 1.00 1.00] [0.00 0.00 1.00]] def
57515.00 15.00 sc P5 [16 0 0 -16 114.00 186.00] PATmp PATsp ef gr PATusp gs col1 s gr gr
576
577% arrowhead
578n 2556 2940 m 3306 2790 l 2556 2640 l 2706 2790 l 2556 2940 l 
579 cp gs col7 1.00 shd ef gr  col1 s
580/Times-Roman-iso ff 300.00 scf sf
5815085 1620 m
582gs 1 -1 sc (Beamlets) col1 sh gr
583/Times-Roman-iso ff 300.00 scf sf
5844500 1620 m
585gs 1 -1 sc (Gap) col0 sh gr
586/Times-Roman-iso ff 240.00 scf sf
5874815 3555 m
588gs 1 -1 sc (Pepper-pot) dup sw pop 2 div neg 0 rm  col13 sh gr
589% here ends figure;
590$F2psEnd
591rs
592end
593showpage
Note: See TracBrowser for help on using the repository browser.