~ubuntu-branches/ubuntu/raring/texlive-extra/raring

« back to all changes in this revision

Viewing changes to texmf-dist/doc/generic/pmx/pmxccn/eps/transpose2.eps

  • Committer: Package Import Robot
  • Author(s): Norbert Preining
  • Date: 2012-05-16 08:22:07 UTC
  • mfrom: (1.1.12) (3.1.20 sid)
  • Revision ID: package-import@ubuntu.com-20120516082207-41ox35jj1qsu46a7
Tags: 2012.20120516-1
* new upstream snapshot based on TL2012 tlpretest
* switch to xz compression for orig and deb (Closes: #672428)

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
%% LaTeX2e file `eps/transpose2.eps'
 
2
%% generated by the `filecontents' environment
 
3
%% from source `pmxccn' on 2011/07/14.
 
4
%%
 
5
%!PS-Adobe-3.0 EPSF-3.0
 
6
%%Creator: dvips(k) 5.90a Copyright 2002 Radical Eye Software
 
7
%%Title: transpose2.dvi
 
8
%%CreationDate: Sun Sep 28 16:03:28 2003
 
9
%%Pages: 1
 
10
%%PageOrder: Ascend
 
11
%%BoundingBox: 73 751 483 785
 
12
%%DocumentFonts: TeXMUSIX16-Regular
 
13
%%EndComments
 
14
%DVIPSWebPage: (www.radicaleye.com)
 
15
%DVIPSCommandLine: C:\MIKTEX\TEXMF\MIKTEX\BIN\DVIPS.EXE transpose2.dvi
 
16
%DVIPSParameters: dpi=600, compressed
 
17
%DVIPSSource:  TeX output 2003.09.28:1603
 
18
%%BeginProcSet: texc.pro
 
19
%!
 
20
/TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S
 
21
N}B/A{dup}B/TR{translate}N/isls false N/vsize 11 72 mul N/hsize 8.5 72
 
22
mul N/landplus90{false}def/@rigin{isls{[0 landplus90{1 -1}{-1 1}ifelse 0
 
23
0 0]concat}if 72 Resolution div 72 VResolution div neg scale isls{
 
24
landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div hsize
 
25
mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul TR[
 
26
matrix currentmatrix{A A round sub abs 0.00001 lt{round}if}forall round
 
27
exch round exch]setmatrix}N/@landscape{/isls true N}B/@manualfeed{
 
28
statusdict/manualfeed true put}B/@copies{/#copies X}B/FMat[1 0 0 -1 0 0]
 
29
N/FBB[0 0 0 0]N/nn 0 N/IE 0 N/ctr 0 N/df-tail{/nn 8 dict N nn begin
 
30
/FontType 3 N/FontMatrix fntrx N/FontBBox FBB N string/base X array
 
31
/BitMaps X/BuildChar{CharBuilder}N/Encoding IE N end A{/foo setfont}2
 
32
array copy cvx N load 0 nn put/ctr 0 N[}B/sf 0 N/df{/sf 1 N/fntrx FMat N
 
33
df-tail}B/dfs{div/sf X/fntrx[sf 0 0 sf neg 0 0]N df-tail}B/E{pop nn A
 
34
definefont setfont}B/Cw{Cd A length 5 sub get}B/Ch{Cd A length 4 sub get
 
35
}B/Cx{128 Cd A length 3 sub get sub}B/Cy{Cd A length 2 sub get 127 sub}
 
36
B/Cdx{Cd A length 1 sub get}B/Ci{Cd A type/stringtype ne{ctr get/ctr ctr
 
37
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
 
38
1 roll S A/base get 2 index get S/BitMaps get S get/Cd X pop/ctr 0 N Cdx
 
39
0 Cx Cy Ch sub Cx Cw add Cy setcachedevice Cw Ch true[1 0 0 -1 -.1 Cx
 
40
sub Cy .1 sub]/id Ci N/rw Cw 7 add 8 idiv string N/rc 0 N/gp 0 N/cp 0 N{
 
41
rc 0 ne{rc 1 sub/rc X rw}{G}ifelse}imagemask restore}B/G{{id gp get/gp
 
42
gp 1 add N A 18 mod S 18 idiv pl S get exec}loop}B/adv{cp add/cp X}B
 
43
/chg{rw cp id gp 4 index getinterval putinterval A gp add/gp X adv}B/nd{
 
44
/cp 0 N rw exit}B/lsh{rw cp 2 copy get A 0 eq{pop 1}{A 255 eq{pop 254}{
 
45
A A add 255 and S 1 and or}ifelse}ifelse put 1 adv}B/rsh{rw cp 2 copy
 
46
get A 0 eq{pop 128}{A 255 eq{pop 127}{A 2 idiv S 128 and or}ifelse}
 
47
ifelse put 1 adv}B/clr{rw cp 2 index string putinterval adv}B/set{rw cp
 
48
fillstr 0 4 index getinterval putinterval adv}B/fillstr 18 string 0 1 17
 
49
{2 copy 255 put pop}for N/pl[{adv 1 chg}{adv 1 chg nd}{1 add chg}{1 add
 
50
chg nd}{adv lsh}{adv lsh nd}{adv rsh}{adv rsh nd}{1 add adv}{/rc X nd}{
 
51
1 add set}{1 add clr}{adv 2 chg}{adv 2 chg nd}{pop nd}]A{bind pop}
 
52
forall N/D{/cc X A type/stringtype ne{]}if nn/base get cc ctr put nn
 
53
/BitMaps get S ctr S sf 1 ne{A A length 1 sub A 2 index S get sf div put
 
54
}if put/ctr ctr 1 add N}B/I{cc 1 add D}B/bop{userdict/bop-hook known{
 
55
bop-hook}if/SI save N @rigin 0 0 moveto/V matrix currentmatrix A 1 get A
 
56
mul exch 0 get A mul add .99 lt{/QV}{/RV}ifelse load def pop pop}N/eop{
 
57
SI restore userdict/eop-hook known{eop-hook}if showpage}N/@start{
 
58
userdict/start-hook known{start-hook}if pop/VResolution X/Resolution X
 
59
1000 div/DVImag X/IE 256 array N 2 string 0 1 255{IE S A 360 add 36 4
 
60
index cvrs cvn put}for pop 65781.76 div/vsize X 65781.76 div/hsize X}N
 
61
/p{show}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0 N/Ry 0 N/v{/Ry X
 
62
/Rx X V}B/V{}B/RV statusdict begin/product where{pop false[(Display)
 
63
(NeXT)(LaserWriter 16/600)]{A length product length le{A length product
 
64
exch 0 exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}
 
65
ifelse end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{BDot}
 
66
imagemask grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat{
 
67
BDot}imagemask grestore}}ifelse B/QV{gsave newpath transform round exch
 
68
round exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0
 
69
rlineto fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B
 
70
/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}
 
71
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
 
72
-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{
 
73
0 S rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end
 
74
 
 
75
%%EndProcSet
 
76
%%BeginProcSet: psslurs.pro
 
77
% This file can be used instead of psslurs.pro, it is only commented
 
78
% and indented.
 
79
%
 
80
% VERSION: 1.0
 
81
%
 
82
% WARNING! This is a heavy magic! If you want something more understandable,
 
83
%   you will have to write it yourself (if it is possible in a stack-oriented
 
84
%   language that PostScript is). There are some constants you can
 
85
%   change and see what happens, but I think the slurs should be almost
 
86
%   always satisfiable. When not, let me know at:
 
87
%   standa@hiero.cz
 
88
%   Also any bug reports and comments are welcomed.
 
89
%
 
90
%         Stanislav Kneifl.
 
91
 
 
92
/slur@Dict 200 dict def
 
93
 
 
94
% this dictionary is for \setslurtext, overriding some dvips's definitions
 
95
/temp@xx@dict 4 dict def temp@xx@dict begin
 
96
 /a { moveto ax1 ay1 rmoveto } def
 
97
 /V {gsave newpath transform round exch round exch itransform
 
98
  exch ax1 add exch ay1 add moveto rulex 0 rlineto 0 ruley neg
 
99
  rlineto rulex neg 0 rlineto fill grestore} def
 
100
end
 
101
 
 
102
TeXDict begin
 
103
% get dimen from TeX's string ("125pt" -> 125 PS points)
 
104
/GD { dup length 2 sub 0 exch getinterval cvr 1.045 mul} def
 
105
% get dimen adjusted to Resolution
 
106
/GDAR { dup length 2 sub 0 exch getinterval cvr 4 AR mul 1.045 mul} def
 
107
% Adjust to Resolution
 
108
/AR { Resolution mul 300 div } def
 
109
%  the distances in dvips's PostScript are resolution dependant!
 
110
end
 
111
 
 
112
slur@Dict begin
 
113
/CP /currentpoint load def
 
114
/ED { exch def } bind def
 
115
/AR { Resolution mul 300 div } def  % stands for Adjust to Resolution,
 
116
/VS { dup /ay1 exch ay1 exch linew mul 4 mul add def /ay2 exch ay2 exch linew mul 4 mul add def } def
 
117
/y { 3 2 roll ax1 ay1 rmoveto show moveto } def
 
118
/M { mul } def
 
119
/A { add } def
 
120
/SB { sub } def
 
121
/P { pop } def
 
122
/DP { dup } def
 
123
/R { roll } def
 
124
 
 
125
/drawseg { 0 0 moveto
 
126
 ax1 ay1
 
127
  ax1 0.6 mul ax2 0.4 mul add ay1 0.6 mul ay2 0.4 mul add
 
128
  ax1 ax2 add 2 div ay1 ay2 add 2 div curveto
 
129
 ax1 0.4 mul ax2 0.6 mul add ay1 0.4 mul ay2 0.6 mul add
 
130
  ax2 ay2
 
131
  x2 0 curveto } def
 
132
 
 
133
/DS {
 
134
 AR /maxe ED
 
135
 /ifadjust ED
 
136
 /ifdash ED
 
137
 AR /m ED         % max height of the slur
 
138
 /e ED            % "angularity" of the slur; 0.1 = very angular,
 
139
                          %   0.3 = very round
 
140
 /aa exch neg def       % what to multiply the height with
 
141
                          %   AFTER the max height checking
 
142
 /y2 ED           % y coordinate of the end of the slur
 
143
 /x2 ED           % x coordinate of the end of the slur
 
144
 /y1 ED           % y coordinate of the beginning of the slur
 
145
 /x1 ED           % x coordinate of the beginning of the slur
 
146
 /yr2 ED
 
147
 /yr1 ED
 
148
 /internote ED
 
149
 /x2 x2 x1 sub def      % x2=x2-x1
 
150
 /y2 y2 y1 sub def      % y2=y2-y1
 
151
 /sx y2 x2 div def
 
152
 /b x2 300 mul Resolution div abs sqrt AR 2 mul def % b=2*sqrt(x2)
 
153
 b 3 AR lt {/b 3 AR def} if   % b=max(b,3)
 
154
 b m gt {/b m def} if     % b=min(b,m)
 
155
 /aa b aa mul def      % aa=aa*b
 
156
 /s 90 x2 y2 atan sub def   % s=90-arctan(x2,y2)   slope of the slur
 
157
 /aa aa s cos div def     % aa=aa/cos(s)   height of the slur
 
158
 /x2 s neg cos x2 mul s neg sin y2 mul sub def % x2 = x2*cos(-s) - y2*sin(-s)
 
159
                 %  is the length of the slur
 
160
 e x2 mul maxe gt { /e maxe x2 div def } if
 
161
 /beta e x2 mul aa neg atan def
 
162
 beta 90 gt {/beta 180 beta sub def} if
 
163
 /ax1 e x2 mul def    % control points
 
164
 /ay1 aa def
 
165
 /ax2 1 e sub x2 mul def
 
166
 /ay2 aa def
 
167
 
 
168
% check if the starting and endin vector stay in desired quadrants
 
169
% => beta < abs(s)
 
170
 beta s abs lt {
 
171
  /b aa abs s abs 2 add sin mul s abs 2 add cos div def
 
172
  s aa mul 0 lt {
 
173
   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
 
174
%              ^^^^                                 ^^^                                ^^^
 
175
% (values to play with)
 
176
   /ax2 x2 b sub def
 
177
  }
 
178
  {
 
179
   /ax1 b def
 
180
   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
 
181
%              ^^^^                             ^^^                                    ^^^
 
182
  } ifelse
 
183
 } if
 
184
 
 
185
% align the slur to the staff lines
 
186
 
 
187
 gsave
 
188
 x1 y1 translate
 
189
 s rotate
 
190
% [1 0 sx 1 0 0] concat
 
191
 drawseg
 
192
 gsave
 
193
 initmatrix
 
194
 flattenpath
 
195
 pathbbox
 
196
 exch pop
 
197
 sub
 
198
 /slh ED            % in slh we have the height of the whole slur
 
199
 pop
 
200
 grestore
 
201
 
 
202
 /yr s aa mul 0 ge { yr1 } { yr2 } ifelse internote div def
 
203
 /slh yr slh internote div aa 0 gt { add } { sub } ifelse 2 div def
 
204
% check if the slur gets too close to staff line
 
205
 /shift 0 def
 
206
 slh 4.45 lt slh -0.5 gt and {
 
207
  /slh slh dup truncate sub def
 
208
  slh 0 lt { /slh 1 slh add def } if
 
209
  aa 0 gt { /slh 1 slh sub def } if
 
210
 
 
211
   % slh now contains the position ot the slur top/bottom in the space
 
212
   % between the nearest staff lines (from <0,1>), regardless direction
 
213
 
 
214
   % slur is too low:
 
215
  slh 0.45 lt { /shift 0.45 slh sub def } if
 
216
   % slur is too high, but we can be shift it down:
 
217
  slh 0.7 gt slh 0.85 lt and { /shift 0.7 slh sub def } if
 
218
   % slur is too high, must be shifted up:
 
219
  slh 0.85 ge { /shift 1.45 slh sub def } if
 
220
 } if
 
221
 
 
222
 aa 0 gt { /shift shift neg def } if
 
223
 
 
224
 ifadjust 0 eq {
 
225
  /shift 0 def
 
226
 } if
 
227
 
 
228
 
 
229
% and finally draw it...
 
230
 
 
231
 grestore
 
232
 gsave
 
233
 /linew internote 0.06 mul AR def
 
234
 linew 4 mul setlinewidth
 
235
 1 setlinecap
 
236
 0 setlinejoin
 
237
 ifdash 1 eq
 
238
  { [internote 8 mul AR internote 5 mul AR] 0 setdash } if
 
239
 x1 y1 shift neg 2 mul internote mul 4 AR mul add translate
 
240
 s rotate
 
241
% [1 sx 0 1 0 0] concat
 
242
 
 
243
% uncomment this to see the control points
 
244
%  5 AR setlinewidth ax1 ay1 moveto 0.1 0 rlineto stroke
 
245
%  ax2 ay2 moveto 0.1 0 rlineto stroke linew setlinewidth
 
246
 
 
247
 drawseg
 
248
 1 VS
 
249
 drawseg
 
250
 -2 VS
 
251
 drawseg
 
252
 x2 20 AR gt {
 
253
  3 VS
 
254
  drawseg
 
255
 } if
 
256
 x2 50 AR gt {
 
257
  -4 VS
 
258
  drawseg
 
259
 } if
 
260
 x2 80 AR gt {
 
261
  5 VS
 
262
  drawseg
 
263
 } if
 
264
 stroke
 
265
 
 
266
 grestore
 
267
 
 
268
 % now some \slurtext code...
 
269
 
 
270
 /x1 ax1 ax2 add 2 div def          % middle of the slur
 
271
 /y1 ay1 ay2 add 2 div def
 
272
 x1 s cos mul y1 s sin mul add neg
 
273
 y1 s cos mul x1 s sin mul sub
 
274
 aa 0 lt {1} {0} ifelse
 
275
 end
 
276
 
 
277
 % this is a hack to place the slurtext in the middle of the slur.
 
278
 % From unknown reasons simple 'ax1 ay1 translate' did not work,
 
279
 % so we have to overlay some definitions with our own, namely
 
280
 % 'a', which is originally 'moveto' and 'V' for drawing rules.
 
281
 % maybe there are some other operations that should be redefined,
 
282
 % but for almost all cases this will be sufficient. If you find
 
283
 % anything that won't be typeset at the correct position, let me know...
 
284
 
 
285
 temp@xx@dict begin
 
286
 /dir exch def
 
287
 /ay1 exch def
 
288
 /ax1 exch def
 
289
} def
 
290
 
 
291
% crescendos
 
292
/DC {
 
293
 /y2 ED
 
294
 /x2 ED
 
295
 /y1 ED
 
296
 /x1 ED
 
297
 gsave
 
298
 1 AR ceiling setlinewidth         % line thickness: this results
 
299
 1 setlinecap                      % to exactly 2 pixels in 300 dpi
 
300
 1 setlinejoin
 
301
 x2 y2 10 AR add moveto            % the 10's specify wideness of the
 
302
 x1 y1 lineto                      % open end of the crescendo,
 
303
 x2 y2 10 AR sub lineto            % similarly the 11's below
 
304
 stroke
 
305
 grestore
 
306
} def
 
307
 
 
308
% half crescendos
 
309
/DHC {
 
310
 /y2 ED
 
311
 /x2 ED
 
312
 /y1 ED
 
313
 /x1 ED
 
314
 gsave
 
315
 1 AR ceiling setlinewidth
 
316
 1 setlinecap
 
317
 1 setlinejoin
 
318
 x2 y2 11 AR add moveto
 
319
 x1 y1 4 AR add lineto stroke
 
320
 x1 y1 4 AR sub moveto
 
321
 x2 y2 11 AR sub lineto
 
322
 stroke
 
323
 grestore
 
324
} def
 
325
 
 
326
% differenced line
 
327
 
 
328
/DLN {
 
329
 gsave
 
330
 GDAR ceiling setlinewidth
 
331
 GDAR exch GDAR neg rlineto
 
332
 stroke
 
333
 grestore
 
334
} def
 
335
 
 
336
% sloped line
 
337
 
 
338
/DSLN {
 
339
 gsave
 
340
 GDAR ceiling setlinewidth
 
341
 GDAR exch 1.125 mul neg rotate 0 rlineto
 
342
 stroke
 
343
 grestore
 
344
} def
 
345
 
 
346
% free line (init & terminate)
 
347
 
 
348
/DFLN {
 
349
 gsave
 
350
 GDAR ceiling setlinewidth
 
351
 CP moveto
 
352
 lineto
 
353
 stroke
 
354
 grestore
 
355
} def
 
356
 
 
357
end
 
358
 
 
359
 
 
360
%%EndProcSet
 
361
%%BeginProcSet: texps.pro
 
362
%!
 
363
TeXDict begin/rf{findfont dup length 1 add dict begin{1 index/FID ne 2
 
364
index/UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll
 
365
exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]/Metrics
 
366
exch def dict begin Encoding{exch dup type/integertype ne{pop pop 1 sub
 
367
dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get div def}
 
368
ifelse}forall Metrics/Metrics currentdict end def[2 index currentdict
 
369
end definefont 3 -1 roll makefont/setfont cvx]cvx def}def/ObliqueSlant{
 
370
dup sin S cos div neg}B/SlantFont{4 index mul add}def/ExtendFont{3 -1
 
371
roll mul exch}def/ReEncodeFont{CharStrings rcheck{/Encoding false def
 
372
dup[exch{dup CharStrings exch known not{pop/.notdef/Encoding true def}
 
373
if}forall Encoding{]exch pop}{cleartomark}ifelse}if/Encoding exch def}
 
374
def end
 
375
 
 
376
%%EndProcSet
 
377
%%BeginProcSet: special.pro
 
378
%!
 
379
TeXDict begin/SDict 200 dict N SDict begin/@SpecialDefaults{/hs 612 N
 
380
/vs 792 N/ho 0 N/vo 0 N/hsc 1 N/vsc 1 N/ang 0 N/CLIP 0 N/rwiSeen false N
 
381
/rhiSeen false N/letter{}N/note{}N/a4{}N/legal{}N}B/@scaleunit 100 N
 
382
/@hscale{@scaleunit div/hsc X}B/@vscale{@scaleunit div/vsc X}B/@hsize{
 
383
/hs X/CLIP 1 N}B/@vsize{/vs X/CLIP 1 N}B/@clip{/CLIP 2 N}B/@hoffset{/ho
 
384
X}B/@voffset{/vo X}B/@angle{/ang X}B/@rwi{10 div/rwi X/rwiSeen true N}B
 
385
/@rhi{10 div/rhi X/rhiSeen true N}B/@llx{/llx X}B/@lly{/lly X}B/@urx{
 
386
/urx X}B/@ury{/ury X}B/magscale true def end/@MacSetUp{userdict/md known
 
387
{userdict/md get type/dicttype eq{userdict begin md length 10 add md
 
388
maxlength ge{/md md dup length 20 add dict copy def}if end md begin
 
389
/letter{}N/note{}N/legal{}N/od{txpose 1 0 mtx defaultmatrix dtransform S
 
390
atan/pa X newpath clippath mark{transform{itransform moveto}}{transform{
 
391
itransform lineto}}{6 -2 roll transform 6 -2 roll transform 6 -2 roll
 
392
transform{itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll
 
393
curveto}}{{closepath}}pathforall newpath counttomark array astore/gc xdf
 
394
pop ct 39 0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}
 
395
if}N/txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR pop 1
 
396
-1 scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3
 
397
get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip
 
398
yflip not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub
 
399
neg 0 TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{
 
400
noflips{TR pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR pop pop
 
401
90 rotate 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get
 
402
neg sub neg TR}if xflip yflip not and{TR pop pop 90 rotate ppr 3 get ppr
 
403
1 get neg sub neg 0 TR}if yflip xflip not and{TR pop pop 270 rotate ppr
 
404
2 get ppr 0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr aload pop 4
 
405
-1 roll add 2 div 3 1 roll add 2 div 2 copy TR .96 dup scale neg S neg S
 
406
TR}if}N/cp{pop pop showpage pm restore}N end}if}if}N/normalscale{
 
407
Resolution 72 div VResolution 72 div neg scale magscale{DVImag dup scale
 
408
}if 0 setgray}N/psfts{S 65781.76 div N}N/startTexFig{/psf$SavedState
 
409
save N userdict maxlength dict begin/magscale true def normalscale
 
410
currentpoint TR/psf$ury psfts/psf$urx psfts/psf$lly psfts/psf$llx psfts
 
411
/psf$y psfts/psf$x psfts currentpoint/psf$cy X/psf$cx X/psf$sx psf$x
 
412
psf$urx psf$llx sub div N/psf$sy psf$y psf$ury psf$lly sub div N psf$sx
 
413
psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub
 
414
TR/showpage{}N/erasepage{}N/copypage{}N/p 3 def @MacSetUp}N/doclip{
 
415
psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
 
416
roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
 
417
moveto}N/endTexFig{end psf$SavedState restore}N/@beginspecial{SDict
 
418
begin/SpecialSave save N gsave normalscale currentpoint TR
 
419
@SpecialDefaults count/ocount X/dcount countdictstack N}N/@setspecial{
 
420
CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
 
421
closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
 
422
sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
 
423
}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
 
424
CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
 
425
lineto closepath clip}if/showpage{}N/erasepage{}N/copypage{}N newpath}N
 
426
/@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{end}
 
427
repeat grestore SpecialSave restore end}N/@defspecial{SDict begin}N
 
428
/@fedspecial{end}B/li{lineto}B/rl{rlineto}B/rc{rcurveto}B/np{/SaveX
 
429
currentpoint/SaveY X N 1 setlinecap newpath}N/st{stroke SaveX SaveY
 
430
moveto}N/fil{fill SaveX SaveY moveto}N/ellipse{/endangle X/startangle X
 
431
/yrad X/xrad X/savematrix matrix currentmatrix N TR xrad yrad scale 0 0
 
432
1 startangle endangle arc savematrix setmatrix}N end
 
433
 
 
434
%%EndProcSet
 
435
%%BeginFont: TeXMUSIX16-Regular
 
436
%!PS-AdobeFont-1.0: TeXMUSIX16-Regular 001.000
 
437
%%CreationDate: 01-07-25 at 04.07
 
438
%%VMusage: 1024 36138
 
439
% Generated by Fontographer 4.1.4
 
440
% converted using TeXtrace 0.45 and modified by T. Uchiyama
 
441
% ADL: 701 299 0
 
442
%%EndComments
 
443
FontDirectory/TeXMUSIX16-Regular known{/TeXMUSIX16-Regular findfont dup/UniqueID known{dup
 
444
/UniqueID get 0 eq exch/FontType get 1 eq and}{pop false}ifelse
 
445
{save true}{false}ifelse}{false}ifelse
 
446
20 dict begin
 
447
/FontInfo 16 dict dup begin
 
448
/version (001.000) readonly def
 
449
/FullName (TeXMUSIX16-Regular) readonly def
 
450
/FamilyName (TeXMUSIX16) readonly def
 
451
/Weight (Regular) readonly def
 
452
/ItalicAngle 0 def
 
453
/isFixedPitch false def
 
454
/UnderlinePosition -100 def
 
455
/UnderlineThickness 50 def
 
456
/Notice (converted using TeXtrace 0.45 and modified by T. Uchiyama) readonly def
 
457
/em 1000 def
 
458
/ascent 701 def
 
459
/descent 299 def
 
460
end readonly def
 
461
/FontName /TeXMUSIX16-Regular def
 
462
/Encoding 256 array
 
463
0 1 255 {1 index exch /.notdef put} for
 
464
dup 7 /caron put
 
465
dup 9 /macron put
 
466
dup 52 /four put
 
467
dup 54 /six put
 
468
dup 71 /G put
 
469
dup 131 /Ccaron put
 
470
dup 132 /Dcaron put
 
471
dup 195 /Atilde put
 
472
dup 196 /Adieresis put
 
473
readonly def
 
474
/PaintType 0 def
 
475
/FontType 1 def
 
476
/StrokeWidth 0 def
 
477
/FontMatrix[0.001 0 0 0.001 0 0]readonly def
 
478
%/UniqueID 0 def
 
479
/FontBBox{-620 -2059 4000 2062}readonly def
 
480
currentdict end
 
481
currentfile eexec
 
482
D9D66F633B846AB28EDC112EE8CE6C6736001234F4C7DFDC8C8014E32702D436
 
483
0A505E30AFE960AA59313499738A089E6AEAEFDC84AEBA57A1F9AD647CCB7BE5
 
484
B03F5F4993FB2566BC918B0AB23DB4629AC0D00174ECD9F3286839BBEA5DD0D6
 
485
84E25152E241F0D923ADCB347B5635EE25CE26F509B8F400F2C9CFB67D676ACF
 
486
9D516193DA983A07AC65A99BDDE6D09C93F522AF18F5462F7C2C3A7CD58FB034
 
487
810D4645AE7525C1BDF2E062C4D0BB1A115E406B09C9014323678B1FF15AC494
 
488
A82AC85A09051539D2EBF8D4910447B1C8875854670342B6D13D727DDBA5C2FD
 
489
52AFE2107B72A73D3A8F8B0516B5D141AA315F37523CA19009A6CEAB11C23A80
 
490
20B8C46718DBF2DBEAB3320A596C8992531F6E70A725359BD09EF9FF2C0E58DD
 
491
9EE54192A355EDB81FB6E2391CD91A9BBD4E6637ECE457AD4294FDF137DF3CF8
 
492
2A268AA6A26AC11CE99D5C1346290B6858A05C80699EA47DA7EC1256A161ABB5
 
493
E1F5110BF11EB22B883A7642AD41BD614AC33327503EF4CDF29ECBF52E2AE341
 
494
C5B1ACBE202DA6B5251FC2B7285AAA3035DAA61FDF68905D1A2BD55C4F9757C8
 
495
577AEE888E92ACD515DE60A4EA2EA395F9763401BCC6E169CEE5A51A11E11AF1
 
496
AE7B20319472690FF356A308F9FCC098A42EF3831CDDAC5F57D2C2AD90DD52D8
 
497
696CBF55852192941AFDBD4D3D3D7155EABCF5657BC3BB8B324E318F9CAFC95A
 
498
F2E22078C4327781B443A4C37D0D60DFBD242921196B956F8B74CFAE2B6F87C0
 
499
1828EB6FEB36F8EBE3D934746CFEF1ABE31A8DAED4DB5BB506C05DB836132B1D
 
500
DA0218A6BFF476ACC9678E9D3E42780B8102B160541093CC375B1064FAD0A341
 
501
CF768ABDC43E007DD86CC1DCA6C78B003A6B311D40A5CECFBF6FCB87ACE53B03
 
502
2B9C0B4749E37D20F20DC8ADF66FE2CB47B5D467D56929A551B8808935F08F64
 
503
7E809B6529752460DA6B95BBDE9D3B27F0D3D6459B5D9116FAF8DA634266EA8C
 
504
8D4ADAC936719165AC1FF8F441690E196B992B70F6BA09781F4BC06848F7FAD1
 
505
79A2BF9BA6CB5818D72CDD90E52DD0A4463AF471D22E778978C89FDC6665E5C7
 
506
CE1B0AEC997C573FE481576046A12414B50E34A2A2E3C788ED4CDB3D1AAC8ABB
 
507
4205FDFF864393FB340DEC53F22BBC9011D18C818CAC5CE17FDB25AA3D76B817
 
508
D7C337833DD53BF891D64AC84C2D36CDFD11DE82728AFE21C6E7E6C2D8A2AB1E
 
509
470318F6BA4A95928FE7E588F2D807AACF0ABAB5E813271D0CE7D0E54804C34C
 
510
A97C307FB762C772440658DA9925EA43F6909318664645EA524B9A3E57246E89
 
511
8354B199397EB6B323D95CEE756CBD8DEB4222ED6E8B0A277EB6D6D00C2838C7
 
512
ADD5315037274AF4F376DB3A5B6C756DC27DC5AD50E986ECFA461104DF5CEA97
 
513
60327281E533C24693E0C044EC3B1F9F297AE861D3542AA43722748E3A06E515
 
514
77AF46466E865F05E778262E1556A7ACD4F77AD129D5303699696B9A8FC21ACC
 
515
2F1EF77D2BF58B1991EDC7FF4E073F3C56605504E99FD3F2C886A43C52BFEC46
 
516
242B345F9A00EC93F78175DDA8C6A63E90F2CA8AE5270063AF26E5A653D50EC0
 
517
282BFA9F93B29650DCEFC01FA61C7782DBFA33456375D87FF1A8E6C30E34C8EF
 
518
D4C0446FC6DE929A3E1F1D6394179546F07B9EEF4AD02EDB9D6D41DD5EE3EB80
 
519
67CF9E9C3F3729EDB3BD2EA25737BD012D4F38A82E1107AC464EF9AF4D5BEF73
 
520
338564DA29013B35842A80F3903111CF12292A4EC4D34045DAD6394624B653D6
 
521
B7843E77B8C1627618497DC0E2FAE7DC155BA119806809C9EA5C465A2452FE0C
 
522
B454C33973FA61BD070B67B9406E685119D3987A0A9AFC3CC336D3EC3B07E5F2
 
523
91025E114B22C82BE9E6F3F21EF626B093C9B5B50CC2D59F93458DD0CB97E342
 
524
F78AFDC66DF6308DBFF6753815BBBF5D24400C8084704668D9FC68AFEB1A188D
 
525
D9891DA29F0F339FE246E38708A22B71CB74D6B179D68A33B56F53CF38D373BF
 
526
39887E354ED6E8CA6DB1BFF1F57FB1AAF04CC1DD218C505FA31E653EFF402DF0
 
527
5638D7ABDD8000AD3FFEECF8B54CF607C7AC945540E4E9F08B63DCF955001189
 
528
62219BBA86B934CC8FC2FD1D0C12772185525E863FAF191CC6DD1B193EB9A7F7
 
529
511E8B44901386887E55686A8DC9218F694C0BAF6441A13FF32FE07F57F21642
 
530
AFFA2888A2DA1F54E01A7AC50BE1447831A57614C7A6450B304A3F01FFFF33CF
 
531
B5B440D30CEF8B91D24824A5C6724F94DB28359FB4B0D79B5C1F76E77AA15A9C
 
532
269F40A58351920821FC597594812B321C6C7B4AE14E06FE76EC9F845B16D00C
 
533
F63930A7F59CF10FE6DCD0632B0C3B3C32EF7DFCB27941CAE32227E470B36059
 
534
E1E8DD3B591639ADE2710561A8E784661B1309F28FCC3DA591F8629F10C6C346
 
535
62378840CE4E953B18BD7B93C1C0BEA1BB2BA4AA7B532D2881D7A22ADE30295A
 
536
BD01FE117C648DB4C95742D2849545951194BD042811121F98F8F0D19CB84DA4
 
537
3CF43457E041B6723CB44797624AB5BC1097B3ABD94D747D2971970AD547AEBF
 
538
4826A3E7CBFE6F4128A5A251E5E4D9771C3B3FC87234CB5D06E38200E8CAA304
 
539
FEE0DFB1D1C0E0950942A6CE8285808AEADA16BDD1595EB69B3D984FA9D53176
 
540
B7E4D53472C70FC6A1EF306619A4A4D02E2A9F1EA0DD0C07DF124CF60A4034D6
 
541
16C49A0B8A624029D398DF59189F238265ABE9C3AF61C13651C565D71FA30118
 
542
566A9B9D40ED9B72963F22A183B93BFC13B3B4C60B5D6D6B2CB2C34E4A46F818
 
543
75DCC0E18B224E2C23ED37EB5D9C41B9BDFA30ECA3A2B2AD548B7EEBD85ECC13
 
544
07D2DA685D0BA7ABC4E04F3BA9FE04494DD9F9854922D0811DA702B5B6816A46
 
545
681E16C1F22DB24CF64A143AB2BF39E7C2831BD005C7294B021F01E90046D441
 
546
5089CDE2EE9AAAD38E4797C2C051649C1BFC743EDB5B679F2F9C993BBAFF4089
 
547
AFBB7997BA4B1BB7139B3548897130C1848CC9BCA68F386250788B7930EEDAA2
 
548
0B31250826EBD9531F8BF948DFDF61C3315892FB60996B4FFB85
 
549
0000000000000000000000000000000000000000000000000000000000000000
 
550
0000000000000000000000000000000000000000000000000000000000000000
 
551
0000000000000000000000000000000000000000000000000000000000000000
 
552
0000000000000000000000000000000000000000000000000000000000000000
 
553
0000000000000000000000000000000000000000000000000000000000000000
 
554
0000000000000000000000000000000000000000000000000000000000000000
 
555
0000000000000000000000000000000000000000000000000000000000000000
 
556
0000000000000000000000000000000000000000000000000000000000000000
 
557
cleartomark{restore}if
 
558
%%EndFont
 
559
TeXDict begin 39158280 55380996 1000 600 600 (transpose2.dvi)
 
560
@start /Fa 59[266 133 62[266 133 59[106 16[40 1[40 42[0
 
561
1[0 7[{}9 132.835 /TeXMUSIX16-Regular rf end
 
562
%%EndProlog
 
563
%%BeginSetup
 
564
%%Feature: *Resolution 600dpi
 
565
TeXDict begin
 
566
%%PaperSize: a4
 
567
 end
 
568
%%EndSetup
 
569
%%Page: 1 1
 
570
TeXDict begin 1 0 bop 10 -35 3396 4 v 10 -2 V 10 31 V
 
571
10 64 V 10 98 V 10 63 a Fa(G)119 -37 y(4)153 13 y(4)186
 
572
-54 y(4)219 -4 y(4)252 46 y(4)285 -20 y(4)p 474 112 4
 
573
108 v 436 112 a(\007)p 689 96 4 103 v 651 96 a(\007)690
 
574
19 y(\203)710 18 y(\203)474 5 y(\204)577 -1 y(\204)p
 
575
841 79 4 94 v 803 79 a(\007)p 992 63 4 150 v 954 63 a(\007)p
 
576
1143 46 4 141 v 1105 46 a(\007)1217 29 y(4)p 1295 29
 
577
4 132 v(\007)1368 13 y(4)992 -62 y(\204)1183 -71 y(\204)992
 
578
-87 y(\204)1183 -96 y(\204)p 1446 13 4 123 v 1408 13
 
579
a(\007)p 1560 104 4 108 v 1561 -4 a(\007)1735 13 y(6)p
 
580
1775 115 4 103 v 1 w(\007)1886 29 y(6)1776 90 y(\303)1798
 
581
91 y(\303)1560 104 y(\304)1665 109 y(\304)p 1926 123
 
582
4 94 v 1927 29 a(\007)p 2116 46 4 117 v 2078 46 a(\007)p
 
583
2267 63 4 126 v 2229 63 a(\007)p 2419 79 4 135 v 2381
 
584
79 a(\007)2116 -45 y(\304)2307 -36 y(\304)2116 -70 y(\304)2307
 
585
-61 y(\304)p 2570 96 4 144 v 2532 96 a(\007)p 2683 98
 
586
4 135 v 2794 112 a(\011)p 3402 98 V 3405 262 a
 
587
 slur@Dict begin /pss@rega 0 N /psc@rega 0 N /pst@rega 0 N end
 
588
 3405 262
 
589
a eop end
 
590
%%Trailer
 
591
 
 
592
userdict /end-hook known{end-hook}if
 
593
%%EOF