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       ss->staff_support_b_ = !follow_staff;
  77       p->set_staff_side (ss);
  78       ss->set_elt_property (script_priority_scm_sym, priority);
  79       ss->set_elt_property (padding_scm_sym, gh_double2scm(1.0));
  80       script_p_arr_.push (p);
  81       staff_side_p_arr_.push (ss);
  82
  83       announce_element (Score_element_info (p, l));
  84       announce_element (Score_element_info (ss, l));
  85     }
  86 }
  87
  88 void
  89 G_script_engraver::acknowledge_element (Score_element_info inf)
  90 {
  91   if (Stem *s = dynamic_cast<Stem*>(inf.elem_l_))
  92     {
  93       for (int i=0; i < staff_side_p_arr_.size(); i++)
  94         if (G_stem_staff_side_item * ss = dynamic_cast<G_stem_staff_side_item*>(staff_side_p_arr_[i]))
  95           {
  96             ss->set_stem (s);
  97             ss->add_support (s);
  98           }
  99     }
 100   else if (Rhythmic_head * rh = dynamic_cast<Rhythmic_head*>(inf.elem_l_))
 101     {
 102       for (int i=0; i < staff_side_p_arr_.size(); i++)
 103         {
 104           G_staff_side_item * ss = dynamic_cast<G_staff_side_item*>(staff_side_p_arr_[i]);
 105
 106           if (!ss->dim_cache_[X_AXIS].parent_l_)
 107             {
 108               ss->dim_cache_[X_AXIS].parent_l_ = &inf.elem_l_->dim_cache_[X_AXIS];
 109             }
 110           ss->add_support (rh);
 111         }
 112     }
 113 }
 114
 115 void
 116 G_script_engraver::do_pre_move_processing()
 117 {
 118   for (int i=0; i < script_p_arr_.size(); i++)
 119     {
 120       typeset_element (script_p_arr_[i]);
 121       typeset_element (staff_side_p_arr_[i]);
 122     }
 123   script_p_arr_.clear();
 124   staff_side_p_arr_.clear ();
 125 }
 126
 127 void
 128 G_script_engraver::do_post_move_processing()
 129 {
 130   script_req_l_arr_.clear();
 131 }
 132
 133
 134
 135 ADD_THIS_TRANSLATOR(G_script_engraver);
 136