input/test/coriolan-margin.ly

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