-\version "1.7.18"
+\version "2.3.4"
\header {
- title="Flower of Scotland"
- texidoc = "@cindex Bagpipe Music
-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 {
+ \Staff
+ \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 = { \grace {
+ g32[ d' g e']
+}
+ }
+grip = {
+ \grace {
+ g32[ b g ]
+ }
+}
+thrd = {
+ \grace {
+ g32[ d' c']
+ }
+}
+birl = {
+ \grace {
+ g32[ a g]
+ }
+}
+gstd = {
+ \grace {
+ g'32[ d' g]
+ }
+}
+lgg = {
+ \grace {
+ g32
+ }
+}
+lag = {
+ \grace {
+ a32
+ }
+}
+fgg = {
+ \grace {
+ f32[ g'32]
+ }
+}
+dblb = {
+ \grace {
+ g'32[ b d']
+ }
+}
+dblc = {
+ \grace {
+ g'32[ c' d']
+ }
+}
+dble = {
+ \grace {
+ g'32[ e' f']
+ }
+}
+dblf = {
+ \grace {
+ g'32[ f' g']
+ }
+}
+dblg = {
+ \grace {
+ g'32[ f']
+ }
+}
+dbla = {
+ \grace {
+ a'32[ g']
+ }
+}
+cg = {
+ \grace {
+ c'32
+ }
+}
+eg = {
+ \grace {
+ e'32
+ }
+}
+gg = {
+ \grace {
+ g'32
+ }
+}
+dg = {
+ \grace {
+ d'32
+ }
+}
+hag = {
+ \grace {
+ a'32
+ }
+}
+gefg = {
+ \grace {
+ g'32[ e' f']
+ }
+}
+efg = {
+ \grace {
+ e'32[ f']
+ }
+}
+gdcg = {
+ \grace {
+ g'32[ d' c']
+ }
+}
+gcdg = {
+ \grace {
+ g'32[ c' d']
+ }
+}
+
+\score {
+ {
+ \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.
- }
-}
-%% 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.
+ }
+ }
+}