input/test/bagpipe.ly

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