X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Ffeta-clefs.mf;h=5014287429593816873278c53b97cccde759ae59;hb=90e4d7057f3857da049dfda3d130017d4719bd6b;hp=d96f5f399dbdcd28e24cb9109431dd0babfc498f;hpb=82bc9ad690e201aaa55694f8b92261ae7338f56a;p=lilypond.git

diff --git a/mf/feta-clefs.mf b/mf/feta-clefs.mf
index d96f5f399d..5014287429 100644
--- a/mf/feta-clefs.mf
+++ b/mf/feta-clefs.mf
@@ -1,7 +1,7 @@
 % Feta (not the Font-En-Tja) music font --  implement Clefs -*-Fundamental-*-
 % This file is part of LilyPond, the GNU music typesetter.
 %
-% Copyright (C) 1997--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>,
+% Copyright (C) 1997--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>,
 % Jan Nieuwenhuizen <janneke@gnu.org>,
 % Juergen Reuter <reuter@ipd.uka.de>
 %
@@ -556,29 +556,9 @@ def draw_gclef (expr reduction, double_shift, extra_width) =
 
 	fill bulb;
 
-	if double_shift <> 1:
-
-		% transform helper points
-		for n := 106, 110, 111, 112, 121:
-			forsuffixes e := l,,r:
-				z[n+100]e = z[n]e shifted (double_shift * reduced_ss, 0);
-			endfor
-		endfor
-		for n := 110, 111:
-		        forsuffixes e := l,,r:
-				z[n+100]'e = z[n]'e shifted (double_shift * reduced_ss, 0);
-			endfor
-		endfor
-
-		fill swirl shifted (double_shift * reduced_ss, 0);
-		penstroke z221e
-		          .. z210e{down_}
-		          .. z210'e
-		          .. z206e
-		          .. z211'e
-		          .. z211e{dir (-95 + corr_angle)}
-		          .. z212e{dir (bot_angle_)};
-		fill bulb shifted (double_shift * reduced_ss, 0);
+	if double_shift <> 0:
+		addto currentpicture also
+		  currentpicture shifted (double_shift * reduced_ss, 0);
 	fi;
 
 	penlabels (range 101 thru 121);