From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 16 Jan 2003 16:03:08 +0000 (+0000)
Subject: make flat stem shorter
X-Git-Tag: release/1.7.13~34
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=fd1676be9175598e5cc9e7b98c7ae1a293fd4c0b;p=lilypond.git

make flat stem shorter
---

diff --git a/ChangeLog b/ChangeLog
index 3345a16443..b465f1b9e1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-16  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+	* mf/feta-toevallig.mf: make flat stem shorter 
+
 2003-01-16  Heikki Junes  <hjunes@cc.hut.fi>
 
 	* lilypond-font-lock.el: Fontify post-notated slurs -( and -).
diff --git a/mf/feta-toevallig.mf b/mf/feta-toevallig.mf
index 119d3e57c4..ab16af7d91 100644
--- a/mf/feta-toevallig.mf
+++ b/mf/feta-toevallig.mf
@@ -171,8 +171,13 @@ def draw_meta_flat(expr xcenter, w, crook_fatness) =
 	save top_stem_thick, bottom_stem_thick, hair, smaller_hole;
 	save center;
 	pair center;
+	save clearing;
 	center = (xcenter, 0);
 
+% the shouldn't reach to the top staff line.
+%% TODO: should take from height.
+	clearing = 1.2 stafflinethickness; 
+
 %
 %  TODO: parameterize  this
 %
@@ -186,7 +191,7 @@ def draw_meta_flat(expr xcenter, w, crook_fatness) =
 	bottom_stem_thick = 1.2 stafflinethickness;
 
 
-	z1 = (0, 2 staff_space) + center;
+	z1 = (0, 2 staff_space) + center - (0, stafflinethickness/2 + clearing);
 	z2 = (0, - 1/2 staff_space)+  center;
 
 	penpos1(top_stem_thick, 0);
@@ -251,7 +256,7 @@ enddef;
 % unfortunately, 600dpi is not enough to show the brush of the stem.
 %
 fet_beginchar("Flat", "-1", "flat")
-	set_char_box(1.2 stafflinethickness#, .8 staff_space#, 0.6 staff_space#, 2 staff_space#);
+	set_char_box(1.2 stafflinethickness#, .8 staff_space#, 0.6 staff_space#, 1.9 staff_space#);
 	draw_meta_flat(0, w, 0.31 staff_space);
 	fet_endchar;
 
@@ -261,7 +266,7 @@ fet_beginchar("Double Flat", "-2", "flatflat")
 	left_wid = .7;
 	right_wid = .8;
 	overlap = .05;
-	set_char_box(1.2 stafflinethickness#, (left_wid + right_wid -overlap) *staff_space#, .6 staff_space#, 2 staff_space#);
+	set_char_box(1.2 stafflinethickness#, (left_wid + right_wid -overlap) *staff_space#, .6 staff_space#, 1.9 staff_space#);
 	draw_meta_flat(0, left_wid*  staff_space, 1/3 staff_space);
 	draw_meta_flat((left_wid - overlap) *staff_space,  
 		right_wid *staff_space, 0.33 staff_space);