summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pmx/pmxccn/eps/grace.eps
blob: 660e2f1af883b985e792170b5c2ea948652fa014 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
%% LaTeX2e file `eps/grace.eps'
%% generated by the `filecontents' environment
%% from source `pmxccn' on 2011/07/14.
%%
%!PS-Adobe-3.0 EPSF-3.0
%%Creator: dvips(k) 5.90a Copyright 2002 Radical Eye Software
%%Title: grace.dvi
%%CreationDate: Sun Sep 28 15:50:01 2003
%%Pages: 1
%%PageOrder: Ascend
%%BoundingBox: 28 742 453 792
%%DocumentFonts: TeXMUSIX16-Regular TeXMUSIX11-Regular
%%EndComments
%DVIPSWebPage: (www.radicaleye.com)
%DVIPSCommandLine: C:\MIKTEX\TEXMF\MIKTEX\BIN\DVIPS.EXE grace.dvi
%DVIPSParameters: dpi=600, compressed
%DVIPSSource:  TeX output 2003.09.28:1550
%%BeginProcSet: texc.pro
%!
/TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S
N}B/A{dup}B/TR{translate}N/isls false N/vsize 11 72 mul N/hsize 8.5 72
mul N/landplus90{false}def/@rigin{isls{[0 landplus90{1 -1}{-1 1}ifelse 0
0 0]concat}if 72 Resolution div 72 VResolution div neg scale isls{
landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div hsize
mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul TR[
matrix currentmatrix{A A round sub abs 0.00001 lt{round}if}forall round
exch round exch]setmatrix}N/@landscape{/isls true N}B/@manualfeed{
statusdict/manualfeed true put}B/@copies{/#copies X}B/FMat[1 0 0 -1 0 0]
N/FBB[0 0 0 0]N/nn 0 N/IE 0 N/ctr 0 N/df-tail{/nn 8 dict N nn begin
/FontType 3 N/FontMatrix fntrx N/FontBBox FBB N string/base X array
/BitMaps X/BuildChar{CharBuilder}N/Encoding IE N end A{/foo setfont}2
array copy cvx N load 0 nn put/ctr 0 N[}B/sf 0 N/df{/sf 1 N/fntrx FMat N
df-tail}B/dfs{div/sf X/fntrx[sf 0 0 sf neg 0 0]N df-tail}B/E{pop nn A
definefont setfont}B/Cw{Cd A length 5 sub get}B/Ch{Cd A length 4 sub get
}B/Cx{128 Cd A length 3 sub get sub}B/Cy{Cd A length 2 sub get 127 sub}
B/Cdx{Cd A length 1 sub get}B/Ci{Cd A type/stringtype ne{ctr get/ctr ctr
1 add N}if}B/id 0 N/rw 0 N/rc 0 N/gp 0 N/cp 0 N/G 0 N/CharBuilder{save 3
1 roll S A/base get 2 index get S/BitMaps get S get/Cd X pop/ctr 0 N Cdx
0 Cx Cy Ch sub Cx Cw add Cy setcachedevice Cw Ch true[1 0 0 -1 -.1 Cx
sub Cy .1 sub]/id Ci N/rw Cw 7 add 8 idiv string N/rc 0 N/gp 0 N/cp 0 N{
rc 0 ne{rc 1 sub/rc X rw}{G}ifelse}imagemask restore}B/G{{id gp get/gp
gp 1 add N A 18 mod S 18 idiv pl S get exec}loop}B/adv{cp add/cp X}B
/chg{rw cp id gp 4 index getinterval putinterval A gp add/gp X adv}B/nd{
/cp 0 N rw exit}B/lsh{rw cp 2 copy get A 0 eq{pop 1}{A 255 eq{pop 254}{
A A add 255 and S 1 and or}ifelse}ifelse put 1 adv}B/rsh{rw cp 2 copy
get A 0 eq{pop 128}{A 255 eq{pop 127}{A 2 idiv S 128 and or}ifelse}
ifelse put 1 adv}B/clr{rw cp 2 index string putinterval adv}B/set{rw cp
fillstr 0 4 index getinterval putinterval adv}B/fillstr 18 string 0 1 17
{2 copy 255 put pop}for N/pl[{adv 1 chg}{adv 1 chg nd}{1 add chg}{1 add
chg nd}{adv lsh}{adv lsh nd}{adv rsh}{adv rsh nd}{1 add adv}{/rc X nd}{
1 add set}{1 add clr}{adv 2 chg}{adv 2 chg nd}{pop nd}]A{bind pop}
forall N/D{/cc X A type/stringtype ne{]}if nn/base get cc ctr put nn
/BitMaps get S ctr S sf 1 ne{A A length 1 sub A 2 index S get sf div put
}if put/ctr ctr 1 add N}B/I{cc 1 add D}B/bop{userdict/bop-hook known{
bop-hook}if/SI save N @rigin 0 0 moveto/V matrix currentmatrix A 1 get A
mul exch 0 get A mul add .99 lt{/QV}{/RV}ifelse load def pop pop}N/eop{
SI restore userdict/eop-hook known{eop-hook}if showpage}N/@start{
userdict/start-hook known{start-hook}if pop/VResolution X/Resolution X
1000 div/DVImag X/IE 256 array N 2 string 0 1 255{IE S A 360 add 36 4
index cvrs cvn put}for pop 65781.76 div/vsize X 65781.76 div/hsize X}N
/p{show}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0 N/Ry 0 N/v{/Ry X
/Rx X V}B/V{}B/RV statusdict begin/product where{pop false[(Display)
(NeXT)(LaserWriter 16/600)]{A length product length le{A length product
exch 0 exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}
ifelse end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{BDot}
imagemask grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat{
BDot}imagemask grestore}}ifelse B/QV{gsave newpath transform round exch
round exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0
rlineto fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B
/M{S p delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}
B/g{0 M}B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p
-3 w}B/n{p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{
0 S rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end

%%EndProcSet
%%BeginProcSet: psslurs.pro
% This file can be used instead of psslurs.pro, it is only commented
% and indented.
%
% VERSION: 1.0
%
% WARNING! This is a heavy magic! If you want something more understandable,
%   you will have to write it yourself (if it is possible in a stack-oriented
%   language that PostScript is). There are some constants you can
%   change and see what happens, but I think the slurs should be almost
%   always satisfiable. When not, let me know at:
%   standa@hiero.cz
%   Also any bug reports and comments are welcomed.
%
%         Stanislav Kneifl.

/slur@Dict 200 dict def

% this dictionary is for \setslurtext, overriding some dvips's definitions
/temp@xx@dict 4 dict def temp@xx@dict begin
 /a { moveto ax1 ay1 rmoveto } def
 /V {gsave newpath transform round exch round exch itransform
  exch ax1 add exch ay1 add moveto rulex 0 rlineto 0 ruley neg
  rlineto rulex neg 0 rlineto fill grestore} def
end

TeXDict begin
% get dimen from TeX's string ("125pt" -> 125 PS points)
/GD { dup length 2 sub 0 exch getinterval cvr 1.045 mul} def
% get dimen adjusted to Resolution
/GDAR { dup length 2 sub 0 exch getinterval cvr 4 AR mul 1.045 mul} def
% Adjust to Resolution
/AR { Resolution mul 300 div } def
%  the distances in dvips's PostScript are resolution dependant!
end

slur@Dict begin
/CP /currentpoint load def
/ED { exch def } bind def
/AR { Resolution mul 300 div } def  % stands for Adjust to Resolution,
/VS { dup /ay1 exch ay1 exch linew mul 4 mul add def /ay2 exch ay2 exch linew mul 4 mul add def } def
/y { 3 2 roll ax1 ay1 rmoveto show moveto } def
/M { mul } def
/A { add } def
/SB { sub } def
/P { pop } def
/DP { dup } def
/R { roll } def

/drawseg { 0 0 moveto
 ax1 ay1
  ax1 0.6 mul ax2 0.4 mul add ay1 0.6 mul ay2 0.4 mul add
  ax1 ax2 add 2 div ay1 ay2 add 2 div curveto
 ax1 0.4 mul ax2 0.6 mul add ay1 0.4 mul ay2 0.6 mul add
  ax2 ay2
  x2 0 curveto } def

/DS {
 AR /maxe ED
 /ifadjust ED
 /ifdash ED
 AR /m ED         % max height of the slur
 /e ED            % "angularity" of the slur; 0.1 = very angular,
                          %   0.3 = very round
 /aa exch neg def       % what to multiply the height with
                          %   AFTER the max height checking
 /y2 ED           % y coordinate of the end of the slur
 /x2 ED           % x coordinate of the end of the slur
 /y1 ED           % y coordinate of the beginning of the slur
 /x1 ED           % x coordinate of the beginning of the slur
 /yr2 ED
 /yr1 ED
 /internote ED
 /x2 x2 x1 sub def      % x2=x2-x1
 /y2 y2 y1 sub def      % y2=y2-y1
 /sx y2 x2 div def
 /b x2 300 mul Resolution div abs sqrt AR 2 mul def % b=2*sqrt(x2)
 b 3 AR lt {/b 3 AR def} if   % b=max(b,3)
 b m gt {/b m def} if     % b=min(b,m)
 /aa b aa mul def      % aa=aa*b
 /s 90 x2 y2 atan sub def   % s=90-arctan(x2,y2)   slope of the slur
 /aa aa s cos div def     % aa=aa/cos(s)   height of the slur
 /x2 s neg cos x2 mul s neg sin y2 mul sub def % x2 = x2*cos(-s) - y2*sin(-s)
                 %  is the length of the slur
 e x2 mul maxe gt { /e maxe x2 div def } if
 /beta e x2 mul aa neg atan def
 beta 90 gt {/beta 180 beta sub def} if
 /ax1 e x2 mul def    % control points
 /ay1 aa def
 /ax2 1 e sub x2 mul def
 /ay2 aa def

% check if the starting and endin vector stay in desired quadrants
% => beta < abs(s)
 beta s abs lt {
  /b aa abs s abs 2 add sin mul s abs 2 add cos div def
  s aa mul 0 lt {
   s cos 0.75 lt { /ax1 ax1 b 1 s cos sub mul 0.5 mul sub def /ay1 ay1 s cos mul 0.8 mul def } if
%              ^^^^                                 ^^^                                ^^^
% (values to play with)
   /ax2 x2 b sub def
  }
  {
   /ax1 b def
   s cos 0.75 lt { /ax2 b 1 s cos sub mul 0.5 mul ax2 add def /ay2 ay2 s cos mul 0.8 mul def } if
%              ^^^^                             ^^^                                    ^^^
  } ifelse
 } if

% align the slur to the staff lines

 gsave
 x1 y1 translate
 s rotate
% [1 0 sx 1 0 0] concat
 drawseg
 gsave
 initmatrix
 flattenpath
 pathbbox
 exch pop
 sub
 /slh ED            % in slh we have the height of the whole slur
 pop
 grestore

 /yr s aa mul 0 ge { yr1 } { yr2 } ifelse internote div def
 /slh yr slh internote div aa 0 gt { add } { sub } ifelse 2 div def
% check if the slur gets too close to staff line
 /shift 0 def
 slh 4.45 lt slh -0.5 gt and {
  /slh slh dup truncate sub def
  slh 0 lt { /slh 1 slh add def } if
  aa 0 gt { /slh 1 slh sub def } if

   % slh now contains the position ot the slur top/bottom in the space
   % between the nearest staff lines (from <0,1>), regardless direction

   % slur is too low:
  slh 0.45 lt { /shift 0.45 slh sub def } if
   % slur is too high, but we can be shift it down:
  slh 0.7 gt slh 0.85 lt and { /shift 0.7 slh sub def } if
   % slur is too high, must be shifted up:
  slh 0.85 ge { /shift 1.45 slh sub def } if
 } if

 aa 0 gt { /shift shift neg def } if

 ifadjust 0 eq {
  /shift 0 def
 } if


% and finally draw it...

 grestore
 gsave
 /linew internote 0.06 mul AR def
 linew 4 mul setlinewidth
 1 setlinecap
 0 setlinejoin
 ifdash 1 eq
  { [internote 8 mul AR internote 5 mul AR] 0 setdash } if
 x1 y1 shift neg 2 mul internote mul 4 AR mul add translate
 s rotate
% [1 sx 0 1 0 0] concat

% uncomment this to see the control points
%  5 AR setlinewidth ax1 ay1 moveto 0.1 0 rlineto stroke
%  ax2 ay2 moveto 0.1 0 rlineto stroke linew setlinewidth

 drawseg
 1 VS
 drawseg
 -2 VS
 drawseg
 x2 20 AR gt {
  3 VS
  drawseg
 } if
 x2 50 AR gt {
  -4 VS
  drawseg
 } if
 x2 80 AR gt {
  5 VS
  drawseg
 } if
 stroke

 grestore

 % now some \slurtext code...

 /x1 ax1 ax2 add 2 div def          % middle of the slur
 /y1 ay1 ay2 add 2 div def
 x1 s cos mul y1 s sin mul add neg
 y1 s cos mul x1 s sin mul sub
 aa 0 lt {1} {0} ifelse
 end

 % this is a hack to place the slurtext in the middle of the slur.
 % From unknown reasons simple 'ax1 ay1 translate' did not work,
 % so we have to overlay some definitions with our own, namely
 % 'a', which is originally 'moveto' and 'V' for drawing rules.
 % maybe there are some other operations that should be redefined,
 % but for almost all cases this will be sufficient. If you find
 % anything that won't be typeset at the correct position, let me know...

 temp@xx@dict begin
 /dir exch def
 /ay1 exch def
 /ax1 exch def
} def

% crescendos
/DC {
 /y2 ED
 /x2 ED
 /y1 ED
 /x1 ED
 gsave
 1 AR ceiling setlinewidth         % line thickness: this results
 1 setlinecap                      % to exactly 2 pixels in 300 dpi
 1 setlinejoin
 x2 y2 10 AR add moveto            % the 10's specify wideness of the
 x1 y1 lineto                      % open end of the crescendo,
 x2 y2 10 AR sub lineto            % similarly the 11's below
 stroke
 grestore
} def

% half crescendos
/DHC {
 /y2 ED
 /x2 ED
 /y1 ED
 /x1 ED
 gsave
 1 AR ceiling setlinewidth
 1 setlinecap
 1 setlinejoin
 x2 y2 11 AR add moveto
 x1 y1 4 AR add lineto stroke
 x1 y1 4 AR sub moveto
 x2 y2 11 AR sub lineto
 stroke
 grestore
} def

% differenced line

/DLN {
 gsave
 GDAR ceiling setlinewidth
 GDAR exch GDAR neg rlineto
 stroke
 grestore
} def

% sloped line

/DSLN {
 gsave
 GDAR ceiling setlinewidth
 GDAR exch 1.125 mul neg rotate 0 rlineto
 stroke
 grestore
} def

% free line (init & terminate)

/DFLN {
 gsave
 GDAR ceiling setlinewidth
 CP moveto
 lineto
 stroke
 grestore
} def

end


%%EndProcSet
%%BeginProcSet: texps.pro
%!
TeXDict begin/rf{findfont dup length 1 add dict begin{1 index/FID ne 2
index/UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll
exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]/Metrics
exch def dict begin Encoding{exch dup type/integertype ne{pop pop 1 sub
dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get div def}
ifelse}forall Metrics/Metrics currentdict end def[2 index currentdict
end definefont 3 -1 roll makefont/setfont cvx]cvx def}def/ObliqueSlant{
dup sin S cos div neg}B/SlantFont{4 index mul add}def/ExtendFont{3 -1
roll mul exch}def/ReEncodeFont{CharStrings rcheck{/Encoding false def
dup[exch{dup CharStrings exch known not{pop/.notdef/Encoding true def}
if}forall Encoding{]exch pop}{cleartomark}ifelse}if/Encoding exch def}
def end

%%EndProcSet
%%BeginProcSet: special.pro
%!
TeXDict begin/SDict 200 dict N SDict begin/@SpecialDefaults{/hs 612 N
/vs 792 N/ho 0 N/vo 0 N/hsc 1 N/vsc 1 N/ang 0 N/CLIP 0 N/rwiSeen false N
/rhiSeen false N/letter{}N/note{}N/a4{}N/legal{}N}B/@scaleunit 100 N
/@hscale{@scaleunit div/hsc X}B/@vscale{@scaleunit div/vsc X}B/@hsize{
/hs X/CLIP 1 N}B/@vsize{/vs X/CLIP 1 N}B/@clip{/CLIP 2 N}B/@hoffset{/ho
X}B/@voffset{/vo X}B/@angle{/ang X}B/@rwi{10 div/rwi X/rwiSeen true N}B
/@rhi{10 div/rhi X/rhiSeen true N}B/@llx{/llx X}B/@lly{/lly X}B/@urx{
/urx X}B/@ury{/ury X}B/magscale true def end/@MacSetUp{userdict/md known
{userdict/md get type/dicttype eq{userdict begin md length 10 add md
maxlength ge{/md md dup length 20 add dict copy def}if end md begin
/letter{}N/note{}N/legal{}N/od{txpose 1 0 mtx defaultmatrix dtransform S
atan/pa X newpath clippath mark{transform{itransform moveto}}{transform{
itransform lineto}}{6 -2 roll transform 6 -2 roll transform 6 -2 roll
transform{itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll
curveto}}{{closepath}}pathforall newpath counttomark array astore/gc xdf
pop ct 39 0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}
if}N/txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR pop 1
-1 scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3
get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip
yflip not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub
neg 0 TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{
noflips{TR pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR pop pop
90 rotate 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get
neg sub neg TR}if xflip yflip not and{TR pop pop 90 rotate ppr 3 get ppr
1 get neg sub neg 0 TR}if yflip xflip not and{TR pop pop 270 rotate ppr
2 get ppr 0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr aload pop 4
-1 roll add 2 div 3 1 roll add 2 div 2 copy TR .96 dup scale neg S neg S
TR}if}N/cp{pop pop showpage pm restore}N end}if}if}N/normalscale{
Resolution 72 div VResolution 72 div neg scale magscale{DVImag dup scale
}if 0 setgray}N/psfts{S 65781.76 div N}N/startTexFig{/psf$SavedState
save N userdict maxlength dict begin/magscale true def normalscale
currentpoint TR/psf$ury psfts/psf$urx psfts/psf$lly psfts/psf$llx psfts
/psf$y psfts/psf$x psfts currentpoint/psf$cy X/psf$cx X/psf$sx psf$x
psf$urx psf$llx sub div N/psf$sy psf$y psf$ury psf$lly sub div N psf$sx
psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub
TR/showpage{}N/erasepage{}N/copypage{}N/p 3 def @MacSetUp}N/doclip{
psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
moveto}N/endTexFig{end psf$SavedState restore}N/@beginspecial{SDict
begin/SpecialSave save N gsave normalscale currentpoint TR
@SpecialDefaults count/ocount X/dcount countdictstack N}N/@setspecial{
CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
lineto closepath clip}if/showpage{}N/erasepage{}N/copypage{}N newpath}N
/@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{end}
repeat grestore SpecialSave restore end}N/@defspecial{SDict begin}N
/@fedspecial{end}B/li{lineto}B/rl{rlineto}B/rc{rcurveto}B/np{/SaveX
currentpoint/SaveY X N 1 setlinecap newpath}N/st{stroke SaveX SaveY
moveto}N/fil{fill SaveX SaveY moveto}N/ellipse{/endangle X/startangle X
/yrad X/xrad X/savematrix matrix currentmatrix N TR xrad yrad scale 0 0
1 startangle endangle arc savematrix setmatrix}N end

%%EndProcSet
%%BeginFont: TeXMUSIX11-Regular
%!PS-AdobeFont-1.0: TeXMUSIX11-Regular 001.000
%%CreationDate: 01-07-25 at 04.06
%%VMusage: 1024 36750
% Generated by Fontographer 4.1.4
% converted using TeXtrace 0.45 and modified by T. Uchiyama
% ADL: 700 300 0
%%EndComments
FontDirectory/TeXMUSIX11-Regular known{/TeXMUSIX11-Regular findfont dup/UniqueID known{dup
/UniqueID get 0 eq exch/FontType get 1 eq and}{pop false}ifelse
{save true}{false}ifelse}{false}ifelse
20 dict begin
/FontInfo 16 dict dup begin
/version (001.000) readonly def
/FullName (TeXMUSIX11-Regular) readonly def
/FamilyName (TeXMUSIX11) readonly def
/Weight (Regular) readonly def
/ItalicAngle 0 def
/isFixedPitch false def
/UnderlinePosition -200 def
/UnderlineThickness 100 def
/Notice (converted using TeXtrace 0.45 and modified by T. Uchiyama) readonly def
/em 1000 def
/ascent 700 def
/descent 300 def
end readonly def
/FontName /TeXMUSIX11-Regular def
/Encoding 256 array
0 1 255 {1 index exch /.notdef put} for
dup 7 /caron put
dup 12 /ogonek put
dup 40 /parenleft put
dup 52 /four put
dup 154 /Zcaron put
dup 156 /IJ put
dup 217 /Ugrave put
readonly def
/PaintType 0 def
/FontType 1 def
/StrokeWidth 0 def
/FontMatrix[0.001 0 0 0.001 0 0]readonly def
%/UniqueID 0 def
/FontBBox{-619 -3182 6250 3186}readonly def
currentdict end
currentfile eexec
D9D66F633B846AB28EDC112EE8CE6C6736001234F4C7DFDC8C8014E32702D436
0A505E30AFE960AA59313499738A089E6AEAEFDC84AEBA57A1F9AD647CCB7BE5
B03F5F4993FB2566BC918B0AB23DB4629AC0D00174ECD9F3286839BBEA5DD0D6
84E25152E241F0D923ADCB347B5635EE25CE26F509B8F400F2C9CFB67D676ACF
9D516193DA983A07AC65A99BDDE6D09C93F522AF18F5462F7C2C3A7CD58FB034
810D4645AE7525C1BDF2E062C4D0BB1A115E406B09C9014323678B1FF15AC494
A82AC85A09051539D2EBF8D4910447B1C8875854670342B6D13D727DDBA5C2FD
52AFE2107B72A73D3A8F8B0516B5D141AA315F37523CA19009A6CEAB11C23A80
20B8C46718DBF2DBEAB3320A596C8992531F6E70A725359BD09EF9FF2C0E58DD
9EE54192A355EDB81FB6E2391CD91A9BBD4E6637ECE45183C178D3847B0FB289
46B756FBC5FAD23CE6463328E99E2A80937200E6A3461FBF2DBB214EE1579600
4A9B470D8843786B597FF0848602F82EF268B24C48444C4B9A0B5FB351F301DC
BE6BC9E931F91BA646527E757EA5F26869A7D18D6CE67AAF77C5E2E1E9D800D6
66DE6AC95C5DBD6168F315B796C216572D0646B5699EE61DE9D8E376A9919A8C
021117E920B3CF5F22FCE2F0C0135521CD2918E2CC1724397A5DA2F4FA4FC6EB
15FB0F97C550ECAB9072B42C64624FFBAF1DAB916980B717D891ACA289A4C82C
4B79717BCFB00CD29942100A6AE6E789E756155CA096F9852CBAC92D3B54F58A
3182CDA889F1DA0BC862298925493E267D7582D3A6008DE4305748A533EEC626
FF26D134BE2BA1C4E08EAABDE2F44BABE996BA2A9EFE7CF18BDB5E6A83187324
99A35C0D7564EDAAD95C6DCC8EA4F24A2949E598EF7A873E92B7538116F8E1B2
BF1C237B923C9E86E570C91B876A4FEC2BB1FD8647270B7E6AB6C342212E388B
1F1A376CCDC09148529FBA57A392030BCC14BCD0533218432405C73DB5BF4C51
9AE659559E928C6E06E88D274DD8EEEDA3DF54ACB30DEEF8E09DBE901FF13765
698AC821BE0D84FF77122EE2A78D05A41ACB175D7D4DA1DE8CC0FFCFD493EB72
33EE82115905B77CC0C91AFFC83BE6A2B1CF083C718A7B1B36913B032095ECC0
42377558646B7A8EE402D8B9C63B03F236BEB5FB181701A6993C4C2BD002D0E6
B37E7BAC1A3C29BEC60629602AE201EAE23C4DEC09B7767585443436C3FB1E81
D846393DA3F4581BB3CEEC31ACFD76C69688F132A1B6BBC5D0ECD97DF776BFFC
F5654F7147B8B84C545D3E5D0EAD5A168C76B2B96C6CC82A1C88BCAB20F1992F
25FA93E98B38DDC599F5B09D4265C3430DB857CCBD6A49E13FACB92F33037FBB
ACA91AA44045BA5A5A0B13A8CBC8693DC3F004BA247EB1C09D4818DA706DC06F
3BABB74CD5149D8B6F296FBB7614A807AED6CAA479F4D590F8EB2E717A0D0427
075A1B3A3ABEAC356EC120CCBEE31B848CD86131CFA88CF1AF91BD4F90A14BE2
2FCA3A0D44585E55AF59A9B3F04955D294CC69F2FBA32BBBD1FA95797443331B
3D332AE547D0D69449F294317EEB6180A89C86182D37840D3345634AC85CFD40
C1C23E24BF7708188165F237333AE6848A243C03353C04E10B84606E855B7B7E
6AC65568F00CC22CC3330BBEE50D516DC86951305859BFA76744E8B89973B55C
1F4E06F1BC4489A2B22B6A800C9C705915650E1225292E42DCD659CBCB38CD78
B48C1202E69BF0BCCBD6B04954748941D3B83F378E7241BBBE2365EF849276E0
E2D8602D627682C1162E58BA92371282FC789C86E135520DFA8EA0FAE66922B9
E42E93677C22DECAA731288F55DAA00EE2F6E55026E350B62F087D4FA4284CB9
131D4C71390462E2115DC92CF64DB7CCC36A4531B41FF04C6044FCA5A7454193
9231591CAA36FDCBC8424CF6015CD2BB5D1F9EFC1B9E050735BF2CD08C35C1DD
04B8E04BDB6694AEE7D63B322682DD9C7BB481D65326D1BD15DEA4635C14531C
099806B029B802A21FD38638A84293DA46724EE2A862A7519DA1622342E16E1E
63B6E133C5FF0C22D1E170399A40BF79D7A98A4A7F7454916CAFD0B323B2504F
5AB50BD8B9A1E00CDE0D4DE18873932EC3FD6D73C9025E1F05AD236D183C46DC
D9203F0F69638B266D7CE7E5FBE7AB32761B883E9A0ADE0C36090DD7C5C19A4C
16559CCC3B3606016477EDDB7989C1F0806C014F8B1BF2DF7C5279D14FB71130
44DD923093974C627FE44502632899AD15650A7D80E848F92986FA69D5B9D7C2
7DBC711C55C53C9CB58637C3B824D5F539997315D03BB14D74A363FF6D4D2661
AFB2F5BB102E5445DDFF984A52C83493CE3279D6755C4D
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
cleartomark{restore}if
%%EndFont
%%BeginFont: TeXMUSIX16-Regular
%!PS-AdobeFont-1.0: TeXMUSIX16-Regular 001.000
%%CreationDate: 01-07-25 at 04.07
%%VMusage: 1024 36138
% Generated by Fontographer 4.1.4
% converted using TeXtrace 0.45 and modified by T. Uchiyama
% ADL: 701 299 0
%%EndComments
FontDirectory/TeXMUSIX16-Regular known{/TeXMUSIX16-Regular findfont dup/UniqueID known{dup
/UniqueID get 0 eq exch/FontType get 1 eq and}{pop false}ifelse
{save true}{false}ifelse}{false}ifelse
20 dict begin
/FontInfo 16 dict dup begin
/version (001.000) readonly def
/FullName (TeXMUSIX16-Regular) readonly def
/FamilyName (TeXMUSIX16) readonly def
/Weight (Regular) readonly def
/ItalicAngle 0 def
/isFixedPitch false def
/UnderlinePosition -100 def
/UnderlineThickness 50 def
/Notice (converted using TeXtrace 0.45 and modified by T. Uchiyama) readonly def
/em 1000 def
/ascent 701 def
/descent 299 def
end readonly def
/FontName /TeXMUSIX16-Regular def
/Encoding 256 array
0 1 255 {1 index exch /.notdef put} for
dup 7 /caron put
dup 8 /breve put
dup 71 /G put
dup 80 /P put
dup 83 /S put
readonly def
/PaintType 0 def
/FontType 1 def
/StrokeWidth 0 def
/FontMatrix[0.001 0 0 0.001 0 0]readonly def
%/UniqueID 0 def
/FontBBox{-620 -2059 4000 2062}readonly def
currentdict end
currentfile eexec
D9D66F633B846AB28EDC112EE8CE6C6736001234F4C7DFDC8C8014E32702D436
0A505E30AFE960AA59313499738A089E6AEAEFDC84AEBA57A1F9AD647CCB7BE5
B03F5F4993FB2566BC918B0AB23DB4629AC0D00174ECD9F3286839BBEA5DD0D6
84E25152E241F0D923ADCB347B5635EE25CE26F509B8F400F2C9CFB67D676ACF
9D516193DA983A07AC65A99BDDE6D09C93F522AF18F5462F7C2C3A7CD58FB034
810D4645AE7525C1BDF2E062C4D0BB1A115E406B09C9014323678B1FF15AC494
A82AC85A09051539D2EBF8D4910447B1C8875854670342B6D13D727DDBA5C2FD
52AFE2107B72A73D3A8F8B0516B5D141AA315F37523CA19009A6CEAB11C23A80
20B8C46718DBF2DBEAB3320A596C8992531F6E70A725359BD09EF9FF2C0E58DD
9EE54192A355EDB81FB6E2391CD91A9BBD4E6637ECE457AD4294FDF137DF3CF8
2A268AA6A26AC11CE99D5C1346290B6858A05C80699EA47DA7EC1256A161ABB5
E1F5110BF11EB22B883A7642AD41BD614AC33327503EF4CDF29ECBF52E2AE341
C5B1ACBE202DA6B5251FC2B7285AAA3035DAA61FDF68905D1A2BD55C4F9757C8
577AEE888E92ACD515DE60A4EA2EA395F9763401BCC6E169CEE5A51A11E11AF1
AE7B20319472690FF356A308F9FCC098A42EF3831CDDAC5F57D2C2AD90DD52D8
696CBF55852192941AFDBD4D3D3D7155EABCF5657BC3BB8B324E318F9CAFC95A
F2E22078C4327781B443A4C37D0D60DFBD242921196B956F8B74CFAE2B6F87C0
1828EB6FEB36F8EBE3D934746CFEF1ABE31A8DAED4DB5BB506C05DB836132B1D
DA0218A6BFF476ACC9678E9D3E42780B8102B160541093CC375B1064FAD0A341
CF768ABDC43E007DD86CC1DCA6C78B003A6B311D40A5CECFBF6FCB87ACE53B03
2B9C0B4749E37D20F20DC8ADF66FE2CB47B5D467D56929A551B8808935F08F64
7E809B6529752460DA6B95BBDE9D3B27F0D3D6459B5D9116FAF8DA634266EA8C
8D4ADAC936719165AC1FF8F441690E196B992B70F6BA09781F4BC06848F7FAD1
79A2BF9BA6CB5818D72CDD90E52DD0A4463AF471D22E778978C89FDC6665E5C7
CE1B0AEC997C573FE481576046A12414B50E34A2A2E3C788ED4CDB3D1AAC8ABB
4205FDFF814B479377B71DE1E6A5A3BEDF09B94CDF51C220CC1ECAAC6AD874D3
948549355B2CEBA27FC7AFAC507098CAC9DD91E34690FC4A1B2D0D9842C74229
2211E48F88FE8DDFA41CF4AFA7B074462E8516FDA8020B22ED5E653A4636F2E5
DB8CF80BEBC9E285DD5068AC96A4A7A48A1576634E8127149625577C6E731566
1972FA7FD06E79ECBD9B339A09CC5232ACFB27DD65A6F5CA9FD7CD00333AE027
DC29F9D371C82793A3C7BB27A6A3371E4D7B95B38854E444CF016E3B3AD1A5C0
6C864CCF1F697CEF5B54E6A965F1111AFADA9CC1BEDF5E8CA62898DDA388F959
9739A265F76AF43FEF59F6DD3892A98A3550F9E3505B1A1ED8870238738137FB
4D7D5C2D9B06772817336D4621C615EFA9EBBEE5DD74AD54CEDCEAB810A0603C
C282C4654FF06CCC8A720D6F923E8733FE8DA44F206019055A7FF5C045E12037
59F32DE4EB910BE1BFEC658EDEA9D466F6AC12674D7E0956A20E75F89C66E8B7
6075CA284279062DF03AFC8DFBCAD67457C273743B0623C2621FA25F8CD5F713
6AC582592A9CA18B571F8FF94F45AC9FCBE9BF92AF41AE23EB5B40EBD0EB3AF6
44E213247694D0218E4190ABDEBA3F2C8B740FD53E52617A88FA89A6A9934306
176D8B81BCC476296DDCA7F8D9CF6040F529B172A2C37904F5A605ACF2CD7DCC
DF7290D015A18B3BAE766A72F50E1DF43F8CBAD80C65740F39CFC5C1FC86D561
64A018166F8A32BB6B17B2F0EE29C1E874AEE817B113AF2990ADB8DC424EF2BD
C21058D11EE18FA66E738A1F2F91E88BD31AB6214574DE097CE2E6677AEF7DE5
923A4F8C9091DE0A3A20EC1DD11C904AD125BAF3EF223A3697DB947753E13235
21B321A742F8DCE96F46CC348FD2001FD230E118A9288EC4A9BD3088CBF0CF4E
6BC65E2D7DDE76E26C2707F17339B7582AAB4EF6B131C90EF0CF08561423E11E
475863C494A115F7660AD4F84AC33ADA86604DBFF136F748E84ED17AA22993AD
C7F82A1D8F640C6C19F853B01BEE3E87722D63BB153CCC0CBE025916C5ED7A0E
387531E4537A89221D8BE1E9CC50EBC7FEA9DA4C4F719293D0B0EE5842AF0693
9AB5259D313EA20A078B2D969704545FF9110B776AE0C9DC8CC76FEDDED1539D
15CC027A3384468481E4E64B395A09D0B7AD2B6BD55FF3FFD7F48E936ABDB97F
F952257D8384E42F0D7BB166F77C7F22F920C207F0658487F6BAE87CC1AA93C3
CA8B7B624C5144EE74DB4ACD9999DC5654294B49C5F1B7C0620E113AC2B66863
128EBAED2CB40A92EE481CBEFAC0892ABAA08F3A3AB76A59C4CB667D8F6A3A86
EAA221093FD30D7EA76EC2FE2565B7EBB72D2A6384E36ACCA49857A7EA7543EC
490827901ED698F2097A557BE7754F0D0D358E418A0BB1C9B66503A39174D614
91C2E917F0580AD603FCC9F3F46000159C102D538A011658
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
cleartomark{restore}if
%%EndFont
TeXDict begin 39158280 55380996 1000 600 600 (grace.dvi)
@start /Fa 38[33 60[266 1[66 101[26 11[0 27[0 4[0 7[{}7
85.0146 /TeXMUSIX11-Regular rf /Fb 172[66 2[0 8[106 62[0
0 7[{}5 132.835 /TeXMUSIX16-Regular rf end
%%EndProlog
%%BeginSetup
%%Feature: *Resolution 600dpi
TeXDict begin
%%PaperSize: a4
 end
%%EndSetup
%%Page: 1 1
TeXDict begin 1 0 bop -364 -35 3529 4 v -364 -2 V -364
31 V -364 64 V -364 98 V -364 63 a Fb(G)-244 29 y(S)-121
-27 y
 slur@Dict begin CP /S0y1 ED /S0x1 ED /S0hgt (14.79999pt) GD N /S0brk
S0hgt (2.0pt) GD 1 -1 M M A N /S0lift 0 N /S0alt (20.0pt) GDAR N /S0dir
-1 N /S0dash 0 N /S0adj 0 N end
 -121 -27 a -112 -54 4 86 v -135 -54 a Fa(\007)p
-102 -69 39 4 v -71 -71 4 79 v -94 -71 a(\007)-110 -123
y(\232)-95 -126 y(\232)-110 -139 y(\232)-95 -142 y(\232)p
-61 -69 39 4 v -30 -87 4 72 v -53 -87 a(\007)-25 -103
y
 slur@Dict begin (2.0pt) GD S0hgt (24.0pt) GD 1.6 (2.0pt) GD M S0dir
M A S0x1 S0y1 CP (3.20001pt) GDAR S0dir M SB 1 S0dir M 0.17 40 S0dash
S0adj 90 DS /ay1 ay1 (0.0pt) GDAR -10 AR add dir mul add def
 -25 -103 a -25 -103 a
 end
 -25 -103 a -23 -69 60 4 v -23
-102 V -13 29 4 133 v 13 w Fb(\007)252 -64 y
 slur@Dict begin CP /S0y1 ED /S0x1 ED /S0hgt (19.20001pt) GD N /S0brk
S0hgt (2.0pt) GD 1 1 M M A N /S0lift 0 N /S0alt (20.0pt) GDAR N /S0dir
1 N /S0dash 0 N /S0adj 0 N end
 252 -64
a 229 79 4 117 v 230 -37 a Fb(\007)p 282 49 4 70 v 283
-20 a Fa(\007)283 49 y(\331)293 51 y(\331)342 -4 y
 slur@Dict begin (2.0pt) GD S0hgt (12.0pt) GD 1.6 (2.0pt) GD M S0dir
M A S0x1 S0y1 CP (3.20001pt) GDAR S0dir M SB 1 S0dir M 0.17 40 S0dash
S0adj 90 DS /ay1 ay1 (0.0pt) GDAR -10 AR add dir mul add def
 342
-4 a 342 -4 a
 end
 342 -4 a 322 59 4 63 v -19 w Fa(\007)p
474 129 4 117 v 475 13 a Fb(\007)672 -60 y
 slur@Dict begin CP /S0y1 ED /S0x1 ED /S0hgt (18.79999pt) GD N /S0brk
S0hgt (2.0pt) GD 1 -1 M M A N /S0lift 0 N /S0alt (20.0pt) GDAR N /S0dir
-1 N /S0dash 0 N /S0adj 0 N end
 672 -60 a
663 -69 39 4 v 694 -87 4 70 v 695 -87 a Fa(\014)-24 b(\007)709
-103 y
 slur@Dict begin (2.0pt) GD S0hgt (24.0pt) GD 1.6 (2.0pt) GD M S0dir
M A S0x1 S0y1 CP (3.20001pt) GDAR S0dir M SB 1 S0dir M 0.17 40 S0dash
S0adj 90 DS /ay1 ay1 (0.0pt) GDAR -10 AR add dir mul add def
 709 -103 a 709 -103 a
 end
 709 -103 a 711 -69 60 4
v 711 -102 V 721 29 4 133 v 13 w Fb(\007)p 965 98 4 135
v 1029 46 4 70 v 1030 46 a Fa(\()g(\007)p 1093 63 4 117
v 1055 63 a Fb(\007)1225 195 y Fa(4)p 1244 131 39 4 v
1245 164 V 1246 197 V 1277 195 4 70 v 27 w(\()g(\007)p
1294 131 60 4 v 1294 164 V 1342 179 4 150 v 1304 179
a Fb(\007)p 1536 131 60 4 v 1584 129 4 117 v 1546 129
a(\007)1630 139 y
 slur@Dict begin CP /S0y1 ED /S0x1 ED /S0hgt (-5.20001pt) GD N /S0brk
S0hgt (2.0pt) GD 1 -1 M M A N /S0lift 0 N /S0alt (20.0pt) GDAR N /S0dir
-1 N /S0dash 0 N /S0adj 0 N end
 1630 139 a 1638 112 4 151 v 1615 112
a Fa(\007)p 1678 96 4 145 v 1655 96 a(\007)p 1718 79
4 138 v 1695 79 a(\007)p 1758 63 4 131 v 1735 63 a(\007)p
1798 46 4 125 v 1775 46 a(\007)p 1837 29 4 118 v 1814
29 a(\007)p 1877 13 4 111 v 1854 13 a(\007)p 1917 -4
4 105 v 1894 -4 a(\007)p 1957 -20 4 98 v 1934 -20 a(\007)p
1997 -37 4 91 v 1974 -37 a(\007)p 2037 -54 4 85 v 2014
-54 a(\007)p 2047 -69 39 4 v 2078 -71 4 78 v 2055 -71
a(\007)1638 -6 y(\234)1852 -61 y(\234)1638 -22 y(\234)1852
-77 y(\234)1638 -38 y(\234)1852 -92 y(\234)p 2088 -69
39 4 v 2119 -87 4 72 v 2096 -87 a(\007)2124 -103 y
 slur@Dict begin (2.0pt) GD S0hgt (24.0pt) GD 1.6 (2.0pt) GD M S0dir
M A S0x1 S0y1 CP (3.20001pt) GDAR S0dir M SB 1 S0dir M 0.17 40 S0dash
S0adj 90 DS /ay1 ay1 (0.0pt) GDAR -10 AR add dir mul add def
 2124
-103 a 2124 -103 a
 end
 2124 -103 a 2126 -69 60 4 v 2126 -102
V 2136 29 4 133 v 13 w Fb(\007)p 2378 98 4 135 v 2491
-14 a
 slur@Dict begin CP /S0y1 ED /S0x1 ED /S0hgt (13.20001pt) GD N /S0brk
S0hgt (2.0pt) GD 1 1 M M A N /S0lift 0 N /S0alt (20.0pt) GDAR N /S0dir
1 N /S0dash 0 N /S0adj 0 N end
 2491 -14 a 2468 129 4 117 v 2469 13 a Fb(\010)p
2695 99 4 70 v 2696 29 a Fa(\007)p 2735 99 4 53 v 2736
46 a(\007)p 2696 104 84 11 v 2795 29 a
 slur@Dict begin (2.0pt) GD S0hgt (8.0pt) GD 1.6 (2.0pt) GD M S0dir
M A S0x1 S0y1 CP (3.20001pt) GDAR S0dir M SB 1 S0dir M 0.17 40 S0dash
S0adj 90 DS /ay1 ay1 (0.0pt) GDAR -10 AR add dir mul add def
 2795 29 a 2795
29 a
 end
 2795 29 a 2775 99 4 70 v -19 w Fa(\007)2815 -20
y Fb(P)p 2815 129 4 117 v 2816 13 a(\010)p 3161 98 4
135 v 3165 262 a
 slur@Dict begin /pss@rega 0 N /psc@rega 0 N /pst@rega 0 N end
 3165 262 a eop end
%%Trailer

userdict /end-hook known{end-hook}if
%%EOF