X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fhairpin.cc;h=afd94f3ee06ada9f66d16a851fed3da119037de5;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=3962b5e14d1e394ab3a140127b961defa11381ae;hpb=4a401ca1c60f428daa242dbdd102fdb3f327ebfb;p=lilypond.git diff --git a/lily/hairpin.cc b/lily/hairpin.cc index 3962b5e14d..afd94f3ee0 100644 --- a/lily/hairpin.cc +++ b/lily/hairpin.cc @@ -1,7 +1,7 @@ /* This file is part of LilyPond, the GNU music typesetter. - Copyright (C) 1997--2011 Han-Wen Nienhuys + Copyright (C) 1997--2015 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 @@ -19,7 +19,9 @@ #include "hairpin.hh" +#include "axis-group-interface.hh" #include "dimensions.hh" +#include "directional-element-interface.hh" #include "international.hh" #include "line-interface.hh" #include "output-def.hh" @@ -29,13 +31,14 @@ #include "staff-symbol-referencer.hh" #include "text-interface.hh" #include "note-column.hh" +#include "system.hh" #include "warn.hh" MAKE_SCHEME_CALLBACK (Hairpin, pure_height, 3); SCM Hairpin::pure_height (SCM smob, SCM, SCM) { - Grob *me = unsmob_grob (smob); + Grob *me = unsmob (smob); Real height = robust_scm2double (me->get_property ("height"), 0.0) * Staff_symbol_referencer::staff_space (me); @@ -46,11 +49,65 @@ Hairpin::pure_height (SCM smob, SCM, SCM) return ly_interval2scm (Interval (-height, height)); } +MAKE_SCHEME_CALLBACK (Hairpin, broken_bound_padding, 1); +SCM +Hairpin::broken_bound_padding (SCM smob) +{ + Spanner *me = unsmob (smob); + Item *r_bound = me->get_bound (RIGHT); + if (r_bound->break_status_dir () != -1) + { + me->warning (_ ("Asking for broken bound padding at a non-broken bound.")); + return scm_from_double (0.0); + } + + System *sys = dynamic_cast (me->get_system ()); + Direction dir = get_grob_direction (me->get_parent (Y_AXIS)); + if (!dir) + return scm_from_double (0.0); + + Grob *my_vertical_axis_group = Grob::get_vertical_axis_group (me); + Drul_array vertical_axis_groups; + for (DOWN_and_UP (d)) + vertical_axis_groups[d] = d == dir + ? sys->get_neighboring_staff (d, my_vertical_axis_group, Interval_t (me->spanned_rank_interval ())) + : my_vertical_axis_group; + + if (!vertical_axis_groups[dir]) + return scm_from_double (0.0); + + Drul_array span_bars (0, 0); + for (DOWN_and_UP (d)) + { + extract_grob_set (vertical_axis_groups[d], "elements", elts); + for (vsize i = elts.size (); i--;) + if (elts[i]->internal_has_interface (ly_symbol2scm ("bar-line-interface")) + && dynamic_cast (elts[i])->break_status_dir () == -1) + { + SCM hsb = elts[i]->get_property ("has-span-bar"); + if (!scm_is_pair (hsb)) + break; + + span_bars[d] = unsmob ((d == UP ? scm_car : scm_cdr) (hsb)); + break; + } + + if (!span_bars[d]) + return scm_from_double (0.0); + } + + if (span_bars[DOWN] != span_bars[UP]) + return scm_from_double (0.0); + + return scm_from_double (robust_scm2double (me->get_property ("bound-padding"), 0.5) + / 2.0); +} + MAKE_SCHEME_CALLBACK (Hairpin, print, 1); SCM Hairpin::print (SCM smob) { - Spanner *me = unsmob_spanner (smob); + Spanner *me = unsmob (smob); SCM s = me->get_property ("grow-direction"); if (!is_direction (s)) @@ -64,22 +121,22 @@ Hairpin::print (SCM smob) Drul_array broken; Drul_array bounds; - Direction d = LEFT; - do + for (LEFT_and_RIGHT (d)) { bounds[d] = me->get_bound (d); broken[d] = bounds[d]->break_status_dir () != CENTER; } - while (flip (&d) != LEFT); - - broken[RIGHT] = broken[RIGHT] && me->broken_neighbor (RIGHT); - broken[RIGHT] = broken[RIGHT] && me->broken_neighbor (RIGHT)->is_live (); if (broken[RIGHT]) { Spanner *next = me->broken_neighbor (RIGHT); - Stencil *s = next->get_stencil (); - if (!s || s->is_empty ()) + // Hairpin-parts suicide in after-line-breaking if they need not be drawn + if (next) + { + (void) next->get_property ("after-line-breaking"); + broken[RIGHT] = next->is_live (); + } + else broken[RIGHT] = false; } @@ -100,28 +157,45 @@ Hairpin::print (SCM smob) if (circled_tip) thick = robust_scm2double (me->get_property ("thickness"), 1.0) * Staff_symbol_referencer::line_thickness (me); + Drul_array shorten = robust_scm2interval (me->get_property ("shorten-pair"), + Interval (0, 0)); - do + for (LEFT_and_RIGHT (d)) { Item *b = bounds[d]; + Interval e = Axis_group_interface::generic_bound_extent (b, common, X_AXIS); + x_points[d] = b->relative_coordinate (common, X_AXIS); if (broken [d]) { if (d == LEFT) - x_points[d] = b->extent (common, X_AXIS)[RIGHT]; + x_points[d] = e[-d]; + else + { + Real broken_bound_padding + = robust_scm2double (me->get_property ("broken-bound-padding"), 0.0); + extract_grob_set (me, "concurrent-hairpins", chp); + for (vsize i = 0; i < chp.size (); i++) + { + Spanner *span_elt = dynamic_cast (chp[i]); + if (span_elt->get_bound (RIGHT)->break_status_dir () == LEFT) + broken_bound_padding = max (broken_bound_padding, + robust_scm2double (span_elt->get_property ("broken-bound-padding"), 0.0)); + } + x_points[d] -= d * broken_bound_padding; + } } else { - if (Text_interface::has_interface (b)) + if (has_interface (b)) { - Interval e = b->extent (common, X_AXIS); if (!e.is_empty ()) x_points[d] = e[-d] - d * padding; } else { bool neighbor_found = false; - Spanner *adjacent; + Spanner *adjacent = NULL; extract_grob_set (me, "adjacent-spanners", neighbors); for (vsize i = 0; i < neighbors.size (); i++) { @@ -140,16 +214,18 @@ Hairpin::print (SCM smob) } } - Interval e = robust_relative_extent (b, common, X_AXIS); if (neighbor_found) { - if (Hairpin::has_interface (adjacent)) + if (has_interface (adjacent)) { /* Handle back-to-back hairpins with a circle in the middle */ if (circled_tip && (grow_dir != d)) - x_points[d] = e.center () + d * (rad - thick / 2.0); + { + x_points[d] = e.center () + d * (rad - thick / 2.0); + shorten[d] = 0.0; + } /* If we're hung on a paper column, that means we're not adjacent to a text-dynamic, and we may move closer. We @@ -158,29 +234,31 @@ Hairpin::print (SCM smob) else x_points[d] = e.center () - d * padding / 3; } - // Our neighbor is a dynamic text spanner, so add the - // same amount of padding as for text dynamics - else + // Our neighbor is a dynamic text spanner. + // If we end on the text, pad as for text dynamics + else if (d == RIGHT) x_points[d] = e[-d] - d * padding; } else { - if (Note_column::has_interface (b) + if (d == RIGHT // end at the left edge of a rest + && has_interface (b) && Note_column::has_rests (b)) x_points[d] = e[-d]; else x_points[d] = e[d]; - Item *bound = me->get_bound (d); - if (bound->is_non_musical (bound)) + if (Item::is_non_musical (b)) x_points[d] -= d * padding; } } } + + x_points[d] -= shorten[d] * d; } - while (flip (&d) != LEFT); Real width = x_points[RIGHT] - x_points[LEFT]; + if (width < 0) { me->warning (_ ((grow_dir < 0) ? "decrescendo too small" @@ -189,18 +267,19 @@ Hairpin::print (SCM smob) } bool continued = broken[Direction (-grow_dir)]; + bool continuing = broken[Direction (grow_dir)]; Real starth = 0; Real endh = 0; if (grow_dir < 0) { - starth = height; - endh = continued ? height / 2 : 0.0; + starth = continuing ? 2 * height / 3 : height; + endh = continued ? height / 3 : 0.0; } else { - starth = continued ? height / 2 : 0.0; - endh = height; + starth = continued ? height / 3 : 0.0; + endh = continuing ? 2 * height / 3 : height; } /* @@ -259,7 +338,10 @@ ADD_INTERFACE (Hairpin, /* properties */ "adjacent-spanners " "circled-tip " + "concurrent-hairpins " + "broken-bound-padding " "bound-padding " "grow-direction " "height " + "shorten-pair " );