X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Fbagpipe.ly;h=f834b9d59aed8c26c695173278569ffce602c17e;hb=80bb174de95ebb8a08e5bdfae0855c525b8e7736;hp=68aa570476e4e1d0f7f0bb97588429099a2dd20c;hpb=3db08de4502e30616808fc348b054d32822e5cc4;p=lilypond.git

diff --git a/input/test/bagpipe.ly b/input/test/bagpipe.ly
index 68aa570476..f834b9d59a 100644
--- a/input/test/bagpipe.ly
+++ b/input/test/bagpipe.ly
@@ -1,85 +1,171 @@
-\version "1.7.18"
+\version "2.1.30"
 
 \header {
- texidoc = "@cindex Bagpipe Music
+    texidoc = "@cindex Bagpipe Music
 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 -)
-
 \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 { 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]}}
-
-
+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)
 
-% 
-\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.
-  }
+	    \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.
+	}
+    }
 }
-