diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-09 23:38:21 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-09 23:38:21 +0000 |
commit | 215012a8d684889983ec2c0629e1c704e6853d9c (patch) | |
tree | ebf1271bd71869069824935ae8a5678745bf8bce /Master/texmf-dist/fonts/source/public/musictex/sluruu16.mf | |
parent | 1af3d19d6dbcbf309667d9cb4aa3cdda914914a9 (diff) |
trunk/Master/texmf-dist/fonts/source
git-svn-id: svn://tug.org/texlive/trunk@101 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/musictex/sluruu16.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/musictex/sluruu16.mf | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/musictex/sluruu16.mf b/Master/texmf-dist/fonts/source/public/musictex/sluruu16.mf new file mode 100644 index 00000000000..fe132ce67e0 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/musictex/sluruu16.mf @@ -0,0 +1,40 @@ +% Change of length into longueur for new modes.mf (Nicolas Brouard 4/11/91) +input musicdef +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% % +% BOGEN (KONVEX) % +% % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +def drawslurs(expr i,j) = + save jj,factor, longueur, height; + numeric jj, absp, longueur, height, factor; + factor:= 1/6; + height = i*1/2nhh#; + longueur = j*nhw#; + if j<4 : jj := (j*(j-1)+(i-1))*8 + else: jj := (i-1)*8+(j mod 2)*64+floor((j-2)/2);fi; + beginchar(jj, longueur, height, 0); + clear; + z2r = (w,h); + z1l = origin; + absp := abs((-h,w)); + if (factor*absp)>2nhh : factor:= 2nhh/absp fi; + z3r = 1/2z2l+factor*(-h,w); + penpos1(thinwidth,90); + penpos2(thinwidth,90); + penpos3(5/12beamht,90); + currentpen := pencircle xscaled thinwidth yscaled beamht ; + penstroke z1e..z3e..z2e; %statt dir 30 + endchar; +enddef; + +%%%%%%%%%%%%%%%%%%%%%%% +% positive Steigungen % +%%%%%%%%%%%%%%%%%%%%%%% + +for j= 1 upto 17: +for i= 1 upto min(2j,8): +drawslurs(i,j); +endfor;endfor; +end; |