release: 1.5.26

[lilypond.git] / lily / separating-line-group-engraver.cc

diff --git a/lily/separating-line-group-engraver.cc b/lily/separating-line-group-engraver.cc
index 35e24dab23330e86b21c71bbbbbf2ff021717413..fc8679494ff79591bd4451b13f6c0618f8f710dd 100644 (file)
--- a/lily/separating-line-group-engraver.cc
+++ b/lily/separating-line-group-engraver.cc
@@ -1,90 +1,152 @@
 /*   
-  separating-line-group-grav.cc --  implement Separating_line_group_engraver
+'  separating-line-group-engraver.cc --  implement Separating_line_group_engraver
   
   source file of the GNU LilyPond music typesetter
   
-  (c) 1998--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1998--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   
  */
 
-#include "separating-line-group-engraver.hh"
 #include "separating-group-spanner.hh"
-#include "single-malt-grouping-item.hh"
+#include "separation-item.hh"
 #include "paper-column.hh"
 #include "paper-def.hh"
+#include "engraver.hh"
+#include "axis-group-interface.hh"
+#include "note-spacing.hh"
+
+class Separating_line_group_engraver : public Engraver
+{
+protected:
+  Item * break_malt_p_;
+  Item * musical_malt_p_;
+  Item * last_musical_malt_p_;
+
+  Item * last_note_spacing_;
+  Item * current_note_spacing_;
+  Item * staff_spacing_;
+  
+  Spanner * sep_span_p_;
+  
+  virtual void acknowledge_grob (Grob_info);
+  virtual void initialize ();
+  virtual void finalize ();
+  virtual void stop_translation_timestep ();
+public:
+  TRANSLATOR_DECLARATIONS(Separating_line_group_engraver);
+};
 
 Separating_line_group_engraver::Separating_line_group_engraver ()
 {
+  last_note_spacing_ = 0;
+  current_note_spacing_ = 0;
+  staff_spacing_ =0;
+  
   sep_span_p_ = 0;
   break_malt_p_ = 0;
-  nobreak_malt_p_ =0;
+  musical_malt_p_ =0;
 }
 
 void
-Separating_line_group_engraver::do_creation_processing ()
+Separating_line_group_engraver::initialize ()
 {
-  sep_span_p_ = new Separating_group_spanner;
-  announce_element (Score_element_info (sep_span_p_, 0));
-  sep_span_p_->set_bounds (LEFT, get_staff_info ().command_pcol_l ());
+  sep_span_p_ = new Spanner (get_property ("SeparatingGroupSpanner"));
+
+  announce_grob (sep_span_p_, 0);
+  sep_span_p_->set_bound (LEFT, unsmob_grob (get_property ("currentCommandColumn")));
 }
 
 void
-Separating_line_group_engraver::do_removal_processing ()
+Separating_line_group_engraver::finalize ()
 {
-  SCM sz (get_property ("postBreakPadding", 0));
-  if (SCM_NUMBERP(sz))
-    {
-      sep_span_p_->padding_f_ = Real(sz);
-    }
-  else
-    {
-      sep_span_p_->padding_f_ = paper_l ()->get_realvar (ly_symbol ("postBreakPadding"));
-    }
-
-  sep_span_p_->set_bounds (RIGHT, get_staff_info ().command_pcol_l ());
-  typeset_element (sep_span_p_);
+  sep_span_p_->set_bound (RIGHT, unsmob_grob (get_property ("currentCommandColumn")));
+  typeset_grob (sep_span_p_);
   sep_span_p_ =0;
 }
 
 void
-Separating_line_group_engraver::acknowledge_element (Score_element_info i)
+Separating_line_group_engraver::acknowledge_grob (Grob_info i)
 {
-  Item * it = dynamic_cast <Item *> (i.elem_l_);
-  if (it && !it->parent_l (X_AXIS))
+  Item * it = dynamic_cast <Item *> (i.grob_l_);
+  if (!it)
+    return;
+  if (it->get_parent (X_AXIS)
+      && it->get_parent (X_AXIS)
+      ->has_extent_callback_b(Axis_group_interface::group_extent_callback_proc, X_AXIS))
+    return;
+
+  if (Note_spacing::has_interface (it)) 
+    {
+      current_note_spacing_ =  it;
+      return ;
+    }
+  
+  bool ib =Item::breakable_b (it);
+  Item *&p_ref_ (ib ? break_malt_p_
+                : musical_malt_p_);
+
+  if (!p_ref_)
     {
-      bool ib =it->breakable_b ();
-      Single_malt_grouping_item *&p_ref_ (ib ? break_malt_p_
-                                         : nobreak_malt_p_);
+      p_ref_ = new Item (get_property ("SeparationItem"));
 
-      if (!p_ref_)
+      if (ib)
+       p_ref_->set_grob_property ("breakable", SCM_BOOL_T);
+      announce_grob (p_ref_, 0);
+
+      if (p_ref_ == break_malt_p_)
        {
-         p_ref_ = new Single_malt_grouping_item;
-         if (ib)
-           p_ref_->set_elt_property (breakable_scm_sym, SCM_BOOL_T);
-         announce_element (Score_element_info (p_ref_, 0));
+         staff_spacing_ = new Item (get_property ("StaffSpacing"));
+         staff_spacing_->set_grob_property ("left-item", break_malt_p_->self_scm ());
+         announce_grob (staff_spacing_, 0);
+
+         if (last_note_spacing_)
+           last_note_spacing_->set_grob_property ("right-item",
+                                                  break_malt_p_->self_scm ());
        }
-      p_ref_->add_item (it);
     }
+
+  Separation_item::add_item (p_ref_,it);
 }
 
 void
-Separating_line_group_engraver::do_pre_move_processing ()
+Separating_line_group_engraver::stop_translation_timestep ()
 {
   if (break_malt_p_)
     {
-      sep_span_p_->add_spacing_unit (break_malt_p_);
-      
-      typeset_element (break_malt_p_);
+      Separating_group_spanner::add_spacing_unit (sep_span_p_, break_malt_p_);
+      typeset_grob (break_malt_p_);
+
       break_malt_p_ =0;
     }
-  if (nobreak_malt_p_)
+
+  if (staff_spacing_)
     {
-      sep_span_p_->add_spacing_unit (nobreak_malt_p_);
-      typeset_element (nobreak_malt_p_);
-      nobreak_malt_p_ =0;
+      if (musical_malt_p_)
+       staff_spacing_->set_grob_property ("right-item", musical_malt_p_->self_scm());
+
+      typeset_grob (staff_spacing_);
+      staff_spacing_ = 0;
     }
+  
+  if (musical_malt_p_)
+    {
+      Separating_group_spanner::add_spacing_unit (sep_span_p_, musical_malt_p_);
+      typeset_grob (musical_malt_p_);
+    }
+
+  last_note_spacing_ = current_note_spacing_ ;
+  current_note_spacing_ =0 ;
+  
+  musical_malt_p_ =0;
 }
 
 
 
-ADD_THIS_TRANSLATOR( Separating_line_group_engraver);
+
+
+ENTER_DESCRIPTION(Separating_line_group_engraver,
+/* descr */       "Generates objects for computing spacing parameters.",
+/* creats*/       "SeparationItem SeparatingGroupSpanner",
+/* acks  */       "grob-interface",
+/* reads */       "",
+/* write */       "");