From f21789776945f9df614b41bf768607ddb92057a4 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Wed, 25 Jul 2012 17:32:42 +0200 Subject: [PATCH] Issue 2696/3: scm/song.scm: fix faulty calculation of durations. --- scm/song.scm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) 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)) -- 2.39.2