+ save p, staffline_time, q;
+ path p,q;
+ p := z4{left} .. z5{up} .. z7{up} ;
+
+ q := (-reduced_ss, 2 reduced_ss) .. (2 reduced_ss,2 reduced_ss);
+
+ draw p;
+% z14 = point xpart (p intersectiontimes q) of p;
+
+
+ % we don't do this with a path: variations in thickness
+ % are very easily made and look very ugh.
+ pickup pencircle scaled thinnib;
+
+
+ save bot_angle;
+ bot_angle = downstroke_angle- 87;
+
+ penpos12(thinnib, bot_angle + 90);
+
+ p := z9 .. z10{down}
+ .. z6
+ .. z11{dir (-93)}
+ .. z12{dir(bot_angle)}
+ ;
+
+
+ save start_angle;
+ start_angle=angle (direction xpart (p intersectiontimes z11) of p);
+ penpos11 (thinnib, start_angle+ 90);
+
+ save loop_end_dir;
+ pair loop_end_dir;
+ loop_end_dir = direction (xpart (p intersectiontimes q)) of p;
+ draw p;
+
+ penpos6(thinnib, angle (loop_end_dir) + 90);
+ fill
+% draw
+ z9l
+ .. {down}z10l
+ .. z6l{loop_end_dir} -- z6r{-loop_end_dir}
+ .. z10r{up}
+ .. tension .98
+ .. z9r
+ -- cycle;
+
+ pickup pencircle scaled 1;
+
+ fill simple_serif(z1r, z1l, 80) -- cycle;
+
+% draw
+ fill
+ z11r{dir(start_angle)}
+ .. z12r{dir(bot_angle)}
+
+ ..new_bulb (z13r, 0.45 reduced_ss, 0.38 reduced_ss, 2.5 stafflinethickness, 1, -1) {down}
+
+ % z13r{up} -- z13l{down}
+ .. z12l{-dir (bot_angle)}