lily/script-engraver.cc

   1 /*
   2   script-engraver.cc -- implement Script_engraver
   3
   4   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   5 */
   6
   7
   8 #include "script.hh"
   9 #include "side-position-interface.hh"
  10 #include "musical-request.hh"
  11 #include "stem.hh"
  12 #include "staff-symbol.hh"
  13 #include "rhythmic-head.hh"
  14 #include "dimension-cache.hh"
  15
  16 #include "engraver.hh"
  17
  18 class Script_engraver : public Engraver {
  19   Link_array<Script> script_p_arr_;
  20   Link_array<Articulation_req> script_req_l_arr_;
  21
  22 public:
  23   VIRTUAL_COPY_CONS(Translator);
  24
  25   Script_engraver();
  26 protected:
  27   virtual bool do_try_music (Music*);
  28   virtual void do_process_music ();
  29   virtual void do_pre_move_processing ();
  30   virtual void do_post_move_processing ();
  31   virtual void acknowledge_element (Score_element_info);
  32 };
  33
  34
  35 Script_engraver::Script_engraver()
  36 {
  37   do_post_move_processing();
  38 }
  39
  40 bool
  41 Script_engraver::do_try_music (Music *r_l)
  42 {
  43   if (Articulation_req *mr = dynamic_cast <Articulation_req *> (r_l))
  44     {
  45       for (int i=0; i < script_req_l_arr_.size(); i++)
  46         {
  47           if (script_req_l_arr_[i]->equal_b (mr))
  48             return true;
  49         }
  50       script_req_l_arr_.push (mr);
  51       return true;
  52     }
  53   return false;
  54 }
  55
  56 void
  57 Script_engraver::do_process_music()
  58 {
  59   for (int i=0; i < script_req_l_arr_.size(); i++)
  60     {
  61       Articulation_req* l=script_req_l_arr_[i];
  62
  63       SCM list = scm_assoc (ly_str02scm (l->articulation_str_.ch_C ()),
  64                             scm_eval (ly_symbol2scm ("script-alist")));
  65
  66       if (list == SCM_BOOL_F)
  67         {
  68           l->warning (_f ("Don't know how to interpret articulation `%s'",
  69                         l->articulation_str_.ch_C ()));
  70           continue;
  71         }
  72       // todo -> use result of articulation-to-scriptdef directly as basic prop list.
  73       Script *p =new Script (get_property ("basicScriptProperties"));
  74
  75       p->add_offset_callback (Side_position_interface::centered_on_parent, X_AXIS);
  76       Side_position_interface stafy (p);
  77
  78
  79       list = gh_cdr (list);
  80       p->set_elt_property ("molecule",
  81                            gh_car (list));
  82
  83       list = gh_cdr(list);
  84       bool follow_staff = gh_scm2bool (gh_car (list));
  85       list = gh_cdr(list);
  86       int relative_stem_dir = gh_scm2int (gh_car (list));
  87       list = gh_cdr(list);
  88       int force_dir =gh_scm2int (gh_car (list));
  89       list = gh_cdr(list);
  90       SCM priority = gh_car (list);
  91
  92
  93       if (relative_stem_dir)
  94           p->set_elt_property ("side-relative-direction", gh_int2scm (relative_stem_dir));
  95       else
  96           stafy.set_direction ((Direction)force_dir);
  97
  98       if (l->get_direction ())
  99         stafy.set_direction (l->get_direction ());
 100
 101       SCM axisprop = get_property ("scriptHorizontal");
 102       bool xaxis = to_boolean (axisprop);
 103       if (xaxis)
 104         stafy.set_axis (X_AXIS);
 105       else
 106         stafy.set_axis (Y_AXIS);
 107
 108       if (!follow_staff && ! xaxis)
 109         p->set_elt_property ("staff-support", SCM_BOOL_T);
 110
 111       if (!xaxis && follow_staff)
 112         stafy.set_quantised (Y_AXIS);
 113
 114       p->set_elt_property ("script-priority", priority);
 115
 116       script_p_arr_.push (p);
 117
 118       announce_element (Score_element_info (p, l));
 119     }
 120 }
 121
 122 void
 123 Script_engraver::acknowledge_element (Score_element_info inf)
 124 {
 125   bool them_grace = to_boolean (inf.elem_l_->get_elt_property ("grace"));
 126   bool us_grace = to_boolean (get_property ("weAreGraceContext"));
 127
 128   if (us_grace != them_grace)
 129     return;
 130
 131   if (Stem *s = dynamic_cast<Stem*>(inf.elem_l_))
 132     {
 133       for (int i=0; i < script_p_arr_.size(); i++)
 134         {
 135           Side_position_interface stafy (script_p_arr_[i]);
 136           stafy.elt_l_->set_elt_property ("direction-source", s->self_scm_);
 137           stafy.add_support (s);
 138         }
 139     }
 140   else if (Rhythmic_head * rh = dynamic_cast<Rhythmic_head*>(inf.elem_l_))
 141     {
 142       for (int i=0; i < script_p_arr_.size(); i++)
 143         {
 144           Side_position_interface stafy(script_p_arr_[i]);
 145
 146           if (!stafy.elt_l_->parent_l (X_AXIS))
 147             {
 148               stafy.elt_l_->set_parent (inf.elem_l_, X_AXIS);
 149             }
 150           if (stafy.get_axis () == X_AXIS
 151               && !stafy.elt_l_->parent_l (Y_AXIS))
 152             stafy.elt_l_->set_parent (rh, Y_AXIS);
 153
 154           stafy.add_support (rh);
 155         }
 156     }
 157 }
 158
 159 void
 160 Script_engraver::do_pre_move_processing()
 161 {
 162   for (int i=0; i < script_p_arr_.size(); i++)
 163     {
 164       Script * sc = script_p_arr_[i];
 165       if (to_boolean (sc->remove_elt_property ("staff-support")))
 166         {
 167           Side_position_interface (sc).add_staff_support ();
 168         }
 169       typeset_element (sc);
 170     }
 171   script_p_arr_.clear();
 172 }
 173
 174 void
 175 Script_engraver::do_post_move_processing()
 176 {
 177   script_req_l_arr_.clear();
 178 }
 179
 180 ADD_THIS_TRANSLATOR(Script_engraver);
 181
 182