mf/feta-test-generic.mf

   1 %
   2 % test stuff.
   3 % in a separate file to avoid tainting non-test font files for testing.
   4 %
   5 %
   6 fet_beginchar("> accent", "sforzato", "sforzatoaccent")
   7         set_char_box(.9 staff_space#, .9 staff_space#, .5 staff_space#, .5 staff_space#);
   8         save thickness, diminish;
   9
  10         thickness = 0.05 staff_space + linethickness;
  11         pickup pencircle scaled thickness;
  12
  13         % prevent blobs at crossing lines
  14         diminish = 1.0;
  15
  16         top y1 = h;
  17         lft x1 = -b;
  18         rt x2 = w;
  19         y2 = .25 thickness* diminish;
  20
  21         rt z4 = (w,0);
  22         x3 = - linethickness + 0.1 staff_space;
  23         z3 = whatever [z1, z4];
  24
  25         penpos2(thickness*(2 - diminish)/2 , 90);
  26         penpos1(thickness, 90);
  27         penpos3(thickness, 90);
  28
  29         draw z1 .. z3;
  30         draw (z1 .. z3) yscaled -1;
  31         draw z4;
  32         penstroke z3e .. z2e;
  33         penstroke (z3e .. z2e) yscaled -1;
  34
  35         penlabels(1,2,3);
  36         labels(4);
  37 fet_endchar;
  38
  39
  40 fet_beginchar("espr", "espr", "espressivo")
  41        set_char_box(1.9 staff_space#, 1.9 staff_space#, .5 staff_space#, .5 staff_space#);
  42        save thickness, diminish;
  43        thickness = 0.05 staff_space + linethickness;
  44        pickup pencircle scaled thickness;
  45        t = thickness;
  46        diminish = .1;
  47        top z1 =(0.2 staff_space,h);
  48        rt z3 =(w,0);
  49        x2 = .5[x1,x3];
  50        z2 = whatever[z1,z3];
  51        penpos1(t,90);
  52        penpos2(t,90);
  53        penpos3(diminish*t,90);
  54        draw z1 .. z2;
  55        penstroke z2e .. z3e;
  56        penlabels(1,2,3);
  57        pickup pencircle scaled (diminish* thickness);
  58        draw z3;
  59        addto currentpicture also currentpicture xscaled -1;
  60        addto currentpicture also currentpicture yscaled -1;
  61
  62 fet_endchar;
  63
  64 input feta-bolletjes;
  65 %input feta-banier;
  66 %input feta-slag;
  67 %input feta-eindelijk;
  68 %input feta-klef;
  69 %       input feta-toevallig;
  70 %       input feta-schrift;
  71 %       input feta-haak;
  72 %       input feta-timesig;
  73 %       input feta-pendaal;
  74 %       input feta-accordion;
  75 %       input feta-solfa;