input/no-notation/midi-volume-equaliser.ly

   1 #(ly:set-option 'old-relative)
   2 \version "2.9.16"
   3 \header {
   4 texidoc = "@cindex Midi Volume Equaliser
   5 The full orchestra plays a notes, where groups stop one after
   6 another. Use this to tune equalizer settings. "
   7 }
   8
   9 #(set-global-staff-size 16)
  10
  11 %{
  12
  13 Override, see scm/midi.scm:
  14
  15 #(set! instrument-equalizer-alist
  16       (append
  17        '(
  18          ("flute" . (0 . 0.7))
  19         )
  20       instrument-equalizer-alist))
  21
  22 %}
  23
  24 flauti =  \relative c' {
  25   \set Staff.midiInstrument = #"flute"
  26   \set Staff.instrumentName = #"2 Flauti"
  27   \set Staff.shortInstrumentName = #"Fl."
  28
  29   c1\f R1*10
  30 }
  31
  32 oboi =  \relative c' {
  33   \set Staff.midiInstrument = #"oboe"
  34   \set Staff.instrumentName = #"2 Oboi"
  35   \set Staff.shortInstrumentName = #"Ob."
  36
  37   R1*1 c1\f R1*9
  38 }
  39
  40 clarinetti =  \relative c' {
  41   \set Staff.midiInstrument = #"clarinet"
  42   \set Staff.instrumentName = #"Clarinetti"
  43   \set Staff.shortInstrumentName = #"Cl"
  44
  45   R1*2 c1\f R1*8
  46 }
  47
  48 fagotti =  \relative c' {
  49   \set Staff.midiInstrument = #"bassoon"
  50   \set Staff.instrumentName = #"2 Fagotti"
  51   \set Staff.shortInstrumentName = #"Fg."
  52
  53   \clef bass
  54   R1*3 c1\f R1*7
  55 }
  56
  57 corni =  \relative c' {
  58   \set Staff.midiInstrument = #"french horn"
  59   \set Staff.instrumentName = #"Corni"
  60   \set Staff.shortInstrumentName = #"Cor"
  61
  62   R1*4 c1\f R1*6
  63 }
  64
  65 trombe =  \relative c' {
  66   \set Staff.midiInstrument = #"trumpet"
  67   \set Staff.instrumentName = #"Trombe"
  68   \set Staff.shortInstrumentName = #"Tp."
  69
  70   \clef bass
  71   R1*5 c1\f R1*5
  72 }
  73
  74 timpani =  \relative c' {
  75   \set Staff.midiInstrument = #"timpani"
  76   \set Staff.instrumentName = #"Timpani"
  77   \set Staff.shortInstrumentName = #"Timp."
  78
  79   R1*6 c1\f R1*4
  80 }
  81
  82 violinoI =  \relative c' {
  83   \set Staff.midiInstrument = #"violin"
  84   \set Staff.instrumentName = #"Violino I "
  85   \set Staff.shortInstrumentName = #"Vl. I "
  86
  87   R1*7 c1\f R1*3
  88 }
  89
  90 violinoII =  \relative c' {
  91   \set Staff.midiInstrument = #"violin"
  92   \set Staff.instrumentName = #"Violino II "
  93   \set Staff.shortInstrumentName = #"Vl. II "
  94
  95   R1*8 c1\f R1*2
  96 }
  97
  98 viola =  \relative c' {
  99   \set Staff.midiInstrument = #"viola"
 100   \set Staff.instrumentName = #"Viola"
 101   \set Staff.shortInstrumentName = #"Vla."
 102
 103   \clef alto
 104   R1*9 c1\f R1*1
 105 }
 106
 107 violoncello =  \relative c' {
 108   \set Staff.midiInstrument = #"cello"
 109   %\set Staff.midiInstrument = #"contrabass"
 110   \set Staff.instrumentName = #"Violoncello"
 111   \set Staff.shortInstrumentName = #"Vc."
 112
 113   \clef bass
 114   R1*10 c1\f
 115 }
 116
 117
 118 \score {
 119   <<
 120     \new StaffGroup = "legni" <<
 121       \new Staff = "flauti" \flauti
 122       \new Staff = "oboi" \oboi
 123       \new Staff = "clarinetti" \clarinetti
 124       \new Staff = "fagotti" \fagotti
 125     >>
 126     \new StaffGroup = "ottoni" <<
 127       \new Staff = "corni" \corni
 128       \new Staff = "trombe" \trombe
 129     >>
 130     \new StaffGroup = "timpani" <<
 131       \new Staff = "timpani" \timpani
 132      {
 133        \skip 1
 134        % Hmm: this forces a staff-bracket, that's good!
 135        % However, I can't find where is decided on staff-bracket yes/no
 136      }
 137     >>
 138     \new StaffGroup = "archi" <<
 139       \new GrandStaff = "violini" <<
 140         \new Staff = "violino1" \violinoI
 141         \new Staff = "violino2" \violinoII
 142       >>
 143       \new Staff = "viola" \viola
 144       \new Staff = "violoncello" \violoncello
 145     >>
 146   >>
 147
 148   \layout {
 149         \layoutSixteen
 150         indent=100.0\mm
 151         line-width=150.0\mm
 152     \context {
 153       \RemoveEmptyStaffContext
 154     }
 155   }
 156
 157   \midi {
 158     \context {
 159       \Score
 160       tempoWholesPerMinute = #(ly:make-moment 60 1)
 161       }
 162     }
 163
 164
 165 }
 166
 167