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