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
  13 texidoc = "@cindex Orchestra Score
  14 @cindex Coriolan Score
  15 Demonstration of how to set up an orchestral score (Beethoven's Coriolan overture).
  16 " }
  17
  18 \include "paper16.ly"
  19
  20 raisedFlat = \markup { \raise #0.4 \smaller \smaller \musicglyph #"accidentals--1"  }
  21
  22
  23
  24 flauti = \notes \relative c' {
  25   \property Staff.instrument    = #"2 Flauti"
  26   \property Staff.instr         = #"Fl."
  27   \time 4/4
  28   c1
  29   \break c
  30 %  \break c
  31 %  \break c
  32   \bar"|."
  33 }
  34
  35 oboi = \notes \relative c' {
  36   \property Staff.instrument    = #"2 Oboi"
  37   \property Staff.instr         = #"Ob."
  38   c1 c
  39 }
  40
  41 clarinetti = \notes \relative c' {
  42     \property Staff.instrument
  43         = \markup { \column << "Clarinetti" { "in B" \raisedFlat } >> }
  44     \property Staff.instr
  45         = \markup { \smaller  { "Cl(B" \raisedFlat ")" } }
  46
  47   c1 c
  48 }
  49
  50 fagotti = \notes \relative c' {
  51   \property Staff.instrument    = #"2 Fagotti"
  52   \property Staff.instr         = #"Fg."
  53   c1 c
  54 }
  55
  56 corni = \notes \relative c' {
  57     \property Staff.instrument
  58         = \markup { \column << "Corni" { "in E" \raisedFlat } >> }
  59     \property Staff.instr
  60         = \markup { \smaller  { "Cor(E" \raisedFlat ")" } }
  61
  62   c1 c
  63 }
  64
  65 trombe = \notes \relative c' {
  66   \property Staff.instrument    = \markup \column << "2 Trombe" "(C)" >>
  67   \property Staff.instr         = \markup \column <<  "Tbe." "(C)" >>
  68
  69   c1 c
  70 }
  71
  72 timpani = \notes \relative c' {
  73   \property Staff.instrument    = \markup \column << "Timpani" "(C-G)" >>
  74   \property Staff.instr         = #"Timp."
  75
  76   c1 c
  77 }
  78
  79 violinoI = \notes \relative c' {
  80   \property Staff.instrument    = #"Violino I  "
  81   \property Staff.instr         = #"Vl. I  "
  82   c1 c
  83 }
  84
  85 violinoII = \notes \relative c' {
  86   \property Staff.instrument    = #"Violino II  "
  87   \property Staff.instr         = #"Vl. II  "
  88   c1 c
  89 }
  90
  91 viola = \notes \relative c' {
  92   \property Staff.instrument    = #"Viola"
  93   \property Staff.instr         = #"Vla."
  94   c1 c
  95   %c
  96 }
  97
  98 violoncello = \notes \relative c' {
  99   \property Staff.instrument    = \markup \column << "Violoncello" "e" "Contrabasso" >>
 100   \property Staff.instr         = \markup \column <<  "Vc." "Cb." >>
 101   c1 c
 102 }
 103
 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