input/test/coriolan-margin.ly

   1 \version "1.7.19"
   2
   3
   4 % Ugh, we need to override some LaTeX titling stuff
   5 \header {
   6   title =       "Ouvertüre\\vrule width0pt height 0pt depth 1ex"
   7   subtitle =    "\\normalsize Zu Heinrich Joseph v. Collins Trauerspiel\\vrule width0pt height 0pt depth 1ex"
   8   subsubtitle = "\\Large\\bf Coriolan"
   9   opus =  "Op. 62"
  10   piece = "\\hspace*{30mm}\\normalfont\\large Allegro con brio"
  11   composer =     "Ludwig van Beethoven (1770-1827)"
  12   enteredby =    "JCN"
  13
  14
  15 texidoc = "@cindex Orchestra Score
  16 @cindex Coriolan Score
  17 Demonstration of how to set up an orchestral score (Bethoven's Coriolan overture).
  18 " }
  19
  20 raisedFlat = \markup { \raise #0.4 \smaller \smaller \musicglyph #"accidentals--1"  }
  21
  22 flauti = \notes \relative c' {
  23   \property Staff.instrument    = #"2 Flauti"
  24   \property Staff.instr         = #"Fl."
  25   \time 4/4
  26   c1
  27   \break c
  28 %  \break c
  29 %  \break c
  30   \bar"|."
  31 }
  32
  33 oboi = \notes \relative c' {
  34   \property Staff.instrument    = #"2 Oboi"
  35   \property Staff.instr         = #"Ob."
  36   c1 c
  37 }
  38
  39 clarinetti = \notes \relative c' {
  40 %   \property Staff.instrument = #`("Clarinetti in B" ,text-flat)
  41     \property Staff.instrument
  42         = \markup { \column << "Clarinetti" { "in B" \raisedFlat } >> }
  43     \property Staff.instr
  44         = \markup { \smaller  { "Cl(B" \raisedFlat ")" } }
  45
  46   c1 c
  47 }
  48
  49 fagotti = \notes \relative c' {
  50   \property Staff.instrument    = #"2 Fagotti"
  51   \property Staff.instr         = #"Fg."
  52   c1 c
  53 }
  54
  55 corni = \notes \relative c' {
  56     \property Staff.instrument
  57         = \markup { \column << "Corni" { "in E" \raisedFlat } >> }
  58     \property Staff.instr
  59         = \markup { \smaller  { "Cor(E" \raisedFlat ")" } }
  60
  61   c1 c
  62 }
  63
  64 trombe = \notes \relative c' {
  65   \property Staff.instrument    = \markup \column << "2 Trombe" "(C)" >>
  66   \property Staff.instr         = \markup \column <<  "Tbe." "(C)" >>
  67
  68   c1 c
  69 }
  70
  71 timpani = \notes \relative c' {
  72   \property Staff.instrument    = \markup \column << "Timpani" "(C-G)" >>
  73   \property Staff.instr         = #"Timp."
  74
  75   c1 c
  76 }
  77
  78 violinoI = \notes \relative c' {
  79   \property Staff.instrument    = #"Violino I  "
  80   \property Staff.instr         = #"Vl. I  "
  81   c1 c
  82 }
  83
  84 violinoII = \notes \relative c' {
  85   \property Staff.instrument    = #"Violino II  "
  86   \property Staff.instr         = #"Vl. II  "
  87   c1 c
  88 }
  89
  90 viola = \notes \relative c' {
  91   \property Staff.instrument    = #"Viola"
  92   \property Staff.instr         = #"Vla."
  93   c1 c
  94   %c
  95 }
  96
  97 violoncello = \notes \relative c' {
  98   \property Staff.instrument    = \markup \column << "Violoncello" "e" "Contrabasso" >>
  99   \property Staff.instr         = \markup \column <<  "Vc." "Cb." >>
 100   c1 c
 101 }
 102
 103 \include "paper16.ly"
 104
 105 \score {
 106   <
 107     \context StaffGroup ="legni" <
 108       \context Staff ="flauti" \flauti
 109       \context Staff ="oboi" \oboi
 110       \context Staff ="clarinetti" \clarinetti
 111       \context Staff ="fagotti" \fagotti
 112     >
 113     \context StaffGroup ="ottoni" <
 114       \context Staff ="corni" \corni
 115       \context Staff ="trombe" \trombe
 116     >
 117     \context StaffGroup ="timpani" <
 118       \context Staff ="timpani" \timpani
 119      {
 120        \skip 1
 121        % Hmm: this forces a staff-bracket, that's good!
 122        % However, I can't find where is decided on staff-bracket yes/no
 123      }
 124     >
 125     \context StaffGroup ="archi" <
 126       \context GrandStaff ="violini" <
 127         \context Staff ="violinoI" \violinoI
 128         \context Staff ="violinoII" \violinoII
 129       >
 130       \context Staff ="viola" \viola
 131       \context Staff ="violoncello" \violoncello
 132     >
 133   >
 134   \paper {
 135         \paperSixteen
 136         indent=100.0\mm
 137         linewidth=150.0\mm
 138     \translator {
 139       \RemoveEmptyStaffContext
 140     }
 141     \translator {
 142       \OrchestralScoreContext
 143       TimeSignature \override #'style = #'C
 144     }
 145   }
 146 }
 147
 148 %% new-chords-done %%