summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pmx/pmxccn/eps/clefchg2.eps
blob: 28915a32d4e499d7bf55418e84ccd147f649f80c (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
%% LaTeX2e file `eps/clefchg2.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: clefchg2.dvi
%%CreationDate: Wed Jan 21 13:52:44 2004
%%Pages: 1
%%PageOrder: Ascend
%%BoundingBox: 36 751 453 783
%%DocumentFonts: CMR10 TeXMUSIX16-Regular
%%EndComments
%DVIPSWebPage: (www.radicaleye.com)
%DVIPSCommandLine: C:\MIKTEX\TEXMF\MIKTEX\BIN\DVIPS.EXE clefchg2.dvi
%DVIPSParameters: dpi=600, compressed
%DVIPSSource:  TeX output 2004.01.21:1352
%%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: 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 9 /macron put
dup 10 /dotaccent put
dup 50 /two put
dup 72 /H put
dup 73 /I put
dup 74 /J 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
4205FDFF864393FB340DEC53F22BBC9011D18C818CAC5CE17FDB25AA3D76B817
D7C337833DD53BF891D64AC84C2D36CDFD11DE82728AFE21C6E7E6C2D8A2AB1E
470318F6BA4A95928FE7E588F2D807AACF0ABAB5E81CFA75AC44535DD7389E20
EACCD3FC846C87784EEA4D275635656DA02027FE0EBE462CC29C0F848C6C2AA6
403350659FF4523F9A11AF1B730B0281BADD9F9AD9AC87E5235770D0CEFD2174
D6202BFAE916798C51491CA3D52D0D225D69841108E931B2D33BE7D1C9A9ABC5
2E9DB146BAA328F1A019EFA53681D3CB77ED5613C158582B7D4119EA10D13B87
43E95D44F964204CFF74F6C9998EFC5A917E535FB864C69631EE04DB519140F5
CE4044FD4B19765EB82664F1124B2E345F9EC897616F1A81AD2795C93BA824A7
AD9C2E2ECE5CB475C5744D07E9CDB8DEEA5572F4331A90DA7E638388619EBA49
7317C050DC8088BE5792A08864DBBD9B56BDB2C38862DA27A14B1BA7D401B8CC
B11032F69702294EC19FA328D21E9E2F8F27722DAC4C45B9E05A6AECDF3A8FC4
D02895C3DA2E45548AA94C96F321AB9BAD3C7530BA43C16921691BD577B7FF54
D7BDBC5ABB67B9AE82C946DE9C86F0AB22E80C2904361CE168E1E2FAF78052CE
8C030C24FC7474B5131A2114CB9D8098FFDE6545224A50544C452C25375BCD6C
F42BC869E09B44673A6F8BE8C30CA6C994A78FC0A77CAD24A4A5901F53DC30BD
04D193CB86EAFFDCED09C006D43964B8D1B6EAC5DFAAAB4E20B72CEBD1513797
E191C633F53F6BD85E3B8BD7C15D4475A811F0E17B47D3B0795666B2E94F9CEF
9394A5D5D6D6FCB4E64F1A0AC650C5F2D1BFA8908C16025588C32058F0A86D9D
89CE9223CD470C0B26026BAE0CA6404F52E70B0650FE3C1A63F9C5CB876B7E97
F05966C3B9A2F46DBCA0B1C7B7A8DCE9F74D2E161C2F6432900FE06191A272A3
D9A453480477E7F998E28B108F28A61B3FDDA047099F25FF9EF7E97BFE106D0B
D8B8FDB39F39877261A3C88287BF74486CDA6287B9A3D12986896AB16B869E45
27B9A3FB66A34F0E36CC69DA7F84F6AC2829C80474FB4CD95E45C8879755E063
6EDFA5100CF56A77583DCEC676791343570D9FD4395EB08854AADE214C7535B6
F7D034820562492274196367F8FDD5D58537FB33A6BFA2E9396669C31096EF9E
EEC8C95D35B5634712839E765EBA36B1F60298A13DC031701A6B976EB911E314
A3146F647E22DD8CCCFC0BF84E4F3DFC082C141B0B3B547C2B9457A9A09A3BD8
FE0CA5B0313688A28570D8FCCD3553EB83F3DAA9256EBF7C323B9D72AE0B4CA3
3682FAF71B5E947F7FC017CC53841DC96C9E95E2A667A917A1513FE791F128A9
18710604E32BF4CBA59B861F2472FDE7C2E66639EF267F37745E6C0D9B2EEEDE
311F48153517A960A47B490F4BBB42F26702B7CF81726D8F830A522406CD88D5
86BC306FEB8594E6F739B927CA4D66BF82F4C02D49842114B0A453F3B0C8604D
88EE14730156F8E864EAF9CBE12B83E14B43A4E16ABD7F1759A11942412B7FBE
416FEA0D359CBEDA9F2E3BBD283437C9FE8204AD2A3DE34F6885CCB3EA60682F
11CACD876822B304A5277D4EF55FAB31685AC787E4289C15125811E44A1F4AF5
1537F3364F1BFFC43C70D007CE454EF6A14E233E3DEADA64A24062874403DC49
7F984796A999A53EFAFE5CADD95BFD4BB37C80E3C3CDC06AB59F675256C0EDE2
E5CE6530CE00E37211D4E21012428550E8D658067BC676500FA530074E11C202
02EF3BD12988067ADA4BEB91A0C801507DEAFEAE854A58E00B4B28F054823D5F
977A1C7511837CF90B96C1A8DE22870250B0015AF4E0BE9B3FC35ED01E5D5759
F060340EF850432BAEA7AEE9EAE53CA56C66D8F89F9770384B2D607A55506EA9
14A0A1A683E19053E5F2695F040F659925A651DC4D200944028D5196C4A6C1DA
3C756A3BF100D299BC0A97EA152FDF792D2E34FF4399B7764DA5FF0032DDB474
39F6A5820F4469990626B958B59FCC3A525E467DF8744A0BD13E8FBADC7710FC
2B894D442168323381540B012B7B0F56CB5C142DAC3635EBF132F8AE35A98411
DE685954BD71B17701A9C8847F85DBD43F1467828385F37AC97760B5129AC914
7CB28B9A860D6C3F9C661F552424A3C9581DED3EF1BD2D9937
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
cleartomark{restore}if
%%EndFont
%%BeginFont: CMR10
%!PS-AdobeFont-1.1: CMR10 1.00B
%%CreationDate: 1992 Feb 19 19:54:52
% Copyright (C) 1997 American Mathematical Society. All Rights Reserved.
11 dict begin
/FontInfo 7 dict dup begin
/version (1.00B) readonly def
/Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def
/FullName (CMR10) readonly def
/FamilyName (Computer Modern) readonly def
/Weight (Medium) readonly def
/ItalicAngle 0 def
/isFixedPitch false def
end readonly def
/FontName /CMR10 def
/PaintType 0 def
/FontType 1 def
/FontMatrix [0.001 0 0 0.001 0 0] readonly def
/Encoding 256 array
0 1 255 {1 index exch /.notdef put} for
dup 50 /two put
dup 86 /V put
dup 99 /c put
dup 101 /e put
dup 105 /i put
dup 108 /l put
dup 110 /n put
dup 111 /o put
readonly def
/FontBBox{-251 -250 1009 969}readonly def
/UniqueID 5000793 def
currentdict end
currentfile eexec
D9D66F633B846A97B686A97E45A3D0AA052A014267B7904EB3C0D3BD0B83D891
016CA6CA4B712ADEB258FAAB9A130EE605E61F77FC1B738ABC7C51CD46EF8171
9098D5FEE67660E69A7AB91B58F29A4D79E57022F783EB0FBBB6D4F4EC35014F
D2DECBA99459A4C59DF0C6EBA150284454E707DC2100C15B76B4C19B84363758
469A6C558785B226332152109871A9883487DD7710949204DDCF837E6A8708B8
2BDBF16FBC7512FAA308A093FE5CF7158F1163BC1F3352E22A1452E73FECA8A4
87100FB1FFC4C8AF409B2067537220E605DA0852CA49839E1386AF9D7A1A455F
D1F017CE45884D76EF2CB9BC5821FD25365DDEA6E45F332B5F68A44AD8A530F0
92A36FAC8D27F9087AFEEA2096F839A2BC4B937F24E080EF7C0F9374A18D565C
295A05210DB96A23175AC59A9BD0147A310EF49C551A417E0A22703F94FF7B75
409A5D417DA6730A69E310FA6A4229FC7E4F620B0FC4C63C50E99E179EB51E4C
4BC45217722F1E8E40F1E1428E792EAFE05C5A50D38C52114DFCD24D54027CBF
2512DD116F0463DE4052A7AD53B641A27E81E481947884CE35661B49153FA19E
0A2A860C7B61558671303DE6AE06A80E4E450E17067676E6BBB42A9A24ACBC3E
B0CA7B7A3BFEA84FED39CCFB6D545BB2BCC49E5E16976407AB9D94556CD4F008
24EF579B6800B6DC3AAF840B3FC6822872368E3B4274DD06CA36AF8F6346C11B
43C772CC242F3B212C4BD7018D71A1A74C9A94ED0093A5FB6557F4E0751047AF
D72098ECA301B8AE68110F983796E581F106144951DF5B750432A230FDA3B575
5A38B5E7972AABC12306A01A99FCF8189D71B8DBF49550BAEA9CF1B97CBFC7CC
96498ECC938B1A1710B670657DE923A659DB8757147B140A48067328E7E3F9C3
7D1888B284904301450CE0BC15EEEA00E48CCD6388F3FC3BE25C8568CF4BC850
439D42F682507AEBFF9F37311AA179E371A7C248D03B5BF40C3B7E0FDD80D521
09B4D0044C5EFBC5C4A8DF9B5F734ECA6099F8A76881278EC54549F51532AC62
0D85E2178D1B416514B03BC33767A58057CF521F2620B53DE2A240D58312B92A
7C1F9BD0A11514B5CAB87219A1F5C4982A83380B0896597EE5E42BDC6F85E6AF
68ED6994484CDC022ABE678A7F2E298A7FAD967A2EA7DC426F07342ECC66E68B
983E966FCFB745795C4D2C87CC15BAA041EF80C5BDC12EC1F5786BB41A5A2107
3EE0BC436B346E014DB4099EDC67BC432E470A4B779FD556341061CA3F2BE8EF
A332637AEC878C2BB189CA3267B2BE5B8178E6B7889A33771F86276E6F0B8E89
BD209DB0CCDDC342CC3D438356296934D03FE107CACD00545E375162DF567C70
F2DCE2E5A2C5F61EDC0DAE9A91044DD214031FE8339581A9798BC43F13495FC0
800761A6A974597A6591BB772B7C2854776184200650870F0B9A39231246409F
64587223CBA397CDD5B85319EA3EABF03C0D21319F3267804C0E1BFF0529D754
2820803344CB844CCFF0B65999F5BFD8B3F28D9B618529F7CD8EA038A4EE4DC8
36F31EDEEA2BFC09F2A23D9835CAC736F607207AC573291E6E55D103AAF94D5F
A688675B55D40FA43C6D97741D9FE4CE7F909B8B374E4975E93D9FD32DFA0AE8
4699D184A4C3E6EDA91ECFEC0ECF0B5340E0DDD17A6381B58E63197BF4D3EDCF
0267A48EF271D6AD67DEA1649F5391A860AE9CCAAD3330408DC5008EF4383FED
9887D5D348D766399192B5E968035E7DE5E0350A005E4C596361251DCF8A9302
D6F53ED0F720442A89467CA60E5396A335EA60A77175B7F6119F4E3D8773D100
3F307FB7310879760E6E7AF5B06207BC4D8321734432C482581783BB9D29E087
72D7252FAFA6739687225704EC9BD7B76357E64AD13C1CD4954ACACDB8A3410C
C121985DFD37D79265C7EEA862D9DF32A38CCFDC7A2ED1CC6EF05E7BE3767D68
053B9A33CA4AB36C480DCD7DE406D3A4C99EB089F9E064B2CA70C76F697F2EC6
6D4B9088EB8B6FED2E365477BCBA77F8C5F4C1C3F1F303F4BD8C9642C2E1A4AD
76284D9C58978ED8A96CA8933B288C1AE700719D83A1A4D86EE2850989203E52
E2C7C014EA273CCFCF998A99057B35EA547608333ED1BD7438CB9DCDECFC4FEE
59546A8BC5C5558452FDEF6187F3B0AF7F05ED02E2EA41E894CA6C1E43EEC665
D0171895B43800BB785F902AED0512583F688CEA8CF5DED0F4D278A952E44309
24F2740B42D75D54530792EB5420BDF28412004004B339CAFA33417EE40905E7
F3A6F02AA8ED331A81D7607ABBF1EC9F2EDBF95918356AE14916ACD489F97524
638F2F83B0147C90AF1BC29E160B603441FC210A0DDAB8738EE0C187C3A0F0AB
E79640FA8C8E98CB2FE3AB839B40CE17CB596AC0C17F42426859AE530F502B82
8F4FE125F15F13DE6B45663CF862FE76D1A08C134E367C908026476722CA385E
4C23C7E560766836A2F2D39C79B77A3803E36341A18A2F8471FFECBC6319A4E5
98003C6E77B6301137036B5BDD909A5F012FC5A868F8D60677F7A09988E6B866
84A3EF18587A42C336822288575891196BED12704ED70BF41E31B60B9C9AFF4F
D9560AF15DBD0BBE735E905636E1F5D562420D15283E22B38B662C4ECBDFF065
D777EC23DD2D373DB08F076287CF7E5B0DA970F2594C89B2E5B937CC5A62AD79
698D6214019EBEAB17F021AECD16F4CF792FAACC8A91D6D1EFB51E2960C5176A
EB55D5F32C0F4280620B399061A4E299C22585606BBD26FE14D01FA916F84919
CAAE60032158BE253BEDB6AC88FC84C89FDB062F9108756189167D7DE603F35D
D1D135ABADC9AA5643ED675F0D47DA392DC28A166023E8F572790AC697962082
AF3DD0EC670677836FE42932CD470139DA40A1B62424A40388A94B4EF77B2944
606CEB9584918416E3173CCAED5ADDFB3C948A1A62F1A689EBBB7CF151B39238
4E629A81EDA71F466BDC4562943A9448C8DC96DCAD32CAB70F4BF66279FACA07
4AE481EABCC255C070443A167AF116DFD286B51A883D364896B6DB261813F72E
6FDE0520C203A4A2DF309F48447D3BE627952A994C0DB87DDFD888A9D05A81E5
BD3B041BCA33899405F9DC0C73F164C76C0618B2DABA6AC8CD1D0F3CC80C8DE8
4D2283033899B8717929F2C67A07FF92C58E2933FE6D0DC44A0C50A9B0927294
EE4D6A91F66D87DCC130B7C995E85406EB1A4D6272437B23761595AF47CB3630
80112D1EBCE62A81084E9E9DAA0808934EED488EDD28F94D4D9E70E91420246A
781FAF504609BF79EC72DCF3409ADC37237E3D9C8D938577B96F9D0D66390303
53D2EE7F3BFAE87BFAAD6F764E785A7560939E99AB3B83A9651146F9EE4AF68C
83E2CE4FD4DA7C87F43CFB063DADABDF775869CC6BD3380D3D6970DDFF69071B
32EA406BF6D53C74CF167F038364F5618901DEBA17C717AC289D8569A7BD5FC7
D8795F8C3C4A707FCE5D4AFD0AC9823C31F5BBE2A99C5EDA8AC07FD351A08258
990554857BFD26603DF0D996B6CBEF064E1EE02EA793840F8C5149C6E80B3EB0
C280971ED5967F18546599F6C1E372D32BA0D2DD6ABC574E665722067B4D3867
54AC401685B91244E59A9D9142ADA69B30D7A38F00390AB39F01DB994C5F3C46
BC7C5C78C04B1D784BF51288008190C4CD3D4A44ED63F0BD0B9430F8B0B38E4E
8BA9494AF3E18452461D7C0B5AE2DF43C31F703D557B6B17B47C70B23F479E36
1D0536800D3C675960EBC01164961299AC08E124D1C0FD648CF51DC66C69F258
74EDC8182E66583A02CDC42CD5A97D04
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
cleartomark
%%EndFont
TeXDict begin 39158280 55380996 1000 600 600 (clefchg2.dvi)
@start /Fa 172[66 8[93 106 93 21[40 39[0 0 0 0 7[{}9
132.835 /TeXMUSIX16-Regular rf /Fb 144[42 46 1[23 2[23
3[37 1[37 12[62 35[42 50[{}8 83.022 /CMR10 rf end
%%EndProlog
%%BeginSetup
%%Feature: *Resolution 600dpi
TeXDict begin
%%PaperSize: A4
 end
%%EndSetup
%%Page: 1 1
TeXDict begin 1 0 bop 342 -35 2823 4 v 342 -2 V 342 31
V 342 64 V 342 98 V -291 58 a Fb(2)27 b(Violoncelli)342
-4 y Fa(I)451 63 y(2)485 13 y(2)518 79 y(2)561 29 y(S)p
786 46 4 117 v 748 46 a(\007)748 112 y(\011)940 63 y(H)p
1071 46 V -17 x(\007)p 1356 13 4 110 v 1318 13 a(\007)p
1641 46 4 117 v 1603 46 a(\007)1795 -4 y(J)p 1888 98
4 135 v 1992 156 4 110 v 1993 46 a(\010)2184 63 y(H)p
2315 96 4 117 v 33 x(\007)p 2600 46 V 2562 46 a(\007)p
2885 96 V 2847 96 a(\007)2562 129 y(\012)p 3131 98 4
135 v 3145 98 20 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