* GNUmakefile.in: remove stray make out=www

[lilypond.git] / input / test / bagpipe.ly

diff --git a/input/test/bagpipe.ly b/input/test/bagpipe.ly
index b063ae2b0007f06bc1555eea5c13e42596f8e319..f834b9d59aed8c26c695173278569ffce602c17e 100644 (file)
--- a/input/test/bagpipe.ly
+++ b/input/test/bagpipe.ly
@@ -1,87 +1,171 @@
 \version "2.1.30"
 
 \header {
- texidoc = "@cindex Bagpipe Music
-Bagpipe music may contain a lot of grace notes.
+    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
-  \context { \StaffContext
-       \override TimeSignature #'style = #'C
-%      \override TimeSignature #'visibility-function = #begin-of-line-visible
-       \override TimeSignature #'break-visibility = #begin-of-line-visible
-  }    
+    linewidth = 14.0 \cm
+    indent = 0.0 \cm
+    \context {
+       \StaffContext
+       \override TimeSignature #'style = #'C
+       \override TimeSignature #'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 '())
+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 {
+       c'32 
+    }
+}
+eg   = \notes {
+    \grace {
+       e'32 
+    }
+}
+gg   = \notes {
+    \grace {
+       g'32 
+    }
+}
+dg   = \notes {
+    \grace {
+       d'32 
+    }
+}
+hag  = \notes {
+    \grace {
+       a'32 
+    }
+}
+gefg =  \notes {
+    \grace {
+       g'32[ e' f'] 
+    }
+}
+efg  = \notes {
+    \grace {
+       e'32[ f'] 
+    }
+}
+gdcg =  \notes {
+    \grace {
+       g'32[ d' c']
+    }
+}
+gcdg =  \notes {
+    \grace {
+       g'32[ c' d']
+    }
+}
+       
+\score {               
+    \notes  {
+       \time 6/8 \partial 4
+       \tieUp
+       \slurUp
+       \transpose a a' {
+           #(add-grace-property 'Voice 'Stem 'length 6)
 
-           
-  \tieUp
-  \slurUp
-f4 |
-\gg f4 e8 \thrd d4. |
-\eg a4.(a4) d8 |
-\gg d4 f8 \dble e4. ( | \noBreak
-e8) d4 \gg d4 e8 |
+           f'4 |
+           \gg f'4 e'8 \thrd d'4. |
+           \eg a4.(a4) d'8 |
+           \gg d'4 f'8 \dble e'4. ( | \noBreak
+           e'8) d'4 \gg d'4 e'8 |
 
-\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 9/8
+           \dblf f'2.( f'4) d'8 |
+           \time 6/8
+           \dblg g'4 a'8 \gg a'4. |
+           \thrd d'4.( d'4) \eg a8 |
+           \time 9/8
+           \dble e'4 \lag e'8 \gg  e'16[ d'8. e'8] \gg f'4 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
+           \time 6/8
+           \gg f'4 e'8 \thrd d'4. |
+           \eg a4.( a4) d'8 |
+           \dblg g'4 a'8 \gg a'4. |
+           \thrd d'4.( d'4) f'8 |
 
-\break
-\dblg g'4 e4 \dblf  f8.[ e16] |
-\thrd d4.( d4) \cg d8 |
-\gg c4 e8 \thrd d4.( |
-d4.) \gdcg d4.
-  }
+           \break
+           \dblg g'4 e'8( e'8) \dblf  f'8.[ e'16] |
+           \thrd d'4.( d'4) \cg d'8 |
+           \gg c'4 e'8 \thrd d'4.( |
+           d'4.) \gdcg d'4.
+       }
+    }
 }
-