X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Ffeta-scripts.mf;h=d04ed18b7b5e99c2641079b77e6af9a459a634ad;hb=2e64d8a758a2fc90734568e79303dc92950000bc;hp=8496fd7c650977b03780e952b1b2e694d7e97384;hpb=f018757016404595c92e21346ae0661dafe7ea46;p=lilypond.git

diff --git a/mf/feta-scripts.mf b/mf/feta-scripts.mf
index 8496fd7c65..d04ed18b7b 100644
--- a/mf/feta-scripts.mf
+++ b/mf/feta-scripts.mf
@@ -1,7 +1,7 @@
 % Feta (not the Font-En-Tja) music font --  implement scripts
 % This file is part of LilyPond, the GNU music typesetter.
 %
-% Copyright (C) 1997--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
+% Copyright (C) 1997--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
 %	Jan Nieuwenhuizen <janneke@gnu.org>
 %
 %
@@ -1217,20 +1217,25 @@ fet_beginchar ("Varied Segno", "varsegno");
 	bulbradius = length (z1l - z1');
 	pickup pencircle scaled 2 bulbradius;
 
-	drawdot z1';
+	save se_dir, nw_dir;
+	pair se_dir, nw_dir;
+	se_dir := dir -loopangle;
+	nw_dir := dir (180 - loopangle);
+
+	draw_bulb (-1, z1r, z1l, bulbradius, .8);
 
 	penstroke z1e
 		  .. z2e
 		  .. z3e
-		  .. z4e{dir (-loopangle)}
-		  .. z5e{dir (-loopangle)}
-		  .. z6e
-		  .. z7e
-		  .. z8e
-		  .. z9e{dir (-loopangle)}
-		  .. z10e{dir (-loopangle)}
-		  .. z11e
-		  .. {dir (180 - loopangle)}z12e;
+		  ... {se_dir}z4e
+		  -- z5e{se_dir}
+		  ... z6e
+		  ... z7e{nw_dir}
+		  ... z8e
+		  ... {se_dir}z9e
+		  -- z10e{se_dir}
+		  ... z11e
+		  ... {nw_dir}z12e;
 	addto currentpicture also currentpicture scaled -1;
 
 	penlabels (1, 1', 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12);
@@ -1442,17 +1447,18 @@ enddef;
 
 
 fet_beginchar ("Arpeggio", "arpeggio");
+	begingroup;
 	save height, overshoot, width;
-	height# = staff_space#;
-	width# = 0.8 height#;
-	overshoot# = 0.25 staff_space#;
+	height# := staff_space#;
+	width# := 0.8 * height#;
+	overshoot# := 0.25 * staff_space#;
 	define_pixels (height, overshoot, width);
-
 	set_char_box (0, width#, 0, height#);
 	draw_arpeggio;
 	penlabels (range 1 thru 9);
 
 	draw_staff (-2, 2, 0.0);
+	endgroup;
 fet_endchar;
 
 
@@ -1463,7 +1469,8 @@ fet_endchar;
 %
 
 fet_beginchar ("Trill_element", "trill_element");
-	save height, overshoot;
+	begingroup;
+	save height, overshoot, width;
 	height# = staff_space#;
 	width# = 0.8 height#;
 	overshoot# = 0.25 staff_space#;
@@ -1475,6 +1482,7 @@ fet_beginchar ("Trill_element", "trill_element");
 	currentpicture := currentpicture shifted -(width / 2, height / 2);
 	currentpicture := currentpicture rotated 90;
 	currentpicture := currentpicture shifted (height / 2, width / 2);
+	endgroup;
 fet_endchar;