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