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