/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 1998--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 1998--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
junkme.
*/
SCM pitch = r->get_property ("pitch");
- if (unsmob_pitch (pitch))
+ if (Pitch::unsmob (pitch))
fingering->set_property ("pitch", pitch);
/*
fingerings for chords need different settings.
*/
Side_position_interface::set_axis (fingering, Y_AXIS);
- Self_alignment_interface::set_align_self (fingering, X_AXIS);
- Self_alignment_interface::set_center_parent (fingering, X_AXIS);
+ Self_alignment_interface::set_aligned_on_parent (fingering, X_AXIS);
// Hmm
int priority = 200;
fingering->set_property ("script-priority", scm_from_int (priority));
- if (!is_direction (fingering->get_property_data ("direction")))
- {
- if (d)
- fingering->set_property ("direction", scm_from_int (d));
- else
- fingering->set_property ("direction", scm_from_int (RIGHT));
- }
+ if (d)
+ fingering->set_property ("direction", scm_from_int (d));
+ else if (!is_direction (fingering->get_property_data ("direction")))
+ fingering->set_property ("direction", scm_from_int (UP));
fingerings_.push_back (fingering);
}