summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/musictex/sluruu16.mf
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-09 23:38:21 +0000
committerKarl Berry <karl@freefriends.org>2006-01-09 23:38:21 +0000
commit215012a8d684889983ec2c0629e1c704e6853d9c (patch)
treeebf1271bd71869069824935ae8a5678745bf8bce /Master/texmf-dist/fonts/source/public/musictex/sluruu16.mf
parent1af3d19d6dbcbf309667d9cb4aa3cdda914914a9 (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.mf40
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;