* 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 25afad8feb66a4037da5ba6142e36324d5b3911d..f834b9d59aed8c26c695173278569ffce602c17e 100644 (file)
--- a/input/test/bagpipe.ly
+++ b/input/test/bagpipe.ly
@@ -1,103 +1,171 @@
-% bagpipe music.
+\version "2.1.30"
 
-\header
-{
- title="Flower of Scotland";
+\header {
+    texidoc = "@cindex Bagpipe Music
+Here's an example of bagpipe music.
+"
 }
 
 \paper {
-  linewidth = 14.0 \cm;
-  indent = 0.0 \cm;
-  \translator {
-       \GraceContext
-
-       basicNoteHeadProperties \push #'font-size = #-2
-       basicNoteHeadProperties \push #'font-size = #-2 
-        basicStemProperties \push #'flag-style = ##f
-    % The following determines the length of stems without beams
-    % default is between 2.8 and 4.0 depending on the number of flags
-         basicStemProperties \push #'length = #6       
-        basicStemProperties \push #'font-size = #-2
-       basicGraceAlignItemProperties \push #'horizontal-space = #1
-       basicStemProperties \push #'flag-style = #""
- 
-  }
-  \translator { \StaffContext
-       basicTimeSignatureProperties \push #'style = #"C4/4"
-       basicTimeSignatureProperties \push #'visibility-function = #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;
-  \property Voice.tieVerticalDirection = \up
-  \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.
+       }
+    }
 }