-Chord_name_engraver::create_chord_name ()
-{
- chord_name_p_ = new Item (get_property ("ChordName"));
-
- SCM pitches = gh_car (chord_);
- SCM modifiers = gh_cdr (chord_);
- SCM inversion = gh_car (modifiers);
- SCM bass = gh_cdr (modifiers);
- /* Hmm, maybe chord-name should use (pitches (inversion . base)) too? */
- chord_name_p_->set_elt_property ("pitches", pitches);
- chord_name_p_->set_elt_property ("inversion", inversion);
- chord_name_p_->set_elt_property ("inversion", bass);
-}
-
-void
-Chord_name_engraver::do_pre_move_processing ()