summaryrefslogtreecommitdiff
path: root/macros/mtex/metafont/slurdu16.mf
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2024-01-31 03:01:01 +0000
committerNorbert Preining <norbert@preining.info>2024-01-31 03:01:01 +0000
commit79e1bbc1ad6b308aa2074540b2afd43b6a72ce03 (patch)
tree32074e03eec88cf72e5973ddff176a0534c77dff /macros/mtex/metafont/slurdu16.mf
parent084f5d8435744b7ea7ef487ec111a7bfd100ed62 (diff)
CTAN sync 202401310301
Diffstat (limited to 'macros/mtex/metafont/slurdu16.mf')
-rw-r--r--macros/mtex/metafont/slurdu16.mf42
1 files changed, 0 insertions, 42 deletions
diff --git a/macros/mtex/metafont/slurdu16.mf b/macros/mtex/metafont/slurdu16.mf
deleted file mode 100644
index 20282e2ca7..0000000000
--- a/macros/mtex/metafont/slurdu16.mf
+++ /dev/null
@@ -1,42 +0,0 @@
-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;
-