From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 14 Feb 2005 23:01:41 +0000 (+0000)
Subject: new slur dash patch by Bertalan Fodor.
X-Git-Tag: release/2.5.14~132
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=339622b3cdd4760989ca77e06653b4a008a01567;p=lilypond.git

new slur dash patch by Bertalan Fodor.
---

diff --git a/ChangeLog b/ChangeLog
index ea1591ffea..c9ee4e792b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2005-02-15  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+	* scripts/convert-ly.py: new slur dash patch by Bertalan Fodor.
+
 2005-02-12  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
 	* scm/define-grob-properties.scm (all-user-grob-properties):
diff --git a/Documentation/user/notation.itely b/Documentation/user/notation.itely
index 14665f888a..e16894bb1f 100644
--- a/Documentation/user/notation.itely
+++ b/Documentation/user/notation.itely
@@ -2089,6 +2089,8 @@ be achieved in LilyPond by setting @code{doubleSlurs},
 @code{\slurDown},
 @cindex @code{\slurNeutral}
 @code{\slurNeutral},
+@cindex @code{\slurDashed}
+@code{\slurDashed},
 @cindex @code{\slurDotted}
 @code{\slurDotted},
 @cindex @code{\slurSolid}
diff --git a/THANKS b/THANKS
index ba47639895..bbae33962f 100644
--- a/THANKS
+++ b/THANKS
@@ -11,6 +11,7 @@ Graham Percival   - Documentation Editor
 
 CONTRIBUTORS
 
+Bertalan Fodor
 Christian Hitz
 Erlend Aasland
 Arno Waschk
diff --git a/ly/property-init.ly b/ly/property-init.ly
index 52d4e7e419..bdc433603d 100644
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -12,11 +12,11 @@ slurNeutral = \revert Slur #'direction
 
 % There's also dash, but setting dash period/length should be fixed.
 slurDashed = {
-	\override Slur #'dash-period = #1
+	\override Slur #'dash-period = #0.75
 	\override Slur #'dash-fraction = #0.4
 }
 slurDotted = {
-	\override Slur  #'dash-period = #1
+	\override Slur  #'dash-period = #0.75
 	\override Slur #'dash-fraction = #0.1
 }
 slurSolid = {
diff --git a/scripts/convert-ly.py b/scripts/convert-ly.py
index 1f0cea3ad7..ace5a8cae7 100644
--- a/scripts/convert-ly.py
+++ b/scripts/convert-ly.py
@@ -2323,6 +2323,15 @@ conversions.append (((2, 5, 2),
 		     conv,
 		     'ly:find-glyph-by-name -> ly:font-get-glyph, remove - from glyphnames.'))
 
+def conv (str):
+	str = re.sub (r"\\override\s+(Voice\.)?Slur #'dashed\s*=\s*#\d*(\.\d+)?",
+		      r"\\slurDashed", str)		      
+	return str
+
+conversions.append (((2, 5, 12),
+		     conv,
+		     '\set Slur #\'dashed = #X -> \slurDashed'))
+
 
 ################################
 #	END OF CONVERSIONS