lily/new-fingering-engraver.cc

   1 /*
   2   fingering-engraver.cc -- implement New_fingering_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "engraver.hh"
  10
  11 #include "international.hh"
  12 #include "rhythmic-head.hh"
  13 #include "script-interface.hh"
  14 #include "self-alignment-interface.hh"
  15 #include "side-position-interface.hh"
  16 #include "stem.hh"
  17 #include "stream-event.hh"
  18 #include "item.hh"
  19 #include "warn.hh"
  20
  21 #include "translator.icc"
  22
  23
  24
  25 struct Finger_tuple
  26 {
  27   Grob *head_;
  28   Grob *script_;
  29   Stream_event *note_event_;
  30   Stream_event *finger_event_;
  31   bool follow_into_staff_;
  32   int position_;
  33
  34   Finger_tuple ()
  35   {
  36     position_ = 0;
  37     head_ = script_ = 0;
  38     note_event_ = finger_event_ = 0;
  39     follow_into_staff_ = false;
  40   }
  41 };
  42
  43 bool
  44 operator< (Finger_tuple const &a, Finger_tuple const &b)
  45 {
  46   return a.position_ < b.position_;
  47 }
  48
  49 class New_fingering_engraver : public Engraver
  50 {
  51   vector<Finger_tuple> fingerings_;
  52   vector<Finger_tuple> stroke_fingerings_;
  53   vector<Finger_tuple> articulations_;
  54   vector<Finger_tuple> string_numbers_;
  55
  56   vector<Grob*> heads_;
  57   Grob *stem_;
  58
  59   void position_all ();
  60 public:
  61   TRANSLATOR_DECLARATIONS (New_fingering_engraver);
  62 protected:
  63   void stop_translation_timestep ();
  64   DECLARE_ACKNOWLEDGER (rhythmic_head);
  65   DECLARE_ACKNOWLEDGER (stem);
  66   void add_fingering (Grob *, SCM,
  67                       vector<Finger_tuple> *,
  68                       Stream_event *, Stream_event *);
  69   void add_script (Grob *, Stream_event *, Stream_event *);
  70   void add_string (Grob *, Stream_event *, Stream_event *);
  71   void position_scripts (SCM orientations, vector<Finger_tuple> *);
  72 };
  73
  74 void
  75 New_fingering_engraver::acknowledge_rhythmic_head (Grob_info inf)
  76 {
  77   Stream_event *note_ev = inf.event_cause ();
  78   if (!note_ev)
  79     return;
  80
  81   SCM arts = note_ev->get_property ("articulations");
  82
  83   for (SCM s = arts; scm_is_pair (s); s = scm_cdr (s))
  84     {
  85       Stream_event *ev = unsmob_stream_event (scm_car (s));
  86
  87       if (!ev)
  88         continue;
  89
  90       if (ev->in_event_class ("fingering-event"))
  91         add_fingering (inf.grob (),
  92                        ly_symbol2scm ("Fingering"),
  93                        &fingerings_,
  94                        ev, note_ev);
  95       else if (ev->in_event_class ("text-script-event"))
  96         ev->origin ()->warning (_ ("cannot add text scripts to individual note heads"));
  97       else if (ev->in_event_class ("script-event"))
  98         add_script (inf.grob (), ev, note_ev);
  99       else if (ev->in_event_class ("string-number-event"))
 100         add_fingering (inf.grob (),
 101                        ly_symbol2scm ("StringNumber"), &string_numbers_,
 102                        ev, note_ev);
 103       else if (ev->in_event_class ("stroke-finger-event"))
 104         add_fingering (inf.grob (),
 105                        ly_symbol2scm ("StrokeFinger"), &stroke_fingerings_,
 106                        ev, note_ev);
 107       else if (ev->in_event_class ("harmonic-event"))
 108         {
 109           inf.grob ()->set_property ("style", ly_symbol2scm ("harmonic"));
 110           Grob *d = unsmob_grob (inf.grob ()->get_object ("dot"));
 111           if (d && !to_boolean (get_property ("harmonicDots")))
 112             d->suicide ();
 113         }
 114     }
 115
 116   heads_.push_back (inf.grob ());
 117 }
 118
 119 void
 120 New_fingering_engraver::acknowledge_stem (Grob_info inf)
 121 {
 122   stem_ = inf.grob ();
 123 }
 124
 125 void
 126 New_fingering_engraver::add_script (Grob *head,
 127                                     Stream_event *event,
 128                                     Stream_event *note)
 129 {
 130   (void) note;
 131
 132   Finger_tuple ft;
 133
 134   Grob *g = make_item ("Script", event->self_scm ());
 135   make_script_from_event (g, context (),
 136                           event->get_property ("articulation-type"), 0);
 137   ft.script_ = g;
 138   ft.script_->set_parent (head, X_AXIS);
 139
 140   articulations_.push_back (ft);
 141 }
 142
 143 void
 144 New_fingering_engraver::add_fingering (Grob *head,
 145                                        SCM grob_sym,
 146                                        vector<Finger_tuple> *tuple_vector,
 147                                        Stream_event *event,
 148                                        Stream_event *hevent)
 149 {
 150   Finger_tuple ft;
 151
 152   ft.script_ = internal_make_item (grob_sym, event->self_scm (),
 153                                    ly_symbol2string (grob_sym).c_str (),
 154                                    __FILE__, __LINE__, __FUNCTION__
 155                                    );
 156
 157   Side_position_interface::add_support (ft.script_, head);
 158
 159   ft.finger_event_ = event;
 160   ft.note_event_ = hevent;
 161   ft.head_ = head;
 162
 163   tuple_vector->push_back (ft);
 164 }
 165
 166 void
 167 New_fingering_engraver::position_scripts (SCM orientations,
 168                                           vector<Finger_tuple> *scripts)
 169 {
 170   for (vsize i = 0; i < scripts->size (); i++)
 171     if (stem_ && to_boolean (scripts->at (i).script_->get_property ("add-stem-support")))
 172       Side_position_interface::add_support (scripts->at (i).script_, stem_);
 173
 174   /*
 175     This is not extremely elegant, but we have to do a little
 176     formatting here, because the parent/child relations should be
 177     known before we move on to the next time step.
 178
 179     A more sophisticated approach would be to set both X and Y parents
 180     to the note head, and write a more flexible function for
 181     positioning the fingerings, setting both X and Y coordinates.
 182   */
 183   for (vsize i = 0; i < scripts->size (); i++)
 184     (*scripts)[i].position_ = scm_to_int ((*scripts)[i].head_->get_property ("staff-position"));
 185
 186   for (vsize i = scripts->size (); i--;)
 187     for (vsize j = heads_.size (); j--;)
 188       Side_position_interface::add_support ((*scripts)[i].script_, heads_[j]);
 189
 190   vector<Finger_tuple> up, down, horiz;
 191   for (vsize i = scripts->size (); i--;)
 192     {
 193       SCM d = (*scripts)[i].finger_event_->get_property ("direction");
 194       if (to_dir (d))
 195         {
 196           ((to_dir (d) == UP) ? up : down).push_back ((*scripts)[i]);
 197           scripts->erase (scripts->begin () + i);
 198         }
 199     }
 200
 201   vector_sort (*scripts, less<Finger_tuple> ());
 202
 203   bool up_p = scm_c_memq (ly_symbol2scm ("up"), orientations) != SCM_BOOL_F;
 204   bool down_p = scm_c_memq (ly_symbol2scm ("down"), orientations) != SCM_BOOL_F;
 205   bool left_p = scm_c_memq (ly_symbol2scm ("left"), orientations) != SCM_BOOL_F;
 206   bool right_p = scm_c_memq (ly_symbol2scm ("right"), orientations) != SCM_BOOL_F;
 207   Direction hordir = (right_p) ? RIGHT : LEFT;
 208   if (left_p || right_p)
 209     {
 210       if (up_p && !up.size () && scripts->size ())
 211         {
 212           up.push_back (scripts->back ());
 213           scripts->pop_back ();
 214         }
 215
 216       if (down_p && !down.size () && scripts->size ())
 217         {
 218           down.push_back ((*scripts)[0]);
 219           scripts->erase (scripts->begin ());
 220         }
 221
 222       horiz.insert (horiz.end (), scripts->begin (), scripts->end ());
 223     }
 224   else if (up_p && down_p)
 225     {
 226       int center = scripts->size () / 2;
 227       down.insert (down.end (), scripts->begin (), scripts->begin () + center);
 228       up.insert (up.end (), scripts->begin () + center, scripts->end ());
 229     }
 230   else if (up_p)
 231     {
 232       up.insert (up.end (), scripts->begin (), scripts->end ());
 233       scripts->clear ();
 234     }
 235   else
 236     {
 237       if (!down_p)
 238         {
 239           warning (_ ("no placement found for fingerings"));
 240           warning (_ ("placing below"));
 241         }
 242       down.insert (down.end (), scripts->begin (), scripts->end ());
 243       scripts->clear ();
 244     }
 245
 246   for (vsize i = 0; i < horiz.size (); i++)
 247     {
 248       Finger_tuple ft = horiz[i];
 249       Grob *f = ft.script_;
 250       f->set_parent (ft.head_, X_AXIS);
 251       f->set_parent (ft.head_, Y_AXIS);
 252       f->set_property ("avoid-slur", SCM_BOOL_F);
 253       if (hordir == LEFT
 254           && unsmob_grob (ft.head_->get_object ("accidental-grob")))
 255         Side_position_interface::add_support (f,
 256                                               unsmob_grob (ft.head_->get_object ("accidental-grob")));
 257
 258       Self_alignment_interface::set_align_self (f, Y_AXIS);
 259       Self_alignment_interface::set_center_parent (f, Y_AXIS);
 260       Side_position_interface::set_axis (f, X_AXIS);
 261
 262       f->set_property ("direction", scm_from_int (hordir));
 263     }
 264
 265   Direction d = DOWN;
 266   Drul_array< vector<Finger_tuple> > vertical (down, up);
 267   do
 268     {
 269       for (vsize i = 0; i < vertical[d].size (); i++)
 270         {
 271           Finger_tuple ft = vertical[d][i];
 272           Grob *f = ft.script_;
 273           int finger_prio = robust_scm2int (f->get_property ("script-priority"), 200);
 274           f->set_parent (ft.head_, X_AXIS);
 275           f->set_property ("script-priority",
 276                            scm_from_int (finger_prio + d * ft.position_));
 277
 278           Self_alignment_interface::set_align_self (f, X_AXIS);
 279           Self_alignment_interface::set_center_parent (f, X_AXIS);
 280           Side_position_interface::set_axis (f, Y_AXIS);
 281
 282           f->set_property ("direction", scm_from_int (d));
 283         }
 284     }
 285   while (flip (&d) != DOWN);
 286 }
 287
 288 void
 289 New_fingering_engraver::stop_translation_timestep ()
 290 {
 291   position_all ();
 292   stem_ = 0;
 293   heads_.clear ();
 294 }
 295
 296
 297 void
 298 New_fingering_engraver::position_all ()
 299 {
 300   if (fingerings_.size ())
 301     {
 302       position_scripts (get_property ("fingeringOrientations"),
 303                         &fingerings_);
 304       fingerings_.clear ();
 305     }
 306
 307   if (string_numbers_.size ())
 308     {
 309       position_scripts (get_property ("stringNumberOrientations"),
 310                         &string_numbers_);
 311       string_numbers_.clear ();
 312     }
 313
 314   if (stroke_fingerings_.size ())
 315     {
 316       position_scripts (get_property ("strokeFingerOrientations"),
 317                         &stroke_fingerings_);
 318       stroke_fingerings_.clear ();
 319     }
 320
 321   for (vsize i = articulations_.size (); i--;)
 322     {
 323       Grob *script = articulations_[i].script_;
 324
 325       for (vsize j = heads_.size (); j--;)
 326         Side_position_interface::add_support (script, heads_[j]);
 327
 328       if (stem_ && to_dir (script->get_property ("side-relative-direction")))
 329         script->set_object ("direction-source", stem_->self_scm ());
 330
 331       if (stem_ && to_boolean (script->get_property ("add-stem-support")))
 332         Side_position_interface::add_support (script, stem_);
 333     }
 334   articulations_.clear ();
 335 }
 336
 337 New_fingering_engraver::New_fingering_engraver ()
 338 {
 339   stem_ = 0;
 340 }
 341
 342
 343 ADD_ACKNOWLEDGER (New_fingering_engraver, rhythmic_head);
 344 ADD_ACKNOWLEDGER (New_fingering_engraver, stem);
 345
 346 ADD_TRANSLATOR (New_fingering_engraver,
 347                 /* doc */
 348                 "Create fingering scripts for notes in a new chord.  This"
 349                 " engraver is ill-named, since it also takes care of"
 350                 " articulations and harmonic note heads.",
 351
 352                 /* create */
 353                 "Fingering "
 354                 "StringNumber "
 355                 "StrokeFinger "
 356                 "Script ",
 357
 358                 /* read */
 359                 "fingeringOrientations "
 360                 "harmonicDots "
 361                 "strokeFingerOrientations "
 362                 "stringNumberOrientations ",
 363
 364                 /* write */
 365                 ""
 366                 );