From: David Kastrup Date: Wed, 25 Jul 2012 15:32:42 +0000 (+0200) Subject: Issue 2696/3: scm/song.scm: fix faulty calculation of durations. X-Git-Tag: release/2.15.42-1~20 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f21789776945f9df614b41bf768607ddb92057a4;p=lilypond.git Issue 2696/3: scm/song.scm: fix faulty calculation of durations. --- diff --git a/scm/song.scm b/scm/song.scm index 71eb03d72f..171ef6e191 100644 --- a/scm/song.scm +++ b/scm/song.scm @@ -134,10 +134,7 @@ (define *tempo-compression* #f) (define (duration->number duration) - (let* ((log (ly:duration-log duration)) - (dots (ly:duration-dot-count duration)) - (factor (ly:duration-factor duration))) - (exact->inexact (* (expt 2 (- log)) (+ 1 (/ dots 2)) (/ (car factor) (cdr factor)))))) + (exact->inexact (ly:moment-main (ly:duration-length duration)))) (define (tempo->beats music) (let* ((tempo-spec (find-child-named music 'SequentialMusic))