summaryrefslogtreecommitdiff
path: root/macros/mtex/metafont/vio16.mf
diff options
context:
space:
mode:
Diffstat (limited to 'macros/mtex/metafont/vio16.mf')
-rw-r--r--macros/mtex/metafont/vio16.mf195
1 files changed, 0 insertions, 195 deletions
diff --git a/macros/mtex/metafont/vio16.mf b/macros/mtex/metafont/vio16.mf
deleted file mode 100644
index 8626d6c180..0000000000
--- a/macros/mtex/metafont/vio16.mf
+++ /dev/null
@@ -1,195 +0,0 @@
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% %
-% NOTENSCHLUESSEL %
-% %
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%
-% VIOLINSCHLUESSEL %
-%%%%%%%%%%%%%%%%%%%%
-
-def violin(expr width, beginleft, begindown, thick, penthick) =
-x10=x3=x2=x8;
-y6l=56/15width+y12r;
-x11-x4=width;
-x5=x4+13/15width;
-x2=x4+31/45 width;
-x1=x4+7/15width;
-x4=beginleft;
-x2-x12=4/15 width;
-x9+2/5width=x6;
-x6-4/15width=x7;
-x9=x4+1/5width;
-y12r=begindown;
-y2r=y4=2y11;
-y8=y12r+4/15width;
-y2r=y12r+28/15width;
-y1=y12r+width;
-y3r=y12r+13/15width;
-y7=y12r+116/45width;
-y5=y12r+16/5width;
-y5-y10=y11;
-y9=y12r+2/15width;
-penpos1(0,180);
-penpos2(thick,90);
-penpos3(penthick+1/16thick,-90);
-penpos4(5/4thick,120);
-penpos5(5/6thick,-120);
-penpos6(5/3thick,-85);
-penpos7(1/2thick,0);
-penpos8(penthick,0);
-penpos9(5/4thick,170);
-penpos10(5/6thick,180);
-penpos11(thick,0);
-penpos12(penthick,-90);
-pickup pencircle scaled 1s;
-penstroke z1e{2left}..z2e..z11e..z3e
-..z4e{right+up}..z10e..{up}z5e..z6e;
-penstroke z6e{down+left}..{down}z7e--z8e;
-fill z8l{2down+right}..z12l..z9l
---z9r..z12r..{up}z8r..cycle;
-pickup pencircle scaled 1s;
-fill z9l{3/2right+up}..{right+2down}z9r..cycle;
-penlabels(1,2,3,4,5,6,7,8,9,10,11,12);
-enddef;
-
-beginchar(71,3.25nhw#, 6nhh#, 2nhh#);
-clear;
-violin(15/8nhh,7/4nhh,-3/2nhh,2/5nhh,1/9nhh);
-endchar;
-
-%%%%%%%%violin-schluessel verkleinert%%%%%%%%
-beginchar(72,3.25nhw#, 6nhh#, 2nhh#);
-clear;
-violin(12/8nhh,7/4nhh,-2/2nhh,3/10nhh,1/10nhh);
-endchar;
-
-%%%%%%%%%%%%%%%%%%%%%
-% BASS--SCHLUESSEL %%
-%%%%%%%%%%%%%%%%%%%%%
-
-def bass(expr width, beginleft, begindown, thick, dotthick)=
-
-y1=begindown;
-x1l=beginleft;
-x4=x5;
-x4-x3=width;
-x1l-x3=1/10width;
-y2=3/6(y4+y5);
-y4-y5=3/9width;
-y5-y3=9/9width;
-y3=y1-17/12width;
-x4-x2=3/9width;
-x7-x3=1/5width;
-y7=1/4(3y5+y4);
-penpos1(1/2thick,10);
-penpos2(thick,180);
-penpos3(0,180);
-penpos7(1/3thick,90);
-
-pickup pencircle scaled dotthick;
-drawdot z4; drawdot z5;
-pickup pencircle scaled 1s;
-penstroke z3e{up+right}..z2e{up}..{down+left}z1e;
-fill z1l{down+left}..{right}z7l{right}..{left+up}z1r..cycle;
-penlabels(1,2,3,4,5,7);
-enddef;
-
-beginchar(73,3nhw#, 4nhh#, 0nhh#);
-clear;
-bass(9/4nhh, 49/40nhh, 58/16nhh, 1/2nhh, 2s);
-endchar;
-
-%%%%%%verkleinerter bass-schluessel%%%%%%%%%
-beginchar(74,3nhw#, 4nhh#, 0nhh#);
-clear;
-bass(7/4nhh, 60/40nhh, 56/16nhh, 1/2nhh, 1.5s);
-endchar;
-
-%%%%%%%%%%%%%%%%%%%
-% ALT--SCHLUESSEL %
-%%%%%%%%%%%%%%%%%%%
-
-def alt(expr height, beginleft, begindown, thick) =
-x1=x7;
-x2=x8;
-y1-y7=height;
-y2-y8=height;
-y7=begindown;
-x7=beginleft;
-x2=x1+1/4height;
-x6l=x8l;
-y5=y7+1/2height;
-x5=x3;
-y4=y5+1/3(y3-y5);
-x4-x7=height;
-x4-x5=1/2height;
-y3-y5=2/5height;
-y8=y7;
-y6=y7;
-x9=x3;
-y9=y7-1/2height-2/5height;
-penpos8(1/4thick,180);
-penpos2(1/4thick,180);
-penpos1(thick,180);
-penpos7(thick,180);
-penpos6(thick,0);
-penpos5(1/10thick,0);
-penpos3(1/2thick,0);
-penpos4(2/3thick,180);
-
-pickup pencircle scaled 1s;
-fill z7l--z1l--z1r--z7r--cycle;
-fill z8l--z2l--z2r--z8r--cycle;
-penstroke z5e..{left+2down}z6e;
-penstroke z5e{right+4down}..{up}z4e{up}..{left+down}z3e;
-pickup pencircle scaled 1.8s;
-drawdot z3;
-
-
-pickup pencircle scaled 1s;
-penstroke
- (counterclockwise(z7e--z1e)reflectedabout(z7,z8));
-penstroke
-(counterclockwise(z8e--z2e)reflectedabout(z7,z8));
-penstroke
-(counterclockwise(z5e..{left+2down}z6e)reflectedabout(z7,z8));
-penstroke
-(counterclockwise (z5e{right+4down}..{up}z4e{up}..{left+down}z3e)
-reflectedabout(z7,z8));
-
-pickup pencircle scaled 1.75s;
-drawdot z9;
-penlabels(1,2,3,4,5,6,7,8);
-enddef;
-
-%%%%%%%%%%%Altschl"usseL%%%%%%%%%%%
-beginchar(75,3.5nhw#, 4nhh#, 0nhh#);
-clear;
-alt(2nhh,1.25nhh,2nhh,2/5nhh);
-endchar;
-
-%%%%%%%%%Tenorschluessel%%%%%%%%%
-beginchar(76,3.5nhw#, 4nhh#, 0nhh#);
-clear;
-alt(2nhh,1.25nhh,3nhh,2/5nhh);
-endchar;
-
-%%%%%%%%%Baritonschluessel%%%%%%%%%
-beginchar(77,3.5nhw#, 4nhh#, 0nhh#);
-clear;
-alt(2nhh,1.25nhh,4nhh,2/5nhh);
-endchar;
-
-%%%%%%%%%Mezzosopranschluessel%%%%%%%%%
-beginchar(78,3.5nhw#, 4nhh#, 0nhh#);
-clear;
-alt(2nhh,1.25nhh,1nhh,2/5nhh);
-endchar;
-
-%%%%%%%%%Sopranschluessel%%%%%%%%%
-beginchar(79,3.5nhw#, 4nhh#, 0nhh#);
-clear;
-alt(2nhh,1.25nhh,0nhh,2/5nhh);
-endchar;
-