4 texidoc
= "@cindex Bagpipe Music
5 Here's an example of bagpipe music.
10 %#(add-to-grace-init "Voice" 'Stem 'font-relative-size )
15 \translator { \StaffContext
16 TimeSignature
\override #'style
= #'C
17 % TimeSignature \override #'visibility-function = #begin-of-line-visible
18 TimeSignature
\override #'break-visibility
= #begin-of-line-visible
22 taor
= \notes{ \grace { g32[ d g e]}}
23 grip
= \notes{ \grace { g32[ b g ]}}
24 thrd
= \notes{ \grace { g32[ d c] }}
25 birl
= \notes{ \grace { g32[ a g] }}
26 gstd
= \notes{ \grace { g'32[ d g] }}
27 lgg
= \notes{ \grace { g32 }}
28 lag
= \notes{ \grace { a32 }}
29 fgg
= \notes{ \grace { f32[ g'32] }}
30 dblb
= \notes{ \grace { g'32[ b d] }}
31 dblc
= \notes{ \grace { g'32[ c d] }}
32 dble
= \notes{ \grace { g'32[ e f] }}
33 dblf
= \notes{ \grace { g'32[ f g'] }}
34 dblg
= \notes{ \grace { g'32[ f] }}
35 dbla
= \notes{ \grace { a'32[ g'] }}
36 cg
= \notes{ \grace { c32 }}
37 eg
= \notes{ \grace { e32 }}
38 gg
= \notes{ \grace { g'32 }}
39 dg
= \notes{ \grace { d32 }}
40 hag
= \notes{ \grace { a'32 }}
41 gefg
= \notes{ \grace { g'32[ e f] }}
42 efg
= \notes{ \grace { e32[ f] }}
43 gdcg
= \notes{ \grace { g'32[ d c]}}
44 gcdg
= \notes{ \grace { g'32[ c d]}}
50 \notes { \time 6/8 \partial 4
52 #(add-grace-property
'Voice
'Stem
'length
6)
53 #(add-grace-property
'Voice
'Stem
'stroke-style
'())
61 \gg d4 f8 \dble e4. ( |
\noBreak
68 \dblg g'4 a'8 \gg a'4. |
69 \thrd d4.( d4) \eg a8 |
71 \dble e4 \lag e8 \gg e16[ d8. e8] \gg f4 g'8 |
77 \dblg g'4 a'8 \gg a'4. |
81 \dblg g'4 e4 \dblf f8.[ e16] |
82 \thrd d4.( d4) \cg d8 |
83 \gg c4 e8 \thrd d4.( |