-% trills := 4;
- trills := 3;
- set_char_box(trills*twidth#-(trills-1)*0.5toverlap#, trills*twidth#-(trills-1)*0.5toverlap#, theight#, theight#);
-% draw_slur(-2twidth#,-2theight#,0,-1);
-% currentpicture := currentpicture shifted (-0.5w+tthin,-tfat*theight+0.75tthin);
- draw_slur(0,-2theight#,0,-1);
-% currentpicture := currentpicture shifted (-0.5w+1.3tthin,-tfat*theight+1.5tthin);
- currentpicture := currentpicture shifted (-0.5w+1.65tthin,-tfat*theight+1.15tthin);
-% draw_trill_four;
- draw_trill_three;
+ set_char_box(3 trill_width#, 3 trill_width#,
+ trill_height#, trill_height#);
+ draw_trillelement(-3 trill_width);
+ draw_trillelement(-1 trill_width);
+ draw_trillelement(1 trill_width);
+
+
+ z1 = (- b,0) - trill_overlap * trill_ne ;
+ z4 = z1 + (0, - 2 trill_height);
+ labels (1,4);
+ draw z1{-trill_ne} .. z4{trill_ne yscaled -1};
+ remember_pic := currentpicture ;
+fet_endchar;
+
+fet_beginchar("upmordent", "upmordent", "upmordent")
+ set_char_box(3 trill_width#, 3 trill_width#,
+ trill_height#, trill_height#);
+
+ currentpicture := remember_pic;
+
+ pickup pencircle scaled trill_thin;
+ top y1 = h;
+ bot y2 = -d;
+ x1 = x2 ;
+ x2 = trill_width;
+ draw z1 -- z2;
+fet_endchar;
+
+fet_beginchar("pralldown", "pralldown", "pralldown")
+ set_char_box(3 trill_width#, 3 trill_width#,
+ trill_height#, trill_height#);
+ currentpicture := remember_pic xscaled -1;