5 lsrtags = "scheme-language, midi"
7 texidoc = "The default MIDI instrument equalizer can be replaced by
8 setting the @code{instrumentEqualizer} property in the @code{Score}
9 context to a user-defined Scheme procedure that uses a MIDI instrument
10 name as its argument along with a pair of fractions indicating the
11 minimum and maximum volumes respectively to be applied to that
14 The following example sets the minimum and maximum volumes for flute
15 and clarinet respectively."
17 doctitle = "Replacing default MIDI instrument equalization"
20 #(define my-instrument-equalizer-alist '())
22 #(set! my-instrument-equalizer-alist
25 ("flute" . (0.7 . 0.9))
26 ("clarinet" . (0.3 . 0.6)))
27 my-instrument-equalizer-alist))
29 #(define (my-instrument-equalizer s)
30 (let ((entry (assoc s my-instrument-equalizer-alist)))
39 \set Score.instrumentEqualizer = #my-instrument-equalizer
40 \set Staff.midiInstrument = #"flute"
41 \new Voice \relative c''' {
49 \set Staff.midiInstrument = #"clarinet"
50 \new Voice \relative c'' {