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<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 create_grobs ();
  28   virtual void acknowledge_grob (Grob_info);
  29 };
  30
  31
  32 void
  33 Script_engraver::initialize ()
  34 {
  35   script_req_l_arr_.clear();
  36 }
  37
  38 bool
  39 Script_engraver::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::create_grobs ()
  56 {
  57   for (int i=0; i < script_req_l_arr_.size(); i++)
  58     {
  59       Articulation_req* l=script_req_l_arr_[i];
  60
  61       SCM alist = get_property ("scriptDefinitions");
  62       SCM art = scm_assoc (l->get_mus_property ("articulation-type"), alist);
  63
  64       if (art == SCM_BOOL_F)
  65         {
  66           String a = ly_scm2string (l->get_mus_property ("articulation-type"));
  67           l->origin ()->warning (_f ("Don't know how to interpret articulation `%s'", a.ch_C()));
  68
  69           continue;
  70         }
  71       // todo -> use result of articulation-to-scriptdef directly as basic prop list.
  72       Grob *p =new Item (get_property ("Script"));
  73       art = gh_cdr (art);
  74       p->set_grob_property ("molecule",
  75                            gh_car (art));
  76
  77       art = gh_cdr(art);
  78       bool follow_staff = gh_scm2bool (gh_car (art));
  79       art = gh_cdr(art);
  80       SCM relative_stem_dir = gh_car (art);
  81       art = gh_cdr(art);
  82
  83       SCM force_dir = l->get_mus_property ("direction");
  84       if (isdir_b (force_dir) && !to_dir (force_dir))
  85         force_dir = gh_car (art);
  86
  87       art = gh_cdr(art);
  88       SCM priority = gh_car (art);
  89
  90
  91       if (isdir_b (force_dir) && to_dir (force_dir))
  92         p->set_grob_property ("direction", force_dir);
  93       else if (to_dir (relative_stem_dir))
  94         p->set_grob_property ("side-relative-direction", relative_stem_dir);
  95
  96
  97
  98       /*
  99         FIXME: should figure this out in relation with basic props!
 100        */
 101       SCM axisprop = get_property ("scriptHorizontal");
 102       bool xaxis = to_boolean (axisprop);
 103       Side_position::set_axis (p, xaxis ? X_AXIS : Y_AXIS);
 104
 105       if (!follow_staff && ! xaxis)
 106         p->set_grob_property ("staff-support", SCM_BOOL_T);
 107
 108       if (!xaxis && follow_staff)
 109         p->add_offset_callback (Side_position::quantised_position_proc, Y_AXIS);
 110
 111
 112       p->set_grob_property ("script-priority", priority);
 113
 114       script_p_arr_.push (p);
 115
 116       announce_grob (p, l);
 117     }
 118   script_req_l_arr_.clear ();
 119 }
 120
 121 void
 122 Script_engraver::acknowledge_grob (Grob_info inf)
 123 {
 124   bool them_grace = to_boolean (inf.elem_l_->get_grob_property ("grace"));
 125   bool us_grace = to_boolean (get_property ("weAreGraceContext"));
 126
 127   if (us_grace != them_grace)
 128     return;
 129
 130   if (Stem::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           e->set_grob_property ("direction-source", inf.elem_l_->self_scm ());
 137           Side_position::add_support (e, inf.elem_l_);
 138         }
 139     }
 140   else if (Rhythmic_head::has_interface (inf.elem_l_))
 141     {
 142       for (int i=0; i < script_p_arr_.size(); i++)
 143         {
 144           Grob *e = script_p_arr_[i];
 145
 146           if (!e->parent_l (X_AXIS))
 147             {
 148               e->set_parent (inf.elem_l_, X_AXIS);
 149             }
 150           if (Side_position::get_axis (e) == X_AXIS
 151               && !e->parent_l (Y_AXIS))
 152             e->set_parent (inf.elem_l_, Y_AXIS);
 153
 154           Side_position::add_support (e,inf.elem_l_);
 155         }
 156     }
 157 }
 158
 159 void
 160 Script_engraver::stop_translation_timestep()
 161 {
 162   for (int i=0; i < script_p_arr_.size(); i++)
 163     {
 164       Grob * sc = script_p_arr_[i];
 165       if (to_boolean (sc->get_grob_property ("staff-support")))
 166         {
 167           Side_position::add_staff_support (sc);
 168         }
 169       typeset_grob (sc);
 170     }
 171   script_p_arr_.clear();
 172 }
 173
 174 void
 175 Script_engraver::start_translation_timestep()
 176 {
 177   script_req_l_arr_.clear();
 178 }
 179
 180 ADD_THIS_TRANSLATOR (Script_engraver);
 181
 182