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--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "engraver.hh"
  10 #include "side-position-interface.hh"
  11 #include "stem.hh"
  12 #include "rhythmic-head.hh"
  13 #include "self-alignment-interface.hh"
  14 #include "pitch.hh"
  15
  16 class Fingering_engraver : public Engraver
  17 {
  18   Link_array<Music> events_;
  19   Link_array<Item> fingerings_;
  20
  21 public:
  22   TRANSLATOR_DECLARATIONS (Fingering_engraver);
  23 protected:
  24   virtual bool try_music (Music *m);
  25   void stop_translation_timestep ();
  26   void process_music ();
  27   DECLARE_ACKNOWLEDGER (rhythmic_head);
  28   DECLARE_ACKNOWLEDGER (stem);
  29
  30 private:
  31   void make_script (Direction, Music *, int);
  32 };
  33
  34 bool
  35 Fingering_engraver::try_music (Music *m)
  36 {
  37   if (m->is_mus_type ("fingering-event"))
  38     {
  39       events_.push (m);
  40       return true;
  41     }
  42   return false;
  43 }
  44
  45 void
  46 Fingering_engraver::acknowledge_stem (Grob_info inf)
  47 {
  48   for (int i = 0; i < fingerings_.size (); i++)
  49     Side_position_interface::add_support (fingerings_[i], inf.grob ());
  50 }
  51
  52 void
  53 Fingering_engraver::acknowledge_rhythmic_head (Grob_info inf)
  54 {
  55   for (int i = 0; i < fingerings_.size (); i++)
  56     {
  57       Grob *t = fingerings_[i];
  58       Side_position_interface::add_support (t, inf.grob ());
  59       if (!t->get_parent (X_AXIS))
  60         t->set_parent (inf.grob (), X_AXIS);
  61     }
  62 }
  63
  64 void
  65 Fingering_engraver::process_music ()
  66 {
  67   for (int i = events_.size (); i--;)
  68     {
  69       SCM dir = events_[i]->get_property ("direction");
  70       make_script (to_dir (dir), events_[i], i);
  71     }
  72 }
  73
  74 void
  75 Fingering_engraver::make_script (Direction d, Music *r, int i)
  76 {
  77   Item *fingering = make_item ("Fingering", r->self_scm ());
  78   Axis a = Y_AXIS;
  79   Axis other = other_axis (a);
  80
  81   /*
  82     Huh, what's this for? --hwn.
  83
  84     junkme.
  85   */
  86   SCM pitch = r->get_property ("pitch");
  87   if (unsmob_pitch (pitch))
  88     fingering->set_property ("pitch", pitch);
  89
  90   /*
  91     We can't fold these definitions into define-grobs since
  92     fingerings for chords need different settings.
  93   */
  94   Side_position_interface::set_axis (fingering, a);
  95   fingering->add_offset_callback (Self_alignment_interface::aligned_on_self_proc, other);
  96   fingering->add_offset_callback (Self_alignment_interface::centered_on_parent_proc, other);
  97
  98   // Hmm
  99   int priority = 200;
 100   SCM s = fingering->get_property ("script-priority");
 101   if (scm_is_number (s))
 102     priority = scm_to_int (s);
 103
 104   /* See script-engraver.cc */
 105   priority += i;
 106
 107   fingering->set_property ("script-priority", scm_from_int (priority));
 108
 109   if (!is_direction (fingering->get_property_data (ly_symbol2scm ("direction"))))
 110     {
 111       if (d)
 112         fingering->set_property ("direction", scm_from_int (d));
 113       else
 114         fingering->set_property ("direction", scm_from_int (RIGHT));
 115     }
 116
 117   SCM dig = r->get_property ("digit");
 118   fingering->set_property ("text", scm_number_to_string (dig, scm_from_int (10)));
 119
 120   fingerings_.push (fingering);
 121 }
 122
 123 void
 124 Fingering_engraver::stop_translation_timestep ()
 125 {
 126   if (!fingerings_.size ())
 127     return;
 128
 129   fingerings_.clear ();
 130   events_.clear ();
 131 }
 132
 133 Fingering_engraver::Fingering_engraver ()
 134 {
 135 }
 136
 137 #include "translator.icc"
 138
 139 ADD_ACKNOWLEDGER (Fingering_engraver, rhythmic_head);
 140 ADD_ACKNOWLEDGER (Fingering_engraver, stem);
 141 ADD_TRANSLATOR (Fingering_engraver,
 142                 /* doc */ "Create fingering-scripts",
 143                 /* create */ "Fingering",
 144                 /* accept */ "fingering-event",
 145                 /* read */ "",
 146                 /* write */ "");