input/test/coriolan-margin.ly

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