mf/klef.mf

   1
   2 % implement clefs
   3 fet_begingroup("foobars")
   4
   5
   6 fet_beginchar("F clef", "bassclef", "bassclef");
   7         set_char_box(0,0,0,0);
   8 fet_endchar;
   9
  10 fet_beginchar("G clef", "evolinclef", "evolinclef");
  11         save tilt;
  12         tilt = 15;
  13
  14         inner_fatness = 5 stafflinethickness;
  15         upstroke_fatness = 7 stafflinethickness;
  16         top_curl_fatness = 4 stafflinethickness;
  17         inner_thinness = 2 stafflinethickness;
  18         downstroke_thinness = 1.5 stafflinethickness;
  19
  20         z1 = 6/10 interline * dir(-135);
  21         z3 = (0, interline - inner_fatness/2);
  22         x5 = x1;
  23         y5 = -interline;
  24         z7 = (-1.25 interline, -.5 interline);
  25         z9 = whatever * dir (90 + tilt);
  26         y9 = 2.1 interline;
  27         y12 + top_curl_fatness = 4 interline;
  28         x12 = 0;
  29         z13 = z9;
  30         z15 = 1.5 interline * dir (tilt -90);
  31
  32
  33         penpos1(blot_diameter, 45);
  34         penpos3(inner_fatness, -90);
  35         penpos5(inner_thinness, 90);
  36         penpos7(inner_thinness, 45);
  37         penpos9(upstroke_fatness, tilt -90);
  38         penpos12(top_curl_fatness, 90);
  39         penpos13(downstroke_thinness, tilt-90);
  40         penpos15(downstroke_thinness, tilt-90);
  41         set_char_box(0,0,0,0);
  42
  43         penstroke z1e{dir 135} .. z3e ..  {left}z5e .. z7e ..  tension 1.2 .. z9e;% & z9e..  z12e .. z13e .. z15e;
  44         penlabels(1,3,5,7, 9,12,13,15);
  45 fet_endchar;
  46 fet_endgroup("foobars");