From 5c0b029a7aba0dbed2c46d77bcc32c0dca54df49 Mon Sep 17 00:00:00 2001 From: Graham Percival Date: Fri, 23 Mar 2012 23:47:25 +0000 Subject: [PATCH] event-listener.ly: add glissando --- input/regression/event-listener-output.ly | 2 +- ly/event-listener.ly | 5 +++++ 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/input/regression/event-listener-output.ly b/input/regression/event-listener-output.ly index 38c0960936..b49524fa79 100644 --- a/input/regression/event-listener-output.ly +++ b/input/regression/event-listener-output.ly @@ -38,7 +38,7 @@ vlnone = \new Staff { a4\f d fis8-. a-. r4 d16(\downbow cis b a) g4 \breathe e8\p( g) fis4 | - e4\< g8 fis g4-_\mp\> + e4\< \glissando g8 fis g4-_\mp\> \st "III" b8-_\startTextSpan a-_\stopTextSpan b4\p\<( d8 cis) d4(-. fis8-.^"II" e-.^"II") diff --git a/ly/event-listener.ly b/ly/event-listener.ly index 72a3e2407d..899d0825a3 100644 --- a/ly/event-listener.ly +++ b/ly/event-listener.ly @@ -151,6 +151,10 @@ as an engraver for convenience." (print-line engraver "breathe")) +#(define (format-glissando engraver event) + (print-line engraver + "gliss")) + #(define (format-tie engraver event) (print-line engraver "tie")) @@ -218,6 +222,7 @@ as an engraver for convenience." (crescendo-event . format-cresc) (decrescendo-event . format-decresc) (text-span-event . format-textspan) + (glissando-event . format-glissando) (tie-event . format-tie))) } } -- 2.39.2