}
LY_DEFINE (ly_pitch_tones, "ly:pitch-tones",
- 1, 0, 0, (SCM pp),
+ 1, 0, 0, (SCM pp),
"Calculate the number of tones of@tie{}@var{pp} from"
" middle@tie{}C as a rational number.")
{
return ly_rational2scm (unsmob_pitch (pp)->tone_pitch ());
}
-
LY_DEFINE (ly_pitch_quartertones, "ly:pitch-quartertones",
1, 0, 0, (SCM pp),
"Calculate the number of quarter tones of@tie{}@var{pp} from"