+\version "1.7.19"
-#(define raisedflat '((raise . 0.4) (music (named "accidentals--1"))))
+
+% Ugh, we need to override some LaTeX titling stuff
+\header {
+ title = "Ouvertüre\\vrule width0pt height 0pt depth 1ex"
+ subtitle = "\\normalsize Zu Heinrich Joseph v. Collins Trauerspiel\\vrule width0pt height 0pt depth 1ex"
+ subsubtitle = "\\Large\\bf Coriolan"
+ opus = "Op. 62"
+ piece = "\\hspace*{30mm}\\normalfont\\large Allegro con brio"
+ composer = "Ludwig van Beethoven (1770-1827)"
+
+texidoc = "@cindex Orchestra Score
+@cindex Coriolan Score
+Demonstration of how to set up an orchestral score (Beethoven's Coriolan overture).
+" }
+
+raisedFlat = \markup { \raise #0.4 \smaller \smaller \musicglyph #"accidentals--1" }
flauti = \notes \relative c' {
\property Staff.instrument = #"2 Flauti"
\property Staff.instr = #"Fl."
- \time 4/4;
+ \time 4/4
c1
\break c
% \break c
% \break c
- \bar"|.";
+ \bar"|."
}
oboi = \notes \relative c' {
}
clarinetti = \notes \relative c' {
- \property Staff.instrument = #`(lines "2 Clarinetti" (rows "(B" ,raisedflat ")"))
- \property Staff.instr = #`(lines "Cl." (rows "(B" ,raisedflat ")"))
+ \property Staff.instrument
+ = \markup { \column << "Clarinetti" { "in B" \raisedFlat } >> }
+ \property Staff.instr
+ = \markup { \smaller { "Cl(B" \raisedFlat ")" } }
c1 c
}
}
corni = \notes \relative c' {
- \property Staff.instrument = #`(lines "2 Corni" (rows "(E" ,raisedflat ")"))
- \property Staff.instr = #`(lines "Cor." (rows "(E" ,raisedflat ")"))
+ \property Staff.instrument
+ = \markup { \column << "Corni" { "in E" \raisedFlat } >> }
+ \property Staff.instr
+ = \markup { \smaller { "Cor(E" \raisedFlat ")" } }
c1 c
}
trombe = \notes \relative c' {
- \property Staff.instrument = #'(lines "2 Trombe" "(C)")
- \property Staff.instr = #'(lines "Tbe." "(C)")
+ \property Staff.instrument = \markup \column << "2 Trombe" "(C)" >>
+ \property Staff.instr = \markup \column << "Tbe." "(C)" >>
c1 c
}
timpani = \notes \relative c' {
- \property Staff.instrument = #'(lines "Timpani" "(C-G)")
+ \property Staff.instrument = \markup \column << "Timpani" "(C-G)" >>
\property Staff.instr = #"Timp."
c1 c
}
-violino1 = \notes \relative c' {
- \property Staff.instrument = #"Violino I"
- \property Staff.instr = #"Vl. I"
+violinoI = \notes \relative c' {
+ \property Staff.instrument = #"Violino I "
+ \property Staff.instr = #"Vl. I "
c1 c
}
-violino2 = \notes \relative c' {
- \property Staff.instrument = #"Violino II"
- \property Staff.instr = #"Vl. II"
+violinoII = \notes \relative c' {
+ \property Staff.instrument = #"Violino II "
+ \property Staff.instr = #"Vl. II "
c1 c
}
}
violoncello = \notes \relative c' {
- \property Staff.instrument = #'(lines "Violoncello" "e" "Contrabasso")
- \property Staff.instr = #'(lines "Vc." "Cb.")
+ \property Staff.instrument = \markup \column << "Violoncello" "e" "Contrabasso" >>
+ \property Staff.instr = \markup \column << "Vc." "Cb." >>
c1 c
}
-\include "paper16.ly"
\score {
<
\context StaffGroup ="timpani" <
\context Staff ="timpani" \timpani
{
- \skip 1;
+ \skip 1
% Hmm: this forces a staff-bracket, that's good!
% However, I can't find where is decided on staff-bracket yes/no
}
>
\context StaffGroup ="archi" <
\context GrandStaff ="violini" <
- \context Staff ="violino1" \violino1
- \context Staff ="violino2" \violino2
+ \context Staff ="violinoI" \violinoI
+ \context Staff ="violinoII" \violinoII
>
\context Staff ="viola" \viola
\context Staff ="violoncello" \violoncello
>
>
- \header{
- title = "Coriolan";
- subtitle = "Ouverture";
- opus = "Opus 62";
- composer = "Ludwig van Beethoven (1770-1827)";
- enteredby = "JCN";
- copyright = "public domain";
- }
-
\paper {
- \paper_sixteen
- indent=100.0\mm;
- linewidth=150.0\mm;
+ \paperSixteen
+ indent=100.0\mm
+ linewidth=150.0\mm
\translator {
- \HaraKiriStaffContext
+ \RemoveEmptyStaffContext
}
\translator {
\OrchestralScoreContext
- timeSignatureStyle = #"C"
+ TimeSignature \override #'style = #'C
}
}
}
+%% new-chords-done %%