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   void deprecated_process_music ();
  26   virtual void do_pre_move_processing ();
  27   virtual void do_post_move_processing ();
  28   virtual void process_acknowledged ();
  29   virtual void acknowledge_element (Score_element_info);
  30 };
  31
  32
  33 Script_engraver::Script_engraver()
  34 {
  35   do_post_move_processing();
  36 }
  37
  38 bool
  39 Script_engraver::do_try_music (Music *r_l)
  40 {
  41   if (Articulation_req *mr = dynamic_cast <Articulation_req *> (r_l))
  42     {
  43       for (int i=0; i < script_req_l_arr_.size(); i++)
  44         {
  45           if (script_req_l_arr_[i]->equal_b (mr))
  46             return true;
  47         }
  48       script_req_l_arr_.push (mr);
  49       return true;
  50     }
  51   return false;
  52 }
  53
  54 void
  55 Script_engraver::process_acknowledged ()
  56 {
  57   deprecated_process_music ();
  58 }
  59
  60 void
  61 Script_engraver::deprecated_process_music()
  62 {
  63   for (int i=0; i < script_req_l_arr_.size(); i++)
  64     {
  65       Articulation_req* l=script_req_l_arr_[i];
  66
  67       SCM alist = get_property ("scriptDefinitions");
  68       SCM list = scm_assoc (l->get_mus_property ("articulation-type"), alist);
  69
  70       if (list == SCM_BOOL_F)
  71         {
  72           String a = ly_scm2string (l->get_mus_property ("articulation-type"));
  73           l->origin ()->warning (_f ("Don't know how to interpret articulation `%s'", a.ch_C()));
  74
  75           continue;
  76         }
  77       // todo -> use result of articulation-to-scriptdef directly as basic prop list.
  78       Score_element *p =new Item (get_property ("Script"));
  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       SCM relative_stem_dir = gh_car (list);
  87       list = gh_cdr(list);
  88
  89       SCM force_dir = l->get_mus_property ("direction");
  90       if (!isdir_b (force_dir))
  91         force_dir = gh_car (list);
  92       list = gh_cdr(list);
  93       SCM priority = gh_car (list);
  94
  95
  96       if (!isdir_b (force_dir)
  97           && to_dir (relative_stem_dir))
  98         p->set_elt_property ("side-relative-direction", relative_stem_dir);
  99       else
 100         p->set_elt_property ("direction", force_dir);
 101
 102       /*
 103         FIXME: should figure this out in relation with basic props!
 104        */
 105       SCM axisprop = get_property ("scriptHorizontal");
 106       bool xaxis = to_boolean (axisprop);
 107       Side_position::set_axis (p, xaxis ? X_AXIS : Y_AXIS);
 108
 109       if (!follow_staff && ! xaxis)
 110         p->set_elt_property ("staff-support", SCM_BOOL_T);
 111
 112       if (!xaxis && follow_staff)
 113         p->add_offset_callback (Side_position::quantised_position_proc, Y_AXIS);
 114
 115
 116       p->set_elt_property ("script-priority", priority);
 117
 118       script_p_arr_.push (p);
 119
 120       announce_element (p, l);
 121     }
 122   script_req_l_arr_.clear ();
 123 }
 124
 125 void
 126 Script_engraver::acknowledge_element (Score_element_info inf)
 127 {
 128   bool them_grace = to_boolean (inf.elem_l_->get_elt_property ("grace"));
 129   bool us_grace = to_boolean (get_property ("weAreGraceContext"));
 130
 131   if (us_grace != them_grace)
 132     return;
 133
 134   if (Stem::has_interface (inf.elem_l_))
 135     {
 136       for (int i=0; i < script_p_arr_.size(); i++)
 137         {
 138           Score_element*e = script_p_arr_[i];
 139
 140           e->set_elt_property ("direction-source", inf.elem_l_->self_scm ());
 141           Side_position::add_support (e, inf.elem_l_);
 142         }
 143     }
 144   else if (Rhythmic_head::has_interface (inf.elem_l_))
 145     {
 146       for (int i=0; i < script_p_arr_.size(); i++)
 147         {
 148           Score_element *e = script_p_arr_[i];
 149
 150           if (!e->parent_l (X_AXIS))
 151             {
 152               e->set_parent (inf.elem_l_, X_AXIS);
 153             }
 154           if (Side_position::get_axis (e) == X_AXIS
 155               && !e->parent_l (Y_AXIS))
 156             e->set_parent (inf.elem_l_, Y_AXIS);
 157
 158           Side_position::add_support (e,inf.elem_l_);
 159         }
 160     }
 161 }
 162
 163 void
 164 Script_engraver::do_pre_move_processing()
 165 {
 166   for (int i=0; i < script_p_arr_.size(); i++)
 167     {
 168       Score_element * sc = script_p_arr_[i];
 169       if (to_boolean (sc->get_elt_property ("staff-support")))
 170         {
 171           Side_position::add_staff_support (sc);
 172         }
 173       typeset_element (sc);
 174     }
 175   script_p_arr_.clear();
 176 }
 177
 178 void
 179 Script_engraver::do_post_move_processing()
 180 {
 181   script_req_l_arr_.clear();
 182 }
 183
 184 ADD_THIS_TRANSLATOR(Script_engraver);
 185
 186