input/test/bagpipe.ly

   1 \version "2.3.4"
   2
   3 \header {
   4     texidoc = "@cindex Bagpipe Music
   5 Here's an example of bagpipe music.
   6 "
   7 }
   8
   9 \paper {
  10     linewidth = 14.0 \cm
  11     indent = 0.0 \cm
  12     \context {
  13         \Staff
  14         \override TimeSignature #'style = #'C
  15         \override TimeSignature #'break-visibility = #begin-of-line-visible
  16     }
  17 }
  18
  19 taor =  { \grace {
  20     g32[ d' g e']
  21 }
  22             }
  23 grip =   {
  24     \grace {
  25         g32[ b g ]
  26     }
  27 }
  28 thrd =   {
  29     \grace {
  30         g32[ d' c']
  31     }
  32 }
  33 birl =   {
  34     \grace {
  35         g32[ a g]
  36     }
  37 }
  38 gstd =   {
  39     \grace {
  40         g'32[ d' g]
  41     }
  42 }
  43 lgg =  {
  44     \grace {
  45         g32
  46     }
  47 }
  48 lag =  {
  49     \grace {
  50         a32
  51     }
  52 }
  53 fgg =  {
  54     \grace {
  55         f32[ g'32]
  56     }
  57 }
  58 dblb =   {
  59     \grace {
  60         g'32[ b d']
  61     }
  62 }
  63 dblc =   {
  64     \grace {
  65         g'32[ c' d']
  66     }
  67 }
  68 dble =   {
  69     \grace {
  70         g'32[ e' f']
  71     }
  72 }
  73 dblf =   {
  74     \grace {
  75         g'32[ f' g']
  76     }
  77 }
  78 dblg =   {
  79     \grace {
  80         g'32[ f']
  81     }
  82 }
  83 dbla =   {
  84     \grace {
  85         a'32[ g']
  86     }
  87 }
  88 cg   =  {
  89     \grace {
  90         c'32
  91     }
  92 }
  93 eg   =  {
  94     \grace {
  95         e'32
  96     }
  97 }
  98 gg   =  {
  99     \grace {
 100         g'32
 101     }
 102 }
 103 dg   =  {
 104     \grace {
 105         d'32
 106     }
 107 }
 108 hag  =  {
 109     \grace {
 110         a'32
 111     }
 112 }
 113 gefg =   {
 114     \grace {
 115         g'32[ e' f']
 116     }
 117 }
 118 efg  =  {
 119     \grace {
 120         e'32[ f']
 121     }
 122 }
 123 gdcg =   {
 124     \grace {
 125         g'32[ d' c']
 126     }
 127 }
 128 gcdg =   {
 129     \grace {
 130         g'32[ c' d']
 131     }
 132 }
 133
 134 \score {
 135       {
 136         \time 6/8 \partial 4
 137         \tieUp
 138         \slurUp
 139         \transpose a a' {
 140             #(add-grace-property 'Voice 'Stem 'length 6)
 141
 142             f'4 |
 143             \gg f'4 e'8 \thrd d'4. |
 144             \eg a4.(a4) d'8 |
 145             \gg d'4 f'8 \dble e'4. ( | \noBreak
 146             e'8) d'4 \gg d'4 e'8 |
 147
 148             \break
 149             \time 9/8
 150             \dblf f'2.( f'4) d'8 |
 151             \time 6/8
 152             \dblg g'4 a'8 \gg a'4. |
 153             \thrd d'4.( d'4) \eg a8 |
 154             \time 9/8
 155             \dble e'4 \lag e'8 \gg  e'16[ d'8. e'8] \gg f'4 g'8 |
 156
 157             \break
 158             \time 6/8
 159             \gg f'4 e'8 \thrd d'4. |
 160             \eg a4.( a4) d'8 |
 161             \dblg g'4 a'8 \gg a'4. |
 162             \thrd d'4.( d'4) f'8 |
 163
 164             \break
 165             \dblg g'4 e'8( e'8) \dblf  f'8.[ e'16] |
 166             \thrd d'4.( d'4) \cg d'8 |
 167             \gg c'4 e'8 \thrd d'4.( |
 168             d'4.) \gdcg d'4.
 169         }
 170     }
 171 }