multi-instrument parts

[Kieren MacMillan]

Hello all!

Has anyone successfully written multi-instrument player parts "correctly" 
(i.e., using \addInstrumentDefinition and \switchInstrument, and not manually 
\transpose-ing bits)?
I would love to see an example, so I can fix my hacks.

Even seeing this non-working [in several ways… like why is the cue name 
doubled?] snippet fixed would be very helpful:

\version "2.17.9"
\language "english"

\addInstrumentDefinition #"flute"
  #`((instrumentTransposition . ,(ly:make-pitch 0 0 0))
     (shortInstrumentName . "Fl.")
     (clefGlyph . "clefs.G")
     (middleCPosition . -6)
     (clefPosition . -2)
     (instrumentCueName . ,(make-bold-markup "fl."))
     (midiInstrument . "clarinet"))

\addInstrumentDefinition #"clarinet_bf"
  #`((instrumentTransposition . ,(ly:make-pitch 0 0 -200))
     (shortInstrumentName . "Cl.")
     (clefGlyph . "clefs.G")
     (middleCPosition . -6)
     (clefPosition . -2)
     (instrumentCueName . ,(make-bold-markup "cl."))
     (midiInstrument . "clarinet"))

global = {
  \key d \major
  %% flute
    s1
  %% clarinet
    s1
  \key f \major
    s1
  %% flute
    s1
}
windMusic = \relative d' {
  \instrumentSwitch "flute"
    d8 e fs g a b cs d   |
  \instrumentSwitch "clarinet_bf"
    d, e fs g a b cs d   |
    d, e fs g a b cs d   |
  \instrumentSwitch "flute"
    d, e fs g a b cs d   |
}

\score {
  \new Staff << \global \windMusic >>
}

Thanks,
Kieren.