From 42840bbfdfe82eddc8e04026865aef278b80fc0a Mon Sep 17 00:00:00 2001 From: Graham Percival Date: Fri, 10 Jun 2011 15:12:47 +0100 Subject: [PATCH] event-listener.ly: durations of rests and notes. --- ly/event-listener.ly | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/ly/event-listener.ly b/ly/event-listener.ly index 538d74dc5f..9089750263 100644 --- a/ly/event-listener.ly +++ b/ly/event-listener.ly @@ -119,7 +119,9 @@ optionally outputs to the console as well." (print-line engraver "rest" (ly:duration->string - (ly:event-property event 'duration)))) + (ly:event-property event 'duration)) + (format-moment (ly:duration-length + (ly:event-property event 'duration))))) #(define (format-note engraver event) (let* ((origin (ly:input-file-line-char-column @@ -129,6 +131,8 @@ optionally outputs to the console as well." ;; get a MIDI pitch value. (+ 60 (ly:pitch-semitones (ly:event-property event 'pitch))) + (ly:duration->string + (ly:event-property event 'duration)) (format-moment (ly:duration-length (ly:event-property event 'duration))) ;; point and click info -- 2.39.2