lily/fingering-engraver.cc

   1 /*
   2   fingering-engraver.cc -- implement Fingering_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "engraver.hh"
  10 #include "pitch.hh"
  11 #include "rhythmic-head.hh"
  12 #include "self-alignment-interface.hh"
  13 #include "side-position-interface.hh"
  14 #include "stem.hh"
  15 #include "stream-event.hh"
  16
  17 #include "translator.icc"
  18
  19 class Fingering_engraver : public Engraver
  20 {
  21   vector<Stream_event*> events_;
  22   vector<Item*> fingerings_;
  23
  24 public:
  25   TRANSLATOR_DECLARATIONS (Fingering_engraver);
  26 protected:
  27   void stop_translation_timestep ();
  28   void process_music ();
  29   DECLARE_TRANSLATOR_LISTENER (fingering);
  30   DECLARE_TRANSLATOR_LISTENER (string_finger);
  31   DECLARE_ACKNOWLEDGER (rhythmic_head);
  32   DECLARE_ACKNOWLEDGER (stem);
  33
  34 private:
  35   void make_script (Direction, Stream_event *, int);
  36 };
  37
  38 IMPLEMENT_TRANSLATOR_LISTENER (Fingering_engraver, fingering);
  39 void
  40 Fingering_engraver::listen_fingering (Stream_event *ev)
  41 {
  42   events_.push_back (ev);
  43 }
  44
  45 IMPLEMENT_TRANSLATOR_LISTENER (Fingering_engraver, string_finger);
  46 void
  47 Fingering_engraver::listen_string_finger (Stream_event *ev)
  48 {
  49   /*
  50     FIXME: should do something.
  51
  52     This function is mainly here to shut up a warning
  53    */
  54   (void)ev;
  55 }
  56
  57 void
  58 Fingering_engraver::acknowledge_stem (Grob_info inf)
  59 {
  60   for (vsize i = 0; i < fingerings_.size (); i++)
  61     Side_position_interface::add_support (fingerings_[i], inf.grob ());
  62 }
  63
  64 void
  65 Fingering_engraver::acknowledge_rhythmic_head (Grob_info inf)
  66 {
  67   for (vsize i = 0; i < fingerings_.size (); i++)
  68     {
  69       Grob *t = fingerings_[i];
  70       Side_position_interface::add_support (t, inf.grob ());
  71       if (!t->get_parent (X_AXIS))
  72         t->set_parent (inf.grob (), X_AXIS);
  73     }
  74 }
  75
  76 void
  77 Fingering_engraver::process_music ()
  78 {
  79   for (vsize i = events_.size (); i--;)
  80     {
  81       SCM dir = events_[i]->get_property ("direction");
  82       make_script (to_dir (dir), events_[i], i);
  83     }
  84 }
  85
  86 void
  87 Fingering_engraver::make_script (Direction d, Stream_event *r, int i)
  88 {
  89   Item *fingering = make_item ("Fingering", r->self_scm ());
  90
  91   /*
  92     Huh, what's this for? --hwn.
  93
  94     junkme.
  95   */
  96   SCM pitch = r->get_property ("pitch");
  97   if (unsmob_pitch (pitch))
  98     fingering->set_property ("pitch", pitch);
  99
 100   /*
 101     We can't fold these definitions into define-grobs since
 102     fingerings for chords need different settings.
 103   */
 104   Side_position_interface::set_axis (fingering, Y_AXIS);
 105   Self_alignment_interface::set_align_self (fingering, X_AXIS);
 106   Self_alignment_interface::set_center_parent (fingering, X_AXIS);
 107
 108   // Hmm
 109   int priority = 200;
 110   SCM s = fingering->get_property ("script-priority");
 111   if (scm_is_number (s))
 112     priority = scm_to_int (s);
 113
 114   /* See script-engraver.cc */
 115   priority += i;
 116
 117   fingering->set_property ("script-priority", scm_from_int (priority));
 118
 119   if (!is_direction (fingering->get_property_data (ly_symbol2scm ("direction"))))
 120     {
 121       if (d)
 122         fingering->set_property ("direction", scm_from_int (d));
 123       else
 124         fingering->set_property ("direction", scm_from_int (RIGHT));
 125     }
 126
 127   fingerings_.push_back (fingering);
 128 }
 129
 130 void
 131 Fingering_engraver::stop_translation_timestep ()
 132 {
 133   if (!fingerings_.size ())
 134     return;
 135
 136   fingerings_.clear ();
 137   events_.clear ();
 138 }
 139
 140 Fingering_engraver::Fingering_engraver ()
 141 {
 142 }
 143
 144 ADD_ACKNOWLEDGER (Fingering_engraver, rhythmic_head);
 145 ADD_ACKNOWLEDGER (Fingering_engraver, stem);
 146
 147 ADD_TRANSLATOR (Fingering_engraver,
 148                 /* doc */
 149                 "Create fingering-scripts",
 150                 /* create */
 151                 "Fingering",
 152                 /* read */ "",
 153                 /* write */ "");