patch::: 1.3.128.jcn4

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

diff --git a/mutopia/Coriolan/clarinetti.ly b/mutopia/Coriolan/clarinetti.ly
index 2931222184e2e61df353a7cafef41b8249adc6a0..b3e1ad19677a18f6d692f8c56147074ea7c9e5c1 100644 (file)
--- a/mutopia/Coriolan/clarinetti.ly
+++ b/mutopia/Coriolan/clarinetti.ly
@@ -1,29 +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.88";
+\version "1.3.120";
 
 \include "clarinetto-1.ly"
 \include "clarinetto-2.ly"
 
-clarinettiStaff = \context VoiceCombineStaff = clarinetti <
-       \property VoiceCombineStaff.midiInstrument = #"clarinet"
-       \property VoiceCombineStaff.instrument = #"2 Clarinetti\n(B\\textflat)"
-       \property VoiceCombineStaff.instr = #"Cl.\n(B\\textflat)"
+clarinettiStaff = \context Staff = clarinetti <
+       \property Staff.midiInstrument = #"clarinet"
+
+       \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 VoiceCombineStaff.transposing = "bes"
-       \property VoiceCombineStaff.transposing = #-2
-       \time 4/4;
-       \notes \key f \major;
-       \skip 1*314; \bar "|.";
-       \context VoiceCombineVoice=one \partcombine VoiceCombineVoice
-               \context VoiceCombineThread=one \clarinettoI
-               \context VoiceCombineThread=two  \clarinettoII
+       %\property Staff.transposing = "bes"
+       \property Staff.transposing = #-2
+       
+       \Time
+       \notes { \key f \major; }
+       \End
+       \context Voice=one \partcombine Voice
+               \context Thread=one \clarinettoI
+               \context Thread=two  \clarinettoII
 >