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

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