X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fspacing-spanner.cc;h=827213d9fd089b1046a4a5d2f614c6576a89fa6a;hb=b638d530ac5a32a832646cdd2b680ce52d0764f0;hp=479855cdcd38307e46a9b399eb13ce114732123c;hpb=0a92b605eb18b62d171c97f354c2101109d9e071;p=lilypond.git diff --git a/lily/spacing-spanner.cc b/lily/spacing-spanner.cc index 479855cdcd..827213d9fd 100644 --- a/lily/spacing-spanner.cc +++ b/lily/spacing-spanner.cc @@ -3,41 +3,27 @@ source file of the GNU LilyPond music typesetter - (c) 1999 Han-Wen Nienhuys + (c) 1999--2000 Han-Wen Nienhuys */ #include "spacing-spanner.hh" -#include "score-column.hh" +#include "paper-column.hh" #include "dimensions.hh" #include "paper-def.hh" #include "warn.hh" #include "paper-score.hh" #include "line-of-score.hh" +#include "misc.hh" -Spacing_spanner::Spacing_spanner () +Spacing_spanner::Spacing_spanner (SCM s) + : Spanner (s) { - set_elt_property (break_helper_only_scm_sym, SCM_BOOL_T); - set_elt_property (transparent_scm_sym, SCM_BOOL_T); -} - -int -Spacing_spanner::col_count () const -{ - return pscore_l_->line_l_->cols_.size (); -} - -Score_column * -Spacing_spanner::scol (int i)const -{ - return dynamic_cast (pscore_l_->line_l_->cols_[i]); + set_extent_callback (0, X_AXIS); + set_extent_callback (0, Y_AXIS); } /* - cut 'n paste from spring-spacer.cc - - generate springs between columns. - The algorithm is partly taken from : @@ -46,43 +32,50 @@ Spacing_spanner::scol (int i)const Science, The Ohio State University, 1987. TOO HAIRY. + + TODO: write comments */ Array -Spacing_spanner::do_measure (int col1, int col2) const +Spacing_spanner::do_measure (Link_array cols) const { - for (int i =col1; i < col2; i++) - { - scol (i)->preprocess (); - scol (i)->print (); - } - Moment shortest; + Moment mean_shortest; shortest.set_infinite (1); - for (int i =col1; i < col2; i++) + + int n = 0; + for (int i =0 ; i < cols.size (); i++) { - if (scol(i)->musical_b ()) + if (cols[i]->musical_b ()) { - shortest = shortest shortest_starter_mom_; + SCM st = cols[i]->get_elt_property ("shortest-starter-duration"); + Moment this_shortest = (*SMOB_TO_TYPE(Moment, st)); + shortest = shortest meas_springs; Real non_musical_space_strength = paper_l ()->get_var ("breakable_column_space_strength"); - for (int i= col1; i < col2; i++) + for (int i= 0; i < cols.size () - 1; i++) { - Item * l = scol(i); - Item * r = scol(i+1); - Item * lb = l->find_broken_piece (RIGHT); - Item * rb = r->find_broken_piece (LEFT); + Item * l = cols[i]; + Item * r = cols[i+1]; + Item * lb = l->find_prebroken_piece (RIGHT); + Item * rb = r->find_prebroken_piece (LEFT); Item* combinations[4][2]={{l,r}, {lb,r}, {l,rb},{lb,rb}}; for (int j=0; j < 4; j++) { - Score_column * lc = dynamic_cast (combinations[j][0]); - Score_column *rc = dynamic_cast (combinations[j][1]); + Paper_column * lc = dynamic_cast (combinations[j][0]); + Paper_column *rc = dynamic_cast (combinations[j][1]); if (!lc || !rc) continue; @@ -90,19 +83,18 @@ Spacing_spanner::do_measure (int col1, int col2) const s.item_l_drul_[LEFT] = lc; s.item_l_drul_[RIGHT] = rc; - SCM hint = lc->get_elt_property (extra_space_scm_sym); - SCM next_hint = rc->get_elt_property (extra_space_scm_sym); - SCM stretch_hint = lc->get_elt_property (stretch_distance_scm_sym); - SCM next_stretch_hint = rc->get_elt_property (stretch_distance_scm_sym); + SCM hint = lc->get_elt_property ("extra-space"); + SCM next_hint = rc->get_elt_property ("extra-space"); + SCM stretch_hint = lc->get_elt_property ("stretch-distance"); + SCM next_stretch_hint = rc->get_elt_property ("stretch-distance"); Real left_distance; - if (hint != SCM_BOOL_F) + if (gh_pair_p (hint)) { - hint = SCM_CDDR (hint); - - left_distance = gh_scm2double (hint); + left_distance = gh_scm2double (gh_cdr (hint)); } - else if (!lc->musical_b() && i+1 < col_count()) + // 2nd condition should be (i+1 < col_count()), ie. not the last column in score. FIXME + else if (!lc->musical_b() && i+1 < cols.size ()) { left_distance= default_bar_spacing (lc,rc,shortest); } @@ -127,10 +119,9 @@ Spacing_spanner::do_measure (int col1, int col2) const Real right_dist = 0.0; - if (next_hint != SCM_BOOL_F) + if (gh_pair_p (next_hint)) { - next_hint = SCM_CADR(next_hint); - right_dist += - gh_scm2double (next_hint); + right_dist += - gh_scm2double (gh_car (next_hint)); } else { @@ -143,31 +134,32 @@ Spacing_spanner::do_measure (int col1, int col2) const */ if (lc->musical_b () && rc->musical_b ()) { - if (rc->get_elt_property (contains_grace_scm_sym) == SCM_BOOL_F) + if (!to_boolean (rc->get_elt_property ("contains-grace"))) right_dist *= paper_l ()->get_var ("musical_to_musical_left_spacing_factor"); } - if (rc->musical_b () && rc->get_elt_property (contains_grace_scm_sym) != SCM_BOOL_F) + if (rc->musical_b () && to_boolean (rc->get_elt_property ("contains-grace"))) right_dist *= paper_l ()->get_var ("before_grace_spacing_factor"); - - s.distance_f_ = left_distance + right_dist; + s.distance_f_ = left_distance + right_dist; Real stretch_dist = 0.; - if (stretch_hint != SCM_BOOL_F) - stretch_dist += gh_scm2double (SCM_CDDR (stretch_hint)); + if (gh_number_p (stretch_hint)) + stretch_dist += gh_scm2double (stretch_hint); else stretch_dist += left_distance; - if (next_stretch_hint != SCM_BOOL_F) + if (gh_pair_p (next_stretch_hint)) // see regtest spacing-tight - stretch_dist += - gh_scm2double (SCM_CADR (next_stretch_hint)); + stretch_dist += - gh_scm2double (gh_car (next_stretch_hint)); else stretch_dist += right_dist; if (s.distance_f_ <0) - programming_error("negative dist"); - + { + programming_error("Negative dist, setting to 1.0 PT"); + s.distance_f_ = 1.0; + } if (stretch_dist == 0.0) { /* @@ -189,7 +181,7 @@ Spacing_spanner::do_measure (int col1, int col2) const Do something if breakable column has no spacing hints set. */ Real -Spacing_spanner::default_bar_spacing (Score_column *lc, Score_column *rc, +Spacing_spanner::default_bar_spacing (Paper_column *lc, Paper_column *rc, Moment shortest) const { Real symbol_distance = lc->extent (X_AXIS)[RIGHT] ; @@ -201,21 +193,46 @@ Spacing_spanner::default_bar_spacing (Score_column *lc, Score_column *rc, */ if (delta_t) { - Real k= paper_l()->arithmetic_constant (shortest); - durational_distance = paper_l()->length_mom_to_dist (delta_t,k); + durational_distance = get_duration_space (delta_t, shortest); } return symbol_distance >? durational_distance; } +/** + Get the measure wide constant for arithmetic spacing. + + @see + John S. Gourlay. ``Spacing a Line of Music,'' Technical Report + OSU-CISRC-10/87-TR35, Department of Computer and Information Science, + The Ohio State University, 1987. + + */ +Real +Spacing_spanner::get_duration_space (Moment d, Moment shortest) const +{ + Real log = log_2 (Moment (1,8) get_var ("arithmetic_basicspace") + - log; + + return (log_2 (d) + k) * paper_l ()->get_var ("arithmetic_multiplier"); +} + + Real -Spacing_spanner::note_spacing (Score_column *lc, Score_column *rc, Moment shortest) const +Spacing_spanner::note_spacing (Paper_column *lc, Paper_column *rc, Moment shortest) const { - Moment shortest_playing_len = lc->shortest_playing_mom_; + Moment shortest_playing_len = 0; + SCM s = lc->get_elt_property ("shortest-playing-duration"); + // SCM s = lc->get_elt_property ("mean-playing-duration"); + if (SMOB_IS_TYPE_B(Moment, s)) + shortest_playing_len = *SMOB_TO_TYPE (Moment, s); + + if (! shortest_playing_len) { - programming_error ("Can't find a ruling note at " + lc->when_mom ().str ()); + programming_error ("can't find a ruling note at " + lc->when_mom ().str ()); shortest_playing_len = 1; } @@ -225,8 +242,7 @@ Spacing_spanner::note_spacing (Score_column *lc, Score_column *rc, Moment shorte shortest = 1; } Moment delta_t = rc->when_mom () - lc->when_mom (); - Real k= paper_l()->arithmetic_constant(shortest); - Real dist = paper_l()->length_mom_to_dist (shortest_playing_len, k); + Real dist = get_duration_space (shortest_playing_len, shortest); dist *= (double)(delta_t / shortest_playing_len); dist += stem_dir_correction (lc,rc); @@ -242,29 +258,27 @@ Spacing_spanner::note_spacing (Score_column *lc, Score_column *rc, Moment shorte This should be more advanced, since relative heights of the note heads also influence required correction. - Also might not work correctly ico. multi voices or staff changing voices + Also might not work correctly in case of multi voices or staff + changing voices TODO: lookup correction distances? More advanced correction? Possibly turn this off? - This routine reads the DIR_LIST property of both its L and R arguments. -*/ + This routine reads the DIR-LIST property of both its L and R arguments. */ Real -Spacing_spanner::stem_dir_correction (Score_column*l, Score_column*r) const +Spacing_spanner::stem_dir_correction (Paper_column*l, Paper_column*r) const { - SCM dl = l->get_elt_property (dir_list_scm_sym); - SCM dr = r->get_elt_property (dir_list_scm_sym); - if (dl == SCM_BOOL_F || dr == SCM_BOOL_F) + SCM dl = l->get_elt_property ("dir-list"); + SCM dr = r->get_elt_property ("dir-list"); + if (dl == SCM_UNDEFINED || dr == SCM_UNDEFINED) return 0.0; - dl = SCM_CDR (dl); - dr = SCM_CDR (dr); if (scm_ilength (dl) != 1 && scm_ilength (dr) != 1) return 0.; - dl = SCM_CAR(dl); - dr = SCM_CAR(dr); + dl = gh_car (dl); + dr = gh_car (dr); assert (gh_number_p (dl) && gh_number_p(dr)); int d1 = gh_scm2int (dl); @@ -275,7 +289,7 @@ Spacing_spanner::stem_dir_correction (Score_column*l, Score_column*r) const bool err = false; Real correction = 0.0; - Real ssc = paper_l ()->get_realvar(ly_symbol ("stemSpacingCorrection")); + Real ssc = paper_l ()->get_var("stemSpacingCorrection"); if (d1 && d2) @@ -301,18 +315,31 @@ Array Spacing_spanner::get_springs () const { Array springs; - int last_break =0; - for (int i=1; i < col_count (); i++) + + Link_array all (pscore_l_->line_l_->column_l_arr ()) ; + + int j = 0; + + for (int i = 1; i < all.size (); i++) { - if (scol (i)->breakable_b ()) + Paper_column* sc = dynamic_cast (all[i]); + if (sc->breakable_b ()) { - springs.concat (do_measure (last_break, i)); - last_break = i; + Link_array measure (all.slice (j, i+1)); + springs.concat (do_measure (measure)); + j = i; } } + + /* + farewell, cruel world + */ + ((Spacing_spanner*)this)->suicide (); + return springs; } +