patch::: 1.3.128.jcn4

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

diff --git a/mutopia/Coriolan/clarinetti.ly b/mutopia/Coriolan/clarinetti.ly
index 449279bdb9b20c2a8dd83eeec5a431de000edcf0..b3e1ad19677a18f6d692f8c56147074ea7c9e5c1 100644 (file)
--- a/mutopia/Coriolan/clarinetti.ly
+++ b/mutopia/Coriolan/clarinetti.ly
@@ -1,34 +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 <
+clarinettiStaff = \context Staff = clarinetti <
        \property Staff.midiInstrument = #"clarinet"
-       \property Staff.instrument = #"2 Clarinetti (B\\textflat)"
-       \property Staff.instr = #"Cl. (B\\textflat)"
+
+       \property Staff.instrument = #`((kern . 0.5)
+       (lines "2 Clarinetti" (rows "(B" ,text-flat ")")))
+       
+       \property Staff.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;
-               \context VoiceOne=clarinettoi
-                       \$clarinetto1
-               \context VoiceTwo=clarinettoii
-                       \$clarinetto2
-       >
+       
+       \Time
+       \notes { \key f \major; }
+       \End
+       \context Voice=one \partcombine Voice
+               \context Thread=one \clarinettoI
+               \context Thread=two  \clarinettoII
 >