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.( |