diff options
Diffstat (limited to 'macros/mtex/metafont/vio16.mf')
-rw-r--r-- | macros/mtex/metafont/vio16.mf | 195 |
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; - |