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 (Beethoven'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
  41         = \markup { \column << "Clarinetti" { "in B" \raisedFlat } >> }
  42     \property Staff.instr
  43         = \markup { \smaller  { "Cl(B" \raisedFlat ")" } }
  44
  45   c1 c
  46 }
  47
  48 fagotti = \notes \relative c' {
  49   \property Staff.instrument    = #"2 Fagotti"
  50   \property Staff.instr         = #"Fg."
  51   c1 c
  52 }
  53
  54 corni = \notes \relative c' {
  55     \property Staff.instrument
  56         = \markup { \column << "Corni" { "in E" \raisedFlat } >> }
  57     \property Staff.instr
  58         = \markup { \smaller  { "Cor(E" \raisedFlat ")" } }
  59
  60   c1 c
  61 }
  62
  63 trombe = \notes \relative c' {
  64   \property Staff.instrument    = \markup \column << "2 Trombe" "(C)" >>
  65   \property Staff.instr         = \markup \column <<  "Tbe." "(C)" >>
  66
  67   c1 c
  68 }
  69
  70 timpani = \notes \relative c' {
  71   \property Staff.instrument    = \markup \column << "Timpani" "(C-G)" >>
  72   \property Staff.instr         = #"Timp."
  73
  74   c1 c
  75 }
  76
  77 violinoI = \notes \relative c' {
  78   \property Staff.instrument    = #"Violino I  "
  79   \property Staff.instr         = #"Vl. I  "
  80   c1 c
  81 }
  82
  83 violinoII = \notes \relative c' {
  84   \property Staff.instrument    = #"Violino II  "
  85   \property Staff.instr         = #"Vl. II  "
  86   c1 c
  87 }
  88
  89 viola = \notes \relative c' {
  90   \property Staff.instrument    = #"Viola"
  91   \property Staff.instr         = #"Vla."
  92   c1 c
  93   %c
  94 }
  95
  96 violoncello = \notes \relative c' {
  97   \property Staff.instrument    = \markup \column << "Violoncello" "e" "Contrabasso" >>
  98   \property Staff.instr         = \markup \column <<  "Vc." "Cb." >>
  99   c1 c
 100 }
 101
 102 \include "paper16.ly"
 103
 104 \score {
 105   <
 106     \context StaffGroup ="legni" <
 107       \context Staff ="flauti" \flauti
 108       \context Staff ="oboi" \oboi
 109       \context Staff ="clarinetti" \clarinetti
 110       \context Staff ="fagotti" \fagotti
 111     >
 112     \context StaffGroup ="ottoni" <
 113       \context Staff ="corni" \corni
 114       \context Staff ="trombe" \trombe
 115     >
 116     \context StaffGroup ="timpani" <
 117       \context Staff ="timpani" \timpani
 118      {
 119        \skip 1
 120        % Hmm: this forces a staff-bracket, that's good!
 121        % However, I can't find where is decided on staff-bracket yes/no
 122      }
 123     >
 124     \context StaffGroup ="archi" <
 125       \context GrandStaff ="violini" <
 126         \context Staff ="violinoI" \violinoI
 127         \context Staff ="violinoII" \violinoII
 128       >
 129       \context Staff ="viola" \viola
 130       \context Staff ="violoncello" \violoncello
 131     >
 132   >
 133   \paper {
 134         \paperSixteen
 135         indent=100.0\mm
 136         linewidth=150.0\mm
 137     \translator {
 138       \RemoveEmptyStaffContext
 139     }
 140     \translator {
 141       \OrchestralScoreContext
 142       TimeSignature \override #'style = #'C
 143     }
 144   }
 145 }
 146
 147 %% new-chords-done %%