input/test/bagpipe.ly

   1 \version "2.1.26"
   2
   3 \header {
   4  texidoc = "@cindex Bagpipe Music
   5 Here's an example of bagpipe music.
   6 "
   7 }
   8
   9 % doen't work??
  10 %#(add-to-grace-init "Voice" 'Stem 'font-relative-size )
  11
  12 \paper {
  13   linewidth = 14.0 \cm
  14   indent = 0.0 \cm
  15   \translator { \StaffContext
  16         \override TimeSignature #'style = #'C
  17 %       \override TimeSignature #'visibility-function = #begin-of-line-visible
  18         \override TimeSignature #'break-visibility = #begin-of-line-visible
  19   }
  20 }
  21
  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]}}
  45
  46
  47
  48 %
  49 \score {
  50   \notes  { \time 6/8 \partial 4
  51
  52  #(add-grace-property 'Voice 'Stem 'length 6)
  53  #(add-grace-property 'Voice 'Stem 'stroke-style '())
  54
  55
  56   \tieUp
  57   \slurUp
  58 f4 |
  59 \gg f4 e8 \thrd d4. |
  60 \eg a4.(a4) d8 |
  61 \gg d4 f8 \dble e4. ( | \noBreak
  62 e8) d4 \gg d4 e8 |
  63
  64 \break
  65 \time 9/8
  66 \dblf f2.( f4) d8 |
  67 \time 6/8
  68 \dblg g'4 a'8 \gg a'4. |
  69 \thrd d4.( d4) \eg a8 |
  70 \time 9/8
  71 \dble e4 \lag e8 \gg  e16[ d8. e8] \gg f4 g'8 |
  72
  73 \break
  74 \time 6/8
  75 \gg f4 e8 \thrd d4. |
  76 \eg a4.( a4) d8 |
  77 \dblg g'4 a'8 \gg a'4. |
  78 \thrd d4.( d4) f8 |
  79
  80 \break
  81 \dblg g'4 e4 \dblf  f8.[ e16] |
  82 \thrd d4.( d4) \cg d8 |
  83 \gg c4 e8 \thrd d4.( |
  84 d4.) \gdcg d4.
  85   }
  86 }
  87