/*
- key-performer.cc -- implement Key_performer
+ This file is part of LilyPond, the GNU music typesetter.
- source file of the GNU LilyPond music typesetter
+ Copyright (C) 1997--2012 Jan Nieuwenhuizen <janneke@gnu.org>
- (c) 1997--2008 Jan Nieuwenhuizen <janneke@gnu.org>
+ LilyPond is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
+
+ LilyPond is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
*/
#include "audio-item.hh"
SCM acc = scm_call_1 (proc, pitchlist);
Pitch key_do (0,
- scm_to_int (scm_caar (pitchlist)),
- ly_scm2rational (scm_cdar (pitchlist)));
+ scm_to_int (scm_caar (pitchlist)),
+ ly_scm2rational (scm_cdar (pitchlist)));
Pitch c_do (0, 0, 0);
SCM c_pitchlist
- = ly_transpose_key_alist (pitchlist,
- pitch_interval (key_do, c_do).smobbed_copy ());
+ = ly_transpose_key_alist (pitchlist,
+ pitch_interval (key_do, c_do).smobbed_copy ());
/* MIDI keys are too limited for lilypond scales.
- We check for minor scale and assume major otherwise. */
+ We check for minor scale and assume major otherwise. */
SCM third = scm_assoc (scm_from_int (2),
- c_pitchlist);
+ c_pitchlist);
bool minor = (scm_is_pair (third)
- && scm_is_number (scm_cdr (third))
- && ly_scm2rational (scm_cdr (third)) == FLAT_ALTERATION);
+ && scm_is_number (scm_cdr (third))
+ && ly_scm2rational (scm_cdr (third)) == FLAT_ALTERATION);
audio_ = new Audio_key (scm_to_int (acc),
- !minor);
+ !minor);
Audio_element_info info (audio_, key_ev_);
announce_element (info);
}
ADD_TRANSLATOR (Key_performer,
- /* doc */
- "",
+ /* doc */
+ "",
- /* create */
- "",
+ /* create */
+ "",
- /* read */
- "",
+ /* read */
+ "",
- /* write */
- ""
- );
+ /* write */
+ ""
+ );