home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / tex / mutex.arc / MF.ARC / VIO16.MF < prev   
Text File  |  1990-03-06  |  4KB  |  195 lines
  1. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. %                                                             %
  3. %                   NOTENSCHLUESSEL                           %
  4. %                                                             %
  5. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  6.  
  7. %%%%%%%%%%%%%%%%%%%%
  8. % VIOLINSCHLUESSEL %
  9. %%%%%%%%%%%%%%%%%%%%
  10.  
  11. def violin(expr width, beginleft, begindown, thick, penthick) =
  12. x10=x3=x2=x8;
  13. y6l=56/15width+y12r;
  14. x11-x4=width;
  15. x5=x4+13/15width;
  16. x2=x4+31/45 width;
  17. x1=x4+7/15width;
  18. x4=beginleft;
  19. x2-x12=4/15 width;
  20. x9+2/5width=x6;
  21. x6-4/15width=x7;
  22. x9=x4+1/5width;
  23. y12r=begindown;
  24. y2r=y4=2y11;
  25. y8=y12r+4/15width;
  26. y2r=y12r+28/15width;
  27. y1=y12r+width;
  28. y3r=y12r+13/15width;
  29. y7=y12r+116/45width;
  30. y5=y12r+16/5width;
  31. y5-y10=y11;
  32. y9=y12r+2/15width;
  33. penpos1(0,180);
  34. penpos2(thick,90);
  35. penpos3(penthick+1/16thick,-90);
  36. penpos4(5/4thick,120);
  37. penpos5(5/6thick,-120);
  38. penpos6(5/3thick,-85);
  39. penpos7(1/2thick,0);
  40. penpos8(penthick,0);
  41. penpos9(5/4thick,170);
  42. penpos10(5/6thick,180);
  43. penpos11(thick,0);
  44. penpos12(penthick,-90);
  45. pickup pencircle scaled 1s;
  46. penstroke z1e{2left}..z2e..z11e..z3e
  47. ..z4e{right+up}..z10e..{up}z5e..z6e;
  48. penstroke z6e{down+left}..{down}z7e--z8e;
  49. fill z8l{2down+right}..z12l..z9l
  50. --z9r..z12r..{up}z8r..cycle;
  51. pickup pencircle scaled 1s;
  52. fill z9l{3/2right+up}..{right+2down}z9r..cycle;
  53. penlabels(1,2,3,4,5,6,7,8,9,10,11,12);
  54. enddef;
  55.  
  56. beginchar(71,3.25nhw#, 6nhh#, 2nhh#);
  57. clear;
  58. violin(15/8nhh,7/4nhh,-3/2nhh,2/5nhh,1/9nhh);
  59. endchar;
  60.  
  61. %%%%%%%%violin-schluessel verkleinert%%%%%%%%
  62. beginchar(72,3.25nhw#, 6nhh#, 2nhh#);
  63. clear;
  64. violin(12/8nhh,7/4nhh,-2/2nhh,3/10nhh,1/10nhh);
  65. endchar;
  66.  
  67. %%%%%%%%%%%%%%%%%%%%%
  68. % BASS--SCHLUESSEL %%
  69. %%%%%%%%%%%%%%%%%%%%%
  70.  
  71. def bass(expr width, beginleft, begindown, thick, dotthick)=
  72.  
  73. y1=begindown;
  74. x1l=beginleft;
  75. x4=x5;
  76. x4-x3=width;
  77. x1l-x3=1/10width;
  78. y2=3/6(y4+y5);
  79. y4-y5=3/9width;
  80. y5-y3=9/9width;
  81. y3=y1-17/12width;
  82. x4-x2=3/9width;
  83. x7-x3=1/5width;
  84. y7=1/4(3y5+y4);
  85. penpos1(1/2thick,10);
  86. penpos2(thick,180);
  87. penpos3(0,180);
  88. penpos7(1/3thick,90);
  89.  
  90. pickup pencircle scaled dotthick;
  91. drawdot z4; drawdot z5;
  92. pickup pencircle scaled 1s;
  93. penstroke z3e{up+right}..z2e{up}..{down+left}z1e;
  94. fill z1l{down+left}..{right}z7l{right}..{left+up}z1r..cycle;
  95. penlabels(1,2,3,4,5,7);
  96. enddef;
  97.  
  98. beginchar(73,3nhw#, 4nhh#, 0nhh#);
  99. clear;
  100. bass(9/4nhh, 49/40nhh, 58/16nhh, 1/2nhh, 2s);
  101. endchar;
  102.  
  103. %%%%%%verkleinerter bass-schluessel%%%%%%%%%
  104. beginchar(74,3nhw#, 4nhh#, 0nhh#);
  105. clear;
  106. bass(7/4nhh, 60/40nhh, 56/16nhh, 1/2nhh, 1.5s);
  107. endchar;
  108.  
  109. %%%%%%%%%%%%%%%%%%%
  110. % ALT--SCHLUESSEL %
  111. %%%%%%%%%%%%%%%%%%%
  112.  
  113. def alt(expr height, beginleft, begindown, thick) =
  114. x1=x7;
  115. x2=x8;
  116. y1-y7=height;
  117. y2-y8=height;
  118. y7=begindown;
  119. x7=beginleft;
  120. x2=x1+1/4height;
  121. x6l=x8l;
  122. y5=y7+1/2height;
  123. x5=x3;
  124. y4=y5+1/3(y3-y5);
  125. x4-x7=height;
  126. x4-x5=1/2height;
  127. y3-y5=2/5height;
  128. y8=y7;
  129. y6=y7;
  130. x9=x3;
  131. y9=y7-1/2height-2/5height;
  132. penpos8(1/4thick,180);
  133. penpos2(1/4thick,180);
  134. penpos1(thick,180);
  135. penpos7(thick,180);
  136. penpos6(thick,0);
  137. penpos5(1/10thick,0);
  138. penpos3(1/2thick,0);
  139. penpos4(2/3thick,180);
  140.  
  141. pickup pencircle scaled 1s;
  142. fill z7l--z1l--z1r--z7r--cycle;
  143. fill z8l--z2l--z2r--z8r--cycle;
  144. penstroke z5e..{left+2down}z6e;
  145. penstroke z5e{right+4down}..{up}z4e{up}..{left+down}z3e;
  146. pickup pencircle scaled 1.8s;
  147. drawdot z3;
  148.  
  149.  
  150. pickup pencircle scaled 1s;
  151. penstroke
  152.  (counterclockwise(z7e--z1e)reflectedabout(z7,z8));
  153. penstroke
  154. (counterclockwise(z8e--z2e)reflectedabout(z7,z8));
  155. penstroke
  156. (counterclockwise(z5e..{left+2down}z6e)reflectedabout(z7,z8));
  157. penstroke
  158. (counterclockwise (z5e{right+4down}..{up}z4e{up}..{left+down}z3e)
  159. reflectedabout(z7,z8));
  160.  
  161. pickup pencircle scaled 1.75s;
  162. drawdot z9;
  163. penlabels(1,2,3,4,5,6,7,8);
  164. enddef;
  165.  
  166. %%%%%%%%%%%Altschl"usseL%%%%%%%%%%%
  167. beginchar(75,3.5nhw#, 4nhh#, 0nhh#);
  168. clear;
  169. alt(2nhh,1.25nhh,2nhh,2/5nhh);
  170. endchar;
  171.  
  172. %%%%%%%%%Tenorschluessel%%%%%%%%%
  173. beginchar(76,3.5nhw#, 4nhh#, 0nhh#);
  174. clear;
  175. alt(2nhh,1.25nhh,3nhh,2/5nhh);
  176. endchar;
  177.  
  178. %%%%%%%%%Baritonschluessel%%%%%%%%%
  179. beginchar(77,3.5nhw#, 4nhh#, 0nhh#);
  180. clear;
  181. alt(2nhh,1.25nhh,4nhh,2/5nhh);
  182. endchar;
  183.  
  184. %%%%%%%%%Mezzosopranschluessel%%%%%%%%%
  185. beginchar(78,3.5nhw#, 4nhh#, 0nhh#);
  186. clear;
  187. alt(2nhh,1.25nhh,1nhh,2/5nhh);
  188. endchar;
  189.  
  190. %%%%%%%%%Sopranschluessel%%%%%%%%%
  191. beginchar(79,3.5nhw#, 4nhh#, 0nhh#);
  192. clear;
  193. alt(2nhh,1.25nhh,0nhh,2/5nhh);
  194. endchar;
  195.