4 texidoc = "Music events can be extracted from a score with event
6 title = "Black-box Testing"
7 composer = "Graham Percival"
10 #(define EVENT_LISTENER_CONSOLE_OUTPUT 1)
12 \include "event-listener.ly"
17 #(define-music-function
21 \override TextSpanner.bound-details.left.text = $text
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 =
32 \override TextSpanner.bound-details.right.text =
33 \markup { \draw-line #'(0 . -1) }
39 d16(\downbow cis b a) g4 \breathe e8\p( g) fis4 |
41 e4\< \glissando g8 fis g4-_\mp\>
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 |
55 a16\p e' a e' a,,32\f e' a e' r8 r4
56 d4^"arco"^"lh"\> \acciaccatura { c8 } bes4 \acciaccatura { a8 } g4
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 |