- int accidental = 6 ; // First accidental: bes
- for ( ; no_of_acc < 0 ; no_of_acc++ )
- {
- Musical_pitch m;
- m.accidental_i_ = -1;
- m.notename_i_ = accidental;
- if (multi)
- key_.set (m.octave_i_, m.notename_i_, m.accidental_i_);
- else
- key_.set (m.notename_i_, m.accidental_i_);
-
- SCM pair = gh_cons (gh_int2scm (m.notename_i_),
- gh_int2scm (m.accidental_i_));
- n = gh_cons (pair, n) ;
- accidental = (accidental + 3) % 7 ;
- }
- }
- else
- {
- int accidental = 3 ; // First accidental: fis
- for ( ; no_of_acc > 0 ; no_of_acc-- )
- {
- Musical_pitch m;
- m.accidental_i_ = 1;
- m.notename_i_ = accidental;
- if (multi)
- key_.set (m.octave_i_, m.notename_i_, m.accidental_i_);
- else
- key_.set (m.notename_i_, m.accidental_i_);
-
- SCM pair = gh_cons (gh_int2scm (m.notename_i_),
- gh_int2scm (m.accidental_i_));
- n = gh_cons (pair, n);
-
- accidental = (accidental + 4) % 7 ;
- }
- }
- }
- else // Special key
- {
- for (int i = 0; i < r->key_->pitch_arr_.size (); i ++)
- {
- Musical_pitch m_l =r->key_->pitch_arr_[i];
- if (multi)
- key_.set (m_l.octave_i_, m_l.notename_i_, m_l.accidental_i_);
- else
- key_.set (m_l.notename_i_, m_l.accidental_i_);
-
- SCM pair = gh_cons (gh_int2scm (m_l.notename_i_),
- gh_int2scm (m_l.accidental_i_));
- n = gh_cons (pair, n);