From: Carl Sorensen <c_sorensen@byu.edu>
Date: Sat, 23 Oct 2010 22:48:21 +0000 (-0600)
Subject: Font: fix varsegno to eliminate grazing intersections
X-Git-Tag: release/2.13.37-1~23
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e1af8263b112c6539f4f532235e752e14fa510d5;p=lilypond.git

Font: fix varsegno to eliminate grazing intersections

  Changes due to Werner Lemberg and Carl Sorensen
---

diff --git a/mf/feta-scripts.mf b/mf/feta-scripts.mf
index 8496fd7c65..35d09b9c39 100644
--- a/mf/feta-scripts.mf
+++ b/mf/feta-scripts.mf
@@ -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);