input/regression/event-listener-output.ly

   1 \version "2.19.22"
   2
   3 \header {
   4   texidoc = "Music events can be extracted from a score with event
   5 listeners."
   6   title = "Black-box Testing"
   7   composer = "Graham Percival"
   8 }
   9
  10 #(define EVENT_LISTENER_CONSOLE_OUTPUT 1)
  11
  12 \include "event-listener.ly"
  13
  14
  15
  16 st =
  17 #(define-music-function
  18   (text)
  19   (string?)
  20 #{
  21   \override TextSpanner.bound-details.left.text = $text
  22 #})
  23
  24
  25 vlnone = \new Staff {
  26   \set Staff.instrumentName = "violin-1"
  27   \set Staff.midiInstrument = "violin"
  28   \override TextSpanner.style = #'line
  29   \override TextSpanner.bound-details.right.padding = #-1
  30   \override TextSpanner.bound-details.left.stencil-align-dir-y =
  31     #CENTER
  32   \override TextSpanner.bound-details.right.text =
  33     \markup { \draw-line #'(0 . -1) }
  34 \relative {
  35   \key d \major
  36   \tempo 4 = 96
  37
  38   a4\f d fis8-. a-. r4
  39   d16(\downbow cis b a) g4 \breathe e8\p( g) fis4 |
  40
  41   e4\< \glissando g8 fis g4-_\mp\>
  42     \st "III"
  43     b8-_\startTextSpan a-_\stopTextSpan
  44     b4\p\<( d8 cis) d4(-. fis8-.^"II" e-.^"II")
  45   fis16(\mf\downbow g a b c\> b a g) fis(\upbow e d c) b(\downbow a g fis)
  46   e16\mp\upbow ~ e-.\mp r8 e'-.\upbow^"tip" r e,4->^"mb" r4 |
  47
  48   \key d \minor
  49   \time 3/4
  50   \tempo 4 = 120
  51   d4.\mf^"pizz." e8 f4
  52   f'4. e8 d4
  53   d,4.\mp c8 bes4 |
  54   \tempo 4 = 88
  55   a16\p e' a e' a,,32\f e' a e' r8 r4
  56   d4^"arco"^"lh"\> \acciaccatura { c8 } bes4 \acciaccatura { a8 } g4
  57   \st "III"
  58   fis16\p\startTextSpan a_"II" g a_"II" a a_"II" bes a_"II"
  59     c a_"II" bes a_"II"\stopTextSpan
  60   a4\breathe a,\breathe r4 |
  61 }
  62
  63
  64   \bar "|."
  65 }
  66
  67 \score {
  68   << \vlnone >>
  69   \layout{}
  70   \midi{}
  71 }