*** empty log message ***

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

diff --git a/input/test/bagpipe.ly b/input/test/bagpipe.ly
index 8367f093d821124ce3c7c6e69fcc28f57719823f..2926cfd851a250b4c64ae0595545a195569aa6a4 100644 (file)
--- a/input/test/bagpipe.ly
+++ b/input/test/bagpipe.ly
@@ -1,4 +1,4 @@
-\version "1.7.18"
+\version "2.1.22"
 
 \header {
  texidoc = "@cindex Bagpipe Music
@@ -6,11 +6,8 @@ Here's an example of bagpipe music.
 "
 }
 
-#(add-to-grace-init "Voice" 'Stem 'length 6)
-#(add-to-grace-init "Voice" 'Stem 'stroke-style '())
-
 % doen't work??  
-%#(add-to-grace-init "Voice" 'Stem 'font-relative-size -)
+%#(add-to-grace-init "Voice" 'Stem 'font-relative-size )
 
 \paper {
   linewidth = 14.0 \cm
@@ -22,64 +19,69 @@ Here's an example of bagpipe music.
   }    
 }
 
-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] }}
+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'] }}
+ 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]}}
+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
+  \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 |
+\eg a4.(a4) d8 |
 \gg d4 f8 \dble e4. ( | \noBreak
-e8-) d4 \gg d4 e8 |
+e8) d4 \gg d4 e8 |
 
 \break
 \time 9/8
-\dblf f2.( f4-) d8 |
+\dblf f2.( f4) d8 |
 \time 6/8
 \dblg g'4 a'8 \gg a'4. |
-\thrd d4.( d4-) \eg a8 |
+\thrd d4.( d4) \eg a8 |
 \time 9/8
-\dble e4 \lag e8 \gg  e16-[ d8. e8] \gg f4 g'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 |
+\eg a4.( a4) d8 |
 \dblg g'4 a'8 \gg a'4. |
-\thrd d4.( d4-) f8 |
+\thrd d4.( d4) f8 |
 
 \break
-\dblg g'4 e4 \dblf  f8.-[ e16] |
-\thrd d4.( d4-) \cg d8 |
+\dblg g'4 e4 \dblf  f8.[ e16] |
+\thrd d4.( d4) \cg d8 |
 \gg c4 e8 \thrd d4.( |
-d4.-) \gdcg d4.
+d4.) \gdcg d4.
   }
 }
-%% new-chords-done %%
+