graphics: bug 9270 fixed - The contour function was broken.
[scilab.git] / scilab_doc / scicos / demo22.eps
1 %!PS-Adobe-2.0 EPSF-2.0
2 %%BoundingBox:  0 0 300 212
3 %%
4 %%Scilab Postscript File (1995-1997 J.Ph Chancelier)
5 %%EndComments
6 /saved save def 
7 /$pictdict 100 dict def
8 $pictdict begin
9
10 /dogrey
11 { /Arraybox exch def
12         /Arraygrey exch def
13         /nargs exch def 
14         /func exch cvx def
15         Arraybox 0 nargs getinterval Arraygrey 0 get func 
16         1 1 Arraygrey length 1 sub 
17         {/i exch def
18         Arraybox i nargs mul nargs getinterval 
19         Arraygrey i get func
20         }for
21 } def
22 %--------------------------------------------
23 % [x y width height] nivgris drawbox 
24 % si niv gris > 1.0 alors on fait un stroke 
25 % sans closepath 
26 %--------------------------------------------
27
28 /drawpoly
29         {/glev exch def /Ar exch def
30         newpath
31         Ar 0 get Ar 1 get moveto 
32         2 2 Ar length 1 sub 
33         {/i exch def
34         Ar i get Ar i 1 add get absolu {lineto} {rlineto} ifelse
35         }for
36         glev -1 le 
37         { % filling the polygon with current pattern ( gray or color)
38           closepath gsave glev neg 1 sub WhiteLev 2 add lmin 0 lmax Setgray eofill grestore }
39         { glev 1 ge 
40            { % drawing the polygon with current dash style or color 
41              % XXXXX : a voir c'est pas clair il faudrait sauver 
42              % and filling it with other color (glev) 
43              closepath gsave glev 1 sub WhiteLev 2 add lmin 0 lmax Setgray 
44                  eofill grestore stroke }
45            {% drawing the polygon with current style 
46             closeflag {closepath} if stroke} 
47         ifelse }
48         ifelse 
49 } def 
50
51
52 /drawbox 
53         {/glev exch def /Ar exch def 
54         /x Ar 0 get def /y Ar 1 get def 
55         /w Ar 2 get def /h Ar 3 get def 
56         newpath
57         x y moveto
58         x w add y lineto
59         x w add y h add lineto
60         x y h add lineto
61         glev 1 ge 
62         { % filling 
63          closepath gsave glev 1 sub WhiteLev 2 add lmin 0 lmax Setgray eofill 
64                 grestore}
65         { 
66           % drawing 
67           glev -1 le 
68           {
69           closepath gsave glev neg 1 sub WhiteLev 2 add lmin 0 lmax Setgray
70                  stroke grestore  }
71           { closepath stroke} ifelse 
72         } ifelse
73 } def 
74
75 %--------------------------------------------
76 % [x y width height] clearzone
77 %--------------------------------------------
78 /clearzone
79         {/Ar exch def
80         /x Ar 0 get def /y Ar 1 get def
81         /w Ar 2 get def /h Ar 3 get def
82         newpath
83         x y moveto
84         x w add y lineto
85         x w add y h add lineto
86         x y h add lineto
87         closepath WhiteLev Setgray eofill
88 } def
89
90 %------------------------------------------------------
91 % polyline stroke or polygon fill or both 
92 %------------------------------------------------------
93 /absolu true def 
94 /closeflag false def 
95
96 /lmin { /y exch def /x exch def x y le { x  } {  y  } ifelse } def
97 /lmax { /y exch def /x exch def x y le { y } {  x } ifelse } def 
98
99
100 /drawpoly
101         {/glev exch def /Ar exch def
102         newpath
103         Ar 0 get Ar 1 get moveto 
104         2 2 Ar length 1 sub 
105         {/i exch def
106         Ar i get Ar i 1 add get absolu {lineto} {rlineto} ifelse
107         }for
108         glev -1 le 
109         { % filling the polygon with current pattern ( gray or color)
110           closepath gsave glev neg 1 sub WhiteLev 2 add lmin 0 lmax Setgray eofill grestore }
111         { glev 1 ge 
112            { % drawing the polygon with current dash style or color 
113              % XXXXX : a voir c'est pas clair il faudrait sauver 
114              % and filling it with other color (glev) 
115              closepath gsave glev 1 sub WhiteLev 2 add lmin 0 lmax Setgray 
116                  eofill grestore stroke }
117            {% drawing the polygon with current style 
118             closeflag {closepath} if stroke} 
119         ifelse }
120         ifelse 
121 } def 
122
123 %------------------------------------------------------
124 % segments non connectes 
125 %------------------------------------------------------
126
127 /drawsegs
128         {/glev exch def /Ar exch def
129         newpath
130         Ar 0 get Ar 1 get moveto Ar 2 get Ar 3 get lineto 
131         gsave glev Setgray stroke grestore
132         4 4 Ar length 3 sub 
133         {/i exch def
134         newpath 
135         Ar i get Ar i 1 add get moveto
136         Ar i 2 add get Ar i 3 add get lineto 
137         gsave glev Setgray stroke grestore
138         }for
139 } def 
140
141
142 %------------------------------------------------------
143 % unconected arrows
144 %-----------------------------------------------------
145
146 /drawarrows
147         {/arsize10 exch def /Ar exch def
148         Ar 0 get  Ar 1 get Ar 2 get Ar 3 get arsize10 drawarrow
149         4 4 Ar length 3 sub 
150         {/i exch def
151         Ar i get Ar i 1 add get  Ar i 2 add get  Ar i 3 add get arsize10 
152         drawarrow
153         }for
154 } def 
155                 
156 /cos20 20 cos def
157 /sin20 20 sin def
158
159 /drawarrow                                
160   { 
161       /arsize exch 10 div def 
162       /tipy exch def /tipx exch def       
163       /taily exch def /tailx exch def
164       /dx tipx tailx sub  def               
165       /dy tipy taily sub  def               
166       newpath tipx tipy moveto tailx taily lineto stroke   
167       /norme dx dx mul dy dy mul add sqrt def 
168       norme 1.e-8 ge 
169         {
170          arsize dx mul norme div /dx1 exch def 
171          arsize dy mul norme div /dy1 exch def 
172          /depx tipx cos20 dx1 mul add def 
173         /depy  tipy cos20 dy1 mul add def 
174         newpath depx depy moveto 
175         cos20 neg dx1 mul sin20 dy1 mul sub depx add
176         sin20 dx1  mul cos20 dy1 mul sub depy add lineto 
177         cos20 neg dx1 mul sin20 dy1 mul add  depx add
178         sin20 neg dx1 mul cos20 dy1 mul sub depy add lineto closepath 
179         fill
180         } {} ifelse 
181   } def
182
183
184 %------------------------------------------------------
185 % cercle ou portions de cercle 
186 % attention argument (x y w h angl1*64 angl2*64 )
187 % devrait tracer une ellipse a modifier donc 
188 %------------------------------------------------------
189
190 /fillarc
191         {/glev exch def /Ar exch def
192         /cx Ar 0 get Ar 2 get 2 div add def 
193         /cy Ar 1 get Ar 3 get 2 div add def 
194         /hom Ar 3 get Ar 2 get div def 
195         /Cmsave1 matrix def Cmsave1 currentmatrix pop
196         %-- on change de transformation pour faire homothetie en (x,y) 
197         cx cy [1 0 0 hom 0 0 ] transform
198         /t1 exch neg cy add def 
199         /t2 exch neg cx add def 
200         [1 0 0 hom t2 t1 ] concat 
201         glev WhiteLev le
202         { % filling 
203         newpath
204         cx cy moveto 
205         cx cy Ar 2 get 2 div Ar 5 get 64 div neg
206          Ar 4 get 64 div neg  arc closepath
207         gsave glev Setgray eofill grestore}
208         {
209         %drawing with current dash or color unclosed path 
210         newpath
211         cx cy Ar 2 get 2 div Ar 5 get 64 div neg Ar 4 get 64 div neg arc
212           stroke} ifelse 
213         Cmsave1 setmatrix } def 
214
215 /drawarc
216         {/glev exch def /Ar exch def
217         /cx Ar 0 get Ar 2 get 2 div add def 
218         /cy Ar 1 get Ar 3 get 2 div add def 
219         /hom Ar 3 get Ar 2 get div def 
220         /Cmsave1 matrix def Cmsave1 currentmatrix pop
221         %-- on change de transformation pour faire homothetie en (x,y) 
222         cx cy [1 0 0 hom 0 0 ] transform
223         /t1 exch neg cy add def 
224         /t2 exch neg cx add def 
225         [1 0 0 hom t2 t1 ] concat 
226         newpath
227         cx cy Ar 2 get 2 div Ar 5 get 64 div neg Ar 4 get 64 div neg arc
228         closepath glev Setgray stroke
229         Cmsave1 setmatrix } def 
230
231 %------------------------------------------------------
232 % centred hard mark 
233 %------------------------------------------------------
234
235 % x y str ShowCString 
236 % on fait un show mais string est centre autour du point (x,y) 
237
238 /ShowCString { /str exch def /y exch def /x exch def 
239  newpath 
240  x y moveto 
241  str true charpath flattenpath pathbbox 
242  /y2 exch def /x2 exch def /y1 exch def /x1 exch def 
243  x 2 mul x2 x1 add 2 div sub 
244  y 2 mul y2 y1 add 2 div sub moveto str show 
245  } def 
246
247 /drawpolymark {/glev exch def /Ar exch def 
248         Ar 0 get Ar 1 get HardMark ShowCString 
249         2 2 Ar length 1 sub 
250         {/i exch def
251         Ar i get Ar i 1 add get HardMark ShowCString
252         }for
253 } def 
254
255 %---------------------------------------------------
256 % chaines de caracteres 
257 %---------------------------------------------------
258 /FBox {/Ar exch def /rot exch def /str exch def /y exch def /x exch def 
259  newpath Ar 0 get Ar 1 get moveto 
260         /sina rot sin def /cosa rot cos def 
261         /-sina sina neg def 
262         [cosa -sina sina cosa 0 0 ] CtmModif
263  Ar 2 get 0 rlineto 0 Ar 3 get neg rlineto Ar 2 get neg 0 rlineto 
264  0 Ar 3 get  rlineto  stroke CtmRestore 
265  x y str rot ShowRotate 
266  } def 
267
268 % x y str ang Showrotate 
269 % inverse du sens trigo 
270
271 /ShowRotate { /ang exch def /str exch def 
272         /y exch def /x exch def 
273         x y moveto 
274         /sina ang sin def /cosa ang cos def 
275         /-sina 0 sina sub def 
276         [cosa -sina sina cosa 0 0 ] CtmModif
277         str show 
278         CtmRestore 
279 } def 
280
281 /HardMark (0) def 
282
283 %(Chaine de caracteres) x y flag angle [arfbox] Show
284
285 /Show { /Ar exch def 
286         /rot exch def /flag exch def /y exch def /x exch def /str exch def 
287         flag 1 eq 
288         {x y str rot Ar FBox}
289         {x y str rot ShowRotate } ifelse} def 
290
291 /L {/y2 exch def /x2 exch def /y1 exch def /x1 exch def 
292     newpath x1 y1 moveto x2 y2 lineto stroke } def 
293
294 %---------------------------------------------------------
295 % drawing an axis 
296 % angle [nsep1,nsep2] ,[siz1,siz2,coeff] [x0,y0] drawaxis",
297 %---------------------------------------------------------
298
299 /drawaxis {/XX exch def /Arsize exch def /Arsep exch def /ang exch def 
300         /Cmsave1 matrix def Cmsave1 currentmatrix pop
301         /sina ang sin def /cosa ang cos def /-sina sina neg def 
302         /x XX 0 get def /y XX 1 get def
303         %-- on change de transformation pour tourner autour de (x,y) 
304         x y [cosa sina -sina cosa 0 0 ] transform
305         /t1 exch neg y add def 
306         /t2 exch neg x add def 
307         [cosa sina -sina cosa t2 t1 ] concat 
308         newpath x y moveto 0 Arsize 1 get Arsize 2 get mul rlineto
309         stroke 
310         0 1 Arsep 1 get 1 sub
311         {
312          % i don't want the value of the for indice 
313          pop
314         newpath 
315         x y moveto 
316         0 1 Arsep 0 get 1 sub
317                 {
318                  % i don't want the value of the for indice 
319                  pop
320                  Arsize 0 get 0  rlineto
321                  0 Arsize 1 get rlineto 
322                 0 Arsize 1 get  neg rlineto }
323                 for 
324         currentpoint /y exch def /x exch def 
325         stroke 
326         newpath x y moveto 0 Arsize 1 get Arsize 2 get mul rlineto
327         stroke }
328         for 
329         Cmsave1 setmatrix } def 
330
331 %---------------------------------------------------------
332 % change and restore CTM
333 %---------------------------------------------------------
334
335 /CtmModif {
336         /arg exch def 
337         /Cmsave matrix def 
338         Cmsave currentmatrix pop
339         [1 0 0 -1 0 0 ] concat 
340         arg concat 
341 } def 
342
343 /CtmRestore { Cmsave setmatrix } def 
344
345 /Thickness { /th exch def th 0 le {/th 0.1 def} if th setlinewidth} def 
346
347 /WhiteLev 15 def
348
349 /Setgray { WhiteLev div setgray} def 
350
351 /fillsolid { 0 setgray } def 
352
353 %--------------------------------------
354 % clip zones ( rectangle ) 
355 %-------------------------------------
356
357 /setclipzone {initclip 
358         /h exch def /w exch def /y exch def /x exch def 
359         newpath x y moveto w 0 rlineto 0 h rlineto w neg 0 rlineto 
360         0 h neg rlineto closepath clip} def 
361
362 %------------------
363 % to change the position of a picture 
364 %------------------
365 /cm{28.346457 mul}def
366
367 /DesPosi { /YH exch def /XW exch def /YP exch def /XP exch def 
368         XP cm YP cm neg translate 
369         XW cm 6000 div YH cm 4240 div  scale } def 
370
371 0 setlinecap 
372 2 setlinejoin 
373 1 setlinewidth
374
375 %-- Color database 
376 /ColorR [0.000000 0.000000 0.000000 0.529412 0.498039 0.133333 0.000000 0.878431 0.000000 1.000000 1.000000 1.000000 0.933333 1.000000 1.000000 0.960784 1.000000 ] def
377 /ColorG [0.000000 0.000000 0.000000 0.807843 1.000000 0.545098 1.000000 1.000000 1.000000 0.647059 0.000000 0.000000 0.509804 1.000000 0.843137 0.960784 1.000000 ] def
378 /ColorB [0.000000 0.501961 1.000000 0.921569 0.831373 0.133333 0.000000 1.000000 1.000000 0.000000 0.000000 1.000000 0.933333 0.000000 0.000000 0.862745 1.000000 ] def
379
380 /Setcolor {/i exch def ColorR i get ColorG i get ColorB i get setrgbcolor } def
381
382 % to multiply all the fontsizes by a factor  scf
383 /scf 1.0 def
384
385 %------ End Main Program ------%
386 % XP YP XW YW DesPosi in the following code 
387 % will output the picture in the rectangle defined by 
388 % upper left point (XP,YP) wide :XW Height: YW
389 % the coordinates are given in centimeter and 
390 % are the (0,0) point is the down-left point of the paper 
391
392
393 /ColorR [0.000000 
394 0.000000 0.000000 0.000000 1.000000 1.000000 1.000000 1.000000 0.000000 0.000000 0.000000 
395 0.529412 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.564706 0.690196 0.815686 
396 0.564706 0.690196 0.815686 0.501961 0.627451 0.752941 1.000000 1.000000 1.000000 1.000000 
397 1.000000 0.0 1.0] def
398 /ColorG [0.000000 
399 0.000000 1.000000 1.000000 0.000000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 
400 0.807843 0.564706 0.690196 0.815686 0.564706 0.690196 0.815686 0.000000 0.000000 0.000000 
401 0.000000 0.000000 0.000000 0.188235 0.250980 0.376471 0.501961 0.627451 0.752941 0.878431 
402 0.843137 0.0 1.0] def
403 /ColorB [0.000000 
404 1.000000 0.000000 1.000000 0.000000 1.000000 0.000000 1.000000 0.564706 0.690196 0.815686 
405 1.000000 0.000000 0.000000 0.000000 0.564706 0.690196 0.815686 0.000000 0.000000 0.000000 
406 0.564706 0.690196 0.815686 0.000000 0.000000 0.000000 0.501961 0.627451 0.752941 0.878431 
407 0.000000 0.0 1.0] def
408 % Dessin en bas a gauche de taille 3000,2120
409 [0.5 10 div 0 0 0.5 10 div neg  0 2120 10 div] concat
410 % Init driver 
411 5 Thickness
412 % 3 setalufunction
413 -1 -1 200000 200000 setclipzone
414 [] 0 setdash
415 /Times-Roman findfont 100 scf mul scalefont setfont
416 fillsolid
417 [] 0 setdash
418 0 Setcolor
419 %--use color 1 
420 fillsolid
421 [] 0 setdash
422 0 Setcolor
423 /WhiteLev 31 def
424 /Setgray {/i exch def ColorR i get ColorG i get ColorB i get setrgbcolor } def 
425 /Setcolor {/i exch def ColorR i get ColorG i get ColorB i get setrgbcolor } def 
426 %--end use color 1 
427 % End init driver 
428 /WhiteLev 31 def
429 /WhiteLev 32 def
430 /ColorR [0.000000 
431 0.000000 0.000000 0.000000 1.000000 1.000000 1.000000 1.000000 0.000000 0.000000 0.000000 
432 0.529412 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.564706 0.690196 0.815686 
433 0.564706 0.690196 0.815686 0.501961 0.627451 0.752941 1.000000 1.000000 1.000000 1.000000 
434 1.000000 0.800000 0.0 1.0 ] def
435 /ColorG [0.000000 
436 0.000000 1.000000 1.000000 0.000000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 
437 0.807843 0.564706 0.690196 0.815686 0.564706 0.690196 0.815686 0.000000 0.000000 0.000000 
438 0.000000 0.000000 0.000000 0.188235 0.250980 0.376471 0.501961 0.627451 0.752941 0.878431 
439 0.843137 0.800000 0.0 1.0] def
440 /ColorB [0.000000 
441 1.000000 0.000000 1.000000 0.000000 1.000000 0.000000 1.000000 0.564706 0.690196 0.815686 
442 1.000000 0.000000 0.000000 0.000000 0.564706 0.690196 0.815686 0.000000 0.000000 0.000000 
443 0.564706 0.690196 0.815686 0.000000 0.000000 0.000000 0.501961 0.627451 0.752941 0.878431 
444 0.000000 0.800000 0.0 1.0] def
445 %--use color 0 
446 0 Setcolor
447 fillsolid
448 [] 0 setdash
449 /WhiteLev 16 def
450 /Setgray { WhiteLev div setgray } def 
451 /Setcolor { WhiteLev div setgray } def 
452 %--end use color 0 
453 /Times-Roman findfont 100 scf mul scalefont setfont
454 5 Thickness
455 -1 -1 200000 200000 setclipzone
456 fillsolid
457 10 Thickness
458 fillsolid
459 10 Thickness
460 fillsolid
461 /closeflag false def
462  (drawpoly) 6 [ 0]
463 [2290 1543 2872 1543 2872 2137 
464 ] dogrey 
465 fillsolid
466 /absolu true def
467 fillsolid
468 5 Thickness
469  (drawpoly) 8 [ -1 -1]
470 [2239 2189 2239 1594 2290 1543 2290 2137 2239 2189 2822 2189 2872 2137 2290 2137 
471 ] dogrey 
472 fillsolid
473 /absolu true def
474 10 Thickness
475 fillsolid
476 fillsolid
477  (drawpoly) 8 [ -1]
478 [2872 1903 2981 1866 2872 1829 2872 1903 
479 ] dogrey 
480 fillsolid
481 /absolu true def
482  (drawpoly) 8 [ -1]
483 [2131 1903 2239 1866 2131 1829 2131 1903 
484 ] dogrey 
485 fillsolid
486 /absolu true def
487 4 Setgray
488 fillsolid
489 5 Thickness
490 14 Setgray
491  (drawbox) 4 [ 15]
492 [2290 1543 582 595 
493 ] dogrey 
494 14 Setgray
495 /Times-Roman findfont 80 scf mul scalefont setfont
496 /Times-Roman findfont 100 scf mul scalefont setfont
497 /Times-Roman findfont 120 scf mul scalefont setfont
498 /Times-Roman findfont 140 scf mul scalefont setfont
499 /Times-Roman findfont 180 scf mul scalefont setfont
500 /Times-Roman findfont 240 scf mul scalefont setfont
501 /Times-Roman findfont 140 scf mul scalefont setfont
502 (Den\(s\) ) 2355 2119 0  0.00 [2355 1999 545 150] Show
503 (----- ) 2355 1922 0  0.00 [2355 1802 467 150] Show
504 (Num\(s\) ) 2355 1725 0  0.00 [2355 1605 545 150] Show
505 /Times-Roman findfont 100 scf mul scalefont setfont
506 fillsolid
507 /Times-Roman findfont 80 scf mul scalefont setfont
508 /Times-Roman findfont 100 scf mul scalefont setfont
509 /Times-Roman findfont 120 scf mul scalefont setfont
510 /Times-Roman findfont 140 scf mul scalefont setfont
511 /Times-Roman findfont 180 scf mul scalefont setfont
512 /Times-Roman findfont 240 scf mul scalefont setfont
513 /Times-Roman findfont 140 scf mul scalefont setfont
514 (Den\(s\) ) 2355 2119 0  0.00 [2355 1999 545 150] Show
515 (----- ) 2355 1922 0  0.00 [2355 1802 467 150] Show
516 (Num\(s\) ) 2355 1725 0  0.00 [2355 1605 545 150] Show
517 /Times-Roman findfont 100 scf mul scalefont setfont
518 fillsolid
519 /Times-Roman findfont 100 scf mul scalefont setfont
520 5 Thickness
521 10 Thickness
522 fillsolid
523 10 Thickness
524 fillsolid
525 /closeflag false def
526  (drawpoly) 6 [ 0]
527 [2639 3010 3221 3010 3221 3605 
528 ] dogrey 
529 fillsolid
530 /absolu true def
531 fillsolid
532 5 Thickness
533  (drawpoly) 8 [ -1 -1]
534 [2588 3656 2588 3062 2639 3010 2639 3605 2588 3656 3170 3656 3221 3605 2639 3605 
535 ] dogrey 
536 fillsolid
537 /absolu true def
538 10 Thickness
539 fillsolid
540 fillsolid
541  (drawpoly) 8 [ -1]
542 [2575 3370 2467 3333 2575 3296 2575 3370 
543 ] dogrey 
544 fillsolid
545 /absolu true def
546  (drawpoly) 8 [ -1]
547 [3342 3370 3234 3333 3342 3296 3342 3370 
548 ] dogrey 
549 fillsolid
550 /absolu true def
551 4 Setgray
552  (drawpoly) 8 [ -5]
553 [2850 2936 2904 3010 2959 2936 2850 2936 
554 ] dogrey 
555 4 Setgray
556 /absolu true def
557 fillsolid
558 5 Thickness
559 14 Setgray
560  (drawbox) 4 [ 15]
561 [2639 3010 582 595 
562 ] dogrey 
563 14 Setgray
564 /Times-Roman findfont 80 scf mul scalefont setfont
565 /Times-Roman findfont 100 scf mul scalefont setfont
566 /Times-Roman findfont 120 scf mul scalefont setfont
567 /Times-Roman findfont 140 scf mul scalefont setfont
568 /Times-Roman findfont 180 scf mul scalefont setfont
569 /Times-Roman findfont 240 scf mul scalefont setfont
570 /Times-Roman findfont 140 scf mul scalefont setfont
571 (Den\(z\) ) 2704 3586 0  0.00 [2704 3466 545 150] Show
572 (----- ) 2704 3389 0  0.00 [2704 3269 467 150] Show
573 (Num\(z\) ) 2704 3193 0  0.00 [2704 3073 545 150] Show
574 /Times-Roman findfont 100 scf mul scalefont setfont
575 fillsolid
576 /Times-Roman findfont 80 scf mul scalefont setfont
577 /Times-Roman findfont 100 scf mul scalefont setfont
578 /Times-Roman findfont 120 scf mul scalefont setfont
579 /Times-Roman findfont 140 scf mul scalefont setfont
580 /Times-Roman findfont 180 scf mul scalefont setfont
581 /Times-Roman findfont 240 scf mul scalefont setfont
582 /Times-Roman findfont 140 scf mul scalefont setfont
583 (Den\(z\) ) 2704 3586 0  0.00 [2704 3466 545 150] Show
584 (----- ) 2704 3389 0  0.00 [2704 3269 467 150] Show
585 (Num\(z\) ) 2704 3193 0  0.00 [2704 3073 545 150] Show
586 /Times-Roman findfont 100 scf mul scalefont setfont
587 fillsolid
588 /Times-Roman findfont 100 scf mul scalefont setfont
589 5 Thickness
590 10 Thickness
591 [] 0 setdash
592  (fillarc) 6 [ 17]
593 [1638 1761 211 215 0 23040 
594 ] dogrey 
595 fillsolid
596  (drawsegs) 8 [ 0]
597 [1684 1868 1803 1868 1744 1807 1744 1929 
598 ] dogrey 
599 [] 0 setdash
600 5 Thickness
601  (drawpoly) 6 [ -1]
602 [1849 1914 1940 1868 1849 1822 
603 ] dogrey 
604 fillsolid
605 /absolu true def
606 [110 30 50 30 ] 0 setdash
607 5 Thickness
608 [80 30 20 30 ] 0 setdash
609 /closeflag false def
610  (drawpoly) 4 [ 0]
611 [2497 3333 2112 3333 
612 ] dogrey 
613 fillsolid
614 /absolu true def
615 [110 30 50 30 ] 0 setdash
616 5 Thickness
617 /Times-Italic findfont 140 scf mul scalefont setfont
618 (Plant ) 2352 2490 0  0.00 [2352 2370 467 150] Show
619 /Times-Roman findfont 100 scf mul scalefont setfont
620 /Times-Italic findfont 140 scf mul scalefont setfont
621 (Controller ) 2740 3954 0  0.00 [2740 3834 856 150] Show
622 /Times-Roman findfont 100 scf mul scalefont setfont
623 /Times-Italic findfont 140 scf mul scalefont setfont
624 (noise ) 1752 1045 0  0.00 [1752 925 467 150] Show
625 /Times-Roman findfont 100 scf mul scalefont setfont
626 /Times-Italic findfont 140 scf mul scalefont setfont
627 (reference trajectory ) 233 2390 0  0.00 [233 2270 1635 150] Show
628 /Times-Roman findfont 100 scf mul scalefont setfont
629 10 Thickness
630 fillsolid
631 10 Thickness
632 fillsolid
633 /closeflag false def
634  (drawpoly) 6 [ 0]
635 [3517 538 3973 538 3973 1003 
636 ] dogrey 
637 fillsolid
638 /absolu true def
639 fillsolid
640 5 Thickness
641  (drawpoly) 8 [ -1 -1]
642 [3467 1055 3467 589 3517 538 3517 1003 3467 1055 3923 1055 3973 1003 3517 1003 
643 ] dogrey 
644 fillsolid
645 /absolu true def
646 10 Thickness
647 fillsolid
648 fillsolid
649 4 Setgray
650  (drawpoly) 8 [ -5]
651 [3581 1055 3636 1129 3690 1055 3581 1055 
652 ] dogrey 
653 4 Setgray
654 /absolu true def
655  (drawpoly) 8 [ -5]
656 [3750 1055 3804 1129 3859 1055 3750 1055 
657 ] dogrey 
658 4 Setgray
659 /absolu true def
660 fillsolid
661 5 Thickness
662 10 Thickness
663  (drawbox) 4 [ 0 0 0]
664 [3648 631 65 93 3778 631 65 93 3778 817 65 93 
665 ] dogrey 
666 fillsolid
667  (drawsegs) 28 [ 5]
668 [3583 677 3648 677 3713 677 3778 677 3843 677 3908 677 3745 677 3745 863 3745 863 3778 863 
669 3843 863 3876 863 3876 863 3876 677 
670 ] dogrey 
671 [110 30 50 30 ] 0 setdash
672 5 Thickness
673 fillsolid
674 /Times-Roman findfont 100 scf mul scalefont setfont
675 5 Thickness
676 /Times-Bold findfont 80 scf mul scalefont setfont
677 /Times-Roman findfont 100 scf mul scalefont setfont
678 5 Thickness
679 [110 30 20 30 ] 0 setdash
680 /closeflag false def
681  (drawpoly) 14 [ 0]
682 [3636 1129 3636 1384 3210 1384 3210 318 3210 350 2535 350 2535 500 
683 ] dogrey 
684 fillsolid
685 /absolu true def
686 [110 30 50 30 ] 0 setdash
687 5 Thickness
688 10 Thickness
689 fillsolid
690 10 Thickness
691 fillsolid
692 /closeflag false def
693  (drawpoly) 6 [ 0]
694 [423 1610 1132 1610 1132 2075 
695 ] dogrey 
696 fillsolid
697 /absolu true def
698 fillsolid
699 5 Thickness
700  (drawpoly) 8 [ -1 -1]
701 [372 2127 372 1662 423 1610 423 2075 372 2127 1081 2127 1132 2075 423 2075 
702 ] dogrey 
703 fillsolid
704 /absolu true def
705 10 Thickness
706 fillsolid
707 fillsolid
708  (drawpoly) 8 [ -1]
709 [1132 1905 1240 1868 1132 1831 1132 1905 
710 ] dogrey 
711 fillsolid
712 /absolu true def
713 4 Setgray
714 fillsolid
715 5 Thickness
716 14 Setgray
717  (drawbox) 4 [ 15]
718 [423 1610 709 465 
719 ] dogrey 
720 14 Setgray
721 /Times-Roman findfont 80 scf mul scalefont setfont
722 /Times-Roman findfont 100 scf mul scalefont setfont
723 /Times-Roman findfont 120 scf mul scalefont setfont
724 /Times-Roman findfont 140 scf mul scalefont setfont
725 /Times-Roman findfont 180 scf mul scalefont setfont
726 /Times-Roman findfont 240 scf mul scalefont setfont
727 /Times-Roman findfont 240 scf mul scalefont setfont
728 /Times-Roman findfont 180 scf mul scalefont setfont
729 (generator ) 424 2071 0  0.00 [424 1921 972 190] Show
730 (sinusoid ) 424 1822 0  0.00 [424 1672 874 190] Show
731 /Times-Roman findfont 100 scf mul scalefont setfont
732 fillsolid
733 /Times-Roman findfont 80 scf mul scalefont setfont
734 /Times-Roman findfont 100 scf mul scalefont setfont
735 /Times-Roman findfont 120 scf mul scalefont setfont
736 /Times-Roman findfont 140 scf mul scalefont setfont
737 /Times-Roman findfont 180 scf mul scalefont setfont
738 /Times-Roman findfont 240 scf mul scalefont setfont
739 /Times-Roman findfont 240 scf mul scalefont setfont
740 /Times-Roman findfont 180 scf mul scalefont setfont
741 (generator ) 424 2071 0  0.00 [424 1921 972 190] Show
742 (sinusoid ) 424 1822 0  0.00 [424 1672 874 190] Show
743 /Times-Roman findfont 100 scf mul scalefont setfont
744 fillsolid
745 /Times-Roman findfont 100 scf mul scalefont setfont
746 5 Thickness
747 5 Thickness
748 [50 30 20 30 ] 0 setdash
749 /closeflag false def
750  (drawpoly) 4 [ 0]
751 [1240 1868 1638 1868 
752 ] dogrey 
753 fillsolid
754 /absolu true def
755 [110 30 50 30 ] 0 setdash
756 5 Thickness
757 10 Thickness
758 fillsolid
759 10 Thickness
760 fillsolid
761 /closeflag false def
762  (drawpoly) 6 [ 0]
763 [2205 574 2915 574 2915 1039 
764 ] dogrey 
765 fillsolid
766 /absolu true def
767 fillsolid
768 5 Thickness
769  (drawpoly) 8 [ -1 -1]
770 [2155 1091 2155 625 2205 574 2205 1039 2155 1091 2864 1091 2915 1039 2205 1039 
771 ] dogrey 
772 fillsolid
773 /absolu true def
774 10 Thickness
775 fillsolid
776 fillsolid
777  (drawpoly) 8 [ -1]
778 [2142 869 2034 832 2142 795 2142 869 
779 ] dogrey 
780 fillsolid
781 /absolu true def
782 4 Setgray
783  (drawpoly) 8 [ -5]
784 [2480 500 2535 574 2589 500 2480 500 
785 ] dogrey 
786 4 Setgray
787 /absolu true def
788 fillsolid
789 5 Thickness
790 14 Setgray
791  (drawbox) 4 [ 15]
792 [2205 574 709 465 
793 ] dogrey 
794 14 Setgray
795 /Times-Roman findfont 80 scf mul scalefont setfont
796 /Times-Roman findfont 100 scf mul scalefont setfont
797 /Times-Roman findfont 120 scf mul scalefont setfont
798 /Times-Roman findfont 140 scf mul scalefont setfont
799 /Times-Roman findfont 180 scf mul scalefont setfont
800 /Times-Roman findfont 240 scf mul scalefont setfont
801 /Times-Roman findfont 240 scf mul scalefont setfont
802 /Times-Roman findfont 180 scf mul scalefont setfont
803 (generator ) 2207 1035 0  0.00 [2207 885 972 190] Show
804 (random ) 2207 785 0  0.00 [2207 635 680 190] Show
805 /Times-Roman findfont 100 scf mul scalefont setfont
806 fillsolid
807 /Times-Roman findfont 80 scf mul scalefont setfont
808 /Times-Roman findfont 100 scf mul scalefont setfont
809 /Times-Roman findfont 120 scf mul scalefont setfont
810 /Times-Roman findfont 140 scf mul scalefont setfont
811 /Times-Roman findfont 180 scf mul scalefont setfont
812 /Times-Roman findfont 240 scf mul scalefont setfont
813 /Times-Roman findfont 240 scf mul scalefont setfont
814 /Times-Roman findfont 180 scf mul scalefont setfont
815 (generator ) 2207 1035 0  0.00 [2207 885 972 190] Show
816 (random ) 2207 785 0  0.00 [2207 635 680 190] Show
817 /Times-Roman findfont 100 scf mul scalefont setfont
818 fillsolid
819 /Times-Roman findfont 100 scf mul scalefont setfont
820 5 Thickness
821 5 Thickness
822 [50 30 20 30 ] 0 setdash
823 /closeflag false def
824  (drawpoly) 6 [ 0]
825 [2046 832 1701 832 1701 1761 
826 ] dogrey 
827 fillsolid
828 /absolu true def
829 [110 30 50 30 ] 0 setdash
830 5 Thickness
831 10 Thickness
832 fillsolid
833 10 Thickness
834 fillsolid
835 /closeflag false def
836  (drawpoly) 6 [ 0]
837 [4652 3341 5108 3341 5108 3806 
838 ] dogrey 
839 fillsolid
840 /absolu true def
841 fillsolid
842 5 Thickness
843  (drawpoly) 8 [ -1 -1]
844 [4602 3858 4602 3392 4652 3341 4652 3806 4602 3858 5058 3858 5108 3806 4652 3806 
845 ] dogrey 
846 fillsolid
847 /absolu true def
848 10 Thickness
849 fillsolid
850 fillsolid
851  (drawpoly) 8 [ -1]
852 [5229 3636 5121 3599 5229 3562 5229 3636 
853 ] dogrey 
854 fillsolid
855 /absolu true def
856 4 Setgray
857 fillsolid
858 5 Thickness
859 6 Setgray
860  (drawbox) 4 [ 7]
861 [4652 3341 456 465 
862 ] dogrey 
863 6 Setgray
864 10 Thickness
865  (drawbox) 4 [ 0]
866 [4698 3387 365 372 
867 ] dogrey 
868 6 Setgray
869 [110 30 50 30 ] 0 setdash
870  (drawarrows) 8 [ 550]
871 [4744 3713 5017 3713 4744 3713 4744 3434 
872 ] dogrey 
873 [110 30 50 30 ] 0 setdash
874 /closeflag false def
875  (drawpoly) 42 [ 0]
876 [4744 3558 4757 3517 4770 3479 4783 3449 4796 3428 4809 3419 4822 3422 4835 3438 4848 3464 4861 3498 
877 4874 3538 4887 3580 4900 3620 4913 3654 4926 3680 4939 3695 4953 3697 4966 3687 4979 3666 4992 3635 
878 5005 3597 
879 ] dogrey 
880 6 Setgray
881 /absolu true def
882 5 Thickness
883 fillsolid
884 10 Thickness
885  (drawbox) 4 [ 0]
886 [4698 3387 365 372 
887 ] dogrey 
888 fillsolid
889 [110 30 50 30 ] 0 setdash
890  (drawarrows) 8 [ 550]
891 [4744 3713 5017 3713 4744 3713 4744 3434 
892 ] dogrey 
893 [110 30 50 30 ] 0 setdash
894 /closeflag false def
895  (drawpoly) 42 [ 0]
896 [4744 3558 4757 3517 4770 3479 4783 3449 4796 3428 4809 3419 4822 3422 4835 3438 4848 3464 4861 3498 
897 4874 3538 4887 3580 4900 3620 4913 3654 4926 3680 4939 3695 4953 3697 4966 3687 4979 3666 4992 3635 
898 5005 3597 
899 ] dogrey 
900 fillsolid
901 /absolu true def
902 5 Thickness
903 fillsolid
904 /Times-Roman findfont 100 scf mul scalefont setfont
905 5 Thickness
906 10 Thickness
907 fillsolid
908 10 Thickness
909 fillsolid
910 /closeflag false def
911  (drawpoly) 6 [ 0]
912 [4622 2386 5078 2386 5078 2851 
913 ] dogrey 
914 fillsolid
915 /absolu true def
916 fillsolid
917 5 Thickness
918  (drawpoly) 8 [ -1 -1]
919 [4571 2903 4571 2438 4622 2386 4622 2851 4571 2903 5027 2903 5078 2851 4622 2851 
920 ] dogrey 
921 fillsolid
922 /absolu true def
923 10 Thickness
924 fillsolid
925 fillsolid
926  (drawpoly) 8 [ -1]
927 [5078 2681 5186 2644 5078 2607 5078 2681 
928 ] dogrey 
929 fillsolid
930 /absolu true def
931  (drawpoly) 8 [ -1]
932 [4463 2595 4571 2558 4463 2521 4463 2595 
933 ] dogrey 
934 fillsolid
935 /absolu true def
936  (drawpoly) 8 [ -1]
937 [4463 2767 4571 2731 4463 2694 4463 2767 
938 ] dogrey 
939 fillsolid
940 /absolu true def
941 4 Setgray
942 fillsolid
943 5 Thickness
944 14 Setgray
945  (drawbox) 4 [ 15]
946 [4622 2386 456 465 
947 ] dogrey 
948 14 Setgray
949 /Times-Roman findfont 80 scf mul scalefont setfont
950 /Times-Roman findfont 100 scf mul scalefont setfont
951 /Times-Roman findfont 120 scf mul scalefont setfont
952 /Times-Roman findfont 140 scf mul scalefont setfont
953 /Times-Roman findfont 180 scf mul scalefont setfont
954 /Times-Roman findfont 240 scf mul scalefont setfont
955 /Times-Roman findfont 240 scf mul scalefont setfont
956 /Times-Roman findfont 180 scf mul scalefont setfont
957 (Mux ) 4671 2722 0  0.00 [4671 2572 388 190] Show
958 /Times-Roman findfont 100 scf mul scalefont setfont
959 fillsolid
960 /Times-Roman findfont 80 scf mul scalefont setfont
961 /Times-Roman findfont 100 scf mul scalefont setfont
962 /Times-Roman findfont 120 scf mul scalefont setfont
963 /Times-Roman findfont 140 scf mul scalefont setfont
964 /Times-Roman findfont 180 scf mul scalefont setfont
965 /Times-Roman findfont 240 scf mul scalefont setfont
966 /Times-Roman findfont 240 scf mul scalefont setfont
967 /Times-Roman findfont 180 scf mul scalefont setfont
968 (Mux ) 4671 2722 0  0.00 [4671 2572 388 190] Show
969 /Times-Roman findfont 100 scf mul scalefont setfont
970 fillsolid
971 /Times-Roman findfont 100 scf mul scalefont setfont
972 5 Thickness
973 10 Thickness
974 fillsolid
975 10 Thickness
976 fillsolid
977 /closeflag false def
978  (drawpoly) 6 [ 0]
979 [3601 3075 4057 3075 4057 3540 
980 ] dogrey 
981 fillsolid
982 /absolu true def
983 fillsolid
984 5 Thickness
985  (drawpoly) 8 [ -1 -1]
986 [3550 3592 3550 3126 3601 3075 3601 3540 3550 3592 4006 3592 4057 3540 3601 3540 
987 ] dogrey 
988 fillsolid
989 /absolu true def
990 10 Thickness
991 fillsolid
992 fillsolid
993  (drawpoly) 8 [ -1]
994 [3538 3370 3429 3333 3538 3296 3538 3370 
995 ] dogrey 
996 fillsolid
997 /absolu true def
998  (drawpoly) 8 [ -1]
999 [4178 3370 4069 3333 4178 3296 4178 3370 
1000 ] dogrey 
1001 fillsolid
1002 /absolu true def
1003 4 Setgray
1004  (drawpoly) 8 [ -5]
1005 [3749 3001 3803 3075 3858 3001 3749 3001 
1006 ] dogrey 
1007 4 Setgray
1008 /absolu true def
1009 fillsolid
1010 5 Thickness
1011 5 Setgray
1012  (drawbox) 4 [ 6]
1013 [3601 3075 456 465 
1014 ] dogrey 
1015 5 Setgray
1016 /Times-Roman findfont 80 scf mul scalefont setfont
1017 /Times-Roman findfont 100 scf mul scalefont setfont
1018 /Times-Roman findfont 120 scf mul scalefont setfont
1019 /Times-Roman findfont 140 scf mul scalefont setfont
1020 /Times-Roman findfont 180 scf mul scalefont setfont
1021 /Times-Roman findfont 240 scf mul scalefont setfont
1022 /Times-Roman findfont 240 scf mul scalefont setfont
1023 /Times-Roman findfont 240 scf mul scalefont setfont
1024 /Times-Roman findfont 240 scf mul scalefont setfont
1025 /Times-Roman findfont 240 scf mul scalefont setfont
1026 (S/H ) 3617 3449 0  0.00 [3617 3249 536 260] Show
1027 /Times-Roman findfont 100 scf mul scalefont setfont
1028 fillsolid
1029 /Times-Roman findfont 80 scf mul scalefont setfont
1030 /Times-Roman findfont 100 scf mul scalefont setfont
1031 /Times-Roman findfont 120 scf mul scalefont setfont
1032 /Times-Roman findfont 140 scf mul scalefont setfont
1033 /Times-Roman findfont 180 scf mul scalefont setfont
1034 /Times-Roman findfont 240 scf mul scalefont setfont
1035 /Times-Roman findfont 240 scf mul scalefont setfont
1036 /Times-Roman findfont 240 scf mul scalefont setfont
1037 /Times-Roman findfont 240 scf mul scalefont setfont
1038 /Times-Roman findfont 240 scf mul scalefont setfont
1039 (S/H ) 3617 3449 0  0.00 [3617 3249 536 260] Show
1040 /Times-Roman findfont 100 scf mul scalefont setfont
1041 fillsolid
1042 /Times-Roman findfont 100 scf mul scalefont setfont
1043 5 Thickness
1044 5 Thickness
1045 [] 0 setdash
1046 /closeflag false def
1047  (drawpoly) 4 [ 0]
1048 [3442 3333 3293 3333 
1049 ] dogrey 
1050 fillsolid
1051 /absolu true def
1052 [110 30 50 30 ] 0 setdash
1053 5 Thickness
1054 5 Thickness
1055 [110 30 20 30 ] 0 setdash
1056 /closeflag false def
1057  (drawpoly) 6 [ 0]
1058 [3804 1129 3804 2611 3803 2611 
1059 ] dogrey 
1060 fillsolid
1061 /absolu true def
1062 [110 30 50 30 ] 0 setdash
1063 5 Thickness
1064 4 Setgray
1065  (fillarc) 6 [ 4]
1066 [3782 2590 42 43 0 23040 
1067 ] dogrey 
1068 4 Setgray
1069 fillsolid
1070 5 Thickness
1071 [110 30 20 30 ] 0 setdash
1072 /closeflag false def
1073  (drawpoly) 6 [ 0]
1074 [3803 2611 2904 2611 2904 2936 
1075 ] dogrey 
1076 fillsolid
1077 /absolu true def
1078 [110 30 50 30 ] 0 setdash
1079 5 Thickness
1080 5 Thickness
1081 [110 30 20 30 ] 0 setdash
1082 /closeflag false def
1083  (drawpoly) 4 [ 0]
1084 [3803 2611 3803 3001 
1085 ] dogrey 
1086 fillsolid
1087 /absolu true def
1088 [110 30 50 30 ] 0 setdash
1089 5 Thickness
1090 5 Thickness
1091 [] 0 setdash
1092 /closeflag false def
1093  (drawpoly) 6 [ 0]
1094 [2981 1866 4163 1866 4163 2558 
1095 ] dogrey 
1096 fillsolid
1097 /absolu true def
1098 [110 30 50 30 ] 0 setdash
1099 5 Thickness
1100 10 Thickness
1101 fillsolid
1102  (fillarc) 6 [ 0]
1103 [4142 2537 42 43 0 23040 
1104 ] dogrey 
1105 fillsolid
1106 5 Thickness
1107 fillsolid
1108 5 Thickness
1109 [] 0 setdash
1110 /closeflag false def
1111  (drawpoly) 6 [ 0]
1112 [4163 2558 4163 3333 4129 3333 
1113 ] dogrey 
1114 fillsolid
1115 /absolu true def
1116 [110 30 50 30 ] 0 setdash
1117 5 Thickness
1118 5 Thickness
1119 [] 0 setdash
1120 /closeflag false def
1121  (drawpoly) 4 [ 0]
1122 [4163 2558 4463 2558 
1123 ] dogrey 
1124 fillsolid
1125 /absolu true def
1126 [110 30 50 30 ] 0 setdash
1127 5 Thickness
1128 10 Thickness
1129 fillsolid
1130  (fillarc) 6 [ 0]
1131 [2091 3312 42 43 0 23040 
1132 ] dogrey 
1133 fillsolid
1134 5 Thickness
1135 fillsolid
1136 5 Thickness
1137 [80 30 20 30 ] 0 setdash
1138 /closeflag false def
1139  (drawpoly) 8 [ 0]
1140 [2112 3333 2025 3333 1699 3333 1699 1976 
1141 ] dogrey 
1142 fillsolid
1143 /absolu true def
1144 [110 30 50 30 ] 0 setdash
1145 5 Thickness
1146 5 Thickness
1147 [80 30 20 30 ] 0 setdash
1148 /closeflag false def
1149  (drawpoly) 10 [ 0]
1150 [2112 3333 2112 4031 4382 4031 4382 2731 4463 2731 
1151 ] dogrey 
1152 fillsolid
1153 /absolu true def
1154 [110 30 50 30 ] 0 setdash
1155 5 Thickness
1156 5 Thickness
1157 [] 0 setdash
1158 /closeflag false def
1159  (drawpoly) 8 [ 0]
1160 [5186 2644 5258 2644 5258 3599 5181 3599 
1161 ] dogrey 
1162 fillsolid
1163 /absolu true def
1164 [110 30 50 30 ] 0 setdash
1165 5 Thickness
1166 5 Thickness
1167 [50 30 20 30 ] 0 setdash
1168 /closeflag false def
1169  (drawpoly) 8 [ 0]
1170 [1879 1868 2110 1868 2110 1866 2131 1866 
1171 ] dogrey 
1172 fillsolid
1173 /absolu true def
1174 [110 30 50 30 ] 0 setdash
1175 5 Thickness
1176 fillsolid
1177 /Times-Roman findfont 80 scf mul scalefont setfont
1178 /Times-Roman findfont 100 scf mul scalefont setfont
1179 /Times-Roman findfont 120 scf mul scalefont setfont
1180 /Times-Roman findfont 140 scf mul scalefont setfont
1181 /Times-Roman findfont 180 scf mul scalefont setfont
1182 /Times-Roman findfont 240 scf mul scalefont setfont
1183 /Times-Roman findfont 240 scf mul scalefont setfont
1184 /Times-Roman findfont 240 scf mul scalefont setfont
1185 /Times-Roman findfont 240 scf mul scalefont setfont
1186 /Times-Roman findfont 240 scf mul scalefont setfont
1187 (demo22 ) 2600 319 0  0.00 [2600 119 938 260] Show
1188 /Times-Roman findfont 100 scf mul scalefont setfont
1189 fillsolid
1190  showpage
1191
1192  end saved restore 
1193