+fet_beginchar("Half mihead", "s1mi", "halfmihead")
+ save a_b, ai_a, bi_b, dx, dy, noteshape, noteishape;
+ path noteshape, noteishape;
+ noteshape = mishape;
+ noteishape = (mishape slanted -0.35) rotated -10.5;
+ a_b = 1.5;
+ bi_b = 0.65;
+ ai_a = 0.7;
+ (dx,dy)=(0,0);
+ draw_solfa_note_shape;
+fet_endchar;
+
+fet_beginchar("Quart mihead", "s2mi", "mihead")
+ save a_b, noteshape;
+ path noteshape;
+ a_b = 1.54;
+
+ noteshape = mishape;
+ draw_solfa_quarter_note_shape;
+fet_endchar;
+
+
+% fa - scalene triangle:
+% for stem up: (0,h/2) -- (w,h/2) -- (w,-h/2) -- cycle;
+% for stem down: (w,-h/2) -- (0,1h/2) -- (0,h/2) -- cycle;
+% (one is a 180 degree rotation of the other)
+% stem attachment: (doesn't much matter)
+
+save fashape; path fashape;
+fashape = (-1,1)--(1,1)--(1,-1)--cycle;
+
+fet_beginchar("Whole fahead", "s0fa", "wholefahead")
+ save a_b, ai_a, bi_b, dx, dy, noteshape, noteishape;
+ path noteshape, noteishape;
+ noteshape = fashape;
+ noteishape = fashape;
+ a_b = 1.8;
+ bi_b = 0.6;
+ ai_a = 0.6;
+ (dx,dy)=(0.2,.05);
+ draw_solfa_note_shape;
+fet_endchar;
+
+fet_beginchar("Half stemup fahead", "u1fa", "halffauhead")
+ save a_b, ai_a, bi_b, dx, dy, noteshape, noteishape;
+ path noteshape, noteishape;
+ noteshape = fashape;
+ noteishape = fashape;
+ a_b = 1.5;
+ bi_b = 0.6;
+ ai_a = 0.6;
+ (dx,dy)=(0.2,.05);
+ draw_solfa_note_shape;
+fet_endchar;
+
+fet_beginchar("Quart stemup fahead", "u2fa", "fauhead")
+ save a_b, noteshape;
+ path noteshape;
+ a_b = 1.54;
+
+ noteshape = fashape;
+ draw_solfa_quarter_note_shape;
+fet_endchar;
+
+fet_beginchar("Half stemdn fahead", "d1fa", "halffadhead")
+ save a_b, ai_a, bi_b, dx, dy, noteshape, noteishape;
+ path noteshape, noteishape;
+ noteshape = fashape rotated 180;
+ noteishape = fashape rotated 180;
+ a_b = 1.5;
+ bi_b = 0.6;
+ ai_a = 0.6;
+ (dx,dy)=(-0.2,-.05);
+ draw_solfa_note_shape;
+fet_endchar;
+
+fet_beginchar("Quart stemdn fahead", "d2fa", "fadhead")
+ save a_b, noteshape;
+ path noteshape;
+ a_b = 1.54;
+
+ noteshape = fashape rotated 180;
+ draw_solfa_quarter_note_shape;
+fet_endchar;
+
+
+% sol - oval ... the standard "round" note
+
+% la - rectangle: (0,h/2)--(w,h.2)--(w,-h/2)--(0,-h/2)--cycle;
+% stem attachment: (doesn't much matter)
+save lashape; path lashape;
+lashape = (-1,-1)--(-1,1)--(1,1)--(1,-1)--cycle;
+
+fet_beginchar("Whole lahead", "s0la", "wholelahead")
+ save a_b, ai_a, bi_b, dx, dy, noteshape, noteishape;
+ path noteshape, noteishape;
+ noteshape = lashape;
+ noteishape = lashape;
+ a_b = 1.8;
+ bi_b = 0.6;
+ ai_a = 0.85;
+ (dx,dy)=(0,0);
+ draw_solfa_note_shape;
+fet_endchar;
+
+fet_beginchar("Half lahead", "s1la", "halflahead")
+ save a_b, ai_a, bi_b, dx, dy, noteshape, noteishape;
+ path noteshape, noteishape;
+ noteshape = lashape;
+ noteishape = lashape;
+ a_b = 1.5;
+ bi_b = 0.6;
+ ai_a = 0.85;
+ (dx,dy)=(0,0);
+ draw_solfa_note_shape;
+fet_endchar;
+
+fet_beginchar("Quart lahead", "s2la", "lahead")
+ save a_b, noteshape;
+ path noteshape;
+ a_b = 1.54;
+
+ noteshape = lashape;
+ draw_solfa_quarter_note_shape;
+fet_endchar;
+
+
+% ti - an "icecream cone" with about 2/3 of
+% the height in the cone and only 1/3 in the curved top:
+% (0,h/6)--(w/2,-h/2)--(w,h/6)..(w/2,h/2)..cycle;
+% stem attachment: h/6
+save tishape; path tishape;
+tishape = (0,-1)--(-1,0.3)..(0,1)..(1,0.3)--cycle;
+
+fet_beginchar("Whole tihead", "s0ti", "wholetihead")
+ save a_b, ai_a, bi_b, dx, dy, noteshape, noteishape;
+ path noteshape, noteishape;
+ noteshape = tishape;
+ noteishape = tishape;
+ a_b = 1.8;
+ bi_b = 0.75;
+ ai_a = 0.75;
+ (dx,dy)=(0,-.02);
+ draw_solfa_note_shape;
+fet_endchar;
+
+fet_beginchar("Half tihead", "s1ti", "halftihead")
+ save a_b, ai_a, bi_b, dx, dy, noteshape, noteishape;
+ path noteshape, noteishape;
+ noteshape = tishape;
+ noteishape = tishape;
+ a_b = 1.5;
+ bi_b = 0.75;
+ ai_a = 0.75;
+ (dx,dy)=(0,-.02);
+ draw_solfa_note_shape;
+fet_endchar;
+
+fet_beginchar("Quart tihead", "2ti", "tihead")
+ save a_b, noteshape;
+ path noteshape;
+ a_b = 1.54;
+
+ noteshape = tishape;
+ draw_solfa_quarter_note_shape;
+fet_endchar;
+
+