2 figured-bass-engraver.cc -- implement Figured_bass_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2002--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "engraver.hh"
11 #include "text-item.hh"
15 class Figured_bass_engraver : public Engraver
17 TRANSLATOR_DECLARATIONS (Figured_bass_engraver);
19 Link_array<Music> figures_;
24 virtual bool try_music (Music*);
25 virtual void stop_translation_timestep ();
26 virtual void process_music ();
30 Figured_bass_engraver::Figured_bass_engraver ()
37 Figured_bass_engraver::stop_translation_timestep ()
46 Figured_bass_engraver::try_music (Music*m)
48 if (m->is_mus_type ("bass-figure-event"))
53 else if (m->is_mus_type ("rest-event"))
62 Figured_bass_engraver::process_music ()
66 figure_ = make_item ("BassFigure", rest_req_->self_scm ());
67 figure_->set_property ("text" , scm_makfrom0str ("-"));
69 else if (figures_.size ())
71 SCM proc = get_property ("bassFigureFormatFunction");
72 if (ly_c_procedure_p (proc))
76 for (int i = 0; i < figures_.size (); i++)
78 *t = scm_cons (figures_[i]->self_scm (), SCM_EOL);
81 figure_ = make_item ("BassFigure", figures_[0]->self_scm ());
82 scm_call_3 (proc, l, context ()->self_scm (),
83 figure_->self_scm ());
89 ADD_TRANSLATOR (Figured_bass_engraver,
90 /* descr */ "Make figured bass numbers.",
91 /* creats*/ "BassFigure",
92 /* accepts */ "rest-event bass-figure-event",
94 /* reads */ "bassFigureFormatFunction",