release: 1.3.13

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

diff --git a/lily/script-engraver.cc b/lily/script-engraver.cc
index 435e312729ed365241da483aa725374fca0c64c1..65317776bbc7e51782b05f665d18a531618e12ee 100644 (file)
--- a/lily/script-engraver.cc
+++ b/lily/script-engraver.cc
@@ -1,17 +1,17 @@
 /*
-  script-reg.cc -- implement Script_engraver
+  script-engraver.cc -- implement Script_engraver
 
-  (c)  1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c)  1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
 #include "script-engraver.hh"
 #include "script.hh"
+#include "side-position-interface.hh"
 #include "musical-request.hh"
 #include "stem.hh"
-#include "staff-sym.hh"
-#include "general-script-def.hh"
-#include "text-def.hh"
-
+#include "staff-symbol.hh"
+#include "rhythmic-head.hh"
+#include "dimension-cache.hh"
 
 Script_engraver::Script_engraver()
 {
@@ -19,58 +19,120 @@ Script_engraver::Script_engraver()
 }
 
 bool
-Script_engraver::do_try_request (Request *r_l)
+Script_engraver::do_try_music (Music *r_l)
 {
-  if (!r_l->access_Musical_req () || ! r_l->access_Musical_req ()->access_Musical_script_req ())
-    return false ;
-  
-  for (int i=0; i < script_req_l_arr_.size(); i++) 
+  if (Articulation_req *mr = dynamic_cast <Articulation_req *> (r_l))
     {
-      if (r_l->equal_b (script_req_l_arr_[i]))
-       return true;
+      for (int i=0; i < script_req_l_arr_.size(); i++) 
+       {
+         if (script_req_l_arr_[i]->equal_b (mr))
+           return true;
+       }
+      script_req_l_arr_.push (mr);
+      return true;
     }
-  script_req_l_arr_.push (r_l->access_Script_req ());
-  
-  return true;
+  return false;
 }
 
 void
 Script_engraver::do_process_requests()
 {
-  if (script_p_arr_.size ())
-    return ;
-  
   for (int i=0; i < script_req_l_arr_.size(); i++)
     {
-      Script_req* l=script_req_l_arr_[i];
+      Articulation_req* l=script_req_l_arr_[i];
+
+      SCM list = ly_eval_str (("(articulation-to-scriptdef \"" + l->articulation_str_ + "\")").ch_C());
+      
+      if (list == SCM_BOOL_F)
+       {
+         l->warning (_f ("Don't know how to interpret articulation `%s'",
+                       l->articulation_str_.ch_C ()));
+         continue;
+       }
       Script *p =new Script;
-      p->dir_ = l->dir_;
-      p->specs_p_ = l->scriptdef_p_->clone ();
+      Side_position_interface stafy (p);
+      
+      
+      list = gh_cdr (list);
+      p->set_elt_property ("molecule",
+                          gh_car (list));
+
+      list = gh_cdr(list);
+      bool follow_staff = gh_scm2bool (gh_car (list));
+      list = gh_cdr(list);
+      int relative_stem_dir = gh_scm2int (gh_car (list));
+      list = gh_cdr(list);
+      int force_dir =gh_scm2int (gh_car (list));
+      list = gh_cdr(list);
+      SCM priority = gh_car (list);
+
+      
+      if (relative_stem_dir)
+         p->set_elt_property ("side-relative-direction", gh_int2scm (relative_stem_dir));
+      else
+         stafy.set_direction ((Direction)force_dir);
+
+      if (l->get_direction ())
+       stafy.set_direction (l->get_direction ());
+
+      SCM axisprop = get_property ("scriptHorizontal",0);
+      bool xaxis = gh_boolean_p (axisprop) && gh_scm2bool (axisprop);
+      if (xaxis)
+       stafy.set_axis (X_AXIS);
+      else
+       stafy.set_axis (Y_AXIS);
+      
+      if (!follow_staff && ! xaxis)
+       p->set_elt_property ("staff-support", SCM_BOOL_T);
+
+      if (!xaxis && follow_staff)
+       stafy.set_quantised (Y_AXIS);
+      
+      p->set_elt_property ("script-priority", priority);
+  
       script_p_arr_.push (p);
+      
       announce_element (Score_element_info (p, l));
     }
 }
 
 void
-Script_engraver::do_pre_move_processing()
+Script_engraver::acknowledge_element (Score_element_info inf)
 {
-  Staff_symbol* s_l = get_staff_info().staff_sym_l_;
-  for (int i=0; i < script_p_arr_.size(); i++) 
+  if (Stem *s = dynamic_cast<Stem*>(inf.elem_l_))
     {
-      Script*script_p = script_p_arr_[i];
-      if (!script_p->specs_p_->inside_b())
-       script_p->add_support (s_l);
-
-      if (script_p->specs_p_->is_type_b (Text_def::static_name ()))
+      for (int i=0; i < script_p_arr_.size(); i++)
+       {
+         Side_position_interface stafy (script_p_arr_[i]);
+         stafy.elt_l_->set_elt_property ("direction-source", s->self_scm_);
+         stafy.add_support (s);
+       }
+    }
+  else if (Rhythmic_head * rh = dynamic_cast<Rhythmic_head*>(inf.elem_l_))
+    {
+      for (int i=0; i < script_p_arr_.size(); i++)
        {
-         Text_def * td_l = (Text_def*)script_p->specs_p_;
-         Scalar style = get_property ("textstyle");
-         if (style.to_bool ())
+         Side_position_interface stafy(script_p_arr_[i]);
+         
+         if (!stafy.elt_l_->parent_l (X_AXIS))
            {
-             td_l->style_str_= style;
+             stafy.elt_l_->set_parent (inf.elem_l_, X_AXIS);
            }
+         if (stafy.get_axis () == X_AXIS
+             && !stafy.elt_l_->parent_l (Y_AXIS))
+           stafy.elt_l_->set_parent (rh, Y_AXIS);
+         
+         stafy.add_support (rh);
        }
-      typeset_element (script_p);
+    }  
+}
+
+void
+Script_engraver::do_pre_move_processing()
+{
+  for (int i=0; i < script_p_arr_.size(); i++) 
+    {
+      typeset_element (script_p_arr_[i]);
     }
   script_p_arr_.clear();
 }
@@ -81,6 +143,6 @@ Script_engraver::do_post_move_processing()
   script_req_l_arr_.clear();
 }
 
-
-IMPLEMENT_IS_TYPE_B1(Script_engraver,Engraver);
 ADD_THIS_TRANSLATOR(Script_engraver);
+
+