% test stuff.
% in a separate file to avoid tainting non-test font files for testing.
%
-%
-fet_beginchar("> accent", "sforzato", "sforzatoaccent")
- 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;
-
- % prevent blobs at crossing lines
- diminish = 1.0;
-
- top y1 = h;
- lft x1 = -b;
- rt x2 = w;
- y2 = .25 thickness* diminish;
-
- rt z4 = (w,0);
- x3 = - linethickness + 0.1 staff_space;
- z3 = whatever [z1, z4];
-
- penpos2(thickness*(2 - diminish)/2 , 90);
- penpos1(thickness, 90);
- penpos3(thickness, 90);
-
- draw z1 .. z3;
- draw (z1 .. z3) yscaled -1;
- draw z4;
- penstroke z3e .. z2e;
- penstroke (z3e .. z2e) yscaled -1;
-
- penlabels(1,2,3);
- labels(4);
-fet_endchar;
-
-
-fet_beginchar("espr", "espr", "espressivo")
- set_char_box(1.9 staff_space#, 1.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 = .1;
- top z1 =(0.2 staff_space,h);
- rt z3 =(w,0);
- x2 = .5[x1,x3];
- z2 = whatever[z1,z3];
- penpos1(t,90);
- penpos2(t,90);
- penpos3(diminish*t,90);
- draw z1 .. z2;
- penstroke z2e .. z3e;
- penlabels(1,2,3);
- pickup pencircle scaled (diminish* thickness);
- draw z3;
- addto currentpicture also currentpicture xscaled -1;
- addto currentpicture also currentpicture yscaled -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;