]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/cluster-engraver.cc
2003 -> 2004
[lilypond.git] / lily / cluster-engraver.cc
index e0cdf1b36adda32ed0616c12a3752574f8894b9a..494d3d147bd9956f794bc3fe7cbcd51176c1ce11 100644 (file)
@@ -1,7 +1,7 @@
 /*
   cluster-engraver.cc -- implement Cluster_engraver
 
-  (c) 2002--2003 Juergen Reuter <reuter@ipd.uka.de>
+  (c) 2002--2004 Juergen Reuter <reuter@ipd.uka.de>
 
   Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
@@ -67,15 +67,7 @@ Cluster_spanner_engraver::typeset_grobs ()
 bool
 Cluster_spanner_engraver::try_music (Music *m)
 {
-  if (m->is_mus_type ("abort-event"))
-    {
-      if (spanner_)
-       {
-         spanner_->suicide ();
-         spanner_ = 0;
-       }
-    }
-  else if (m->is_mus_type ("cluster-note-event"))
+  if (m->is_mus_type ("cluster-note-event"))
     {
       cluster_notes_.push (m);
       return true;
@@ -104,7 +96,7 @@ Cluster_spanner_engraver::process_music ()
          pmin = pmin <? p;
        }
       
-      beacon_ = new Item (get_property ("ClusterSpannerBeacon"));
+      beacon_ = make_item ("ClusterSpannerBeacon");
       beacon_->set_grob_property ("positions",
                                  scm_cons (gh_int2scm (pmin),
                                            gh_int2scm (pmax)));
@@ -113,7 +105,7 @@ Cluster_spanner_engraver::process_music ()
 
   if (beacon_ && !spanner_)
     {    
-      spanner_ = new Spanner (get_property ("ClusterSpanner"));
+      spanner_ = make_spanner ("ClusterSpanner");
       announce_grob (spanner_, cluster_notes_[0]->self_scm ());
     }
   
@@ -147,7 +139,7 @@ Cluster_spanner_engraver::acknowledge_grob (Grob_info info)
 ENTER_DESCRIPTION(Cluster_spanner_engraver,
 /* descr */    "Engraves a cluster using Spanner notation ",
 /* creats*/    "ClusterSpanner ClusterSpannerBeacon",
-/* accepts */  "cluster-note-event abort-event",
+/* accepts */  "cluster-note-event",
 /* acks  */    "note-column-interface",
 /* reads */    "",
 /* write */    "");