- Hmm, why not represent complete chord as list?
- ((tonic third fifth) (inversion bass))
- */
- SCM plist = SCM_EOL;
- for (int i= chord_p_->pitch_arr_.size (); i--; )
- plist = gh_cons (chord_p_->pitch_arr_[i].smobbed_copy (), plist);
-
- chord_name_p_->set_elt_property ("pitches", plist);
- if (chord_p_->inversion_b_)
- chord_name_p_->set_elt_property ("inversion",
- chord_p_->inversion_pitch_.smobbed_copy ());
- if (chord_p_->bass_b_)
- chord_name_p_->set_elt_property ("bass", chord_p_->bass_pitch_.smobbed_copy ());