From 22ed600e31c77aa33cdb1793339813231f23131e Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Wed, 12 Mar 2008 23:19:14 +0100
Subject: [PATCH] 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).
---
 input/regression/bend-after.ly                       | 12 +++++++++++-
 input/regression/musicxml/02a-Notations-MusicXML.xml | 10 +++++-----
 ly/music-functions-init.ly                           |  2 +-
 3 files changed, 17 insertions(+), 7 deletions(-)

diff --git a/input/regression/bend-after.ly b/input/regression/bend-after.ly
index 6cd8d1ec4f..1d40e9dd3e 100644
--- 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 72408732ce..431a80ffc9 100644
--- 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 c887598539..95b5cc5cc8 100644
--- 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))
-- 
2.39.2