input/test/bagpipe.ly

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