* 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 d648c9604d63c96b42c46f7c493b5c1556e16b6b..f834b9d59aed8c26c695173278569ffce602c17e 100644 (file)
--- a/input/test/bagpipe.ly
+++ b/input/test/bagpipe.ly
@@ -1,98 +1,171 @@
-\version "1.7.18"
+\version "2.1.30"
 
-% bagpipe music.
-
-\header
-{
- title="Flower of Scotland"
+\header {
+    texidoc = "@cindex Bagpipe Music
+Here's an example of bagpipe music.
+"
 }
 
-#(add-to-grace-init NoteHead 'font-relative-size -2)
-#(add-to-grace-init Stem 'stroke-style "")
-#(add-to-grace-init Stem 'length 6)
-#(add-to-grace-init Stem 'font-relative-size -2)
-
 \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
-  }    
+    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 {
+       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)
 
-\notenames #'(
-       (g . ( 0 4 0 ))
-        (a . ( 0 5 0 ))
-        (b . ( 0 6 0 ))
-        (c . ( 1 0 0 ))
-        (d . ( 1 1 0 ))
-        (e . ( 1 2 0 ))
-        (f . ( 1 3 0 ))
-)
-
-
-
-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
-  \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.
-  }
-}
-%% new-chords-done %%
+           \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.
+       }
+    }
+}