patch::: 1.3.128.jcn4

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

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