X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Ffeta-accordion.mf;h=a91b035f03763912c1a67099fd67f2aa39876f8f;hb=89592d9d1c8fe39f6028becfe32ee9bd209e7963;hp=dcceba181fb3741320d2541d167995d30264f40a;hpb=388121aed1734e9e536ede58bd3de98b68367842;p=lilypond.git

diff --git a/mf/feta-accordion.mf b/mf/feta-accordion.mf
index dcceba181f..a91b035f03 100644
--- a/mf/feta-accordion.mf
+++ b/mf/feta-accordion.mf
@@ -1,8 +1,12 @@
-% -*- Fundamental -*-
+%
+% feta-accordion.mf -- draw accordion symbols
+%
+% source file of the GNU LilyPond music typesetter
+%
+% (c) 1998--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 fet_begingroup ("accordion");
 
-
 %
 % These dimensions are the same for all register symbols.
 % The different symbols should calculate their other dimensions from them.
@@ -47,11 +51,16 @@ fet_beginchar ("accDiscant", "accDiscant")
 	% mf doesn't handle pixel dropouts in outline objects, so we use
 	% `draw' if not called by mpost
 	if known miterlimit:
-		penstroke z1e
-			  .. z2e
-			  .. z3e
-			  .. z4e
-			  .. cycle;
+		fill z1r
+		     .. z2r
+		     .. z3r
+		     .. z4r
+		     .. cycle;
+		unfill z1l
+		       .. z2l
+		       .. z3l
+		       .. z4l
+		       .. cycle;
 	else:
 		pickup pencircle xscaled accreg_linethickness yscaled lt;
 		draw z1
@@ -125,11 +134,16 @@ fet_beginchar ("accFreebase", "accFreebase")
 	% mf doesn't handle pixel dropouts in outline objects, so we use
 	% `draw' if not called by mpost
 	if known miterlimit:
-		penstroke z1e
-			  .. z2e
-			  .. z3e
-			  .. z4e
-			  .. cycle;
+		fill z1r
+		     .. z2r
+		     .. z3r
+		     .. z4r
+		     .. cycle;
+		unfill z1l
+		       .. z2l
+		       .. z3l
+		       .. z4l
+		       .. cycle;
 	else:
 		pickup pencircle xscaled accreg_linethickness yscaled lt;
 		draw z1
@@ -178,11 +192,16 @@ fet_beginchar ("accStdbase", "accStdbase")
 	% mf doesn't handle pixel dropouts in outline objects, so we use
 	% `draw' if not called by mpost
 	if known miterlimit:
-		penstroke z1e
-			  .. z2e
-			  .. z3e
-			  .. z4e
-			  .. cycle;
+		fill z1r
+		     .. z2r
+		     .. z3r
+		     .. z4r
+		     .. cycle;
+		unfill z1l
+		       .. z2l
+		       .. z3l
+		       .. z4l
+		       .. cycle;
 	else:
 		pickup pencircle xscaled accreg_linethickness yscaled lt;
 		draw z1
@@ -366,7 +385,7 @@ fet_beginchar ("accOldEE", "accOldEE")
 
 	pickup pencircle scaled (lr + blot_diameter);
 
-	for pp := 0 step 45 until 180:
+	for pp := 0 step 45 until 135:
 		drawdot z2 rotated pp;
 		drawdot z3 rotated pp;
 
@@ -402,11 +421,16 @@ fet_beginchar ("accOldEE", "accOldEE")
 	% mf doesn't handle pixel dropouts in outline objects, so we use
 	% `draw' if not called by mpost
 	if known miterlimit:
-		penstroke z10e
-			  .. z11e
-			  .. z12e
-			  .. z13e
-			  .. cycle;
+		fill z10r
+		     .. z11r
+		     .. z12r
+		     .. z13r
+		     .. cycle;
+		unfill z10l
+		       .. z11l
+		       .. z12l
+		       .. z13l
+		       .. cycle;
 	else:
 		pickup pencircle xscaled accreg_linethickness yscaled lt;
 		draw z10