Allow non-integer numbers as bend deltas, too

This patch adds the ability to write microtone bends in lilypond
(MusicXML supports such microtone bends where the delta is
not an integer, but e.g. 3.5).

diff --git a/input/regression/bend-after.ly b/input/regression/bend-after.ly
index 6cd8d1ec4f91778338d669b749462bdc9f772bd5..1d40e9dd3efea935112ce2393eb933177b20bb56 100644 (file)
--- a/input/regression/bend-after.ly
+++ b/input/regression/bend-after.ly
@@ -3,7 +3,8 @@
 \header {
 
   texidoc = "Falls and doits can be created with bendAfter. They run
- to the next note, or to the next barline."
+ to the next note, or to the next barline. Microtone bends (i.e. 
+ \bendAfter #3.5) are also supported."
 
 }
 
@@ -22,4 +23,13 @@
   c4-\bendAfter #-2
   c4-\bendAfter #-3
   c4-\bendAfter #-4
+  c4-\bendAfter #-5
+  c4-\bendAfter #3.5
+  c4-\bendAfter #2.5
+  c4-\bendAfter #1.5
+  c4-\bendAfter #0.5
+  c4-\bendAfter #-0.5
+  c4-\bendAfter #-1.5
+  c4-\bendAfter #-2.5
+  c4-\bendAfter #-3.5
 }

diff --git a/input/regression/musicxml/02a-Notations-MusicXML.xml b/input/regression/musicxml/02a-Notations-MusicXML.xml
index 72408732ce87eab79a5ced407557660f4e31398b..431a80ffc902c4bb7f1c218273055e036a3afa5b 100644 (file)
--- a/input/regression/musicxml/02a-Notations-MusicXML.xml
+++ b/input/regression/musicxml/02a-Notations-MusicXML.xml
@@ -1019,7 +1019,7 @@
             <bend><bend-alter>3</bend-alter><release/><with-bar/></bend>
           </technical>
         </notations>
-        <lyric number="1"><text>bend 3 with-bar</text></lyric>
+        <lyric number="1"><text>b.3 with-bar</text></lyric>
       </note>
       <note>
         <pitch>
@@ -1030,10 +1030,10 @@
         <type>quarter</type>
         <notations>
           <technical>
-            <bend><bend-alter>-5</bend-alter><pre-bend/></bend>
+            <bend><bend-alter>-0.5</bend-alter><pre-bend/></bend>
           </technical>
         </notations>
-        <lyric number="1"><text>pre-bend -(0.)5</text></lyric>
+        <lyric number="1"><text>pre-b. -0.5</text></lyric>
       </note>
       <note>
         <pitch>
@@ -1044,10 +1044,10 @@
         <type>quarter</type>
         <notations>
           <technical>
-            <bend><bend-alter>5</bend-alter><release/></bend>
+            <bend><bend-alter>3.5</bend-alter><release/></bend>
           </technical>
         </notations>
-        <lyric number="1"><text>bend release (3.)5</text></lyric>
+        <lyric number="1"><text>b. release 3.5</text></lyric>
       </note>
     </measure>
     <measure number="20">

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index c88759853991c1f7265c931bd3b37bbf49d64dc7..95b5cc5cc87eb25ae32d07079b7a9c76a6a2cd92 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -144,7 +144,7 @@ breathe =
               'elements (list (make-music 'BreathingEvent))))
 
 bendAfter =
-#(define-music-function (parser location delta) (integer?)
+#(define-music-function (parser location delta) (real?)
              
   (make-music 'BendAfterEvent
    'delta-step delta))