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