input/test/bagpipe.ly

   1 \version "1.9.2"
   2
   3 \header {
   4  texidoc = "@cindex Bagpipe Music
   5 Here's an example of bagpipe music.
   6 "
   7 }
   8
   9 #(add-to-grace-init "Voice" 'Stem 'length 6)
  10 #(add-to-grace-init "Voice" 'Stem 'stroke-style '())
  11
  12 % doen't work??
  13 %#(add-to-grace-init "Voice" 'Stem 'font-relative-size )
  14
  15 \paper {
  16   linewidth = 14.0 \cm
  17   indent = 0.0 \cm
  18   \translator { \StaffContext
  19         TimeSignature \override #'style = #'C
  20 %       TimeSignature \override #'visibility-function = #begin-of-line-visible
  21         TimeSignature \override #'break-visibility = #begin-of-line-visible
  22   }
  23 }
  24
  25 taor =  \notes{ \grace {  g32[ d g e]}}
  26 grip =  \notes{ \grace {  g32[ b g ]}}
  27 thrd =  \notes{ \grace {  g32[ d c] }}
  28 birl =  \notes{ \grace {  g32[ a g] }}
  29 gstd =  \notes{ \grace {  g'32[ d g] }}
  30  lgg = \notes{ \grace { g32 }}
  31  lag = \notes{ \grace { a32 }}
  32  fgg = \notes{ \grace {  f32[ g'32] }}
  33 dblb =  \notes{ \grace {  g'32[ b d] }}
  34 dblc =  \notes{ \grace {  g'32[ c d] }}
  35 dble =  \notes{ \grace {  g'32[ e f] }}
  36 dblf =  \notes{ \grace {  g'32[ f g'] }}
  37 dblg =  \notes{ \grace {  g'32[ f] }}
  38 dbla =  \notes{ \grace {  a'32[ g'] }}
  39 cg   = \notes{ \grace { c32 }}
  40 eg   = \notes{ \grace { e32 }}
  41 gg   = \notes{ \grace { g'32 }}
  42 dg   = \notes{ \grace { d32 }}
  43 hag  = \notes{ \grace { a'32 }}
  44 gefg =  \notes{ \grace {  g'32[ e f] }}
  45 efg  = \notes{ \grace {  e32[ f] }}
  46 gdcg =  \notes{ \grace {  g'32[ d c]}}
  47 gcdg =  \notes{ \grace {  g'32[ c d]}}
  48
  49
  50
  51 %
  52 \score {
  53   \notes  { \time 6/8 \partial 4
  54   \tieUp
  55   \slurUp
  56 f4 |
  57 \gg f4 e8 \thrd d4. |
  58 \eg a4.(a4) d8 |
  59 \gg d4 f8 \dble e4. ( | \noBreak
  60 e8) d4 \gg d4 e8 |
  61
  62 \break
  63 \time 9/8
  64 \dblf f2.( f4) d8 |
  65 \time 6/8
  66 \dblg g'4 a'8 \gg a'4. |
  67 \thrd d4.( d4) \eg a8 |
  68 \time 9/8
  69 \dble e4 \lag e8 \gg  e16[ d8. e8] \gg f4 g'8 |
  70
  71 \break
  72 \time 6/8
  73 \gg f4 e8 \thrd d4. |
  74 \eg a4.( a4) d8 |
  75 \dblg g'4 a'8 \gg a'4. |
  76 \thrd d4.( d4) f8 |
  77
  78 \break
  79 \dblg g'4 e4 \dblf  f8.[ e16] |
  80 \thrd d4.( d4) \cg d8 |
  81 \gg c4 e8 \thrd d4.( |
  82 d4.) \gdcg d4.
  83   }
  84 }
  85