patch::: 1.3.126.jcn1

[lilypond.git] / mutopia / Coriolan / clarinetti.ly

diff --git a/mutopia/Coriolan/clarinetti.ly b/mutopia/Coriolan/clarinetti.ly
index 06535c7893153b9f7c814f27eac1eb6f564d9c96..64356c25f8bc00eb81121468e0dfc8ce7a0e8b98 100644 (file)
--- a/mutopia/Coriolan/clarinetti.ly
+++ b/mutopia/Coriolan/clarinetti.ly
@@ -1,35 +1,27 @@
-\header{
-filename =      "clarinetti.ly";
-% %title =      "Ouvert\\"ure zu Collins Trauerspiel \\"Coriolan\\" Opus 62";
-description =   "";
-composer =      "Ludwig van Beethoven (1770-1827)";
-enteredby =     "JCN";
-copyright =     "public domain";
 
-
-}
-
-\version "1.3.4";
+\version "1.3.120";
 
 \include "clarinetto-1.ly"
 \include "clarinetto-2.ly"
 
-$clarinetti_staff = \context Staff = clarinetti <
-       \property Staff.midiInstrument = #"clarinet"
-       \property Staff.instrument = #"2 Clarinetti\n(B\\textflat)"
-       \property Staff.instr = #"Cl.\n(B\\textflat)"
+clarinettiStaff = \context VoiceCombineStaff = clarinetti <
+       \property VoiceCombineStaff.midiInstrument = #"clarinet"
+
+       \property VoiceCombineStaff.instrument = #`((kern . 0.5)
+       (lines "2 Clarinetti" (rows "(B" ,text-flat ")")))
+       
+       \property VoiceCombineStaff.instr = #`((kern . 0.5)
+       (lines "Cl."  (rows "(B" ,text-flat ")")))
+
        % urg: can't; only My_midi_lexer:<non-static> () parses pitch?
-       %\property Staff.transposing = "bes"
-       \property Staff.transposing = #-2
-       %\notes \context Voice=clarinetti < 
-       \notes \context Staff=clarinetti < 
-               \time 4/4;
-               \key F;
-               \skip 1*341; \bar "|.";
-               \context VoiceOne=clarinettoi
-                       \$clarinetto1
-               \context VoiceTwo=clarinettoii
-                       \$clarinetto2
-       >
+       %\property VoiceCombineStaff.transposing = "bes"
+       \property VoiceCombineStaff.transposing = #-2
+       
+       \Time
+       \notes { \key f \major; }
+       \End
+       \context VoiceCombineVoice=one \partcombine VoiceCombineVoice
+               \context VoiceCombineThread=one \clarinettoI
+               \context VoiceCombineThread=two  \clarinettoII
 >