From ffdffb6d5ec02e90cb4e71959cd266d08462ee3e Mon Sep 17 00:00:00 2001 From: Graham Percival Date: Sat, 18 Jun 2011 02:13:18 +0100 Subject: [PATCH] event-listener.ly: add ties to demonstration --- input/regression/event-listener-output.ly | 8 ++++---- ly/event-listener.ly | 5 +++++ 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/input/regression/event-listener-output.ly b/input/regression/event-listener-output.ly index 9108433c12..a6784bdf35 100644 --- a/input/regression/event-listener-output.ly +++ b/input/regression/event-listener-output.ly @@ -43,16 +43,16 @@ vlnone = \new Staff { b8-_\startTextSpan a-_\stopTextSpan b4\p\<( d8 cis) d4(-. fis8-.^"II" e-.^"II") fis16(\mf\downbow g a b c\> b a g) fis(\upbow e d c) b(\downbow a g fis) - e8-.\mp\upbow r e'-.\upbow^"tip" r e,4->^"mb" r4 + e16\mp\upbow ~ e-.\mp r e'-.\upbow^"tip" r e,4->^"mb" r4 \key d \minor \time 3/4 \tempo 4 = 120 - d4.\f^"pizz." e8 f4 + d4.\mf^"pizz." e8 f4 f'4. e8 d4 - d,4.\p c8 bes4 + d,4.\mp c8 bes4 \tempo 4 = 88 - a16\mp e' a e' a,,32\f e' a e' r8 r4 + a16\p e' a e' a,,32\f e' a e' r8 r4 d4^"arco"^"lh"\> \acciaccatura { c8 } bes4 \acciaccatura { a8 } g4 \st "III" fis16\p\startTextSpan a_"II" g a_"II" a a_"II" bes a_"II" diff --git a/ly/event-listener.ly b/ly/event-listener.ly index 7ba28602e6..f8d547ef7c 100644 --- a/ly/event-listener.ly +++ b/ly/event-listener.ly @@ -151,6 +151,10 @@ optionally outputs to the console as well." (print-line engraver "breathe")) +#(define (format-tie engraver event) + (print-line engraver + "tie")) + #(define (format-articulation engraver event) (print-line engraver "script" @@ -215,6 +219,7 @@ optionally outputs to the console as well." (cons 'crescendo-event format-cresc) (cons 'decrescendo-event format-decresc) (cons 'text-span-event format-textspan) + (cons 'tie-event format-tie) ))) } } -- 2.39.2