release: 1.3.30

[lilypond.git] / lily / bar-script-engraver.cc

diff --git a/lily/bar-script-engraver.cc b/lily/bar-script-engraver.cc
index cf741641df458873b038d39cd12d19d70439427f..c41d9d12050f80cc2531cb6cdc03b7e72b4de681 100644 (file)
--- a/lily/bar-script-engraver.cc
+++ b/lily/bar-script-engraver.cc
@@ -9,40 +9,95 @@
 
 #include "bar-script-engraver.hh"
 #include "bar.hh"
-#include "g-staff-side.hh"
-#include "g-text-item.hh"
+#include "clef-item.hh"
+#include "side-position-interface.hh"
+#include "text-item.hh"
 #include "lily-guile.hh"
+#include "paper-column.hh"
+#include "paper-def.hh"
+#include "dimension-cache.hh"
+#include "staff-symbol-referencer.hh"
+#include "side-position-interface.hh"
+#include "staff-symbol.hh"
 
 Bar_script_engraver::Bar_script_engraver ()
 {
   axis_ = Y_AXIS;
-  staff_side_p_ = 0;
   text_p_ =0;
-  visibility_lambda_ 
-    = gh_eval_str ("(lambda (d) (if (= d -1) '(#t . #t) '(#f . #f)))");
 }
 
 void
-Bar_script_engraver::acknowledge_element (Score_element_info i)
+Bar_script_engraver::do_creation_processing ()
+{
+  String t = type_  + "VisibilityFunction";
+  SCM proc = get_property (t);
+
+  if (gh_procedure_p (proc))
+      visibility_lambda_ = proc;
+}
+
+
+/*
+  Some interesting item came across.  Lets attach the text and the
+  positioner to the item.
+
+*/
+ 
+void
+Bar_script_engraver::attach_script_to_item (Item *i)
 {
   Axis other_axis = Axis((axis_ + 1)%2);
-  
-  if (staff_side_p_ && !staff_side_p_->dim_cache_[other_axis].parent_l_) 
+  if (text_p_ && !text_p_->parent_l(other_axis)) 
     {
-      Bar * bar_l = dynamic_cast<Bar*> (i.elem_l_);
-      if (!bar_l)
+      text_p_->set_parent (i,other_axis);
+      text_p_->set_parent (i,axis_);
+
+      if (!text_p_->parent_l(other_axis))
+       text_p_->set_parent (i,other_axis);
+
+      Side_position_interface (text_p_).add_support (i);
+
+      /*
+       How do we make sure that text_p_ has a dependency from
+       someone else? We can't use I for that,  so we use some other element.
+       */
+      // text_p_->set_elt_property ("dangling", SCM_BOOL_T)
+      get_staff_info ().command_pcol_l ()->add_dependency (text_p_);
+    }
+}
+
+/*
+  URG.
+ */
+Item*
+Bar_script_engraver::cast_to_interesting_item (Score_element *e)
+{
+  Item * i =0;
+
+  /*
+    should do type lookup: if (e ->is_type (hang_on_type))
+   */
+  i = dynamic_cast<Bar*> (e);
+
+  return i;
+}
+                                              
+void
+Bar_script_engraver::acknowledge_element (Score_element_info inf)
+{
+  if (inf.origin_trans_l_arr (this).size () == 1)
+    {
+      Item *i=cast_to_interesting_item (inf.elem_l_);
+      if (!i)
        return;
-      
+
       /* Only put numbers on bars that are at our own level (don't put
         numbers over the staffs of a GrandStaff, only over the GrandStaff
         itself */
-      if (i.origin_grav_l_arr_.size () == 1)
-       {
-         staff_side_p_->dim_cache_[other_axis].parent_l_ =  &bar_l->dim_cache_[other_axis];
-         //      staff_side_p_->dim_cache_[axis_].parent_l_ =  &bar_l->dim_cache_[axis_];        
-         staff_side_p_->add_support (i.elem_l_);
-         bar_l->add_dependency (staff_side_p_); // UGH. 
-       }
+      if (inf.origin_trans_l_arr (this).size () != 1)
+       return;
+
+      attach_script_to_item (i);
     }
 }
 
@@ -51,52 +106,51 @@ Bar_script_engraver::do_pre_move_processing ()
 {
   if (text_p_)
     {
-      text_p_->breakable_b_ = true; // ugh
+      Staff_symbol * st = staff_symbol_referencer (text_p_).staff_symbol_l();
+      
+      if (st)
+       side_position (text_p_).add_support (st);
+      
       typeset_element (text_p_);
       text_p_ =0;
     }
-  
-  if (staff_side_p_) 
-    {
-      staff_side_p_->breakable_b_ = true; // ugh
-      typeset_element (staff_side_p_);
-      staff_side_p_ = 0;
-    }
 }
 
 
 void
 Bar_script_engraver::create_items (Request *rq)
 {
-  if (staff_side_p_ || text_p_)
+  if (text_p_)
     return;
   
-  staff_side_p_ = new G_staff_side_item;
-  staff_side_p_->axis_ = axis_;
-  
-  text_p_ = new G_text_item;
+  text_p_ = new Text_item;
+  text_p_->set_elt_property ("breakable", SCM_BOOL_T); // ugh
+  Side_position_interface staffside(text_p_);
+  staffside.set_axis (axis_);
 
-  Scalar prop = get_property (type_ + "Direction", 0);
-  if (prop.isnum_b ())
+  SCM prop = get_property (type_ + "Direction");
+  if (!isdir_b (prop))
     {
-      staff_side_p_->dir_ = (Direction) (int) prop;
+      prop = gh_int2scm (UP);
     }
-  else 
+  text_p_->set_elt_property ("direction", prop);
+
+  SCM padding = get_property (type_ + "ScriptPadding");
+  if (gh_number_p(padding))
     {
-      staff_side_p_->dir_ = UP;
+      text_p_->set_elt_property ("padding", padding);
     }
-
-  staff_side_p_->set_victim(text_p_);
-  
-  Scalar padding = get_property (type_ + "ScriptPadding", 0);
-  if (padding.length_i() && padding.isnum_b ())
+  else
     {
-      staff_side_p_->padding_f_ = Real(padding);
+      text_p_
+       ->set_elt_property ("padding",
+                           gh_double2scm(paper_l ()->get_var ("interline")));
     }
 
-  staff_side_p_->visibility_lambda_  = visibility_lambda_;
-  text_p_->visibility_lambda_ = visibility_lambda_;  
+  if (gh_procedure_p (visibility_lambda_))
+      text_p_->set_elt_property ("visibility-lambda",
+                                visibility_lambda_);
   
   announce_element (Score_element_info (text_p_, rq));
-  announce_element (Score_element_info (staff_side_p_, rq));
 }
+