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> reqs_;
  20   Link_array<Item> fingerings_;
  21
  22 public:
  23   TRANSLATOR_DECLARATIONS (Fingering_engraver);
  24 protected:
  25   virtual bool try_music (Music *m);
  26   PRECOMPUTED_VIRTUAL void stop_translation_timestep ();
  27   PRECOMPUTED_VIRTUAL void start_translation_timestep ();
  28   PRECOMPUTED_VIRTUAL void process_music ();
  29   virtual void acknowledge_grob (Grob_info);
  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       reqs_.push (m);
  41       return true;
  42     }
  43   return false;
  44 }
  45
  46 void
  47 Fingering_engraver::acknowledge_grob (Grob_info inf)
  48 {
  49   if (Stem::has_interface (inf.grob ()))
  50     {
  51       for (int i = 0; i < fingerings_.size (); i++)
  52         {
  53           Side_position_interface::add_support (fingerings_[i], inf.grob ());
  54         }
  55     }
  56   else if (Rhythmic_head::has_interface (inf.grob ()))
  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
  68 void
  69 Fingering_engraver::process_music ()
  70 {
  71   for (int i = reqs_.size (); i--;)
  72     {
  73       SCM dir = reqs_[i]->get_property ("direction");
  74       make_script (to_dir (dir), reqs_[i], i);
  75     }
  76 }
  77
  78 void
  79 Fingering_engraver::make_script (Direction d, Music *r, int i)
  80 {
  81   Item *fingering = make_item ("Fingering", r->self_scm ());
  82   Axis a = Y_AXIS;
  83   Axis other = other_axis (a);
  84
  85   /*
  86     Huh, what's this for? --hwn.
  87
  88     junkme.
  89   */
  90   SCM pitch = r->get_property ("pitch");
  91   if (unsmob_pitch (pitch))
  92     fingering->set_property ("pitch", pitch);
  93
  94   /*
  95     We can't fold these definitions into define-grobs since
  96     fingerings for chords need different settings.
  97   */
  98   Side_position_interface::set_axis (fingering, a);
  99   fingering->add_offset_callback (Self_alignment_interface::aligned_on_self_proc, other);
 100   fingering->add_offset_callback (Self_alignment_interface::centered_on_parent_proc, other);
 101
 102   // Hmm
 103   int priority = 200;
 104   SCM s = fingering->get_property ("script-priority");
 105   if (scm_is_number (s))
 106     priority = scm_to_int (s);
 107
 108   /* See script-engraver.cc */
 109   priority += i;
 110
 111   fingering->set_property ("script-priority", scm_int2num (priority));
 112
 113   if (!is_direction (fingering->get_property ("direction")))
 114     {
 115       if (d)
 116         fingering->set_property ("direction", scm_int2num (d));
 117       else
 118         fingering->set_property ("direction", scm_int2num (RIGHT));
 119     }
 120
 121   SCM dig = r->get_property ("digit");
 122   fingering->set_property ("text", scm_number_to_string (dig, scm_int2num (10)));
 123
 124   fingerings_.push (fingering);
 125 }
 126
 127 void
 128 Fingering_engraver::stop_translation_timestep ()
 129 {
 130   if (!fingerings_.size ())
 131     return;
 132
 133   fingerings_.clear ();
 134 }
 135
 136 void
 137 Fingering_engraver::start_translation_timestep ()
 138 {
 139   reqs_.clear ();
 140 }
 141
 142 Fingering_engraver::Fingering_engraver ()
 143 {
 144 }
 145
 146 #include "translator.icc"
 147
 148 ADD_TRANSLATOR (Fingering_engraver,
 149                 /* descr */ "Create fingering-scripts",
 150                 /* creats*/ "Fingering",
 151                 /* accepts */ "fingering-event",
 152                 /* acks  */ "rhythmic-head-interface stem-interface",
 153                 /* reads */ "",
 154                 /* write */ "");