event-listener.ly: add ties to demonstration

diff --git a/input/regression/event-listener-output.ly b/input/regression/event-listener-output.ly
index 9108433c12f358c7757ce791818b40406c479a95..a6784bdf35b684c53723f4adcd0b46281e8f8d29 100644 (file)
--- 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 7ba28602e6e30b7737619e90ecc3d7dd4255df01..f8d547ef7cbeb2106a5d014d465d80eec4314bab 100644 (file)
--- 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)
                      )))
   }
 }