% test stuff.
% in a separate file to avoid tainting non-test font files for testing.
%
-%
-
-
-fet_beginchar("espr", "espr", "espressivo")
- set_char_box(.9 staff_space#, .9 staff_space#, .5 staff_space#, .5 staff_space#);
- save thickness, diminish;
- thickness = 0.05 staff_space + linethickness;
- pickup pencircle scaled thickness;
- t = thickness;
- diminish = .75;
- top z1 =(0.2 staff_space,h);
- rt z3 =(w*2,0);
- bot y5 =-h;
- x5 = x1;
- x2 = .5[x1,x3];
- x4 = .5[x5,x3];
- z2 = whatever[z1,z3];
- z4 = whatever[z5,z3];
- penpos1(t,90);
- penpos2(t,90);
- penpos5(t,90);
- penpos4(t,90);
- penpos3(diminish*t,90);
- draw z1 .. z2;
- draw z5 .. z4;
- penstroke z4e .. z3e;
- penstroke z2e .. z3e;
- draw (z1 .. z2) xscaled -1;
- draw (z5 .. z4) xscaled -1;
- penstroke (z4e .. z3e) xscaled -1;
- penstroke (z2e .. z3e) xscaled -1;
- penlabels(1,2,3,4,5);
- pickup pencircle scaled (diminish* thickness);
- draw z3;
- draw z3 xscaled -1;
-
-fet_endchar;
-
-input feta-bolletjes;
-%input feta-banier;
-%input feta-slag;
-%input feta-eindelijk;
-%input feta-klef;
-% input feta-toevallig;
-% input feta-schrift;
-% input feta-haak;
-% input feta-timesig;
-% input feta-pendaal;
-% input feta-accordion;
-% input feta-solfa;
+%input feta-rests;
+input feta-accidentals;
+%input feta-dots;
+%input feta-arrowheads;
+%input feta-scripts;
+%input feta-trills;
+%input feta-clefs;
+%input feta-brackettips;
+%input feta-timesignatures;
+%input feta-pedals;
+%input feta-accordion;
+%input feta-ties;