source file of the GNU LilyPond music typesetter
- (c) 1998--1999 Jan Nieuwenhuizen <janneke@gnu.org>
+ (c) 1998--2000 Jan Nieuwenhuizen <janneke@gnu.org>
*/
#include "chord-name-engraver.hh"
#include "main.hh"
#include "dimensions.hh"
#include "text-item.hh"
-#include "lily-guile.icc"
+
ADD_THIS_TRANSLATOR (Chord_name_engraver);
}
void
-Chord_name_engraver::do_process_requests ()
+Chord_name_engraver::do_process_music ()
{
if (chord_name_p_)
return;
return;
bool find_inversion_b = false;
- SCM chord_inversion = get_property ("chordInversion", 0);
+ SCM chord_inversion = get_property ("chordInversion");
if (gh_boolean_p (chord_inversion))
find_inversion_b = gh_scm2bool (chord_inversion);
Hmm, why not represent complete chord as list?
((tonic third fifth) (inversion bass))
*/
- chord_name_p_->set_elt_property ("pitches", array_to_scm (chord.pitch_arr_));
+ SCM plist = SCM_EOL;
+ for (int i= chord.pitch_arr_.size (); i--; )
+ plist = gh_cons (chord.pitch_arr_[i].to_scm (), plist);
+
+ chord_name_p_->set_elt_property ("pitches", plist);
if (chord.inversion_b_)
chord_name_p_->set_elt_property ("inversion",
- to_scm (chord.inversion_pitch_));
+ chord.inversion_pitch_.to_scm ());
if (chord.bass_b_)
- chord_name_p_->set_elt_property ("bass", to_scm (chord.bass_pitch_));
+ chord_name_p_->set_elt_property ("bass", chord.bass_pitch_.to_scm ());
announce_element (Score_element_info (chord_name_p_, 0));
}