From: fred <fred>
Date: Sun, 24 Mar 2002 19:46:11 +0000 (+0000)
Subject: lilypond-0.0.70pre
X-Git-Tag: release/1.5.59~4563
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=204a2e7a5fb3e9b83976f7f231e25409dde0c057;p=lilypond.git

lilypond-0.0.70pre
---

diff --git a/bin/convert-mudela b/bin/convert-mudela
index 4ae7f6f57c..744059c67c 100644
--- a/bin/convert-mudela
+++ b/bin/convert-mudela
@@ -4,6 +4,8 @@
 
     detect \lyrics and \melodic, and do substitution accordingly.
     count <> and {} ?
+
+Ugh . Perl sux. Anybody for Python?
     
 =cut    
 
@@ -21,13 +23,18 @@ $convert_mudela_version = "0.1.1";
 use Getopt::Long;
 
 
+sub version_compare
+{
+    local ($a,$b)=@_;
+    return &cmpver;
+}
+    
 
 sub  cmpver 
 { 	
-
 	my(@a)= split /\./,$a;
 	my(@b)= split /\./,$b;
-	
+
 	for $i (0,1,2) {
 	    return $a[$i] <=> $b[$i] if ($a[$i] != $b[$i]);
 	}
@@ -84,6 +91,14 @@ sub convert_0_0_58_to_0_0_58
 {
     die "Not smart enough to convert 0.0.58 to 0.0.59\n";
 }
+
+sub convert_0_0_59_to_0_0_60
+{
+    s/(\\unitspace [0-9.mcptin\\ ]+|\\geometric [0-9.]+|\\width [0-9.mcp\\tin]+)/$1;/g;
+    s/(\\output \"[^\"]+\")/$1;/;
+    s/(\\tempo  [0-9: ]+)/$1;/;
+}
+
 ###############################################################
 
 sub    last_conversion
@@ -121,7 +136,8 @@ my %minor_conversions = ("0.0.50" => \&no_conv,
 			 "0.0.56" => \&convert_0_0_55_to_0_0_56,
 			 "0.0.57" => \&convert_0_0_56_to_0_0_57,
 			 "0.0.58" => \&convert_0_0_57_to_0_0_58,
-			 "0.0.59" => \&convert_0_0_58_to_0_0_59
+			 "0.0.59" => \&convert_0_0_58_to_0_0_59,
+			 "0.0.60" => \&convert_0_0_59_to_0_0_60
 			 );
  
 
@@ -144,12 +160,12 @@ sub do_conversion
     my @applicable_conversion;
     my @mudela_levels;
     
-    die "This is too old  to convert " if $from < 50;
+#    die "This is too old  to convert " if $from < 50;
     my @v = versions;
-    foreach $a (@v) {
-	if ($a > $from && $a <= $to ){ 
-	    push @applicable_conversion, $minor_conversions{$a};
-	    push @mudela_levels, $a;
+    foreach $ver (@v) {
+	if (version_compare($ver, $from) > 0 && version_compare($ver,$to) <= 0 ){ 
+	    push @applicable_conversion, $minor_conversions{$ver};
+	    push @mudela_levels, $ver;
 	}
     }
     
@@ -225,7 +241,6 @@ sub do_one_arg
     
     ($to_version =  last_conversion) unless (defined($opt_to));
 
-
     die "can't open \`$infile\'" unless open INLY,$infile ;
     die "can't open \`$outfile\'" unless open OUTLY, ">$outfile";
     
@@ -243,6 +258,7 @@ sub do_one_arg
 
 identify;
 
+
 GetOptions ("help", "output=s", "from=i", "to=i", "minor=i", "edit", "show-rules");
 
 if ($opt_help) {
diff --git a/init/symbol.ini b/init/symbol.ini
index adea156028..d14a1037a0 100644
--- a/init/symbol.ini
+++ b/init/symbol.ini
@@ -1,4 +1,4 @@
-\version "0.0.59";
+\version "0.0.60";
 
 \include "register.ini"
 \include "dynamic.ini"
diff --git a/input/cadenza.ly b/input/cadenza.ly
index bcee0b0eb7..3bdc51e5a3 100644
--- a/input/cadenza.ly
+++ b/input/cadenza.ly
@@ -10,7 +10,7 @@
 EndMudelaHeader
 %}
 
-\version "0.0.59";
+\version "0.0.60";
 
 
 cad = \melodic  {
@@ -59,7 +59,7 @@ cad = \melodic  {
 	\melodic{ \cad }
 	\paper {
 	
-		\unitspace 14.0\mm
-		\geometric 1.4}
-	\midi { \tempo 4:90 }
+		\unitspace 14.0\mm;
+		\geometric 1.4;}
+%	\midi { \tempo 4:90 }
 }
diff --git a/input/scales.ly b/input/scales.ly
index 3581515338..7f7b935fcb 100644
--- a/input/scales.ly
+++ b/input/scales.ly
@@ -2,7 +2,7 @@
 % scales with accents.
 %
 
-\version "0.0.59";
+\version "0.0.60";
 blah = 	\melodic {
 		\meter 6/8;	
 		\octave  'c ;
@@ -61,13 +61,12 @@ c1
 	|[c' b a g][f e d c]
 			
 	}
-}
+
 
 \score{
 	\melodic {\blah}
 	\paper{
-		\symboltables {table_sixteen}
-		\unitspace 1.5 \cm
-		\geometric 1.4
+		\unitspace 1.5 \cm;
+		\geometric 1.4;
 	}
 }
diff --git a/input/scsii-menuetto.ly b/input/scsii-menuetto.ly
index f52ea765c6..769a032cc7 100644
--- a/input/scsii-menuetto.ly
+++ b/input/scsii-menuetto.ly
@@ -12,7 +12,8 @@
 
 EndMudelaHeader
 %}
-\version "0.0.59";
+
+\version "0.0.60";
 
 %% Stuff from MPP version
 % \lefttitle{Menuetto}
@@ -22,7 +23,6 @@ EndMudelaHeader
 % \key\F		% \key is F ( f-major )
 %
 % \slope{30}		% Fool MusiXTeX into 30 / 10 steeper beam
-% \stemlength3		% shorter \stemlength
 %		% because piece is set very tightly
 
 IImenuetto = \melodic{
@@ -34,16 +34,16 @@ IImenuetto = \melodic{
 	\duration 8;
 		< a2 f2 d2 \f > bes4-.  |
 %%2
-	< [ bes^"1" e c_"2"_"4" >
+	< [ bes8^"1" e c_"2"_"4" >
 		a bes-. g-. ] a4-.^"4" |
 %%3
-	< d4 'bes4-. > g4-. [ f-. e-. ] |
+	< d4 'bes4-. > g4-. [ f8-. e-. ] |
 %%4
 	< [ f 'a > e d cis-. 'b-. 'a-. ]
 %%5
 	< a2 f2 d2 > bes!4-. |
 %%6
-	< [ bes e > a bes-. g-. ]
+	< [ bes8 e > a bes-. g-. ]
 	c'!4-. |
 %%7
 	< a4-. f4>
@@ -55,15 +55,15 @@ IImenuetto = \melodic{
 %%9
 	\clef "violin";
 	< e'2 a2 \f >
-	[ d'( e'16 )f'16 ] |
+	[ d'8( e'16 )f'16 ] |
 %%10
-	< [ e' g > d' cis'_"2" e' a~  g ] |
+	< [ e'8 g > d' cis'_"2" e' a~  g ] |
 %%11
 	< \multi 2;  
 		{\stem 1; a4~  d'4 cis'4-. }
 		{ \stem -1; f2 e4 } > |
 %%12
-	< [ g'^"4" d > f' e' f' d'^"3"~   c' ] |
+	< [ g'8^"4" d > f' e' f' d'^"3"~   c' ] |
 %%13
 	\clef "alto";
 	< \multi 2;
@@ -71,28 +71,28 @@ IImenuetto = \melodic{
 		 { \stem -1; g4~  f4 e4 }% ugh
 	> |
 %%14
-	< [ a f > g a f ] < d'4-\upbow e4 'bes4 > |
+	< [ a8 f > g a f ] < d'4-\upbow e4 'bes4 > |
 %%15
-	< c'4-\downbow f4 'a4 > [ bes~  a g a ] |
+	< c'4-\downbow f4 'a4 > [ bes8~  a g a ] |
 %%16
 	[ f( e )f a-. g-. bes-. ] |
 %%17
 	< a2^"0" fis2_"3" > bes4 |
 %%18
-	< { [ c'~  bes c' a ] } { [ es ] } > fis4 |
+	< { [ c'8~  bes c' a ] } { [ es ] } > fis4 |
 %%19
-	< d'4-\downbow g4 'bes4 > < c'4-\upbow g4 c4 > < [ bes d > a ] |
+	< d'4-\downbow g4 'bes4 > < c'4-\upbow g4 c4 > < [ bes8 d > a ] |
 %%20
-	< { [ c'( bes a )bes g~  bes ] } { [ d ] } { [ g ] } > |
+	< { [ c'8 ( bes a )bes g~  bes ] } { [ d ] } { [ g ] } > |
 %%21
 	< \multi 2;  
 		{\stem 1;  d'4 (\stem 1; ) cis'4 d'4 }  
 		{ \stem -1; g2 f4 } 
 	> |
 %%22
-	< { [ g~  f g e ] } { [ cis ] } > < f4 d4 > |
+	< { [ g8 ~  f g e ] } { [ cis ] } > < f4 d4 > |
 %%23
-	[ 'g g ] < e4. 'a4. > d-\upbow |
+	[ 'g8 g ] < e4. 'a4. > d-\upbow |
 %%24
 	< d2.^"fine" 'a2. 'd2._"3 mins."> 
 	\bar ":|";
@@ -103,13 +103,13 @@ IImenuetto = \melodic{
 \score{
 	\melodic { \IImenuetto }
 	\paper{
-		\width 195.0\mm
-		\unitspace 9.0\mm  % to get lily to use only three lines
-		\geometric 1.40
-		\output "scsii-menuetto.out"
+		\width 195.0\mm;
+		\unitspace 9.0\mm  ;% to get lily to use only three lines
+		\geometric 1.40;
+		\output "scsii-menuetto.out";
 	}
 	\midi{ 
-		\tempo 4:120
-		\output "scsii-menuetto.midi"
+		\tempo 4:120;
+		\output "scsii-menuetto.midi";
 	}
 }