summaryrefslogtreecommitdiff
path: root/macros/mtex/metafont/slurdu16.mf
diff options
context:
space:
mode:
Diffstat (limited to 'macros/mtex/metafont/slurdu16.mf')
-rw-r--r--macros/mtex/metafont/slurdu16.mf42
1 files changed, 42 insertions, 0 deletions
diff --git a/macros/mtex/metafont/slurdu16.mf b/macros/mtex/metafont/slurdu16.mf
new file mode 100644
index 0000000000..20282e2ca7
--- /dev/null
+++ b/macros/mtex/metafont/slurdu16.mf
@@ -0,0 +1,42 @@
+input musicdef
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% %
+% BOGEN (KONVEX) %
+% %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+def drawslursneg (expr i,j) =
+ save jj, factor, length, depth;
+ numeric jj, absp, length, depth, factor;
+ factor:= 1/6;
+ length := j*nhw#;
+ depth := i*1/2nhh#;
+ 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, length, 0, depth);
+ clear;
+ % x2 = w; x1 = 0;
+ z2r = (w,-d);
+ z1l = origin;
+ absp := abs((d,w));
+ if (factor*absp)>2nhh : factor:= 2nhh/absp fi;
+ z3r = 1/2z2r+factor*(d,w);
+ penpos1(thinwidth,90);
+ penpos2(thinwidth,90);
+ penpos3(5/12beamht,90);
+ currentpen := pencircle xscaled thinwidth yscaled beamht ;
+ penstroke (z1e..z3e..z2e);
+ endchar;
+enddef;
+
+%%%%%%%%%%%%%%%%%%%%%%%
+% negative Steigungen %
+%%%%%%%%%%%%%%%%%%%%%%%
+
+for j= 1 upto 17:
+for i= 1 upto min(2j,8):
+drawslursneg(i,j);
+endfor;endfor;
+end;
+