lily/figured-bass-engraver.cc

   1 /*
   2 figured-bass-engraver.cc --  implement Figured_bass_engraver
   3
   4 source file of the GNU LilyPond music typesetter
   5
   6 (c) 2002--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "engraver.hh"
  11 #include "text-item.hh"
  12 #include "item.hh"
  13 #include "context.hh"
  14
  15 class Figured_bass_engraver : public Engraver
  16 {
  17   TRANSLATOR_DECLARATIONS (Figured_bass_engraver);
  18 protected:
  19   Link_array<Music> figures_;
  20   Music * rest_req_;
  21
  22   Grob * figure_;
  23
  24   virtual bool try_music (Music*);
  25   virtual void stop_translation_timestep ();
  26   virtual void process_music ();
  27 };
  28
  29
  30 Figured_bass_engraver::Figured_bass_engraver ()
  31 {
  32   figure_ = 0;
  33   rest_req_ = 0;
  34 }
  35
  36 void
  37 Figured_bass_engraver::stop_translation_timestep ()
  38 {
  39   figure_ = 0;
  40
  41   figures_.clear ();
  42   rest_req_ = 0;
  43 }
  44
  45 bool
  46 Figured_bass_engraver::try_music (Music*m)
  47 {
  48   if (m->is_mus_type ("bass-figure-event"))
  49     {
  50       figures_.push (m);
  51       return true;
  52     }
  53   else if (m->is_mus_type ("rest-event"))
  54     {
  55       rest_req_ = m;
  56       return true;
  57     }
  58   return false;
  59 }
  60
  61 void
  62 Figured_bass_engraver::process_music ()
  63 {
  64   if (rest_req_)
  65     {
  66       figure_ = make_item ("BassFigure", rest_req_->self_scm ());
  67       figure_->set_property ("text" , scm_makfrom0str ("-"));
  68     }
  69   else if (figures_.size ())
  70     {
  71       SCM proc = get_property ("bassFigureFormatFunction");
  72       if (ly_c_procedure_p (proc))
  73         {
  74           SCM l = SCM_EOL;
  75           SCM * t = &l;
  76           for (int i = 0; i < figures_.size (); i++)
  77             {
  78               *t = scm_cons (figures_[i]->self_scm (), SCM_EOL);
  79               t = SCM_CDRLOC (*t);
  80             }
  81           figure_ = make_item ("BassFigure", figures_[0]->self_scm ());
  82           scm_call_3 (proc, l, context ()->self_scm (),
  83                       figure_->self_scm ());
  84         }
  85     }
  86 }
  87
  88
  89 ADD_TRANSLATOR (Figured_bass_engraver,
  90 /* descr */       "Make figured bass numbers.",
  91 /* creats*/       "BassFigure",
  92 /* accepts */     "rest-event bass-figure-event",
  93 /* acks  */      "",
  94 /* reads */       "bassFigureFormatFunction",
  95 /* write */       "");