define(s, `comma(translit($*,` ', `,'))')
define(t, r16 [$1$4 $2 $3] [$2 $1 $2 $6$1] r $1$7 r $5$1 |)
-rh = \melodic{
+one = \melodic{
\octave c';
\textstyle "italic";
%# s(`c' `es' `g' `\p(\<' `\!' `)\!' `\>')
s('bes d g)
- s(c fis a -"poco a poco cresc.")
+%# s(c fis a -"poco a poco cresc.")
+ t(c,fis,a,-"poco a poco cresc.")
s(d g bes)
s(d fis c')
s('fis 'a c)
s('fis 'a c)
r16\p ['g 'a c] ['b 'g 'b 'g] r 'g r 'g
- s('a c fis -"poco cresc.")
+%# s('a c fis -"poco cresc.")
+ t('a,c,fis,-"poco cresc.")
s(c fis a)
s('b d g)
s('b d f -"dim.")
\bar "|.";
}
-lh = \melodic{
+two = \melodic{
\octave c;
\clef bass;
% c4 r [g8-.(\ped )es-.\*] |
'd4 r ['bes8 'g] |
'd4 r [es8 c] |
- 'd4 r [d8 c] |
+ 'd4 r [d8 a] |
'g4 r [es8 c] |
'g4 r [d8 'b] |
\key bes es as;
}
+treble_staff = \type Staff = treble <
+ \global
+ \one
+>
+
+bass_staff = \type Staff = bass <
+% bass = Staff <
+ \clef "bass";
+ \global
+ \two
+>
+
+grand_staff = \type Grandstaff <
+ \treble_staff
+ \bass_staff
+>
+
+a4 = \paper{
+ \paper_twenty
+ linewidth= 195.\mm;
+}
+
\score{
% Semplice e non troppo legato
- \melodic \type Grandstaff <
- <
- \global
- \rh
- >
- <
- \global
- \lh
- >
- >
- \paper{
- \paper_twenty
- linewidth= 195.\mm;
- }
- \midi{
- \tempo 4 = 90;
- }
+ \grand_staff
+ \paper{ \a4 }
+ \midi{ \tempo 4 = 100; }
}