% ts-score.ly
\include "paper13.ly"
\include "ts-music.ly"

\score {
    <
	\global
	\context StaffGroup = wood <
	    \context Staff = flauti <
		\property Staff.midiInstrument = #"flute"
		\property Staff.instrument = "2 Flauti"
		\property Staff.instr = "Fl."
		\flauti
	    >
	    \context Staff = oboi <
		\property Staff.midiInstrument = #"oboe"
		\property Staff.instrument = "2 Oboi"
		\property Staff.instr = "Ob."
		\oboi
	    >
	    \context Staff = clarinetti <
		\property Staff.midiInstrument = #"clarinet"
		\property Staff.instrument = "2 Clarinetti (B)"
		\property Staff.instr = "Cl."
		\property Staff.transposing = #-2
		\clarinetti
	    >
	    \context Staff = fagotti <
		\property Staff.midiInstrument = #"bassoon"
		\property Staff.instrument = "2 Fagotti"
		\property Staff.instr = "Fag."
		\fagotti
	    >
	>

	\context StaffGroup = wind <
	    \context StaffGroup <
		\property StaffGroup.midiInstrument = #"french horn"
		\property StaffGroup.instrument = "4 Corni (F)"
		\property StaffGroup.instr = "Cor."
		\property StaffGroup.transposing = #-7
		\context Staff = corniI <
		    \context Voice=one { \voiceOne \cornoIa }
		    \context Voice=two { \voiceTwo \cornoIb }
		>
		\context Staff = corniII <
		    \context Voice=one { \voiceOne \cornoIIa }
		    \context Voice=two { \voiceTwo \cornoIIb }
		>
	    >

	    \context Staff = trombe <
		\property Staff.midiInstrument = #"trumpet"
		\property Staff.instrument = "2 Trombe (B)"
		\property Staff.instr = "Tr-be."
		\property Staff.transposing = #-2
		\context Voice=one { \voiceOne \trombaI }
		\context Voice=two { \voiceTwo \trombaII }
	    >

	    \context StaffGroup = trombonituba <
		\property StaffGroup.midiInstrument = #"french horn"
		\property StaffGroup.instrument = "3 Tromboni e Tuba  "
		\property StaffGroup.instr = "Tr-ni e Tuba  "
		\context Staff = tromboni <
		    \property Staff.midiInstrument = #"french horn"
		    \context Voice=one { \voiceOne \trombonoa }
		    \context Voice=two { \voiceTwo \trombonob }
		>

		\context Staff = trtuba <
		    \context Voice=one {
			\voiceOne
			\property Voice.midiInstrument = #"french horn"
			\trombonoc
		    }
		    \context Voice=two {
			\voiceTwo
			\property Voice.midiInstrument = #"tuba"
			\tuba
		    }
		>
	    >
	>

	\context StaffGroup = drums <
	    \context Staff = timpani <
		\property Staff.midiInstrument = #"timpani"
		\property Staff.instrument = "Timpani (G. As. C)"
		\property Staff.instr = "Timp."
		\timpani
	    >
	>

	\context PianoStaff = piano <
	    \property PianoStaff.instrument = "Piano  "
	    \property PianoStaff.instrument = "Piano  "
	    \property PianoStaff.midiInstrument = #"acoustic grand"
	    \context Staff = up <
		\pianoup
	    >
	    \context Staff = down <
		\pianodown
	    >
	>

	\context StaffGroup = strings <
	    \context StaffGroup = violini <
		\property StaffGroup.midiInstrument = #"violin"
		\context Staff = violiniI <
		    \property Staff.instrument = "Violini I"
		    \property Staff.instr = "Vln I"
		    \violoniI
		>

		\context Staff = violiniII <
		    \property Staff.instrument = "Violini II"
		    \property Staff.instr = "Vln II"
		    \violoniII
		>
	    >

%	    \context Staff = viole <
%		\property Staff.midiInstrument = #"viola"
%		\property Staff.instrument = "Viole"
%		\property Staff.instr = "Vle"
%		\viole
%	    >

%	    \context StaffGroup = archbass <
		\context Staff = violoncelli <
		    \property Staff.midiInstrument = #"cello"
		    \property Staff.instrument = "Violoncelli"
		    \property Staff.instr = "Vci"
		    \violoncelli
		>

		\context Staff = contabassi <
%		    \property Staff.midiInstrument = #"contrabass"
%		    \property Staff.instrument = "Contrabassi"
%		    \property Staff.instr = "Ctb"
%		    \contrabassi
		>

%	    > % archbass

	> % strings
	
    > % scores
    
    \paper {
	indent = 15 * \staffspace
	\translator {
	    \InnerStaffGroupContext
	    \consists Instrument_name_engraver
	}
    }
    
    \midi {
	\tempo 2=60
    }
}