mf/klef.mf

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