| blob | 6037a383bc38d79c6391c83addf2ac91b9650475 |
1 %!PS-Adobe-2.0 EPSF-2.0
2 %%Title: dd_cells.fig
3 %%Creator: fig2dev Version 3.2 Patchlevel 4
4 %%CreationDate: Thu Oct 18 17:18:24 2007
5 %%For: hessb@pckr59 (Berk Hess,1.704,Tel. 166)
6 %%BoundingBox: 0 0 302 324
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
47 end
48 save
49 newpath 0 324 moveto 0 0 lineto 302 0 lineto 302 324 lineto closepath clip newpath
50 -118.4 367.1 translate
51 1 -1 scale
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
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
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
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
276 false 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
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
363 % this is the pattern fill program from the Second edition Reference Manual
364 % with changes to call the above pattern fill
365 % left30
366 11 dict begin
367 /PaintType 1 def
368 /PatternType 1 def
369 /TilingType 1 def
370 /BBox [0 0 1 1] def
371 /XStep 1 def
372 /YStep 1 def
373 /PatWidth 1 def
374 /PatHeight 1 def
375 /Multi 2 def
376 /PaintData [
377 { clippath } bind
378 { 32 16 true [ 32 0 0 -16 0 16 ]
379 {<c000c000300030000c000c000300030000c000c000300030
380 000c000c00030003c000c000300030000c000c0003000300
381 00c000c000300030000c000c00030003>}
382 imagemask } bind
383 ] def
384 /PaintProc {
385 pop
386 exec fill
387 } def
388 currentdict
389 end
390 /P1 exch def
392 % right30
393 11 dict begin
394 /PaintType 1 def
395 /PatternType 1 def
396 /TilingType 1 def
397 /BBox [0 0 1 1] def
398 /XStep 1 def
399 /YStep 1 def
400 /PatWidth 1 def
401 /PatHeight 1 def
402 /Multi 2 def
403 /PaintData [
404 { clippath } bind
405 { 32 16 true [ 32 0 0 -16 0 16 ]
406 {<00030003000c000c0030003000c000c0030003000c000c00
407 30003000c000c00000030003000c000c0030003000c000c0
408 030003000c000c0030003000c000c000>}
409 imagemask } bind
410 ] def
411 /PaintProc {
412 pop
413 exec fill
414 } def
415 currentdict
416 end
417 /P2 exch def
419 % left45
420 11 dict begin
421 /PaintType 1 def
422 /PatternType 1 def
423 /TilingType 1 def
424 /BBox [0 0 1 1] def
425 /XStep 1 def
426 /YStep 1 def
427 /PatWidth 1 def
428 /PatHeight 1 def
429 /Multi 2 def
430 /PaintData [
431 { clippath } bind
432 { 20 20 true [ 20 0 0 -20 0 20 ]
433 {<8020004010002008001004000802000401000200
434 8001004000802000401080200040100020080010
435 0400080200040100020080010040008020004010>}
436 imagemask } bind
437 ] def
438 /PaintProc {
439 pop
440 exec fill
441 } def
442 currentdict
443 end
444 /P4 exch def
446 % right45
447 11 dict begin
448 /PaintType 1 def
449 /PatternType 1 def
450 /TilingType 1 def
451 /BBox [0 0 1 1] def
452 /XStep 1 def
453 /YStep 1 def
454 /PatWidth 1 def
455 /PatHeight 1 def
456 /Multi 2 def
457 /PaintData [
458 { clippath } bind
459 { 20 20 true [ 20 0 0 -20 0 20 ]
460 {<0040100080200100400200800401000802001004
461 0020080040100080200000401000802001004002
462 0080040100080200100400200800401000802000>}
463 imagemask } bind
464 ] def
465 /PaintProc {
466 pop
467 exec fill
468 } def
469 currentdict
470 end
471 /P5 exch def
473 % horizontal lines
474 11 dict begin
475 /PaintType 1 def
476 /PatternType 1 def
477 /TilingType 1 def
478 /BBox [0 0 1 1] def
479 /XStep 1 def
480 /YStep 1 def
481 /PatWidth 1 def
482 /PatHeight 1 def
483 /Multi 2 def
484 /PaintData [
485 { clippath } bind
486 { 16 8 true [ 16 0 0 -8 0 8 ]
487 {< ffff000000000000ffff000000000000>}
488 imagemask } bind
489 ] def
490 /PaintProc {
491 pop
492 exec fill
493 } def
494 currentdict
495 end
496 /P9 exch def
498 % vertical lines
499 11 dict begin
500 /PaintType 1 def
501 /PatternType 1 def
502 /TilingType 1 def
503 /BBox [0 0 1 1] def
504 /XStep 1 def
505 /YStep 1 def
506 /PatWidth 1 def
507 /PatHeight 1 def
508 /Multi 2 def
509 /PaintData [
510 { clippath } bind
511 { 8 16 true [ 8 0 0 -16 0 16 ]
512 {<11111111111111111111111111111111>}
513 imagemask } bind
514 ] def
515 /PaintProc {
516 pop
517 exec fill
518 } def
519 currentdict
520 end
521 /P10 exch def
523 /cp {closepath} bind def
524 /ef {eofill} bind def
525 /gr {grestore} bind def
526 /gs {gsave} bind def
527 /sa {save} bind def
528 /rs {restore} bind def
529 /l {lineto} bind def
530 /m {moveto} bind def
531 /rm {rmoveto} bind def
532 /n {newpath} bind def
533 /s {stroke} bind def
534 /sh {show} bind def
535 /slc {setlinecap} bind def
536 /slj {setlinejoin} bind def
537 /slw {setlinewidth} bind def
538 /srgb {setrgbcolor} bind def
539 /rot {rotate} bind def
540 /sc {scale} bind def
541 /sd {setdash} bind def
542 /ff {findfont} bind def
543 /sf {setfont} bind def
544 /scf {scalefont} bind def
545 /sw {stringwidth} bind def
546 /tr {translate} bind def
547 /tnt {dup dup currentrgbcolor
548 4 -2 roll dup 1 exch sub 3 -1 roll mul add
549 4 -2 roll dup 1 exch sub 3 -1 roll mul add
550 4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
551 bind def
552 /shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
553 4 -2 roll mul srgb} bind def
554 /DrawEllipse {
555 /endangle exch def
556 /startangle exch def
557 /yrad exch def
558 /xrad exch def
559 /y exch def
560 /x exch def
561 /savematrix mtrx currentmatrix def
562 x y tr xrad yrad sc 0 0 1 startangle endangle arc
563 closepath
564 savematrix setmatrix
565 } def
567 /$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
568 /$F2psEnd {$F2psEnteredState restore end} def
570 $F2psBegin
571 10 setmiterlimit
572 0 slj 0 slc
573 0.06299 0.06299 sc
574 %
575 % Fig objects follow
576 %
577 %
578 % here starts figure with depth 55
579 % Polyline
580 30.000 slw
581 [120] 0 sd
582 n 2588 1406 m
583 2588 4781 l gs col0 s gr [] 0 sd
584 % Polyline
585 [120] 0 sd
586 n 3263 1069 m
587 3263 5119 l gs col0 s gr [] 0 sd
588 % Polyline
589 [120] 0 sd
590 n 5288 1406 m
591 5288 5456 l gs col0 s gr [] 0 sd
592 % Polyline
593 [120] 0 sd
594 n 1913 3094 m
595 5288 1406 l gs col0 s gr [] 0 sd
596 % Polyline
597 [120] 0 sd
598 n 6638 3431 m
599 3938 2081 l gs col0 s gr [] 0 sd
600 % Polyline
601 [120] 0 sd
602 n 4613 1744 m
603 4613 5794 l gs col0 s gr [] 0 sd
604 % Polyline
605 [120] 0 sd
606 n 3938 754 m
607 3938 5456 l gs col0 s gr [] 0 sd
608 % Ellipse
609 15.000 slw
610 n 3938 2981 874 874 0 360 DrawEllipse gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
611 15.00 15.00 sc P10 [8 0 0 -16 204.27 140.47] PATmp PATsp ef gr PATusp gs col0 s gr
613 % Polyline
614 n 3938 2306 m 5288 2981 l 5783 2936 l 4433 2261 l
615 cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
616 15.00 15.00 sc P5 [16 0 0 -16 262.53 150.73] PATmp PATsp ef gr PATusp gs col0 s gr
617 % Polyline
618 n 3938 2306 m 3938 2306 l 3938 2306 l 3938 2306 l 3938 2306 l 3938 2306 l
619 3263 2666 l 2768 2621 l 3465 2239 l
620 cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
621 15.00 15.00 sc P4 [16 0 0 -16 184.53 149.27] PATmp PATsp ef gr PATusp gs col0 s gr
622 % Ellipse
623 n 5558 3633 630 743 0 360 DrawEllipse gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
624 15.00 15.00 sc P1 [16 0 0 -8 328.53 192.67] PATmp PATsp ef gr PATusp gs col0 s gr
626 % Ellipse
627 n 2993 3318 630 743 0 360 DrawEllipse gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
628 15.00 15.00 sc P2 [16 0 0 -8 157.53 171.67] PATmp PATsp ef gr PATusp gs col0 s gr
630 % Polyline
631 30.000 slw
632 [120] 0 sd
633 n 3938 2081 m
634 3938 2306 l gs col0 s gr [] 0 sd
635 % Polyline
636 15.000 slw
637 n 3263 2644 m 3938 2306 l 5288 2981 l 3938 3656 l
638 cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
639 15.00 15.00 sc P9 [16 0 0 -8 217.53 153.73] PATmp PATsp ef gr PATusp gs col0 s gr
640 % Polyline
641 n 5288 5456 m 6188 5006 l 6188 3656 l 5288 4106 l
642 cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
643 15.00 15.00 sc P1 [16 0 0 -8 352.53 243.73] PATmp PATsp ef gr PATusp gs col0 s gr
644 % Polyline
645 n 4590 4466 m 5288 4106 l 5288 2981 l 3938 3656 l
646 cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
647 15.00 15.00 sc P1 [16 0 0 -8 262.53 198.73] PATmp PATsp ef gr PATusp gs col0 s gr
648 % Polyline
649 n 3263 5119 m 3263 3769 l 2363 3341 l 2363 4669 l
650 cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
651 15.00 15.00 sc P2 [16 0 0 -8 157.53 222.73] PATmp PATsp ef gr PATusp gs col0 s gr
652 % Polyline
653 n 3263 3769 m 4613 4466 l 4613 3319 l 3263 2644 l
654 cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
655 15.00 15.00 sc P2 [16 0 0 -8 217.53 176.27] PATmp PATsp ef gr PATusp gs col0 s gr
656 % Polyline
657 30.000 slw
658 n 1913 4444 m 4613 5794 l
659 6638 4781 l gs col0 s gr
660 % Polyline
661 n 4613 5794 m
662 4613 3094 l gs col0 s gr
663 % Polyline
664 n 6638 4781 m
665 6638 2081 l gs col0 s gr
666 % Polyline
667 n 4613 4444 m
668 6638 3431 l gs col0 s gr
669 % Polyline
670 n 4613 3094 m
671 6638 2081 l gs col0 s gr
672 % Polyline
673 n 3938 731 m
674 6638 2081 l gs col0 s gr
675 % Polyline
676 n 2588 1406 m
677 5288 2756 l gs col0 s gr
678 % Polyline
679 n 3263 2419 m
680 5288 1406 l gs col0 s gr
681 % Polyline
682 n 4613 3094 m
683 1913 1744 l gs col0 s gr
684 % Polyline
685 n 1913 3094 m
686 4613 4444 l gs col0 s gr
687 % Polyline
688 n 1913 4444 m
689 1913 1744 l gs col0 s gr
690 % Polyline
691 n 1913 1744 m
692 3938 731 l gs col0 s gr
693 % Polyline
694 n 3263 5119 m
695 3263 2419 l gs col0 s gr
696 % Polyline
697 n 5288 5456 m
698 5288 2756 l gs col0 s gr
699 % Polyline
700 n 5963 5119 m
701 5963 2419 l gs col0 s gr
702 % Polyline
703 n 5963 2419 m
704 3263 1069 l gs col0 s gr
705 % Polyline
706 n 4613 5794 m 5288 5456 l 5288 4106 l 4613 4444 l
707 cp gs col7 1.00 shd ef gr gs col0 s gr
708 % Polyline
709 n 4613 5794 m 3263 5119 l 3263 3769 l 4613 4444 l
710 cp gs col7 1.00 shd ef gr gs col0 s gr
711 % Polyline
712 45.000 slw
713 gs clippath
714 3833 2854 m 3593 2854 l 3593 3448 l 3713 2968 l 3833 3448 l cp
715 eoclip
716 n 3713 3994 m
717 3713 2869 l gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
718 15.00 15.00 sc P2 [16 0 0 -8 247.53 191.27] PATmp PATsp ef gr PATusp gs col0 s gr gr
720 % arrowhead
721 n 3833 3448 m 3713 2968 l 3593 3448 l col0 s
722 /Helvetica ff 720.00 scf sf
723 3713 1631 m
724 gs 1 -1 sc (7) col0 sh gr
725 /Helvetica ff 720.00 scf sf
726 2610 4556 m
727 gs 1 -1 sc (3) col0 sh gr
728 /Helvetica ff 720.00 scf sf
729 4748 5254 m
730 gs 1 -1 sc (0) col0 sh gr
731 /Helvetica ff 720.00 scf sf
732 2655 3319 m
733 gs 1 -1 sc (4) col0 sh gr
734 /Helvetica ff 540.00 scf sf
735 3983 3994 m
736 gs 1 -1 sc (c) col0 sh gr
737 /Helvetica ff 720.00 scf sf
738 3803 3881 m
739 gs 1 -1 sc (r) col0 sh gr
740 /Helvetica ff 720.00 scf sf
741 5648 4826 m
742 gs 1 -1 sc (1) col0 sh gr
743 /Helvetica ff 720.00 scf sf
744 5670 3611 m
745 gs 1 -1 sc (6) col0 sh gr
746 /Helvetica ff 720.00 scf sf
747 4770 3994 m
748 gs 1 -1 sc (5) col0 sh gr
749 % here ends figure;
750 $F2psEnd
751 rs
752 end
753 showpage