- z1=attach shifted ((-stemwidth/2),0);
- upshift:=max(0, wwing + 0.1 staff_space + extend);
- z2=z1 shifted (((unitvector stemslant) scaled upshift) transformed flip);
-
- z7=attach shifted ((stemwidth/2),0);
- z6=z7 shifted (((unitvector (-xpart stemslant, ypart stemslant))
- scaled upshift) transformed flip);
- (z2-z3)= (0.38 staff_space, 0.05 htip) transformed flip;
- (z6-z5)=(-0.38 staff_space, 0.05 htip) transformed flip;
-
- z4 =attach shifted ((-0.2 stemwidth, upshift+htip) transformed flip);
- z4'=attach shifted (( 0.2 stemwidth, upshift+htip) transformed flip);
-
- % angle_wing_bot is the angle at which the arc from z2 to z3a enters z3a
- % angle_wing_top is the angle at which the arc from z3b to z4 leaves z3b
- % angle_tip is the angle at which the arc from z4 to z4' leaves z4
- angle_wing_bot=30;
- angle_wing_top=55;
- angle_tip=68;
-
- z3a=z3 shifted ((((dir angle_wing_bot) rotated (-90))
- scaled wwing) transformed flip);
- z3b=z3 shifted ((((dir angle_wing_top) rotated 90)
- scaled wwing) transformed flip);
-
- z5a=z5 shifted ((((dir (180-angle_wing_bot)) rotated 90)
- scaled wwing) transformed flip);
- z5b=z5 shifted ((((dir (180-angle_wing_top)) rotated (-90))
- scaled wwing) transformed flip);
+ z1 = attach shifted (-stemwidth / 2, 0);
+ upshift := max (0, wwing + 0.1 staff_space + extend);
+ z2 = z1 shifted (((unitvector stemslant)
+ scaled upshift) transformed flip);
+
+ z7 = attach shifted ((stemwidth/2),0);
+ z6 = z7 shifted (((unitvector (-xpart stemslant, ypart stemslant))
+ scaled upshift) transformed flip);
+ z2 - z3 = ( 0.38 staff_space, 0.05 htip) transformed flip;
+ z6 - z5 = (-0.38 staff_space, 0.05 htip) transformed flip;
+
+ z4 = attach shifted ((-0.2 stemwidth, upshift + htip)
+ transformed flip);
+ z4'= attach shifted (( 0.2 stemwidth, upshift + htip)
+ transformed flip);
+
+ % `angle_wing_bot' is the angle at which the arc
+ % from z2 to z3a enters z3a
+ % `angle_wing_top' is the angle at which the arc
+ % from z3b to z4 leaves z3b
+ % `angle_tip' is the angle at which the arc
+ % from z4 to z4' leaves z4
+ angle_wing_bot = 30;
+ angle_wing_top = 55;
+ angle_tip = 68;
+
+ z3a = z3 shifted ((((dir angle_wing_bot) rotated -90)
+ scaled wwing) transformed flip);
+ z3b = z3 shifted ((((dir angle_wing_top) rotated 90)
+ scaled wwing) transformed flip);
+
+ z5a = z5 shifted ((((dir (180 - angle_wing_bot)) rotated 90)
+ scaled wwing) transformed flip);
+ z5b = z5 shifted ((((dir (180 - angle_wing_top)) rotated -90)
+ scaled wwing) transformed flip);