X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mutopia%2FCoriolan%2Fclarinetti.ly;h=08b129c6ed7a1057a39ed377138bf37fe1fe196a;hb=1cf3d59c1559fb9774c4c1c8cae155cfe54a927c;hp=217842c7a16201a3a310916454558418de208147;hpb=1e95a0be01466d1c98644f7705c8e07e41cc645c;p=lilypond.git

diff --git a/mutopia/Coriolan/clarinetti.ly b/mutopia/Coriolan/clarinetti.ly
index 217842c7a1..08b129c6ed 100644
--- a/mutopia/Coriolan/clarinetti.ly
+++ b/mutopia/Coriolan/clarinetti.ly
@@ -2,27 +2,30 @@
 filename =	 "clarinetti.ly";
 % %title =	 "Ouvert\\"ure zu Collins Trauerspiel \\"Coriolan\\" Opus 62";
 description =	 "";
-composer =	 "Ludwig van Beethoven (1770-1792)";
+composer =	 "Ludwig van Beethoven (1770-1827)";
 enteredby =	 "JCN";
 copyright =	 "public domain";
 
 
 }
 
-\version "0.1.14";
+\version "1.0.0";
 
 \include "clarinetto-1.ly"
 \include "clarinetto-2.ly"
 
 $clarinetti_staff = \type Staff = clarinetti <
-	\property Staff.instrument = "clarinet"
-	\melodic< 
-% ugh, key doesn't transpose along
-%		\global
-		\meter 4/4;
-		\key bes;
-		\transpose d \$clarinetto1
-		\transpose d \$clarinetto2
+	\property Staff.midi_instrument = "clarinet"
+	\property Staff.instrument = "2 Clarinetti (B\\textflat)"
+	\property Staff.instr = "Cl. (B\\textflat)"
+	% urg: can't; only My_midi_lexer:<non-static> () parses pitch?
+	%\property Staff.transposing = "bes"
+	\property Staff.transposing = -3
+	\melodic \type Voice=one < 
+		\time 4/4;
+		\key F;
+		\$clarinetto1
+		\$clarinetto2
 	>
 >