input/test/coriolan-margin.ly

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