]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/test/coriolan-margin.ly
Fix some bugs in the dynamic engraver and PostScript backend
[lilypond.git] / input / test / coriolan-margin.ly
index 842b45bce0fb151ee0d4f1ce1baf1391f811351a..8bfd8ce3aa828b03413f5652a1389425a5e44c06 100644 (file)
 
-\header{
-%% URG
-Clarinetti ="\\vbox to0pt{\vss\\hbox to0pt{\\hss2 Clarinetti\\hss}\\hbox to0pt{\\hss (B\\textflat)\\hss}\vss}";
-Cl ="\\vbox to0pt{\vss\\hbox to0pt{\\hss Cl.\\hss}\\hbox to0pt{\\hss (B\\textflat)\\hss}\vss}";
-Corni ="\\vbox to0pt{\vss\\hbox to0pt{\\hss2 Corni\\hss}\\hbox to0pt{\\hss (E\\textflat)\\hss}\vss}";
-Cor ="\\vbox to0pt{\vss\\hbox to0pt{\\hss Cor.\\hss}\\hbox to0pt{\\hss (E\\textflat)\\hss}\vss}";
-Trombe ="\\vbox to0pt{\vss\\hbox to0pt{\\hss2 Trombe\\hss}\\hbox to0pt{\\hss (C)\\hss}\vss}";
-Tbe ="\\vbox to0pt{\vss\\hbox to0pt{\\hss Tbe.\\hss}\\hbox to0pt{\\hss (C)\\hss}\vss}";
-Timpani ="\\vbox to0pt{\vss\\hbox to0pt{\\hss Timpani\\hss}\\hbox to0pt{\\hss (C-G)\\hss}\vss}";
-VioloncelloContrabasso ="\\hss\\vbox to0pt{\vss\\hbox to0pt{\\hss Violoncello\\hss}\\hbox to0pt{\\hss e\\hss}\\hbox to0pt{\\hss Contrabasso\\hss}\vss}";
-VcCb ="\\hss\\vbox to0pt{\vss\\hbox to0pt{\\hss Vc.\\hss}\\hbox to0pt{\\hss Cb.\\hss}\vss}";
-}
+\version "2.7.39"
+
+
+% Ugh, we need to override some LaTeX titling stuff
+\header {
+  title =      "Ouvertüre"
+  subtitle =   "Zu Heinrich Joseph v. Collins Trauerspiel"
+  subsubtitle =        \markup { \large \bold "Coriolan" }
+  opus = "Op. 62"
+  piece = \markup { \large Allegro con brio }
+  composer =    "Ludwig van Beethoven (1770-1827)"
+
+texidoc = "@cindex Orchestra Score
+@cindex Coriolan Score
+In an orchestral score (Beethoven's Coriolan overture), there are 
+different instrument groups, and some of the instruments may be
+transposed. Instruments are indicated either with a long or short name.
+" }
+
+#(set-global-staff-size 16)
+
+raisedFlat = \markup { \raise #0.4 \smaller \smaller \flat  }
+
+
 
-flauti = \notes \relative c' {
-  \property Staff.instrument   = #"2 Flauti"
-  \property Staff.instr                = #"Fl."
-  c1 \break c
-  \bar"|.";
+flauti =  \relative c' {
+  \set Staff.instrument = #"2 Flauti"
+  \set Staff.instr = #"Fl."
+  \time 4/4
+  c1 
+  \break c
+%  \break c
+%  \break c
+  \bar"|."
 }
 
-oboi = \notes \relative c' {
-  \property Staff.instrument   = #"2 Oboi"
-  \property Staff.instr                = #"Ob."
+oboi =  \relative c' {
+  \set Staff.instrument = #"2 Oboi"
+  \set Staff.instr = #"Ob."
   c1 c
 }
 
-clarinetti = \notes \relative c' {
-  %%\property Staff.instrument = #"\\mudelaClarinetti         "
-  %%\property Staff.instr      = #"\\mudelaCl    "
-
-  \property Staff.instrument   = #"2 Clarinetti\n(B\\textflat)"
-  \property Staff.instr                = #"Cl.\n(B\\textflat)"
+clarinetti =  \relative c' {
+    \set Staff.instrument = \markup { \column { "Clarinetti" \line { "in B" \raisedFlat } } }
+    \set Staff.instr = \markup { \smaller  { "Cl(B" \raisedFlat ")" } }
 
   c1 c
 }
 
-fagotti = \notes \relative c' {
-  \property Staff.instrument   = #"2 Fagotti"
-  \property Staff.instr                = #"Fg."
+fagotti =  \relative c' {
+  \set Staff.instrument = #"2 Fagotti"
+  \set Staff.instr = #"Fg."
   c1 c
 }
 
-corni = \notes \relative c' {
-  %%\property Staff.instrument = #"\\mudelaCorni      "
-  %%\property Staff.instr      = #"\\mudelaCor    "
-
-  \property Staff.instrument   = #"2 Corni\n(E\\textflat)"
-  \property Staff.instr                = #"Cor.\n(E\\textflat)"
+corni =  \relative c' {
+    \set Staff.instrument = \markup { \column { "Corni" \line { "in E" \raisedFlat } } }
+    \set Staff.instr = \markup { \smaller  { "Cor(E" \raisedFlat ")" } }
 
   c1 c
 }
 
