chordend = '>>'
+marker_str = '%% new-chords-done %%'
def sub_chords (str):
+ if re.search (marker_str,str):
+ return str
+
str= re.sub (r'\\<', '@STARTCRESC@', str)
str= re.sub (r'\\>', '@STARTDECRESC@', str)
str= re.sub (r'([_^-])>', r'\1@ACCENT@', str)
return str
-print sub_chords (open (sys.argv[1]).read())
+print sub_chords (open (sys.argv[1]).read()) + marker_str
melody = \notes \relative c' {
\partial 8
g8 |
- c4 c8 d [es () d] c4 | f4 f8 g [es() d] c g |
- c4 c8 d [es () d] c4 | d4 es8 d c4.
+ c4 c8 d es-[ ( d-]-) c4 | f4 f8 g es-(-[ d-)-] c g |
+ c4 c8 d es-[ ( d-]-) c4 | d4 es8 d c4.
\bar "|."
}
\include "paper16.ly"
viola = \notes \relative c' \context Voice = viola {
- <c4-\arpeggio g' c>
+ <<c g' c>>4-\arpeggio
\voiceTwo
g'8. b,16
s1 s2. r4
oboes = \notes \relative c'' \context Voice = oboes {
\voiceOne
- s4 g8. b,16 c8 r <e'8. g> <f16 a>
- \grace <e8( g> <d4 )f> <c2 e>
- \times 2/3 { <d8 f> <e g> <f a> }
+ s4 g8. b,16 c8 r <<e' g>>8. <<f a>>16
+ \grace <<e g>>8-( <<d f>>4-) <<c e>>2
+ \times 2/3 { <<d f>>8 <<e g>> <<f a>> }
<
{ \times 2/3 { a8 g c } c2 }
\\
{ f,8 e e2 }
>
- \grace <c,8( e> <)b8. d8.-\trill> <c16 e> |
- [<d ( f> < )f8. a>] <)b,8 d> r [<d16( f> <f8. )a>] <b,8 d> r |
- [<c16( e> < )e8. g>] <c8 e,>
+ \grace <<c, e>>8-( <<b d>>8.-)-\trill <<c e>>16 |
+ [<<d f>>-( << f a>>8.-)] <<b, d>>8 r [<<d f>>16-( <<f a>>8.-)] <<b, d>>8 r |
+ [<<c e>>16-( << e g>>8.-)] <<c e,>>8
}
hoomPah = \repeat unfold 8 \notes
\stemBoth
[c8 c'8] r4
- <g d'> r4
- < { r2 <<e c'>> <<c g'>> } \\
+ <<g d'>> r4
+ < { r2 <<e c'>>4 <<c g'>>8 } \\
{ g2-~ | g4 c8 } >
}
indent = 0.0
linewidth = 15.0 \cm }
}
+%% new-chords-done %%
+
\consists "Phrasing_slur_engraver"
\consists "Slur_engraver"
\consists "Tie_engraver"
- %%\consists "New_tie_engraver"
+ \consists "New_tie_engraver"
\consists "Porrectus_engraver"
\consists "Tuplet_engraver"
\consists "A2_engraver"