new function featherDurations

diff --git a/ChangeLog b/ChangeLog
index 8993bbb6e5bb34f8749c6825a83e2bf884b091c1..a6931c8a04701b531b97aea03666da8fe454125b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2006-05-06  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
+       * ly/music-functions-init.ly: new function featherDurations
+
        * lily/beam.cc: read grow-direction for feathered beaming.
 
        * Documentation/topdocs/NEWS.tely (Top): typo.

diff --git a/input/regression/beam-feather.ly b/input/regression/beam-feather.ly
index 0d541df622321e1c18373070097bf3a5e1ee943a..2145764a571d98823655f31a193aca0c113d1d03 100644 (file)
--- a/input/regression/beam-feather.ly
+++ b/input/regression/beam-feather.ly
@@ -13,6 +13,11 @@
   indent = #0.0
 }
 
+%
+% Unfortunately this quickly bumps into overflow problems. Should use
+% a linear decrease instead?
+%
+
 \featherDurations #(ly:make-moment 3 4) \relative c'' {
   \override Beam #'grow-direction = #LEFT
   c16[

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index a7818e7e453a5d5cc2bc83205acf9363af992513..16ac73ef728b5656c72d5b620faf616a6440baf4 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -442,10 +442,13 @@ parenthesize =
 
 featherDurations=
 #(define-music-function (parser location factor argument) (ly:moment? ly:music?)
+
+   "Rearrange durations in ARGUMENT so there is an
+acceleration/deceleration. "
+   
    (let*
        ((orig-duration (ly:music-length argument))
-       (multiplier (ly:make-moment 1 1))
-       )
+       (multiplier (ly:make-moment 1 1)))
 
      (music-map 
       (lambda (mus)
@@ -458,7 +461,6 @@ featherDurations=
        mus)
       argument)
 
-     (display (list (ly:music-length argument) orig-duration))
      (ly:music-compress
       argument
       (ly:moment-div orig-duration (ly:music-length argument)))