From: hanwen <hanwen>
Date: Sat, 20 Apr 2002 10:27:35 +0000 (+0000)
Subject: klef
X-Git-Tag: release/1.5.59~112
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=30fb908ddee2d7b68669fa05524d1e43cfe849a7;p=lilypond.git

klef
---

diff --git a/mf/feta-klef.mf b/mf/feta-klef.mf
index eeb9bc097f..ffd017f366 100644
--- a/mf/feta-klef.mf
+++ b/mf/feta-klef.mf
@@ -354,7 +354,7 @@ def draw_gclef (expr exact_center, reduction)=
 	x11 - x13r  = 1.25 reduced_ss + 0.5 thinnib;
 
 	x12r = xpart (.52 [z13r , z11] + .75 reduced_ss * downstroke_dir) ;
-	
+
 	z10=  center + whatever * dir (downstroke_angle + .5);
 	y10 = ypart center + 3.35  reduced_ss;
 	y10l  - y10r = 1.2 thickness;
@@ -413,6 +413,7 @@ def draw_gclef (expr exact_center, reduction)=
 	
 
 	save bot_angle;
+
 	bot_angle = downstroke_angle- 87;
 
 	penpos12(thinnib, bot_angle + 90);
@@ -453,9 +454,9 @@ def draw_gclef (expr exact_center, reduction)=
 		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}
+		..new_bulb (z13r, 0.45 reduced_ss, 0.38 reduced_ss, 3 stafflinethickness,  1, -1) {down}
 
-		% z13r{up} -- z13l{down}
+		.. tension 0.98
 		.. z12l{-dir (bot_angle)}
 
 		.. z11l{-dir(start_angle)}