lilypond-1.1.30

diff --git a/input/test/slur-follow-music.sly b/input/test/slur-follow-music.sly
new file mode 100644 (file)
index 0000000..bc28469
--- /dev/null
+++ b/input/test/slur-follow-music.sly
@@ -0,0 +1,15 @@
+% CASE 3
+d''4 ( ) b a ( ) e' \break
+g,( \stemdown ) b \stemboth c ( ) f, \break
+
+% no adjusting...
+\stemup [d'8 ( b a] \stemboth ) e' \break
+\stemup [g,8 ( b d] \stemboth ) c \break
+
+% still ugly
+g4 ( b d ) c \break
+
+%TIES
+d ~ b a ~ e' \break
+g, ~ \stemdown b \stemboth c ~ f, \break
+

diff --git a/lily/include/direction.hh b/lily/include/direction.hh
index 8a59ac52f7c5d91b4274936c8493e2f3d62d17d1..3b2029d3c89a4c52659ef008e36fcb7af944b4d5 100644 (file)
--- a/lily/include/direction.hh
+++ b/lily/include/direction.hh
@@ -27,6 +27,19 @@ enum Direction
   STOP = 1
 };
 
+inline Direction
+other_dir (Direction const d)
+{
+  return (Direction)(-d);
+}
+
+inline Direction
+operator - (Direction const d)
+{
+  return other_dir (d);
+}
+
+// huh?
 inline Direction
 flip (Direction *i) {
   if (*i == (Direction)1)

diff --git a/lily/main.cc b/lily/main.cc
index e8e55b5bafb752f75c8d3f4ead661cc89058d1d6..9de98a4bc2b749c4169789b2df02625bdc064a8d 100644 (file)
--- a/lily/main.cc
+++ b/lily/main.cc
@@ -164,7 +164,7 @@ about ()
   cout << _ ("GNU LilyPond is Free software, see --warranty");
   cout << '\n';
   cout << '\n';
-  cout << _f ("Copyright (c) %s by", "1996, 1997, 1998");
+  cout << _f ("Copyright (c) %s by", "1996--1999");
   cout << '\n';
   cout << "  " + _ ("Han-Wen Nienhuys <hanwen@cs.uu.nl>") + "\n";
   cout << "  " + _ ("Jan Nieuwenhuizen <janneke@gnu.org>") + "\n";
@@ -177,7 +177,7 @@ notice ()
   cout << '\n';
   cout << _ ("GNU LilyPond -- The GNU Project music typesetter");
   cout << '\n';
-  cout << _f ("Copyright (c) %s by", "1996, 1997, 1998");
+  cout << _f ("Copyright (c) %s by", "1996--1999");
   cout << '\n';
   cout << "  " + _ ("Han-Wen Nienhuys <hanwen@cs.uu.nl>") + "\n";
   cout << "  " + _ ("Jan Nieuwenhuizen <janneke@gnu.org>") + "\n";
@@ -401,12 +401,15 @@ distill_inname_str (String name_str, String& ext_r)
          split_path (str,a,b,c,ext_r);
 
          // add extension if not present.
-         // UGH. Should parametrise in list of default extensions.
-         if (ext_r.empty_b ())
+         char const* extensions[] = {"", "", ".ly", ".fly", ".sly", 0};
+         extensions[0] = ext_r.ch_C ();
+         for (int i = 0; extensions[i]; i++)
            {
-             ext_r = ".fly";
-             if (global_path.find (a+b+c+ext_r).empty_b ())
-               ext_r = ".ly";
+             if (!global_path.find (a+b+c+extensions[i]).empty_b ())
+               {
+                 ext_r = extensions[i];
+                 break;
+               }
            }
          str = a+b+c+ext_r;
        }

diff --git a/ly/GNUmakefile b/ly/GNUmakefile
index 6513297576c50209155a431b3cd6c498a3da6941..dda5863d2675a2898f4131c153c222205338b531 100644 (file)
--- a/ly/GNUmakefile
+++ b/ly/GNUmakefile
@@ -2,7 +2,7 @@
 
 depth = ..
 
-INI_FILES = $(FLY_FILES) $(LY_FILES)
+INI_FILES = $(FLY_FILES) $(SLY_FILES) $(LY_FILES)
 EXTRA_DIST_FILES = $(SCM_FILES)
 
 INSTALLATION_DIR=$(datadir)/ly/

diff --git a/ly/init.sly b/ly/init.sly
new file mode 100644 (file)
index 0000000..e2ebe19
--- /dev/null
+++ b/ly/init.sly
@@ -0,0 +1,16 @@
+% Toplevel initialisation file. 
+       
+\version "1.0.14";
+
+
+\include "declarations.ly"
+
+\score { 
+  \notes\relative c {
+    \maininput
+  }
+  \paper {
+    linewidth=-1.0;
+  }  
+  \midi{ }
+}

diff --git a/ly/params.ly b/ly/params.ly
index f434d57cf425e990e15d72867dfb9fdd32507d41..8be7f2a9b26ef95ff1be0a64df4cbe30231f9ce2 100644 (file)
--- a/ly/params.ly
+++ b/ly/params.ly
@@ -70,6 +70,9 @@ slur_x_minimum = 3.0 * \interline;
 % slope damping: keep dy/dx < slur_slope_damping
 slur_slope_damping = 0.6;
 
+% dy_slur := dy_music * factor
+slur_slope_follow_music_factor = 0.8;
+
 tie_x_minimum = \slur_x_minimum;
 tie_x_gap = \slur_x_gap;
 tie_slope_damping = 0.8;

diff --git a/make/mutopia-vars.make b/make/mutopia-vars.make
index d140f286cf24d9dbe250c5b5347f9df84196280a..154917110b1af7d4a917879fa12702308430853f 100644 (file)
--- a/make/mutopia-vars.make
+++ b/make/mutopia-vars.make
@@ -2,18 +2,21 @@
 # UGH UGH
 include $(make-dir)/lilypond-vars.make
 
-FLY_FILES = $(wildcard *.fly)
 LY_FILES = $(wildcard *.ly)
+FLY_FILES = $(wildcard *.fly)
+SLY_FILES = $(wildcard *.sly)
+
 M4_FILES = $(wildcard *.m4)
 LYM4_FILES = $(wildcard *.lym4)
-EXTRA_DIST_FILES += $(FLY_FILES) $(LY_FILES) $(M4_FILES) $(LYM4_FILES)
+EXTRA_DIST_FILES += $(FLY_FILES) $(SLY_FILES) $(LY_FILES) $(M4_FILES) $(LYM4_FILES)
 
 # WWW.make
 
 ly_examples=$(addprefix $(outdir)/, $(addsuffix .ly.txt, $(examples)))
 fly_examples=$(addprefix $(outdir)/, $(addsuffix .fly.txt, $(flexamples)))
+sly_examples=$(addprefix $(outdir)/, $(addsuffix .sly.txt, $(slexamples)))
 
-all_examples=$(flexamples) $(examples)
+all_examples=$(flexamples) $(slexamples) $(examples)
 
 ps_examples=$(addprefix $(outdir)/, $(addsuffix .ps.gz, $(all_examples)))
 gif_examples=$(addprefix $(outdir)/, $(addsuffix .gif, $(all_examples)))