X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Ftie-column.cc;h=ad89411d5d89c1ea23cd3519a8f21befb0c7d277;hb=47db9a3883d726ca53e2133a3b2298f78dd6a32e;hp=9b488a6f744e13cec4ca7740ee81f7923f8a3411;hpb=545092a25d8ca41dc90b87482474b3719f7130a9;p=lilypond.git diff --git a/lily/tie-column.cc b/lily/tie-column.cc index 9b488a6f74..ad89411d5d 100644 --- a/lily/tie-column.cc +++ b/lily/tie-column.cc @@ -1,15 +1,27 @@ /* - tie-column.cc -- implement Tie_column + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter + Copyright (C) 2000--2015 Han-Wen Nienhuys - (c) 2000--2005 Han-Wen Nienhuys + 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 . */ #include "tie-column.hh" #include +#include "output-def.hh" #include "skyline.hh" #include "warn.hh" #include "paper-column.hh" @@ -17,21 +29,26 @@ #include "pointer-group-interface.hh" #include "tie.hh" #include "directional-element-interface.hh" -#include "tie-column-format.hh" +#include "tie-formatting-problem.hh" +#include "tie-configuration.hh" using namespace std; void -Tie_column::add_tie (Grob *me, Grob *tie) +Tie_column::add_tie (Grob *tc, Grob *tie) { + Spanner *me = dynamic_cast (tc); + if (tie->get_parent (Y_AXIS) && Tie_column::has_interface (tie->get_parent (Y_AXIS))) return; - if (!Pointer_group_interface::count (me, ly_symbol2scm ("ties"))) + if (!me->get_bound (LEFT) + || (Paper_column::get_rank (me->get_bound (LEFT)->get_column ()) + > Paper_column::get_rank (dynamic_cast (tie)->get_bound (LEFT)->get_column ()))) { - dynamic_cast (me)->set_bound (LEFT, Tie::head (tie, LEFT)); - dynamic_cast (me)->set_bound (RIGHT, Tie::head (tie, RIGHT)); + me->set_bound (LEFT, Tie::head (tie, LEFT)); + me->set_bound (RIGHT, Tie::head (tie, RIGHT)); } tie->set_parent (me, Y_AXIS); @@ -45,130 +62,63 @@ MAKE_SCHEME_CALLBACK (Tie_column, before_line_breaking, 1); SCM Tie_column::before_line_breaking (SCM smob) { - Spanner *me = dynamic_cast (unsmob_grob (smob)); + Spanner *me = dynamic_cast (Grob::unsmob (smob)); for (SCM s = me->get_property ("ties"); scm_is_pair (s); s = scm_cdr (s)) { - Spanner *tie = dynamic_cast (unsmob_grob (scm_car (s))); - Direction dir = LEFT; - do - { - if (dir * tie->get_bound (dir)->get_column ()->get_rank () - > dir * me->get_bound (dir)->get_column ()->get_rank ()) - me->set_bound (dir, Tie::head (tie, dir)); - } - while (flip (&dir) != LEFT); + Spanner *tie = dynamic_cast (Grob::unsmob (scm_car (s))); + for (LEFT_and_RIGHT (dir)) + { + if (dir * tie->get_bound (dir)->get_column ()->get_rank () + > dir * me->get_bound (dir)->get_column ()->get_rank ()) + me->set_bound (dir, Tie::head (tie, dir)); + } } - + return SCM_UNSPECIFIED; } -MAKE_SCHEME_CALLBACK(Tie_column, calc_positioning_done, 1) +MAKE_SCHEME_CALLBACK (Tie_column, calc_positioning_done, 1) SCM Tie_column::calc_positioning_done (SCM smob) { - Grob *me = unsmob_grob (smob); + Grob *me = Grob::unsmob (smob); extract_grob_set (me, "ties", ro_ties); - Link_array ties (ro_ties); + vector ties (ro_ties); if (!ties.size ()) return SCM_BOOL_T; - if (ties.size() == 1) - { - /* - Already handled by standard mechanisms. - */ - return SCM_BOOL_T; - } - - ties.sort (&Tie::compare); + me->set_property ("positioning-done", SCM_BOOL_T); + vector_sort (ties, Tie::less); - Array tie_configs; - for (int i = 0; i < ties.size (); i++) - { - Tie_configuration conf; - conf.dir_ = get_grob_direction (ties[i]); - conf.position_ = Tie::get_position (ties[i]); - tie_configs.push (conf); - } + Tie_formatting_problem problem; + problem.from_ties (ties); SCM manual_configs = me->get_property ("tie-configuration"); - bool manual_override = false; - set_manual_tie_configuration (&tie_configs, - &manual_override, - manual_configs); - set_tie_config_directions (&tie_configs); - - Grob *common = me; - for (int i = 0; i < ties.size (); i++) - { - common = dynamic_cast (ties[i])->get_bound (LEFT)->common_refpoint (common, X_AXIS); - common = dynamic_cast (ties[i])->get_bound (RIGHT)->common_refpoint (common, X_AXIS); - } - - Drul_array< Array > skylines; - set_chord_outlines (&skylines, ties, common); - - Tie_details details; - details.init (ties[0]); + problem.set_manual_tie_configuration (manual_configs); - /* - Let the ties flow out, according to our single-tie formatting. - */ - if (!manual_override) + Ties_configuration base = problem.generate_optimal_configuration (); + for (vsize i = 0; i < base.size (); i++) { - Tie::get_configuration (ties[0], common, &tie_configs.elem_ref (0), - &skylines, - details - ); - Tie::get_configuration (ties.top (), common, - &tie_configs.elem_ref (tie_configs.size()-1), - &skylines, - details - ); - } - - /* - Calculate final width and shape of the ties. - */ - for (int i = 0; i < ties.size(); i++) - { - if (!manual_override - && (i == 0 || i == ties.size () -1)) - continue; + SCM cp = Tie::get_control_points (ties[i], problem.common_x_refpoint (), + base[i], + problem.details_); + ties[i]->set_property ("control-points", cp); + set_grob_direction (ties[i], + base[i].dir_); - final_shape_adjustment (tie_configs[i], - skylines, - ties[0], - details); - } - - - /* - Try to shift small ties into available spaces. - */ - if (!manual_override) - { - shift_small_ties (&tie_configs, ties[0], details); - } - - for (int i = 0; i < ties.size(); i++) - { - Tie::set_control_points (ties[i], common, tie_configs[i], - details - ); - set_grob_direction (ties[i], tie_configs[i].dir_); + problem.set_debug_scoring (base); } return SCM_BOOL_T; } +ADD_INTERFACE (Tie_column, + "Object that sets directions of multiple ties in a tied" + " chord.", - -ADD_INTERFACE (Tie_column, "tie-column-interface", - "Object that sets directions of multiple ties in a tied chord", - - /* properties */ - "positioning-done " - "tie-configuration " - ); + /* properties */ + "positioning-done " + "tie-configuration " + "ties " + );