%
% 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;