-trombe = \notes \relative c' {
-  %%\property Staff.instrument = #"\\mudelaTrombe        "
-  %%\property Staff.instr      = #"\\mudelaTbe    "
-
-  \property Staff.instrument   = #"2 Trombe\n(C)"
-  \property Staff.instr                = #"Tbe.\n(C)"
+trombe =  \relative c' {
+  \set Staff.instrument = \markup \column { "2 Trombe" "(C)" }
+  \set Staff.instr = \markup \column {  "Tbe." "(C)" }
 
   c1 c
 }
 
-timpani = \notes \relative c' {
-  %%\property Staff.instrument = #"\\mudelaTimpani         "
-  %%\property Staff.instr      = #"Timp."
-
-  \property Staff.instrument   = #"Timpani\n(C-G)"
-  \property Staff.instr                = #"Timp."
+timpani =  \relative c' {
+  \set Staff.instrument = \markup \column { "Timpani" "(C-G)" }
+  \set Staff.instr = #"Timp."
 
   c1 c
 }
 
-violino1 = \notes \relative c' {
-  \property Staff.instrument   = #"Violino I"
-  \property Staff.instr                = #"Vl. I"
+violinoI =  \relative c' {
+  \set Staff.instrument = #"Violino I  "
+  \set Staff.instr = #"Vl. I  "
   c1 c
 }
 
-violino2 = \notes \relative c' {
-  \property Staff.instrument   = #"Violino II"
-  \property Staff.instr                = #"Vl. II"
+violinoII =  \relative c' {
+  \set Staff.instrument = #"Violino II  "
+  \set Staff.instr = #"Vl. II  "
   c1 c
 }
 
-viola = \notes \relative c' {
-  \property Staff.instrument   = #"Viola"
-  \property Staff.instr                = #"Vla."
+viola =  \relative c' {
+  \set Staff.instrument = #"Viola"
+  \set Staff.instr = #"Vla."
+  c1 c 
+  %c
+}
+
+violoncello =  \relative c' {
+  \set Staff.instrument = \markup \column { "Violoncello" "e" "Contrabasso" }
+  \set Staff.instr = \markup \column {  "Vc." "Cb." }
   c1 c
 }
 
-violoncello = \notes \relative c' {
-  %%\property Staff.instrument = #"\\mudelaVioloncelloContrabasso         "
-  %%\property Staff.instr      = #"\\mudelaVcCb    "
 
-  \property Staff.instrument   = #"Violoncello\ne\nContrabasso"
-  \property Staff.instr                = #"Vc.\nCb."
-  c1 c
+\paper {
+    indent=10.0\mm
+    line-width=150.0\mm
+    ragged-bottom = ##t 
 }
 
-\score {
-  < 
-    \context StaffGroup ="legni" < 
-      \context Staff ="flauti" \flauti
-      \context Staff ="oboi" \oboi
-      \context Staff ="clarinetti" \clarinetti 
-      \context Staff ="fagotti" \fagotti 
-    >
-    \context StaffGroup ="ottoni" <
-      \context Staff ="corni" \corni
-      \context Staff ="trombe" \trombe
-    >
-    \context StaffGroup ="timpani" <
-      \context Staff ="timpani" \timpani
-    >
-    \context StaffGroup ="archi" <
-      \context GrandStaff ="violini" <
-        \context Staff ="violino1" \violino1
-        \context Staff ="violino2" \violino2
-      >
-      \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 {
-       indent=100.0\mm;
-       linewidth=150.0\mm;
-    \translator {
-      \StaffContext
-      \consists Staff_margin_engraver;
-      staffMarginHorizontalPadding = #-12
+#(set-global-staff-size 16)
+\book {
+    \score {
+      << 
+       \new StaffGroup = "legni" << 
+         \new Staff = "flauti" \flauti
+         \new Staff = "oboi" \oboi
+         \new Staff = "clarinetti" \clarinetti 
+         \new Staff = "fagotti" \fagotti 
+       >>
+       \new StaffGroup = "ottoni" <<
+         \new Staff = "corni" \corni
+         \new Staff = "trombe" \trombe
+       >>
+       \new StaffGroup = "timpani" <<
+         \new Staff = "timpani" \timpani
+        { 
+          \skip 1 
+          % Hmm: this forces a staff-bracket, that's good!
+          % However, I can't find where is decided on staff-bracket yes/no
+        }
+       >>
+       \new StaffGroup = "archi" <<
+         \new GrandStaff = "violini" <<
+           \new Staff = "violinoI" \violinoI
+           \new Staff = "violinoII" \violinoII
+         >>
+         \new Staff = "viola" \viola
+         \new Staff = "violoncello" \violoncello
+       >>
+      >>
+      \layout {
+         \context {
+             \RemoveEmptyStaffContext
+         }
+         \context {
+             \Score
+             \override TimeSignature #'style = #'C
+         }
+      }
+    }
+    % this is ignored?
+    \paper {
+       indent=10.0\mm
+       line-width=150.0\mm
     }
-  }
 }
 
+%% Local Variables:
+%% coding: utf-8
+%% End: