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
   7
   8 fet_beginchar("espr", "espr", "espressivo")
   9         set_char_box(.9 staff_space#, .9 staff_space#, .5 staff_space#, .5 staff_space#);
  10         save thickness, diminish;
  11         thickness = 0.05 staff_space + linethickness;
  12         pickup pencircle scaled thickness;
  13         t = thickness;
  14         diminish = .75;
  15         top z1 =(0.2 staff_space,h);
  16         rt z3 =(w*2,0);
  17         bot y5 =-h;
  18         x5 = x1;
  19         x2 = .5[x1,x3];
  20         x4 = .5[x5,x3];
  21         z2 = whatever[z1,z3];
  22         z4 = whatever[z5,z3];
  23         penpos1(t,90);
  24         penpos2(t,90);
  25         penpos5(t,90);
  26         penpos4(t,90);
  27         penpos3(diminish*t,90);
  28         draw z1 .. z2;
  29         draw z5 .. z4;
  30         penstroke z4e .. z3e;
  31         penstroke z2e .. z3e;
  32         draw (z1 .. z2) xscaled -1;
  33         draw (z5 .. z4) xscaled -1;
  34         penstroke (z4e .. z3e) xscaled -1;
  35         penstroke (z2e .. z3e) xscaled -1;
  36         penlabels(1,2,3,4,5);
  37         pickup pencircle scaled (diminish* thickness);
  38         draw z3;
  39         draw z3 xscaled -1;
  40
  41 fet_endchar;
  42
  43
  44 input feta-bolletjes;
  45 %input feta-banier;
  46 %input feta-slag;
  47 %input feta-eindelijk;
  48 %input feta-klef;
  49 %       input feta-toevallig;
  50 %       input feta-schrift;
  51 %       input feta-haak;
  52 %       input feta-timesig;
  53 %       input feta-pendaal;
  54 %       input feta-accordion;
  55 %       input feta-solfa;