source file of the GNU LilyPond music typesetter
- (c) 1997--2006 Jan Nieuwenhuizen <janneke@gnu.org>
+ (c) 1997--2007 Jan Nieuwenhuizen <janneke@gnu.org>
*/
#include "audio-item.hh"
Pitch key_do (0,
scm_to_int (scm_caar (pitchlist)),
- scm_to_int (scm_cdar (pitchlist)));
+ ly_scm2rational (scm_cdar (pitchlist)));
Pitch c_do (0, 0, 0);
SCM third = scm_assoc (scm_from_int (2),
c_pitchlist);
bool minor = (scm_is_pair (third)
- && scm_is_integer (scm_cdr (third))
- && scm_to_int (scm_cdr (third)) == FLAT);
+ && scm_is_number (scm_cdr (third))
+ && ly_scm2rational (scm_cdr (third)) == FLAT_ALTERATION);
audio_ = new Audio_key (scm_to_int (acc),
!minor);
{
if (audio_)
{
- play_element (audio_);
audio_ = 0;
}
}
}
ADD_TRANSLATOR (Key_performer,
- "", "",
- "key-change-event",
- "", "");
+ /* doc */
+ "",
+
+ /* create */
+ "",
+
+ /* read */
+ "",
+
+ /* write */
+ ""
+ );