%}
\score{
- \staff{ \inputregister{melodicregs}
- \melodic{ \octave c';
+ \melodic <\multi 3;
+ { \octave c';
\meter 8/4;
\duration8;
- \stem 1; [c c'' a' f']
+ \stem \up; [c c'' a' f']
\duration16;
- \stem 1; [c c'' a' f']
+ \stem \up; [c c'' a' f']
\duration32;
- \stem 1; [c c'' a' f']
+ \stem \up; [c c'' a' f']
\duration64;
- \stem 1; [c c'' a' f']
+ \stem \up; [c c'' a' f']
\duration128;
- \stem 1; [c c'' a' f']
+ \stem \up; [c c'' a' f']
\duration 8;
- \stem 1; ['g 'g 'g 'g]
+ \stem \up; ['g 'g 'g 'g]
\duration 16;
- \stem 1; ['g 'g 'g 'g]
+ \stem \up; ['g 'g 'g 'g]
\duration 32;
- \stem 1; ['g 'g 'g 'g]
+ \stem \up; ['g 'g 'g 'g]
\duration 64;
- \stem 1; ['g 'g 'g 'g]
+ \stem \up; ['g 'g 'g 'g]
\duration 128;
- \stem 1; ['g 'g 'g 'g]
+ \stem \up; ['g 'g 'g 'g]
}
- }
- \staff{ \inputregister{melodicregs}
- \melodic{ \octave c';
+
+ { \octave c';
\meter 8/4;
\duration8;
- \stem -1; [a' 'a c e]
+ \stem \down; [a' 'a c e]
\duration16;
- \stem -1; [a' 'a c e]
+ \stem \down; [a' 'a c e]
\duration32;
- \stem -1; [a' 'a c e]
+ \stem \down; [a' 'a c e]
\duration64;
- \stem -1; [a' 'a c e]
+ \stem \down; [a' 'a c e]
\duration128;
- \stem -1; [a' 'a c e]
+ \stem \down; [a' 'a c e]
\octave c;
\duration 8;
- \stem -1; [d'' d'' d'' d'']
+ \stem \down; [d'' d'' d'' d'']
\duration 16;
- \stem -1; [d'' d'' d'' d'']
+ \stem \down; [d'' d'' d'' d'']
\duration 32;
- \stem -1; [d'' d'' d'' d'']
+ \stem \down; [d'' d'' d'' d'']
\duration 64;
- \stem -1; [d'' d'' d'' d'']
+ \stem \down; [d'' d'' d'' d'']
\duration 128;
- \stem -1; [d'' d'' d'' d'']
+ \stem \down; [d'' d'' d'' d'']
}
- }
- \paper{}
-}
+ >}
+
+
two_voice = \melodic
< \multi 2;
- { \octave c'; \stem -1;
+ { \octave c'; \stem \down;
c4 d e f g2~ g4 a [c8 d e f] c2| }
- { \stem 1;
+ { \stem \up;
g4 f e g ~ g2 g2 c4 g4 g2 }
>
two_voice_steminvert = \melodic
< \multi 2;
- { \octave c'; \stem 1;
+ { \octave c'; \stem \up;
% the f and g on 4th beat are exceptionally ugh.
c4 d e f g2 g4 a | }
- { \stem -1;
+ { \stem \down;
g4 f e g g2 g2 }
>
three_voice = \melodic
< \multi 2;
- { \stem 1;
+ { \stem \up;
g4 f e f g a g2 }
- { \hshift 1; \stem 1;
+ { \hshift 1; \stem \up;
e2 e2 e2 e2 }
- { \stem -1;
+ { \stem \down;
c4 d e d c d es }
>
rests = \melodic
< \multi 2;
- { \stem 1;
+ { \stem \up;
| r8 r r r r r r r
[c' b a g] [f e d c]
}
- { \stem -1;
+ { \stem \down;
[c8 d e f] [g a b c']
r r r r r r r r
}
restsII = \melodic {
\octave c';
< \multi2;
- { \stem 1; g' f' e' d' c' b a g f e d c }
- { \stem -1; r r r r r r r r r r r r }
+ { \stem \up; g' f' e' d' c' b a g f e d c }
+ { \stem \down; r r r r r r r r r r r r }
>
< \multi2;
- { \stem 1; r r r r r r r r r r r r }
- { \stem -1; c d e f g a b c' d' e' f' g' }
+ { \stem \up; r r r r r r r r r r r r }
+ { \stem \down; c d e f g a b c' d' e' f' g' }
>
r8 r4
< \multi2; r8 r8 >
< \multi2; r8 r8 r8 r8 >
< \multi2; r r >
< \multi2; r r r >
- \stem 1;
+ \stem \up;
[c''8 r8 c''8 c''8]
[c8 r8 c8 c8]
- \stem -1;
+ \stem \down;
[c8 r8 c8 c8]
[c''8 r8 c''8 c''8]
}
+% remark: still temporarily broken.
%{MudelaHeader
filename: coriolan-alto.ly
\melodic
{ \octave c'; c4 c4
< \multi 1; { c2 c2 } { c'2 c'2 } >
- < \multi 2; { \stem -1; c2 c2 } { \stem 1; c'2 c'2 } >
+ < \multi 2; { \stem \down; c2 c2 } { \stem \up; c'2 c'2 } >
< \multi 3; { \clef "bass"; c2 c2 } { \meter 2/4;\bar "||"; \key fis cis gis; c'2 c'2 } >
c2 c1
c1 c1
< [ e'8 g > d' cis'_"2" e' a~ g ] |
%%11
< \multi 2;
- {\stem 1; a4~ d'4 cis'4-. }
- { \stem -1; f2 e4 } > |
+ {\stem \up; a4~ d'4 cis'4-. }
+ { \stem \down; f2 e4 } > |
%%12
< [ g'8^"4" d > f' e' f' d'^"3"~ c' ] |
%%13
\clef "alto";
< \multi 2;
- { \stem 1; bes2 c'4 }
- { \stem -1; g4~ f4 e4 }% ugh
+ { \stem \up; bes2 c'4 }
+ { \stem \down; g4~ f4 e4 }% ugh
> |
%%14
< [ a8 f > g a f ] < d'4-\upbow e4 'bes4 > |
< { [ c'8 ( bes a )bes g~ bes ] } { [ d ] } { [ g ] } > |
%%21
< \multi 2;
- {\stem 1; d'4 (\stem 1; ) cis'4 d'4 }
- { \stem -1; g2 f4 }
+ {\stem \up; d'4 (\stem \up; ) cis'4 d'4 }
+ { \stem \down; g2 f4 }
> |
%%22
< { [ g8 ~ f g e ] } { [ cis ] } > < f4 d4 > |
{ e ~ f }
>
< \multi 2;
- { \stem 1; c'8 ~g ~e( ~c~ [c'~ g' e' )c'] c'' ~ c'' c~c }
- { \stem -1; c (e g )c'~( [b a g )d] r2 }
+ { \stem \up; c'8 ~g ~e( ~c~ [c'~ g' e' )c'] c'' ~ c'' c~c }
+ { \stem \down; c (e g )c'~( [b a g )d] r2 }
>
}
%%48
\textstyle "italic";
<
- { fis2.~ \group "+1"; \stem -1; f2. }
- { d'2. ~ \stem 1; d'4 r4_"decresc." d'4 }
+ { fis2.~ \group "+1"; \stem \down; f2. }
+ { d'2. ~ \stem \up; d'4 r4_"decresc." d'4 }
>
\textstyle "roman"; |
%%50
''a r4 |
%%5
\duration 8;
- < \multi 2; { \stem 1;
+ < \multi 2; { \stem \up;
[ 'f 'a d 'a d 'a ]
[ 'd 'e 'g 'e 'g 'e ]
[ 'cis 'e 'g 'e 'g e ]
[ 'd 'a d 'a d 'a ]
}
- { \stem -1;
+ { \stem \down;
'd2 r4
''bes2 r4
''a2 r4
[ 'd 'a d 'a d 'a ] |
%%11
< \multi 2;
- { \stem 1;
+ { \stem \up;
[ 'f 'a d 'a d 'a ]
[ 'd 'e 'g 'e 'g 'e ]
[ 'e 'g 'bes 'g 'bes 'g ]
[ 'a c f c f c ]
- } { \stem -1;
+ } { \stem \down;
'd2 r4
''bes2 r4
'c2 r4
%%16
[ ''f 'c 'f 'c 'f 'c ] |
< \multi 2;
- { \stem 1;
+ { \stem \up;
[ ''a 'e 'g 'e 'g 'e ][ 'd 'a d 'a d 'a ]
[ ''bes 'f 'bes 'f 'bes 'f ][ ''f 'c 'f 'c 'f 'c ] }
- { \stem -1;
+ { \stem \down;
''a2 r4
'd2 r4
''bes2 r4
%%22
[ 'f 'a c 'a 'f 'c ] |
< \multi 2; {
- \stem 1;
+ \stem \up;
[ ''a 'e 'g 'e 'g 'e ]
[ 'd 'fis 'a 'fis 'a 'fis ]
[ ''g 'd 'b 'd 'b 'd ]
[ 'd 'a d 'a d 'a ]
}
- {\stem -1;
+ {\stem \down;
''a2 r4
'd2 r4
''g2 r4
%%44
< [ 'd ''b > 'fis 'b 'fis 'b 'fis ] |
%%45
- < \multi 2; { \stem 1;
+ < \multi 2; { \stem \up;
[ ''g 'd 'b 'd 'b 'd ]
[ 'd 'a d 'a d 'a ]
} {
- \stem -1;
+ \stem \down;
''g2 r4
'd2 r4
} >
% 13 -- how to type -- where to split -- this more neatly ?
\octave c';
<\multi 2;
- { \stem 1; r4 dis'4 e'4.-. e'8( | \hshift 1; )e'4 [d'8 fis'8] \hshift 0; gis'4 [gis'8 fis'16 e'16] | fis'4~ [fis'8 e'16 dis'16] e'4 r8 e'8 }
- { \stem 1; \hshift 1; r4 bis4 cis'4-. cis'4 | \hshift 0; a'4~ [a'16 gis'16 a'16 b'16] \hshift 1; dis'4 cis'4~ [cis'8 dis'16 a16] bis4 cis'4 r8 b8 }
- { \stem -1; r4 < gis4 fis4 dis4 > gis4-. gis4 | a4. cis'8 gis2 | fis4 gis4 gis4 r8 e8 }
+ { \stem \up; r4 dis'4 e'4.-. e'8( | \hshift 1; )e'4 [d'8 fis'8] \hshift 0; gis'4 [gis'8 fis'16 e'16] | fis'4~ [fis'8 e'16 dis'16] e'4 r8 e'8 }
+ { \stem \up; \hshift 1; r4 bis4 cis'4-. cis'4 | \hshift 0; a'4~ [a'16 gis'16 a'16 b'16] \hshift 1; dis'4 cis'4~ [cis'8 dis'16 a16] bis4 cis'4 r8 b8 }
+ { \stem \down; r4 < gis4 fis4 dis4 > gis4-. gis4 | a4. cis'8 gis2 | fis4 gis4 gis4 r8 e8 }
> |
% 16
}
\clef bass;
% 13
<\multi 2;
- { \stem 1; bis2 cis'4-. cis'4~ [cis'8 a8 d'8 cis'8] [bis8 gis8] cis'4 | dis'2 cis'4 r8 cis'8 }
- { \stem 1; \hshift 1; r4 gis4. gis8~ gis4 | \stem -1; \hshift 0; a4. fis8 gis4. a8~ a4 gis4-. gis4 r8 gis8 }
- { \stem -1; r4 < dis4 fis4 > < cis4 e4 > }
+ { \stem \up; bis2 cis'4-. cis'4~ [cis'8 a8 d'8 cis'8] [bis8 gis8] cis'4 | dis'2 cis'4 r8 cis'8 }
+ { \stem \up; \hshift 1; r4 gis4. gis8~ gis4 | \stem \down; \hshift 0; a4. fis8 gis4. a8~ a4 gis4-. gis4 r8 gis8 }
+ { \stem \down; r4 < dis4 fis4 > < cis4 e4 > }
> |
% 16
}
% 15
\octave c';
<\multi 2;
- { \stem 1; [b8 fis8] b4 }
- { \stem -1; fis2 }
+ { \stem \up; [b8 fis8] b4 }
+ { \stem \down; fis2 }
>
%{ this chord is usually set like this:
|
|
%}
< \multi 2;
- { \stem 1; \hshift 0; e'4 }
- { \stem 1; \hshift 1; cis'4 }
- { \stem 1; \hshift 2; ais4 }
- { \stem -1; fis4 }
+ { \stem \up; \hshift 0; e'4 }
+ { \stem \up; \hshift 1; cis'4 }
+ { \stem \up; \hshift 2; ais4 }
+ { \stem \down; fis4 }
> |
% 16
<\multi 2;
- { \stem 1; dis'2 dis'4 | cis'2 cis'4 | b4~ [b8 cis'8 dis'8 e'8] }
- { \stem 1; \hshift 1; [b8 fis8] b2~ [b8 a16 g16] a2 | a4 gis2 }
- { \stem -1; fis2.~ fis2.~ fis4 e2 }
+ { \stem \up; dis'2 dis'4 | cis'2 cis'4 | b4~ [b8 cis'8 dis'8 e'8] }
+ { \stem \up; \hshift 1; [b8 fis8] b2~ [b8 a16 g16] a2 | a4 gis2 }
+ { \stem \down; fis2.~ fis2.~ fis4 e2 }
> |
% 19
}
% 15
b2
<\multi 2;
- { \stem 1; ais4 | bes2. }
- { \stem -1; e4 | fis2 fis4 }
+ { \stem \up; ais4 | bes2. }
+ { \stem \down; e4 | fis2 fis4 }
>
% 17
cis'2 e'4 |
\clef "violin";
\octave c';
- \stem -1;
+ \stem \down;
r8 [c'16 b] [c'8 g] [as c'16 b] [c'8 d'] |
[g c'16 b] [c'8 d'] [f16 g] as4 [g16 f] |
[es c' b a] [g f! es d] [c8 es' d' c'] |
comes =
\melodic {
\octave c'';
- \stem 1;
+ \stem \up;
r1 |
r1 |
r8 [g16 fis] [g8 c] [es g16 fis] [g8 a] |
[d c g G]
%% 30
< \multi 2;
- { \stem 1; c2~ | c1~ | c1 }
- { \stem -1; C2~ | C1~ | C1 }
+ { \stem \up; c2~ | c1~ | c1 }
+ { \stem \down; C2~ | C1~ | C1 }
>
}