summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pmx/pmxccn/eps/beethoven0.eps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/generic/pmx/pmxccn/eps/beethoven0.eps')
-rw-r--r--Master/texmf-dist/doc/generic/pmx/pmxccn/eps/beethoven0.eps1814
1 files changed, 907 insertions, 907 deletions
diff --git a/Master/texmf-dist/doc/generic/pmx/pmxccn/eps/beethoven0.eps b/Master/texmf-dist/doc/generic/pmx/pmxccn/eps/beethoven0.eps
index c9877ac750f..c8a188dad94 100644
--- a/Master/texmf-dist/doc/generic/pmx/pmxccn/eps/beethoven0.eps
+++ b/Master/texmf-dist/doc/generic/pmx/pmxccn/eps/beethoven0.eps
@@ -1,907 +1,907 @@
-%% LaTeX2e file `eps/beethoven0.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: beethoven0.dvi
-%%CreationDate: Wed Feb 18 00:00:51 2004
-%%Pages: 1
-%%PageOrder: Ascend
-%%BoundingBox: 28 698 510 798
-%%DocumentFonts: TeXMUSIXSPX-Regular CMR10 TeXMUSIX16-Regular CMBX12
-%%EndComments
-%DVIPSWebPage: (www.radicaleye.com)
-%DVIPSCommandLine: C:\MIKTEX\TEXMF\MIKTEX\BIN\DVIPS.EXE beethoven0.dvi
-%DVIPSParameters: dpi=600, compressed
-%DVIPSSource: TeX output 2004.02.18:0000
-%%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: CMBX12
-%!PS-AdobeFont-1.1: CMBX12 1.0
-%%CreationDate: 1991 Aug 20 16:34:54
-% Copyright (C) 1997 American Mathematical Society. All Rights Reserved.
-11 dict begin
-/FontInfo 7 dict dup begin
-/version (1.0) readonly def
-/Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def
-/FullName (CMBX12) readonly def
-/FamilyName (Computer Modern) readonly def
-/Weight (Bold) readonly def
-/ItalicAngle 0 def
-/isFixedPitch false def
-end readonly def
-/FontName /CMBX12 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 49 /one put
-dup 54 /six put
-dup 57 /nine put
-readonly def
-/FontBBox{-53 -251 1139 750}readonly def
-/UniqueID 5000769 def
-currentdict end
-currentfile eexec
-D9D66F633B846A97B686A97E45A3D0AA052A014267B7904EB3C0D3BD0B83D891
-016CA6CA4B712ADEB258FAAB9A130EE605E61F77FC1B738ABC7C51CD46EF8171
-9098D5FEE67660E69A7AB91B58F29A4D79E57022F783EB0FBBB6D4F4EC35014F
-D2DECBA99459A4C59DF0C6EBA150284454E707DC2100C15B76B4C19B84363758
-469A6C558785B226332152109871A9883487DD7710949204DDCF837E6A8708B8
-2BDBF16FBC7512FAA308A093FE5F0364CD5660F74BEE96790DE35AFA90CCF712
-B1805DA88AE375A04D99598EADFC625BDC1F9C315B6CF28C9BD427F32C745C99
-AEBE70DAAED49EA45AF94F081934AA47894A370D698ABABDA4215500B190AF26
-7FCFB7DDA2BC68605A4EF61ECCA3D61C684B47FFB5887A3BEDE0B4D30E8EBABF
-20980C23312618EB0EAF289B2924FF4A334B85D98FD68545FDADB47F991E7390
-B10EE86A46A5AF8866C010225024D5E5862D49DEB5D8ECCB95D94283C50A363D
-68A49071445610F03CE3600945118A6BC0B3AA4593104E727261C68C4A47F809
-D77E4CF27B3681F6B6F3AC498E45361BF9E01FAF5527F5E3CC790D3084674B3E
-26296F3E03321B5C555D2458578A89E72D3166A3C5D740B3ABB127CF420C316D
-F957873DA04CF0DB25A73574A4DE2E4F2D5D4E8E0B430654CF7F341A1BDB3E26
-77C194764EAD58C585F49EF10843FE020F9FDFD9008D660DE50B9BD7A2A87299
-BC319E66D781101BB956E30643A19B93C8967E1AE4719F300BFE5866F0D6DA5E
-C55E171A24D3B707EFA325D47F473764E99BC8B1108D815CF2ACADFA6C4663E8
-30855D673CE98AB78F5F829F7FA226AB57F07B3E7D4E7CE30ED3B7EB0D3035C5
-148DA8D9FA34483414FDA8E3DC9E6C479E3EEE9A11A0547FC9085FA4631AD19C
-E936E0598E3197207FA7BB6E55CFD5EF72AEC12D9A9675241C7B00AD58FAF645
-1297991B5D01701E82228D0313FC7C66B263BC79ACDDF9AAC48A3CBF42B96E38
-583E1D059953076D68148DC8B6C9527B3A74CE7DEF788A11531F44120BDF0F61
-0B2F3ED94EEBCDE4ACD23834C242AA4314B9EF98E4BE72DB76EBDD0A028CEA9D
-B4C38C1F2D24B8FDE686832FE96204552C820E45B6BAF0C3308742AE2E15E0A3
-32D9D2069E82BB9906811AD94C3D4009F0E9E9A15F9880381EBFD43C30CD5AC1
-5256430DC19838B32B67F2CDAEFD72A072D7BDF46756305033C5635D9632017D
-F7DB2847FA735B9408C43E9E6666688350417B40483C6872B5F405366C8DE033
-48DBA20058B6BBA1BA16C14522A55AD339D12FC52F8A679FF13C0287FC78617B
-6035D1ACDC54F2BB8F1849F5E2E8FAB9C51E914FB5F83F1A2217ECED7C9B3042
-AF2540B8B64E793192CD53D260B93096F27D8B069E4B44E5234B21CB44F26C4B
-FCCC50B4CD9F406ACD3A5B6FFE69539278924563E2006F5EA54A674339108092
-29E25A4140D7593334220B97629CDA893255724C245188D81EF8C6F4B83391BA
-77DCDA7CFAB550AD37425EFC1A1F9F47B0F38A1F65DB8393EB426F20BC3B521E
-AF9211FE6D59268FB7CDB24B03D15B5E66B7EF6197A46E63C5BAF0BF14C27192
-FC27AE2BE7744E56A9C610CC3175AF4CC290197F9600325FA321AB4F22E7E51F
-F85690A0B0350EC71FD0C29ED947C142F938615E853F0698E606113A9C3E1749
-797E9DA6632FC9AAD415CBE4C2FBA8578627B7C7D61C54511AFAAA165769BEDD
-D0C65AD0BEA29C474588679A87949325A7E9575ECE458EB8AB6EDAAC34B549C6
-2E8DC9C5E69400AF4D922273195954F1117D802FB63037F1DA54BA2DAD99CF3B
-DDA9DCC48896A13A3D1C532C2817021848B8EDD1549DDA868C9241C826A837CF
-831213BBFF636A326E1CD1A2898DC7023905E7EF3E9E3CCD5D32912B8E16DABD
-1D13FA9021549B6D5CBE687CD583AB97BC534B3A5DAD5562B365C7D3BE4D8140
-DC2178A3
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-cleartomark
-%%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 0 /grave put
-dup 7 /caron put
-dup 45 /hyphen put
-dup 52 /four put
-dup 71 /G put
-dup 73 /I 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
-4205FDFF80BD119C2DF1A8FB89B797B084BC9C71236A147678B652072CAFB2A7
-A02BC29585F88AE4DB41F2F259FCFF1983F17697620FF3186E9E102D35317B24
-46839F2837B6C7A515511E397B19AC2C76DCDE7063E1FCD278C1CBB2D87B70D2
-F2BA26A6A7A832699F447002F1270A02278D1DED35F0876382D8135358CDF95A
-DC51A88BEE96B9ED20F15C2DF307F46C07A91F8D428E9BB0B84A445FE6CDDEB0
-B1291BB7304F45A7129B347A86321CBED06D3594FE2130558210157C297591B0
-425FDBD997B04F069F6B47BAE53FE48BA7E67E4F383F9DC5B160492F083890A6
-E336E1D48A3AD0FD50FABBECF3A9597AD76B6A7DCFF8E0DE6771C9422033D52D
-CEE5518EE31C214C7DC30BD088DC524BAC2CAFDB01689C4D2E0F9A028A462508
-DDC131C15B2D4B0335C7B2BA228EC16B862F424152F41D7C474B8BF414BFAADE
-D4020B2DFF941C8310393FBAE9B505D0C92F02A88C79D71DD723F8215C09C384
-A2FB40D38B0D21B0161AAC5649870AD629FFCE217A5F6E65A1DA42275296E0DF
-147EBCD5269F6E7F5A5432E1D6779517B340B943F9F5E2BE30B088FD123ADBF5
-DE040C36EA842867E32321503FC904CE386E13BC777CEF522192FF0E10EE64AB
-D023D8CA14CCFECF092A6A1721B2FCB9A96154DD81F42FE8F284C98288A8387A
-32CE9E5386DA53A991FAE4F7270DF046F6435A0E9E458039CF90510CA647515F
-92BEDA8DD4120AD393B902960A8DFE8C64E5D02BBAE36C4116B3509D1CF287D9
-CC03AE9F2ED245987319175395E26DED9937A8C157A477DDE741454E0E839E82
-94B98A3AFB23D5C8110550D3026EF9EB370CDB306683AE63593FA21B2C0649B9
-F1290994473DDC2097572459B2784704D734CB71231587964E9F78A4FE1EA416
-3A25D5AA2F48B25DB9C6D3E09846BEE06683440AA281929B3B087465DB5AD981
-FD9EA18F6A4E880B1434ADC82B8A153162EB6F324004328EFAE174FA5F134529
-58488FBBF5BF4CD9667268166D59153EFE4CAF2416A6543C719A24816F379843
-BA6A22D3E57354E98C18764007C0E7C1B66A30ED48FCE124B848BC7A31CB626A
-B4B14CA7FFFEAAB979D56E06B5FECCCED3C823E0051798D3E6EBA7EAF470AD1E
-48EA93F1A940906CC7D00C235A7B1AF0BC4FA010452DDA85090031B0E3ED6894
-5F3FA9131470AB9FD280A67316C3B25CF563ED20BF9F3369E5E11E546B4ECA3C
-8545B9BEE793C1A52FE6A62E0B23F4776C44E9AA5DD73AD431182EDE2B1CC8BD
-035E3BA9F74A4DFE17B1F4F82E17A96570F8F3BF858ED8C39FFF274B4E1CA95D
-A6A7FC61A99DD228DBBFE5E55AC0047E8CBEAE1834D9594DCB22ABEC9AFAED2F
-8479F7A90C0C707E88070215B60A200E6820BE697A9E855C045552E60E51324B
-B7FBCCD459D4442C0114599B53233315260A86BE636FC059816B1417A1E316EC
-43B256D3B74DE52B4197BD4D27D428E1A20C84A2BDF7FFB8861C76AC2EF46B85
-29771EAA3820AABE8A94455FC574861C0505E8A21FDB0098C7CCC9A76249C706
-C8A586975BF4C383CA9EFBF35C20EB41CE5108F4D5A92038DE2B88DA5A9D2504
-E4A92F9531A9E80120D7379C77C9FA6E40CD474E35AF5CAFF22D9517D10EC59C
-4A16473D9D90E7650845D2F7242678869E5DE1A1C002156D2DA02EE8CE8B13EF
-A7E506DDCF297C03A2DBC838CDE04C051E32A39345FFEC6D0E7C1D451F9AAA24
-7DB90A3E492AB669E0A5BA
-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 80 /P put
-dup 97 /a put
-dup 105 /i 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
-9887D5D348D766399192B5E968035E7DE5E0350A005E4C596361239003619BCF
-C8573C722B3E9318797AFF46829FA0954EDAE667CBDC94759A867CC85D4F5208
-F9180171E06B8DDB646FFC9A23B8BB4A46413D6F2AEF5FD2BA95D15B89CB959A
-0DD9A52F808A67779ABA1385A3D821F319221CE2C2823903980506A9F523F673
-BA8CF49FF6291AC9211F1A636516C6772D7BDA6CBEE2DC32B4B588EAB6D5B703
-9993D7498A032F336C94C4D22D62C959A39542360C638A47B3631DB34AB2DDB6
-1F7F3380C2E498998FD037D939B772D6975B5830277FE1C2186E0271E235D08A
-D60E58A9CDBBD47877F44B51BDB6B244EAECD38B9AF5EAF86F9CF515CB81E8A7
-CBBD534323A8D661D56AA5DC42BC8BFAA5BC6C322093460223EA50789047AC60
-4EACAB6E95576C2BC1388EF8C633E67DA506210D4A26D8D64A117796E8EB2B2B
-B51218447418B593FCBF6D71CDE52F70D5D2D6F08EF58B126A96627120A847BC
-7DE861B70914FF4300CC03A9FDA150A410448A6D529AFB4D82A7FEEE9E758D9E
-86177BC7CE728B3AC1E2034DAA7AD92DAC2CF1E774B39430C9E7F09E4D964CE6
-22BA6EC5184AE6493C19970CCC0B38DCA85A2BB66A287D0BA0678663205CACE4
-139D54BAA0AE86174F9774AAA689FD7212A56263ECEC01137303AF81D77CB6A5
-4B5F83450FA28844F41F5D704E03EE989DEE0CFCD0D268CCFDA1123AD3474CBF
-EAAF5ECF15BBDA72ACEA150D4B241193D450E3C3B92F758FD2A6516F07D3599E
-680E6FCBA1171250245AE9F4A7741E817F2C2D455125C4405E299EDB88771DF9
-44B4899ACDE5612CD3F7BCB097BE7C996559A8B724043992A3DB9B9744564D07
-34BBDF6D4283F0EC765134FF442007402AB9B2A58A76A373C50F07F92D93ACAC
-EEE6B227A9FA43A6A2B88062D50C2D3ACEDB3DB0042D798028F718BA869376DF
-E5B117FCF03CFACFC4F95ECC142E639E034E2F1187E5FEA2F9F3554E0D3DD8A9
-116E82B55B1F5E80E9793A4EE26B5297E2F295003992A40DD1B65831766E4871
-A23F3D621CE21E1FD97FC40A51268F1A60143A2AD58628269FBF6F6E004F1A65
-B064FB316BA4D18B5BA818FF682B861FD82D181923EC23C580634F4BDEF01E04
-CDB078C16EBB18E1D872E1102BB0B5D5AE5EB3FFC567DD3BC288787D1470411D
-B6E1C1FBFE36B28FAA6A8BA1A0DAD997D481AEA853FC73ABD6BE8DD33F8B19EF
-C70C5F74874664AA02DBBEB58DDAE21B0F39BA08CDDF4B4B8F68B3F493951279
-4192AB74FC50FA6D7D5D4D023D42A8AA8B781A3FE1541DB2936085CDD05B9D2D
-542B424D5D42ECD8FD8A58FE313B84A88F8A16E8B3D22A7A6FE870C36BDCE807
-247287DEB939CA99FD04C6519D3897523B8E02C531813B64583109C4383C9A43
-0B9397C1024614AD68F8691D812E34C16AA34E6D27765EC819A1C9D23AB7EEC4
-4FD22E191986AC8D9843F7283A6A74E2C5740AD6E122D2FF99461F5E681FF9AC
-ABCE227D536255DC1F5A7CD5CED43E12E0B012504C320FCE8CE68E882EE7D13E
-A51B796EE128C045956A3D761695109405E2112C707F10498503C7ECB3217B32
-D88B309C700BFDC85BADFB14A4B13AC4CA645C69C1839F632965E5D829563981
-3179A518977FC7DC6209A58BAC
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-cleartomark
-%%EndFont
-%%BeginFont: TeXMUSIXSPX-Regular
-%!PS-AdobeFont-1.0: TeXMUSIXSPX-Regular 001.000
-%%CreationDate: 01-07-22 at 22.39
-%%VMusage: 1024 69400
-% Generated by Fontographer 4.1.4
-% converted using TeXtrace 0.45 and modified by T. Uchiyama
-% ADL: 502 498 0
-%%EndComments
-FontDirectory/TeXMUSIXSPX-Regular known{/TeXMUSIXSPX-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 (TeXMUSIXSPX-Regular) readonly def
-/FamilyName (TeXMUSIXSPX) readonly def
-/Weight (Regular) readonly def
-/ItalicAngle 0 def
-/isFixedPitch false def
-/UnderlinePosition -300.3 def
-/UnderlineThickness 150.15 def
-/Notice (converted using TeXtrace 0.45 and modified by T. Uchiyama) readonly def
-/em 1000 def
-/ascent 502 def
-/descent 498 def
-end readonly def
-/FontName /TeXMUSIXSPX-Regular def
-/Encoding 256 array
-0 1 255 {1 index exch /.notdef put} for
-dup 162 /cacute 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{-810 -5754 9613 5760}readonly def
-currentdict end
-currentfile eexec
-D9D66F633B846AB28EDC112EE8CE6C6736001234F4C7DFDC8C8014E32702D436
-0A505E30AFE960AA59313499738A089E6AEAEFDC84AEBA57A1F9AD647CCB7BE5
-B03F5F4993FB2566BC918B0AB23DB4629AC0D00174ECD9F3286839BBEA5DD0D6
-84E25152E241F0D923ADCB347B5635EE25CE26F509B8F400F2C9CFB67D676ACF
-9D516193DA983A07AC65A99BDDE6D09C93F522AF18F5462F7C2C3A7CD58FB034
-810D4645AE7525C1BDF2E062C4D0BB1A115E406B09C9014323678B1FF15AC494
-A82AC85A09051539D2EBF8D4910447B1C8875854670342B6D13D727DDBA5C2FD
-52AFE2107B72A73D3A8F8B0516B5D141AA315F37523CA19009A6CEAB11C23A80
-20B8C46718DBF2DBEAB3320A596C8992531F6E70A725359BD09EF9FF2C0E58DD
-9EE54192A355EDB81FB6E2391CD91A9BBD4E6637ECE455D5521EFD88CCE1386F
-E8D48F5606EBD4D022398AA55DBFD3FAB451145AE45A9253E619BA949342B84F
-84BD47EC98CDC296A7E2B4E87EAD0B1A6BD1ACAFA79EF1F4A452EE8A57B40167
-81461C6603C0824B10F8D2F842C6A41B3ECF50F5EE3D2D0291A7037CA41C519E
-758E4CF0C26800B402E2390DB84BDE63ED4DCE76E536FD3498D26C0C294B633F
-CBC6B23DCFE3398FF0AB8221466C645B943DF5EF81057D1F1EA8859EA97DB16C
-F0FA4DEDD2485D24AF441D59298B52565C859B457D0748A5E86B8EDD3E890764
-13026367C68BDF2CBF79A49E48CFC4B516DB1DEAF67DC23E838C438EB6150937
-BFB2ECF6892415AE14817AF3592D8B0173C5CB41F224F9E3302E40E12F6FAF8F
-1452239E36DAFE964572A4995036387E93AC6E41812A143B802D395133479ABB
-DF095148465533FD237E818F856FFD85515C73C3B6353A0004D9CEC8C95DD5A6
-84547B6F5E170EBFA3FB64626BEBF9362E25526EB6440F799F3D710DBB5880CB
-5D80B4B11525BD2B8C3F6F760C82458B5EFCA2692C44857A6A338F84F82E6236
-912F5AE9878F7E4B430627FC4D8D0B79BDFB5EE52618C9DEDC32BBC5D4AAA9E1
-F9F218F54C1F84D48DFFB451A709EEF61D29E39883433D4EA829C06B838583D3
-BBC6282E98DAD2C3AD17563ECCECE646A50618C8E644036928897E6FDE05D36E
-B01EE384214C1078FF6868DB40CCD12C151C69130D8B5A267782B14FE6B4EBAC
-8B58235C77FB8F8D4A1A9DBBBB0D68BB0C71CD8CA7A7A6D7114C65E70A2A9C2C
-06AAA46DA5D72695CBFDC586D88658C2C7A3993C41B8F34F10B9D1B0867555DA
-D2C58DA8B12EA655649DBAEBA0FEB0767BB37DEEC6DE5164B4A42A4360711194
-41D1DA71E19358D415FC8C7B6D32073EEA8560680AF6B062F9F7FADF1DF947B1
-EED68B722E708009CF074A7809B9058C1DE2BBD0777CCA7E18A689394DC1F4FE
-E8F146E1007F67B925086CE919746E9CDBFD2E66E0E89708174D9459FA04A80E
-B3BF7DEF41CA3B9D30BA2A190599B4A4B56AD5DECA2DD3133A8F09C02E36AA15
-6C7AA86DF443EEBB9CE5598E11F2073D6B6ADC3B591CA66D2EB0859925182267
-C07CB0EC3DD9CA348DFF4CAD25F742B55B280688BA8AFA47C71332385A94337E
-6355883CBE38D83C7F1D
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-cleartomark{restore}if
-%%EndFont
-TeXDict begin 39158280 55380996 1000 600 600 (beethoven0.dvi)
-@start /Fa 198[56 2[56 4[56 49[{}3 99.6264 /CMBX12 rf
-/Fb 182[106 1[106 18[40 6[0 37[0 6[0{}6 132.835 /TeXMUSIX16-Regular
-rf /Fc 144[42 46 4[23 7[42 16[57 80[{}5 83.022 /CMR10
-rf /Fd 93[0 162[{}1 166.044 /TeXMUSIXSPX-Regular rf end
-%%EndProlog
-%%BeginSetup
-%%Feature: *Resolution 600dpi
-TeXDict begin
-%%PaperSize: A4
- end
-%%EndSetup
-%%Page: 1 1
-TeXDict begin 1 0 bop -40 245 a Fd(\242)p -40 396 3678
-4 v -40 430 V -40 463 V -40 496 V -40 529 V -40 -35 V
--40 -2 V -40 31 V -40 64 V -40 98 V -40 529 4 567 v -362
-274 a Fc(Piano)-40 428 y Fb(I)-40 63 y(G)121 460 y Fa(9)93
-526 y(16)121 28 y(9)93 95 y(16)p 375 363 60 4 v 375 330
-V 385 328 a Fb(\007)385 312 y(\000)p 385 569 4 241 v
-386 445 a(\007\000)1486 302 y
- slur@Dict begin CP /S0y1 ED /S0x1 ED /S0hgt (27.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
- 1486 302 a 1453 363 60
-4 v 1453 330 V 1463 328 a Fb(\007)p 1463 569 4 241 v
-1464 445 a(\007)2201 362 y
- slur@Dict begin (2.0pt) GD S0hgt (20.0pt) GD 1.6 (2.0pt) GD M S0dir
-M A S0x1 S0y1 CP (3.20001pt) GDAR S0dir M SB 0.7 S0dir M 0.17 40 S0dash
-S0adj 90 DS /ay1 ay1 (0.0pt) GDAR -10 AR add dir mul add def
- 2201 362 a 2201 362 a
- end
- 2201
-362 a 2171 363 60 4 v 2181 361 a Fb(\007)p 2141 552 44
-16 v 385 577 1800 16 v 2181 569 4 208 v 2182 478 a(\007)p
-2530 363 60 4 v 2540 361 a(\007)2540 345 y(\000)p 2540
-586 4 225 v 2541 586 a(-)2541 478 y(\007\000)p 385 154
-4 142 v 386 13 a(\007)p 505 154 4 208 v 506 -54 a(\007)p
-615 -69 60 4 v 615 -102 V 625 154 4 258 v 626 -103 a(\007)p
-744 154 4 125 v 745 29 a(\007)p 864 154 4 208 v 865 -54
-a(\007)p 974 -69 60 4 v 984 154 4 241 v 985 -87 a(\007)p
-1104 154 4 142 v 1105 13 a(\007)p 1223 154 4 208 v 1224
--54 a(\007)p 385 112 962 16 v 385 137 V 385 162 V 1333
--69 60 4 v 1333 -102 V 1343 154 4 258 v 1344 -103 a(\007)1423
--54 y(4)p 1463 71 4 125 v 1 w(\007)p 1573 -69 60 4 v
-1583 71 4 158 v 1584 -87 a(\007)1662 -170 y(4)p 1692
--69 60 4 v 1692 -102 V 1692 -135 V 1692 -168 V 1702 71
-4 241 v 1 w(\007)p 1822 71 4 125 v 1823 -54 a(\007)p
-1932 -69 60 4 v 1942 71 4 158 v 1943 -87 a(\007)p 2052
--69 60 4 v 2052 -102 V 2052 -135 V 2062 71 4 208 v 2063
--137 a(\007)p 2171 -69 60 4 v 2181 71 4 142 v 2182 -70
-a(\007)p 2291 -69 60 4 v 2291 -102 V 2291 -135 V 2301
-71 4 208 v 2302 -137 a(\007)p 1463 29 962 16 v 1463 54
-V 1463 79 V 2411 -69 60 4 v 2411 -102 V 2411 -135 V 2411
--168 V 2421 71 4 258 v 2422 -186 a(\007)p 2530 -69 60
-4 v 2540 71 4 142 v 2541 -70 a(\007)p 2650 -69 60 4 v
-2650 -102 V 2650 -135 V 2660 71 4 208 v 2661 -137 a(\007)p
-2770 -69 60 4 v 2770 -102 V 2770 -135 V 2770 -168 V 2780
-71 4 258 v 2781 -186 a(\007)p 2900 71 4 125 v 2901 -54
-a(\007)p 3009 -69 60 4 v 3009 -102 V 3009 -135 V 3019
-71 4 208 v 3020 -137 a(\007)p 3129 -69 60 4 v 3129 -102
-V 3129 -135 V 3129 -168 V 3139 71 4 241 v 3140 -170 a(\007)p
-3249 -69 60 4 v 3259 71 4 142 v 3260 -70 a(\007)p 3369
--69 60 4 v 3369 -102 V 3369 -135 V 3379 71 4 208 v 3380
--137 a(\007)p 2540 29 962 16 v 2540 54 V 2540 79 V 3488
--69 60 4 v 3488 -102 V 3488 -135 V 3488 -168 V 3498 71
-4 258 v 3499 -186 a(\007)p 3618 529 4 567 v 3635 529
-V 3638 694 a
- slur@Dict begin /pss@rega 0 N /psc@rega 0 N /pst@rega 0 N end
- 3638 694 a eop end
-%%Trailer
-
-userdict /end-hook known{end-hook}if
-%%EOF
+%% LaTeX2e file `eps/beethoven0.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: beethoven0.dvi
+%%CreationDate: Wed Feb 18 00:00:51 2004
+%%Pages: 1
+%%PageOrder: Ascend
+%%BoundingBox: 28 698 510 798
+%%DocumentFonts: TeXMUSIXSPX-Regular CMR10 TeXMUSIX16-Regular CMBX12
+%%EndComments
+%DVIPSWebPage: (www.radicaleye.com)
+%DVIPSCommandLine: C:\MIKTEX\TEXMF\MIKTEX\BIN\DVIPS.EXE beethoven0.dvi
+%DVIPSParameters: dpi=600, compressed
+%DVIPSSource: TeX output 2004.02.18:0000
+%%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: CMBX12
+%!PS-AdobeFont-1.1: CMBX12 1.0
+%%CreationDate: 1991 Aug 20 16:34:54
+% Copyright (C) 1997 American Mathematical Society. All Rights Reserved.
+11 dict begin
+/FontInfo 7 dict dup begin
+/version (1.0) readonly def
+/Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def
+/FullName (CMBX12) readonly def
+/FamilyName (Computer Modern) readonly def
+/Weight (Bold) readonly def
+/ItalicAngle 0 def
+/isFixedPitch false def
+end readonly def
+/FontName /CMBX12 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 49 /one put
+dup 54 /six put
+dup 57 /nine put
+readonly def
+/FontBBox{-53 -251 1139 750}readonly def
+/UniqueID 5000769 def
+currentdict end
+currentfile eexec
+D9D66F633B846A97B686A97E45A3D0AA052A014267B7904EB3C0D3BD0B83D891
+016CA6CA4B712ADEB258FAAB9A130EE605E61F77FC1B738ABC7C51CD46EF8171
+9098D5FEE67660E69A7AB91B58F29A4D79E57022F783EB0FBBB6D4F4EC35014F
+D2DECBA99459A4C59DF0C6EBA150284454E707DC2100C15B76B4C19B84363758
+469A6C558785B226332152109871A9883487DD7710949204DDCF837E6A8708B8
+2BDBF16FBC7512FAA308A093FE5F0364CD5660F74BEE96790DE35AFA90CCF712
+B1805DA88AE375A04D99598EADFC625BDC1F9C315B6CF28C9BD427F32C745C99
+AEBE70DAAED49EA45AF94F081934AA47894A370D698ABABDA4215500B190AF26
+7FCFB7DDA2BC68605A4EF61ECCA3D61C684B47FFB5887A3BEDE0B4D30E8EBABF
+20980C23312618EB0EAF289B2924FF4A334B85D98FD68545FDADB47F991E7390
+B10EE86A46A5AF8866C010225024D5E5862D49DEB5D8ECCB95D94283C50A363D
+68A49071445610F03CE3600945118A6BC0B3AA4593104E727261C68C4A47F809
+D77E4CF27B3681F6B6F3AC498E45361BF9E01FAF5527F5E3CC790D3084674B3E
+26296F3E03321B5C555D2458578A89E72D3166A3C5D740B3ABB127CF420C316D
+F957873DA04CF0DB25A73574A4DE2E4F2D5D4E8E0B430654CF7F341A1BDB3E26
+77C194764EAD58C585F49EF10843FE020F9FDFD9008D660DE50B9BD7A2A87299
+BC319E66D781101BB956E30643A19B93C8967E1AE4719F300BFE5866F0D6DA5E
+C55E171A24D3B707EFA325D47F473764E99BC8B1108D815CF2ACADFA6C4663E8
+30855D673CE98AB78F5F829F7FA226AB57F07B3E7D4E7CE30ED3B7EB0D3035C5
+148DA8D9FA34483414FDA8E3DC9E6C479E3EEE9A11A0547FC9085FA4631AD19C
+E936E0598E3197207FA7BB6E55CFD5EF72AEC12D9A9675241C7B00AD58FAF645
+1297991B5D01701E82228D0313FC7C66B263BC79ACDDF9AAC48A3CBF42B96E38
+583E1D059953076D68148DC8B6C9527B3A74CE7DEF788A11531F44120BDF0F61
+0B2F3ED94EEBCDE4ACD23834C242AA4314B9EF98E4BE72DB76EBDD0A028CEA9D
+B4C38C1F2D24B8FDE686832FE96204552C820E45B6BAF0C3308742AE2E15E0A3
+32D9D2069E82BB9906811AD94C3D4009F0E9E9A15F9880381EBFD43C30CD5AC1
+5256430DC19838B32B67F2CDAEFD72A072D7BDF46756305033C5635D9632017D
+F7DB2847FA735B9408C43E9E6666688350417B40483C6872B5F405366C8DE033
+48DBA20058B6BBA1BA16C14522A55AD339D12FC52F8A679FF13C0287FC78617B
+6035D1ACDC54F2BB8F1849F5E2E8FAB9C51E914FB5F83F1A2217ECED7C9B3042
+AF2540B8B64E793192CD53D260B93096F27D8B069E4B44E5234B21CB44F26C4B
+FCCC50B4CD9F406ACD3A5B6FFE69539278924563E2006F5EA54A674339108092
+29E25A4140D7593334220B97629CDA893255724C245188D81EF8C6F4B83391BA
+77DCDA7CFAB550AD37425EFC1A1F9F47B0F38A1F65DB8393EB426F20BC3B521E
+AF9211FE6D59268FB7CDB24B03D15B5E66B7EF6197A46E63C5BAF0BF14C27192
+FC27AE2BE7744E56A9C610CC3175AF4CC290197F9600325FA321AB4F22E7E51F
+F85690A0B0350EC71FD0C29ED947C142F938615E853F0698E606113A9C3E1749
+797E9DA6632FC9AAD415CBE4C2FBA8578627B7C7D61C54511AFAAA165769BEDD
+D0C65AD0BEA29C474588679A87949325A7E9575ECE458EB8AB6EDAAC34B549C6
+2E8DC9C5E69400AF4D922273195954F1117D802FB63037F1DA54BA2DAD99CF3B
+DDA9DCC48896A13A3D1C532C2817021848B8EDD1549DDA868C9241C826A837CF
+831213BBFF636A326E1CD1A2898DC7023905E7EF3E9E3CCD5D32912B8E16DABD
+1D13FA9021549B6D5CBE687CD583AB97BC534B3A5DAD5562B365C7D3BE4D8140
+DC2178A3
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+cleartomark
+%%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 0 /grave put
+dup 7 /caron put
+dup 45 /hyphen put
+dup 52 /four put
+dup 71 /G put
+dup 73 /I 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
+4205FDFF80BD119C2DF1A8FB89B797B084BC9C71236A147678B652072CAFB2A7
+A02BC29585F88AE4DB41F2F259FCFF1983F17697620FF3186E9E102D35317B24
+46839F2837B6C7A515511E397B19AC2C76DCDE7063E1FCD278C1CBB2D87B70D2
+F2BA26A6A7A832699F447002F1270A02278D1DED35F0876382D8135358CDF95A
+DC51A88BEE96B9ED20F15C2DF307F46C07A91F8D428E9BB0B84A445FE6CDDEB0
+B1291BB7304F45A7129B347A86321CBED06D3594FE2130558210157C297591B0
+425FDBD997B04F069F6B47BAE53FE48BA7E67E4F383F9DC5B160492F083890A6
+E336E1D48A3AD0FD50FABBECF3A9597AD76B6A7DCFF8E0DE6771C9422033D52D
+CEE5518EE31C214C7DC30BD088DC524BAC2CAFDB01689C4D2E0F9A028A462508
+DDC131C15B2D4B0335C7B2BA228EC16B862F424152F41D7C474B8BF414BFAADE
+D4020B2DFF941C8310393FBAE9B505D0C92F02A88C79D71DD723F8215C09C384
+A2FB40D38B0D21B0161AAC5649870AD629FFCE217A5F6E65A1DA42275296E0DF
+147EBCD5269F6E7F5A5432E1D6779517B340B943F9F5E2BE30B088FD123ADBF5
+DE040C36EA842867E32321503FC904CE386E13BC777CEF522192FF0E10EE64AB
+D023D8CA14CCFECF092A6A1721B2FCB9A96154DD81F42FE8F284C98288A8387A
+32CE9E5386DA53A991FAE4F7270DF046F6435A0E9E458039CF90510CA647515F
+92BEDA8DD4120AD393B902960A8DFE8C64E5D02BBAE36C4116B3509D1CF287D9
+CC03AE9F2ED245987319175395E26DED9937A8C157A477DDE741454E0E839E82
+94B98A3AFB23D5C8110550D3026EF9EB370CDB306683AE63593FA21B2C0649B9
+F1290994473DDC2097572459B2784704D734CB71231587964E9F78A4FE1EA416
+3A25D5AA2F48B25DB9C6D3E09846BEE06683440AA281929B3B087465DB5AD981
+FD9EA18F6A4E880B1434ADC82B8A153162EB6F324004328EFAE174FA5F134529
+58488FBBF5BF4CD9667268166D59153EFE4CAF2416A6543C719A24816F379843
+BA6A22D3E57354E98C18764007C0E7C1B66A30ED48FCE124B848BC7A31CB626A
+B4B14CA7FFFEAAB979D56E06B5FECCCED3C823E0051798D3E6EBA7EAF470AD1E
+48EA93F1A940906CC7D00C235A7B1AF0BC4FA010452DDA85090031B0E3ED6894
+5F3FA9131470AB9FD280A67316C3B25CF563ED20BF9F3369E5E11E546B4ECA3C
+8545B9BEE793C1A52FE6A62E0B23F4776C44E9AA5DD73AD431182EDE2B1CC8BD
+035E3BA9F74A4DFE17B1F4F82E17A96570F8F3BF858ED8C39FFF274B4E1CA95D
+A6A7FC61A99DD228DBBFE5E55AC0047E8CBEAE1834D9594DCB22ABEC9AFAED2F
+8479F7A90C0C707E88070215B60A200E6820BE697A9E855C045552E60E51324B
+B7FBCCD459D4442C0114599B53233315260A86BE636FC059816B1417A1E316EC
+43B256D3B74DE52B4197BD4D27D428E1A20C84A2BDF7FFB8861C76AC2EF46B85
+29771EAA3820AABE8A94455FC574861C0505E8A21FDB0098C7CCC9A76249C706
+C8A586975BF4C383CA9EFBF35C20EB41CE5108F4D5A92038DE2B88DA5A9D2504
+E4A92F9531A9E80120D7379C77C9FA6E40CD474E35AF5CAFF22D9517D10EC59C
+4A16473D9D90E7650845D2F7242678869E5DE1A1C002156D2DA02EE8CE8B13EF
+A7E506DDCF297C03A2DBC838CDE04C051E32A39345FFEC6D0E7C1D451F9AAA24
+7DB90A3E492AB669E0A5BA
+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 80 /P put
+dup 97 /a put
+dup 105 /i 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
+9887D5D348D766399192B5E968035E7DE5E0350A005E4C596361239003619BCF
+C8573C722B3E9318797AFF46829FA0954EDAE667CBDC94759A867CC85D4F5208
+F9180171E06B8DDB646FFC9A23B8BB4A46413D6F2AEF5FD2BA95D15B89CB959A
+0DD9A52F808A67779ABA1385A3D821F319221CE2C2823903980506A9F523F673
+BA8CF49FF6291AC9211F1A636516C6772D7BDA6CBEE2DC32B4B588EAB6D5B703
+9993D7498A032F336C94C4D22D62C959A39542360C638A47B3631DB34AB2DDB6
+1F7F3380C2E498998FD037D939B772D6975B5830277FE1C2186E0271E235D08A
+D60E58A9CDBBD47877F44B51BDB6B244EAECD38B9AF5EAF86F9CF515CB81E8A7
+CBBD534323A8D661D56AA5DC42BC8BFAA5BC6C322093460223EA50789047AC60
+4EACAB6E95576C2BC1388EF8C633E67DA506210D4A26D8D64A117796E8EB2B2B
+B51218447418B593FCBF6D71CDE52F70D5D2D6F08EF58B126A96627120A847BC
+7DE861B70914FF4300CC03A9FDA150A410448A6D529AFB4D82A7FEEE9E758D9E
+86177BC7CE728B3AC1E2034DAA7AD92DAC2CF1E774B39430C9E7F09E4D964CE6
+22BA6EC5184AE6493C19970CCC0B38DCA85A2BB66A287D0BA0678663205CACE4
+139D54BAA0AE86174F9774AAA689FD7212A56263ECEC01137303AF81D77CB6A5
+4B5F83450FA28844F41F5D704E03EE989DEE0CFCD0D268CCFDA1123AD3474CBF
+EAAF5ECF15BBDA72ACEA150D4B241193D450E3C3B92F758FD2A6516F07D3599E
+680E6FCBA1171250245AE9F4A7741E817F2C2D455125C4405E299EDB88771DF9
+44B4899ACDE5612CD3F7BCB097BE7C996559A8B724043992A3DB9B9744564D07
+34BBDF6D4283F0EC765134FF442007402AB9B2A58A76A373C50F07F92D93ACAC
+EEE6B227A9FA43A6A2B88062D50C2D3ACEDB3DB0042D798028F718BA869376DF
+E5B117FCF03CFACFC4F95ECC142E639E034E2F1187E5FEA2F9F3554E0D3DD8A9
+116E82B55B1F5E80E9793A4EE26B5297E2F295003992A40DD1B65831766E4871
+A23F3D621CE21E1FD97FC40A51268F1A60143A2AD58628269FBF6F6E004F1A65
+B064FB316BA4D18B5BA818FF682B861FD82D181923EC23C580634F4BDEF01E04
+CDB078C16EBB18E1D872E1102BB0B5D5AE5EB3FFC567DD3BC288787D1470411D
+B6E1C1FBFE36B28FAA6A8BA1A0DAD997D481AEA853FC73ABD6BE8DD33F8B19EF
+C70C5F74874664AA02DBBEB58DDAE21B0F39BA08CDDF4B4B8F68B3F493951279
+4192AB74FC50FA6D7D5D4D023D42A8AA8B781A3FE1541DB2936085CDD05B9D2D
+542B424D5D42ECD8FD8A58FE313B84A88F8A16E8B3D22A7A6FE870C36BDCE807
+247287DEB939CA99FD04C6519D3897523B8E02C531813B64583109C4383C9A43
+0B9397C1024614AD68F8691D812E34C16AA34E6D27765EC819A1C9D23AB7EEC4
+4FD22E191986AC8D9843F7283A6A74E2C5740AD6E122D2FF99461F5E681FF9AC
+ABCE227D536255DC1F5A7CD5CED43E12E0B012504C320FCE8CE68E882EE7D13E
+A51B796EE128C045956A3D761695109405E2112C707F10498503C7ECB3217B32
+D88B309C700BFDC85BADFB14A4B13AC4CA645C69C1839F632965E5D829563981
+3179A518977FC7DC6209A58BAC
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+cleartomark
+%%EndFont
+%%BeginFont: TeXMUSIXSPX-Regular
+%!PS-AdobeFont-1.0: TeXMUSIXSPX-Regular 001.000
+%%CreationDate: 01-07-22 at 22.39
+%%VMusage: 1024 69400
+% Generated by Fontographer 4.1.4
+% converted using TeXtrace 0.45 and modified by T. Uchiyama
+% ADL: 502 498 0
+%%EndComments
+FontDirectory/TeXMUSIXSPX-Regular known{/TeXMUSIXSPX-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 (TeXMUSIXSPX-Regular) readonly def
+/FamilyName (TeXMUSIXSPX) readonly def
+/Weight (Regular) readonly def
+/ItalicAngle 0 def
+/isFixedPitch false def
+/UnderlinePosition -300.3 def
+/UnderlineThickness 150.15 def
+/Notice (converted using TeXtrace 0.45 and modified by T. Uchiyama) readonly def
+/em 1000 def
+/ascent 502 def
+/descent 498 def
+end readonly def
+/FontName /TeXMUSIXSPX-Regular def
+/Encoding 256 array
+0 1 255 {1 index exch /.notdef put} for
+dup 162 /cacute 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{-810 -5754 9613 5760}readonly def
+currentdict end
+currentfile eexec
+D9D66F633B846AB28EDC112EE8CE6C6736001234F4C7DFDC8C8014E32702D436
+0A505E30AFE960AA59313499738A089E6AEAEFDC84AEBA57A1F9AD647CCB7BE5
+B03F5F4993FB2566BC918B0AB23DB4629AC0D00174ECD9F3286839BBEA5DD0D6
+84E25152E241F0D923ADCB347B5635EE25CE26F509B8F400F2C9CFB67D676ACF
+9D516193DA983A07AC65A99BDDE6D09C93F522AF18F5462F7C2C3A7CD58FB034
+810D4645AE7525C1BDF2E062C4D0BB1A115E406B09C9014323678B1FF15AC494
+A82AC85A09051539D2EBF8D4910447B1C8875854670342B6D13D727DDBA5C2FD
+52AFE2107B72A73D3A8F8B0516B5D141AA315F37523CA19009A6CEAB11C23A80
+20B8C46718DBF2DBEAB3320A596C8992531F6E70A725359BD09EF9FF2C0E58DD
+9EE54192A355EDB81FB6E2391CD91A9BBD4E6637ECE455D5521EFD88CCE1386F
+E8D48F5606EBD4D022398AA55DBFD3FAB451145AE45A9253E619BA949342B84F
+84BD47EC98CDC296A7E2B4E87EAD0B1A6BD1ACAFA79EF1F4A452EE8A57B40167
+81461C6603C0824B10F8D2F842C6A41B3ECF50F5EE3D2D0291A7037CA41C519E
+758E4CF0C26800B402E2390DB84BDE63ED4DCE76E536FD3498D26C0C294B633F
+CBC6B23DCFE3398FF0AB8221466C645B943DF5EF81057D1F1EA8859EA97DB16C
+F0FA4DEDD2485D24AF441D59298B52565C859B457D0748A5E86B8EDD3E890764
+13026367C68BDF2CBF79A49E48CFC4B516DB1DEAF67DC23E838C438EB6150937
+BFB2ECF6892415AE14817AF3592D8B0173C5CB41F224F9E3302E40E12F6FAF8F
+1452239E36DAFE964572A4995036387E93AC6E41812A143B802D395133479ABB
+DF095148465533FD237E818F856FFD85515C73C3B6353A0004D9CEC8C95DD5A6
+84547B6F5E170EBFA3FB64626BEBF9362E25526EB6440F799F3D710DBB5880CB
+5D80B4B11525BD2B8C3F6F760C82458B5EFCA2692C44857A6A338F84F82E6236
+912F5AE9878F7E4B430627FC4D8D0B79BDFB5EE52618C9DEDC32BBC5D4AAA9E1
+F9F218F54C1F84D48DFFB451A709EEF61D29E39883433D4EA829C06B838583D3
+BBC6282E98DAD2C3AD17563ECCECE646A50618C8E644036928897E6FDE05D36E
+B01EE384214C1078FF6868DB40CCD12C151C69130D8B5A267782B14FE6B4EBAC
+8B58235C77FB8F8D4A1A9DBBBB0D68BB0C71CD8CA7A7A6D7114C65E70A2A9C2C
+06AAA46DA5D72695CBFDC586D88658C2C7A3993C41B8F34F10B9D1B0867555DA
+D2C58DA8B12EA655649DBAEBA0FEB0767BB37DEEC6DE5164B4A42A4360711194
+41D1DA71E19358D415FC8C7B6D32073EEA8560680AF6B062F9F7FADF1DF947B1
+EED68B722E708009CF074A7809B9058C1DE2BBD0777CCA7E18A689394DC1F4FE
+E8F146E1007F67B925086CE919746E9CDBFD2E66E0E89708174D9459FA04A80E
+B3BF7DEF41CA3B9D30BA2A190599B4A4B56AD5DECA2DD3133A8F09C02E36AA15
+6C7AA86DF443EEBB9CE5598E11F2073D6B6ADC3B591CA66D2EB0859925182267
+C07CB0EC3DD9CA348DFF4CAD25F742B55B280688BA8AFA47C71332385A94337E
+6355883CBE38D83C7F1D
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000000000000000000
+cleartomark{restore}if
+%%EndFont
+TeXDict begin 39158280 55380996 1000 600 600 (beethoven0.dvi)
+@start /Fa 198[56 2[56 4[56 49[{}3 99.6264 /CMBX12 rf
+/Fb 182[106 1[106 18[40 6[0 37[0 6[0{}6 132.835 /TeXMUSIX16-Regular
+rf /Fc 144[42 46 4[23 7[42 16[57 80[{}5 83.022 /CMR10
+rf /Fd 93[0 162[{}1 166.044 /TeXMUSIXSPX-Regular rf end
+%%EndProlog
+%%BeginSetup
+%%Feature: *Resolution 600dpi
+TeXDict begin
+%%PaperSize: A4
+ end
+%%EndSetup
+%%Page: 1 1
+TeXDict begin 1 0 bop -40 245 a Fd(\242)p -40 396 3678
+4 v -40 430 V -40 463 V -40 496 V -40 529 V -40 -35 V
+-40 -2 V -40 31 V -40 64 V -40 98 V -40 529 4 567 v -362
+274 a Fc(Piano)-40 428 y Fb(I)-40 63 y(G)121 460 y Fa(9)93
+526 y(16)121 28 y(9)93 95 y(16)p 375 363 60 4 v 375 330
+V 385 328 a Fb(\007)385 312 y(\000)p 385 569 4 241 v
+386 445 a(\007\000)1486 302 y
+ slur@Dict begin CP /S0y1 ED /S0x1 ED /S0hgt (27.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
+ 1486 302 a 1453 363 60
+4 v 1453 330 V 1463 328 a Fb(\007)p 1463 569 4 241 v
+1464 445 a(\007)2201 362 y
+ slur@Dict begin (2.0pt) GD S0hgt (20.0pt) GD 1.6 (2.0pt) GD M S0dir
+M A S0x1 S0y1 CP (3.20001pt) GDAR S0dir M SB 0.7 S0dir M 0.17 40 S0dash
+S0adj 90 DS /ay1 ay1 (0.0pt) GDAR -10 AR add dir mul add def
+ 2201 362 a 2201 362 a
+ end
+ 2201
+362 a 2171 363 60 4 v 2181 361 a Fb(\007)p 2141 552 44
+16 v 385 577 1800 16 v 2181 569 4 208 v 2182 478 a(\007)p
+2530 363 60 4 v 2540 361 a(\007)2540 345 y(\000)p 2540
+586 4 225 v 2541 586 a(-)2541 478 y(\007\000)p 385 154
+4 142 v 386 13 a(\007)p 505 154 4 208 v 506 -54 a(\007)p
+615 -69 60 4 v 615 -102 V 625 154 4 258 v 626 -103 a(\007)p
+744 154 4 125 v 745 29 a(\007)p 864 154 4 208 v 865 -54
+a(\007)p 974 -69 60 4 v 984 154 4 241 v 985 -87 a(\007)p
+1104 154 4 142 v 1105 13 a(\007)p 1223 154 4 208 v 1224
+-54 a(\007)p 385 112 962 16 v 385 137 V 385 162 V 1333
+-69 60 4 v 1333 -102 V 1343 154 4 258 v 1344 -103 a(\007)1423
+-54 y(4)p 1463 71 4 125 v 1 w(\007)p 1573 -69 60 4 v
+1583 71 4 158 v 1584 -87 a(\007)1662 -170 y(4)p 1692
+-69 60 4 v 1692 -102 V 1692 -135 V 1692 -168 V 1702 71
+4 241 v 1 w(\007)p 1822 71 4 125 v 1823 -54 a(\007)p
+1932 -69 60 4 v 1942 71 4 158 v 1943 -87 a(\007)p 2052
+-69 60 4 v 2052 -102 V 2052 -135 V 2062 71 4 208 v 2063
+-137 a(\007)p 2171 -69 60 4 v 2181 71 4 142 v 2182 -70
+a(\007)p 2291 -69 60 4 v 2291 -102 V 2291 -135 V 2301
+71 4 208 v 2302 -137 a(\007)p 1463 29 962 16 v 1463 54
+V 1463 79 V 2411 -69 60 4 v 2411 -102 V 2411 -135 V 2411
+-168 V 2421 71 4 258 v 2422 -186 a(\007)p 2530 -69 60
+4 v 2540 71 4 142 v 2541 -70 a(\007)p 2650 -69 60 4 v
+2650 -102 V 2650 -135 V 2660 71 4 208 v 2661 -137 a(\007)p
+2770 -69 60 4 v 2770 -102 V 2770 -135 V 2770 -168 V 2780
+71 4 258 v 2781 -186 a(\007)p 2900 71 4 125 v 2901 -54
+a(\007)p 3009 -69 60 4 v 3009 -102 V 3009 -135 V 3019
+71 4 208 v 3020 -137 a(\007)p 3129 -69 60 4 v 3129 -102
+V 3129 -135 V 3129 -168 V 3139 71 4 241 v 3140 -170 a(\007)p
+3249 -69 60 4 v 3259 71 4 142 v 3260 -70 a(\007)p 3369
+-69 60 4 v 3369 -102 V 3369 -135 V 3379 71 4 208 v 3380
+-137 a(\007)p 2540 29 962 16 v 2540 54 V 2540 79 V 3488
+-69 60 4 v 3488 -102 V 3488 -135 V 3488 -168 V 3498 71
+4 258 v 3499 -186 a(\007)p 3618 529 4 567 v 3635 529
+V 3638 694 a
+ slur@Dict begin /pss@rega 0 N /psc@rega 0 N /pst@rega 0 N end
+ 3638 694 a eop end
+%%Trailer
+
+userdict /end-hook known{end-hook}if
+%%EOF