\renameinput "/var/fred/cvs/savannah/lilypond/lilypond-2.0/input/test/bagpipe.ly"

% Generated automatically by: lilypond-book.py
% options are filename=/var/fred/cvs/savannah/lilypond/lilypond-2.0/input/test/bagpipe.ly printfilename
\include "paper16.ly"
\paper  {
  linewidth = 455.244096\pt
  
  
}
\version "1.9.8"

\header {
 texidoc = "@cindex Bagpipe Music
Here's an example of bagpipe music.
"
}

% doen't work??  
%#(add-to-grace-init "Voice" 'Stem 'font-relative-size )

\paper {
  linewidth = 14.0 \cm
  indent = 0.0 \cm
  \translator { \StaffContext
  	TimeSignature \override #'style = #'C
%  	TimeSignature \override #'visibility-function = #begin-of-line-visible
  	TimeSignature \override #'break-visibility = #begin-of-line-visible
  }	
}

taor =  \notes{ \grace {  g32[ d g e]}}
grip =  \notes{ \grace {  g32[ b g ]}}
thrd =  \notes{ \grace {  g32[ d c] }}
birl =  \notes{ \grace {  g32[ a g] }}
gstd =  \notes{ \grace {  g'32[ d g] }}
 lgg = \notes{ \grace { g32 }}
 lag = \notes{ \grace { a32 }}
 fgg = \notes{ \grace {  f32[ g'32] }}
dblb =  \notes{ \grace {  g'32[ b d] }}
dblc =  \notes{ \grace {  g'32[ c d] }}
dble =  \notes{ \grace {  g'32[ e f] }}
dblf =  \notes{ \grace {  g'32[ f g'] }}
dblg =  \notes{ \grace {  g'32[ f] }}
dbla =  \notes{ \grace {  a'32[ g'] }}
cg   = \notes{ \grace { c32 }}
eg   = \notes{ \grace { e32 }}
gg   = \notes{ \grace { g'32 }}
dg   = \notes{ \grace { d32 }}
hag  = \notes{ \grace { a'32 }}
gefg =  \notes{ \grace {  g'32[ e f] }}
efg  = \notes{ \grace {  e32[ f] }}
gdcg =  \notes{ \grace {  g'32[ d c]}}
gcdg =  \notes{ \grace {  g'32[ c d]}}



% 
\score {
  \notes  { \time 6/8 \partial 4

 #(add-grace-property 'Voice 'Stem 'length 6)
 #(add-grace-property 'Voice 'Stem 'stroke-style '())

	    
  \tieUp
  \slurUp
f4 |
\gg f4 e8 \thrd d4. |
\eg a4.(a4) d8 |
\gg d4 f8 \dble e4. ( | \noBreak
e8) d4 \gg d4 e8 |

\break
\time 9/8
\dblf f2.( f4) d8 |
\time 6/8
\dblg g'4 a'8 \gg a'4. |
\thrd d4.( d4) \eg a8 |
\time 9/8
\dble e4 \lag e8 \gg  e16[ d8. e8] \gg f4 g'8 |

\break
\time 6/8
\gg f4 e8 \thrd d4. |
\eg a4.( a4) d8 |
\dblg g'4 a'8 \gg a'4. |
\thrd d4.( d4) f8 |

\break
\dblg g'4 e4 \dblf  f8.[ e16] |
\thrd d4.( d4) \cg d8 |
\gg c4 e8 \thrd d4.( |
d4.) \gdcg d4.
  }
}