From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Wed, 12 Mar 2008 22:19:14 +0000 (+0100)
Subject: Allow non-integer numbers as bend deltas, too
X-Git-Tag: release/2.11.43-1~40^2^2~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=22ed600e31c77aa33cdb1793339813231f23131e;p=lilypond.git

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 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))