web: update GSOC page - we're participating under GNU

[lilypond.git] / lily / slur-engraver.cc

diff --git a/lily/slur-engraver.cc b/lily/slur-engraver.cc
index 2386c4d8c52179b03e4c49dc682154d08b2c4c11..79f04d6203cf6b0f7bc41897a2c401a0b0b38064 100644 (file)
--- a/lily/slur-engraver.cc
+++ b/lily/slur-engraver.cc
@@ -1,7 +1,7 @@
 /*
   This file is part of LilyPond, the GNU music typesetter.
 
-  Copyright (C) 1997--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  Copyright (C) 1997--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
   LilyPond is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
@@ -178,13 +178,21 @@ Slur_engraver::process_music ()
 
       // Find the slur that is ended with this event (by checking the spanner-id)
       bool ended = false;
+      SCM starter = SCM_BOOL_F;
       for (vsize j = slurs_.size (); j--;)
         {
           if (id == robust_scm2string (slurs_[j]->get_property ("spanner-id"), ""))
             {
-              ended = true;
-              end_slurs_.push_back (slurs_[j]);
-              slurs_.erase (slurs_.begin () + j);
+             // We end only one slur unless several ones have been
+             // caused by the same event, like with double slurs.
+              if (!ended || scm_is_eq (starter,
+                                      slurs_[j]->get_property ("cause")))
+               {
+                 ended = true;
+                 starter = slurs_[j]->get_property ("cause");
+                 end_slurs_.push_back (slurs_[j]);
+                 slurs_.erase (slurs_.begin () + j);
+               }
             }
         }
       if (!ended)
@@ -208,8 +216,12 @@ Slur_engraver::process_music ()
           ev->origin ()->warning (_ ("already have slur"));
           start_events_.erase (start_events_.begin () + i);
         }
-      else
-        {
+    }
+  for (vsize i = start_events_.size (); i--;)
+    {
+      Stream_event *ev = start_events_[i];
+      string id = robust_scm2string (ev->get_property ("spanner-id"), "");
+
           Grob *slur = make_spanner ("Slur", ev->self_scm ());
           Direction updown = to_dir (ev->get_property ("direction"));
           slur->set_property ("spanner-id", ly_string2scm (id));
@@ -225,7 +237,6 @@ Slur_engraver::process_music ()
               set_grob_direction (slur, UP);
               slurs_.push_back (slur);
             }
-        }
     }
   set_melisma (slurs_.size ());
 }