X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=lily%2Fspacing-spanner.cc;h=4b413ec6a8cc61d06498e992ef88e0ff93e1dad3;hb=e7d84e6728ecfdf74d8f214486a29c2aca199819;hp=df73a595a43266bb6cbc433eb312ca0afc2a4e73;hpb=61c4b07cddc6231c3ca4b45a0aa86d27e25110b9;p=lilypond.git diff --git a/lily/spacing-spanner.cc b/lily/spacing-spanner.cc index df73a595a4..4b413ec6a8 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 () { - 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); + set_elt_property ("transparent", SCM_BOOL_T); } /* - cut 'n paste from spring-spacer.cc - - generate springs between columns. - The algorithm is partly taken from : @@ -46,34 +32,41 @@ 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 * l = cols[i]; + Item * r = cols[i+1]; Item * lb = l->find_prebroken_piece (RIGHT); Item * rb = r->find_prebroken_piece (LEFT); @@ -81,8 +74,8 @@ Spacing_spanner::do_measure (int col1, int col2) const 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,28 +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, setting to 1.0 PT"); + s.distance_f_ = 1.0; + } if (stretch_dist == 0.0) { /* @@ -186,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] ; @@ -198,33 +193,56 @@ 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) { - warning (_f ("can't find a ruling note at %s", - lc->when_mom ().str ())); + programming_error ("can't find a ruling note at " + lc->when_mom ().str ()); shortest_playing_len = 1; } + if (! shortest) { - warning (_f ("no minimum in measure at %s", - lc->when_mom ().str ())); + programming_error ("no minimum in measure at " + lc->when_mom ().str ()); 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); @@ -240,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); @@ -273,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) @@ -299,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; } +