input/test/bagpipe.ly

   1 \version "1.7.6"
   2
   3 % bagpipe music.
   4
   5 \header
   6 {
   7  title="Flower of Scotland"
   8 }
   9
  10 \paper {
  11   linewidth = 14.0 \cm
  12   indent = 0.0 \cm
  13   \translator {
  14         \GraceContext
  15
  16         NoteHead \override #'font-relative-size = #-2
  17         NoteHead \override #'font-relative-size = #-2
  18         Stem \override #'stroke-style = #""
  19     % The following determines the length of stems without beams
  20     % default is between 2.8 and 4.0 depending on the number of flags
  21          Stem \override #'length = #6
  22         Stem \override #'font-relative-size = #-2
  23         GraceAlignItem \override #'horizontal-space = #1
  24         Stem \override #'stroke-style = #""
  25
  26   }
  27   \translator { \StaffContext
  28         TimeSignature \override #'style = #'C
  29 %       TimeSignature \override #'visibility-function = #begin-of-line-visible
  30         TimeSignature \override #'break-visibility = #begin-of-line-visible
  31   }
  32 }
  33
  34
  35 \notenames #'(
  36         (g . ( 0 4 0 ))
  37         (a . ( 0 5 0 ))
  38         (b . ( 0 6 0 ))
  39         (c . ( 1 0 0 ))
  40         (d . ( 1 1 0 ))
  41         (e . ( 1 2 0 ))
  42         (f . ( 1 3 0 ))
  43 )
  44
  45
  46
  47 taor =  \notes{ \grace { [g32 d g e]}}
  48 grip =  \notes{ \grace { [g32 b g ]}}
  49 thrd =  \notes{ \grace { [g32 d c] }}
  50 birl =  \notes{ \grace { [g32 a g] }}
  51 gstd =  \notes{ \grace { [g'32 d g] }}
  52  lgg = \notes{ \grace { g32 }}
  53  lag = \notes{ \grace { a32 }}
  54  fgg = \notes{ \grace { [f32 g'32] }}
  55 dblb =  \notes{ \grace { [g'32 b d] }}
  56 dblc =  \notes{ \grace { [g'32 c d] }}
  57 dble =  \notes{ \grace { [g'32 e f] }}
  58 dblf =  \notes{ \grace { [g'32 f g'] }}
  59 dblg =  \notes{ \grace { [g'32 f] }}
  60 dbla =  \notes{ \grace { [a'32 g'] }}
  61 cg   = \notes{ \grace { c32 }}
  62 eg   = \notes{ \grace { e32 }}
  63 gg   = \notes{ \grace { g'32 }}
  64 dg   = \notes{ \grace { d32 }}
  65 hag  = \notes{ \grace { a'32 }}
  66 gefg =  \notes{ \grace { [g'32 e f] }}
  67 efg  = \notes{ \grace { [e32 f] }}
  68 gdcg =  \notes{ \grace { [g'32 d c]}}
  69 gcdg =  \notes{ \grace { [g'32 c d]}}
  70
  71
  72
  73 %
  74 \score {
  75   \notes { \time 6/8 \partial 4
  76   \tieUp
  77   \slurUp
  78 f4 |
  79 \gg f4 e8 \thrd d4. |
  80 \eg a4.()a4 d8 |
  81 \gg d4 f8 \dble e4. ( | \noBreak
  82 )e8 d4 \gg d4 e8 |
  83
  84 \break
  85 \time 9/8
  86 \dblf f2.( )f4 d8 |
  87 \time 6/8
  88 \dblg g'4 a'8 \gg a'4. |
  89 \thrd d4.( )d4 \eg a8 |
  90 \time 9/8
  91 \dble e4 \lag e8 \gg [e16 d8. e8] \gg f4 g'8 |
  92
  93 \break
  94 \time 6/8
  95 \gg f4 e8 \thrd d4. |
  96 \eg a4.( )a4 d8 |
  97 \dblg g'4 a'8 \gg a'4. |
  98 \thrd d4.( )d4 f8 |
  99
 100 \break
 101 \dblg g'4 e4 \dblf [f8. e16] |
 102 \thrd d4.( )d4 \cg d8 |
 103 \gg c4 e8 \thrd d4.( |
 104 )d4. \gdcg d4.
 105   }
 106 }
 107 %% new-chords-done %%