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