X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mutopia%2FCoriolan%2Fcorni.ly;h=b2f3c39fc11227a1207d3b7a1fa268b91fde893b;hb=1cf3d59c1559fb9774c4c1c8cae155cfe54a927c;hp=6d3ebdcfd3c8c695aa6172244a4101303976c4d5;hpb=1e95a0be01466d1c98644f7705c8e07e41cc645c;p=lilypond.git

diff --git a/mutopia/Coriolan/corni.ly b/mutopia/Coriolan/corni.ly
index 6d3ebdcfd3..b2f3c39fc1 100644
--- a/mutopia/Coriolan/corni.ly
+++ b/mutopia/Coriolan/corni.ly
@@ -2,26 +2,29 @@
 filename =	 "corni.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 "corno-1.ly"
 \include "corno-2.ly"
 
 $corni_staff = \type Staff = corni <
-	\property Staff.instrument = "french horn"
-	\melodic< 
-% ugh, key doesn't transpose along
-%		\global
-		\meter 4/4;
-		\transpose a, \$corno1
-		\transpose a, \$corno2
+	\property Staff.midi_instrument = "french horn"
+	\property Staff.instrument = "2 Corni (E\\textflat)"
+	\property Staff.instr = "Cor. (E\\textflat)"
+	% urg: can't; only My_midi_lexer:<non-static> () parses pitch?
+	%\property Staff.transposing = "es"
+	\property Staff.transposing = 3
+	\melodic \type Voice=corni < 
+		\time 4/4;
+		\$corno1
+		\$corno2
 	>
 >