lily/script-engraver.cc

   1 /*
   2   script-engraver.cc -- implement Script_engraver
   3
   4   (c)  1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   5 */
   6
   7 #include "script.hh"
   8 #include "side-position-interface.hh"
   9 #include "musical-request.hh"
  10 #include "stem.hh"
  11 #include "rhythmic-head.hh"
  12 #include "engraver.hh"
  13
  14 class Script_engraver : public Engraver
  15 {
  16   Link_array<Grob> script_p_arr_;
  17   Link_array<Articulation_req> script_req_l_arr_;
  18
  19 public:
  20   VIRTUAL_COPY_CONS (Translator);
  21
  22 protected:
  23   virtual bool try_music (Music*);
  24   virtual void initialize ();
  25   virtual void stop_translation_timestep ();
  26   virtual void start_translation_timestep ();
  27   virtual void process_music ();
  28   virtual void acknowledge_grob (Grob_info);
  29 };
  30
  31 void
  32 Script_engraver::initialize ()
  33 {
  34   script_req_l_arr_.clear ();
  35 }
  36
  37 bool
  38 Script_engraver::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::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 art = scm_assoc (l->get_mus_property ("articulation-type"), alist);
  62
  63       if (art == SCM_BOOL_F)
  64         {
  65           String a = ly_scm2string (l->get_mus_property ("articulation-type"));
  66           l->origin ()->warning (_f ("Don't know how to interpret articulation `%s'", a.ch_C ()));
  67
  68           continue;
  69         }
  70       // todo -> use result of articulation-to-scriptdef directly as basic prop list.
  71       Grob *p =new Item (get_property ("Script"));
  72       art = gh_cdr (art);
  73       p->set_grob_property ("molecule", gh_car (art));
  74
  75       art = gh_cdr (art);
  76       bool follow_staff = gh_scm2bool (gh_car (art));
  77       art = gh_cdr (art);
  78       SCM relative_stem_dir = gh_car (art);
  79       art = gh_cdr (art);
  80
  81       SCM force_dir = l->get_mus_property ("direction");
  82       if (isdir_b (force_dir) && !to_dir (force_dir))
  83         force_dir = gh_car (art);
  84
  85       art = gh_cdr (art);
  86       SCM priority = gh_car (art);
  87
  88       if (isdir_b (force_dir) && to_dir (force_dir))
  89         p->set_grob_property ("direction", force_dir);
  90       else if (to_dir (relative_stem_dir))
  91         p->set_grob_property ("side-relative-direction", relative_stem_dir);
  92
  93
  94       /*
  95         FIXME: should figure this out in relation with basic props!
  96        */
  97       SCM axisprop = get_property ("scriptHorizontal");
  98       bool xaxis = to_boolean (axisprop);
  99       Side_position_interface::set_axis (p, xaxis ? X_AXIS : Y_AXIS);
 100
 101       if (!follow_staff && ! xaxis)
 102         p->set_grob_property ("staff-support", SCM_BOOL_T);
 103
 104       if (!xaxis && follow_staff)
 105         p->add_offset_callback (Side_position_interface::quantised_position_proc, Y_AXIS);
 106
 107
 108       p->set_grob_property ("script-priority", priority);
 109
 110       script_p_arr_.push (p);
 111
 112       announce_grob (p, l);
 113     }
 114 }
 115
 116 void
 117 Script_engraver::acknowledge_grob (Grob_info inf)
 118 {
 119   if (Stem::has_interface (inf.elem_l_))
 120     {
 121       for (int i=0; i < script_p_arr_.size (); i++)
 122         {
 123           Grob*e = script_p_arr_[i];
 124
 125           e->set_grob_property ("direction-source", inf.elem_l_->self_scm ());
 126           e->add_dependency (inf.elem_l_);
 127           Side_position_interface::add_support (e, inf.elem_l_);
 128         }
 129     }
 130   else if (Rhythmic_head::has_interface (inf.elem_l_))
 131     {
 132       for (int i=0; i < script_p_arr_.size (); i++)
 133         {
 134           Grob *e = script_p_arr_[i];
 135
 136           if (!e->parent_l (X_AXIS))
 137             {
 138               e->set_parent (inf.elem_l_, X_AXIS);
 139             }
 140           if (Side_position_interface::get_axis (e) == X_AXIS
 141               && !e->parent_l (Y_AXIS))
 142             {
 143               e->set_parent (inf.elem_l_, Y_AXIS);
 144               e->add_dependency (inf.elem_l_); // ??
 145             }
 146           Side_position_interface::add_support (e,inf.elem_l_);
 147         }
 148     }
 149 }
 150
 151 void
 152 Script_engraver::stop_translation_timestep ()
 153 {
 154   for (int i=0; i < script_p_arr_.size (); i++)
 155     {
 156       Grob * sc = script_p_arr_[i];
 157       if (to_boolean (sc->get_grob_property ("staff-support")))
 158         {
 159           Side_position_interface::add_staff_support (sc);
 160         }
 161       typeset_grob (sc);
 162     }
 163   script_p_arr_.clear ();
 164 }
 165
 166 void
 167 Script_engraver::start_translation_timestep ()
 168 {
 169   script_req_l_arr_.clear ();
 170 }
 171
 172 ADD_THIS_TRANSLATOR (Script_engraver);
 173
 174