lily/g-script-engraver.cc

   1 /*
   2   script-engraver.cc -- implement G_script_engraver
   3
   4   (c)  1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   5 */
   6
   7 #include "g-script-engraver.hh"
   8 #include "g-script.hh"
   9 #include "g-stem-staff-side.hh"
  10 #include "musical-request.hh"
  11 #include "stem.hh"
  12 #include "staff-symbol.hh"
  13 #include "rhythmic-head.hh"
  14
  15 G_script_engraver::G_script_engraver()
  16 {
  17   do_post_move_processing();
  18 }
  19
  20 bool
  21 G_script_engraver::do_try_music (Music *r_l)
  22 {
  23   if (Articulation_req *mr = dynamic_cast <Articulation_req *> (r_l))
  24     {
  25       for (int i=0; i < script_req_l_arr_.size(); i++)
  26         {
  27           if (script_req_l_arr_[i]->equal_b (mr))
  28             return true;
  29         }
  30       script_req_l_arr_.push (mr);
  31       return true;
  32     }
  33   return false;
  34 }
  35
  36 void
  37 G_script_engraver::do_process_requests()
  38 {
  39   for (int i=0; i < script_req_l_arr_.size(); i++)
  40     {
  41       Articulation_req* l=script_req_l_arr_[i];
  42
  43
  44       SCM list = gh_eval_str (("(articulation-to-scriptdef \"" + l->articulation_str_ + "\")").ch_C());
  45
  46       if (list == SCM_BOOL_F)
  47         {
  48           l->warning(_f("don't know how to interpret articulation `%s'\n",
  49                         l->articulation_str_.ch_C()));
  50           continue;
  51         }
  52       G_script *p =new G_script;
  53       G_stem_staff_side_item * ss =new G_stem_staff_side_item;
  54       list = SCM_CDR (list);
  55
  56       p->set_elt_property (molecule_scm_sym,
  57                            SCM_CAR(list));
  58
  59       list = SCM_CDR(list);
  60       bool follow_staff = gh_scm2bool (SCM_CAR(list));
  61       list = SCM_CDR(list);
  62       int relative_stem_dir = gh_scm2int (SCM_CAR(list));
  63       list = SCM_CDR(list);
  64       int force_dir =gh_scm2int (SCM_CAR(list));
  65       list = SCM_CDR(list);
  66       SCM priority = SCM_CAR(list);
  67
  68       if (relative_stem_dir)
  69           ss->relative_dir_ = relative_stem_dir;
  70       else
  71           ss->dir_ = force_dir;
  72
  73       if (l->dir_)
  74         ss->dir_ = l->dir_;
  75
  76       Real padding = 1.0;
  77       Scalar paddingprop = get_property ("articulationScriptPadding", 0);
  78       if (paddingprop.length_i() && paddingprop.isnum_b ())
  79         {
  80           padding = (Real)paddingprop;
  81         }
  82
  83       ss->staff_support_b_ = !follow_staff;
  84       p->set_staff_side (ss);
  85       ss->set_elt_property (script_priority_scm_sym, priority);
  86       ss->set_elt_property (padding_scm_sym, gh_double2scm(padding));
  87       script_p_arr_.push (p);
  88       staff_side_p_arr_.push (ss);
  89
  90       announce_element (Score_element_info (p, l));
  91       announce_element (Score_element_info (ss, l));
  92     }
  93 }
  94
  95 void
  96 G_script_engraver::acknowledge_element (Score_element_info inf)
  97 {
  98   if (Stem *s = dynamic_cast<Stem*>(inf.elem_l_))
  99     {
 100       for (int i=0; i < staff_side_p_arr_.size(); i++)
 101         if (G_stem_staff_side_item * ss = dynamic_cast<G_stem_staff_side_item*>(staff_side_p_arr_[i]))
 102           {
 103             ss->set_stem (s);
 104             ss->add_support (s);
 105           }
 106     }
 107   else if (Rhythmic_head * rh = dynamic_cast<Rhythmic_head*>(inf.elem_l_))
 108     {
 109       for (int i=0; i < staff_side_p_arr_.size(); i++)
 110         {
 111           G_staff_side_item * ss = dynamic_cast<G_staff_side_item*>(staff_side_p_arr_[i]);
 112
 113           if (!ss->dim_cache_[X_AXIS]->parent_l_)
 114             {
 115               ss->dim_cache_[X_AXIS]->parent_l_ = inf.elem_l_->dim_cache_[X_AXIS];
 116             }
 117           ss->add_support (rh);
 118         }
 119     }
 120 }
 121
 122 void
 123 G_script_engraver::do_pre_move_processing()
 124 {
 125   for (int i=0; i < script_p_arr_.size(); i++)
 126     {
 127       typeset_element (script_p_arr_[i]);
 128       typeset_element (staff_side_p_arr_[i]);
 129     }
 130   script_p_arr_.clear();
 131   staff_side_p_arr_.clear ();
 132 }
 133
 134 void
 135 G_script_engraver::do_post_move_processing()
 136 {
 137   script_req_l_arr_.clear();
 138 }
 139
 140
 141
 142 ADD_THIS_TRANSLATOR(G_script_engraver);
 143