X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fscore-engraver.cc;h=66b759e7d237bc7c9cd31c67ce45afd7fbdd1b35;hb=6798fd9b3d52cbed28b24dbac067bff9af406230;hp=1b30731fd710d69d6e5f80516fb1e6adf5433d2d;hpb=59ed0cee2aae58a3f0483f21261c68aee406fa10;p=lilypond.git diff --git a/lily/score-engraver.cc b/lily/score-engraver.cc index 1b30731fd7..66b759e7d2 100644 --- a/lily/score-engraver.cc +++ b/lily/score-engraver.cc @@ -1,26 +1,25 @@ /* - score-grav.cc -- implement Score_engraver + score-engraver.cc -- implement Score_engraver source file of the GNU LilyPond music typesetter - (c) 1997--1998 Han-Wen Nienhuys + (c) 1997--2000 Han-Wen Nienhuys */ -#include "super-element.hh" -#include "line-of-score.hh" #include "debug.hh" + +#include "line-of-score.hh" #include "item.hh" #include "score-engraver.hh" -#include "p-score.hh" +#include "paper-score.hh" #include "musical-request.hh" -#include "score-column.hh" +#include "paper-column.hh" #include "command-request.hh" #include "paper-def.hh" - +#include "axis-group-interface.hh" Score_engraver::Score_engraver() { - break_penalty_i_ = 0; scoreline_l_ =0; command_column_l_ =0; musical_column_l_ =0; @@ -32,9 +31,21 @@ void Score_engraver::prepare (Moment w) { Global_translator::prepare (w); - set_columns (new Score_column (w), new Score_column (w)); + + SCM props = get_property (ly_symbol2scm ("basicPaperColumnProperties")); + set_columns (new Paper_column (props), new Paper_column (props)); + + command_column_l_->set_elt_property ("when", w.make_scm()); + musical_column_l_->set_elt_property ("when", w.make_scm()); + command_column_l_->set_elt_property ("breakable", SCM_BOOL_T); + + Score_element_info i1(command_column_l_, 0), i2 (musical_column_l_,0); + + i1.origin_trans_l_ = this; + i2.origin_trans_l_ = this; + announce_element (i1); + announce_element (i2); - break_penalty_i_ = 0; post_move_processing(); } @@ -42,36 +53,44 @@ void Score_engraver::finish() { if ((breaks_i_%8)) - *mlog << "[" << breaks_i_ << "]" << flush; + progress_indication ("[" + to_str ( breaks_i_) + "]"); check_removal(); removal_processing(); } +/* + use start/finish? + */ void -Score_engraver::do_creation_processing() +Score_engraver::do_creation_processing () { scoreline_l_ = pscore_p_->line_l_; - scoreline_l_->set_bounds(LEFT,get_staff_info().command_pcol_l ()); - command_column_l_->breakable_b_ = true; + + scoreline_l_->set_bound(LEFT, command_column_l_); + + command_column_l_->set_elt_property ("breakable", SCM_BOOL_T); + Engraver_group_engraver::do_creation_processing(); } + void Score_engraver::do_removal_processing() { Engraver_group_engraver::do_removal_processing(); - scoreline_l_->set_bounds(RIGHT,get_staff_info().command_pcol_l ()); - command_column_l_->breakable_b_ = true; - + scoreline_l_->set_bound(RIGHT,command_column_l_); + command_column_l_->set_elt_property ("breakable", SCM_BOOL_T); + typeset_all (); + set_columns (0,0); } void Score_engraver::process() { - process_requests(); + process_music(); do_announces(); pre_move_processing(); check_removal(); @@ -81,83 +100,67 @@ void Score_engraver::announce_element (Score_element_info info) { announce_info_arr_.push (info); - info.origin_grav_l_arr_.push (this); + pscore_p_->line_l_->typeset_element (info.elem_l_); } +/* All elements are propagated to the top upon announcement. If + something was created during one run of + Engraver_group_engraver::do_announces, then + announce_info_arr_.size() will be nonzero again +*/ +/* junkme? Done by Engraver_group_engraver::do_announces ()? + */ + void Score_engraver::do_announces() { - /* All elements are propagated to the top upon announcement. If - something was created during one run of - Engraver_group_engraver::do_announces, then - announce_info_arr_.size() will be nonzero again - - */ while (announce_info_arr_.size()) - { - for (int i=0; i < announce_info_arr_.size(); i++) - /* - TODO - - More subtle spacing - */ - if (announce_info_arr_[i].req_l_) - { - Musical_req *m = announce_info_arr_[i].req_l_->access_Musical_req (); - if (m && m->access_Rhythmic_req ()) - { - musical_column_l_->add_duration (m->duration()); - } - } - Engraver_group_engraver::do_announces(); - } + Engraver_group_engraver::do_announces(); } void Score_engraver::typeset_element (Score_element *elem_p) { - elem_p_arr_.push(elem_p); + elem_p_arr_.push (elem_p); } + void Score_engraver::typeset_all() { for (int i =0; i < elem_p_arr_.size(); i++) { Score_element * elem_p = elem_p_arr_[i]; - if (elem_p->access_Spanner ()) - { - Spanner *s = elem_p->access_Spanner (); - pscore_p_->typeset_unbroken_spanner (s); - - + elem_p->add_processing (); - /* + + if (Spanner *s = dynamic_cast (elem_p)) + { + /* do something sensible if spanner not spanned on 2 items. */ Direction d = LEFT; do { - if (!s->spanned_drul_[d]) + if (!s->get_bound (d)) { - s->set_bounds(d, command_column_l_); - ::warning (_f ("Unbound spanner `%s\'", s->name ())); + s->set_bound(d, command_column_l_); + ::warning (_f ("unbound spanner `%s'", s->name().ch_C())); } } while (flip(&d) != LEFT); } else { - Item *item_p = elem_p->access_Item (); - pscore_p_->typeset_element (item_p); - if (!item_p->axis_group_l_a_[X_AXIS]) { - if (item_p->breakable_b_) - command_column_l_->add_element(item_p); - else - musical_column_l_->add_element(item_p); - } + if (!elem_p->parent_l (X_AXIS)) + { + bool br = to_boolean (elem_p->get_elt_property ("breakable")); + Axis_group_interface::add_element (br ? command_column_l_ : musical_column_l_, elem_p); + + } } - scoreline_l_->add_element (elem_p); + if (!elem_p->parent_l(Y_AXIS)) + Axis_group_interface::add_element (scoreline_l_, elem_p); } elem_p_arr_.clear(); } @@ -165,70 +168,51 @@ Score_engraver::typeset_all() void Score_engraver::do_pre_move_processing() { - if (break_penalty_i_ > Break_req::DISALLOW) - { - get_staff_info().command_pcol_l ()-> breakable_b_ = true; - breaks_i_ ++; - if (! (breaks_i_%8)) - *mlog << "[" << breaks_i_ << "]" << flush; - } // this generates all items. Engraver_group_engraver::do_pre_move_processing(); typeset_all(); + if (to_boolean (command_column_l_->get_elt_property ("breakable"))) + { + breaks_i_ ++; + if (! (breaks_i_%8)) + progress_indication ("[" + to_str ( breaks_i_) + "]"); + } } void -Score_engraver::set_columns (Score_column *new_command_l, - Score_column *new_musical_l) +Score_engraver::set_columns (Paper_column *new_command_l, + Paper_column *new_musical_l) { - if (command_column_l_ && command_column_l_->linked_b()) - { - pscore_p_->add_column (command_column_l_); - scoreline_l_->add_element (command_column_l_); - } - else - { - delete command_column_l_ ; - command_column_l_ =0; - } - if (new_command_l) - { - command_column_l_ = new_command_l; - command_column_l_->musical_b_ = false; - } - if (musical_column_l_ && musical_column_l_->linked_b()) - { - pscore_p_->add_column (musical_column_l_); - scoreline_l_->add_element (musical_column_l_); - } - else - { - delete musical_column_l_; - musical_column_l_ = 0; - } - - if (new_musical_l) + Paper_column * news[] = {new_command_l, new_musical_l}; + Paper_column **current[] = {&command_column_l_, &musical_column_l_}; + + for (int i=00; i< 2; i++) { - musical_column_l_ = new_musical_l; - musical_column_l_->musical_b_ = true; + if (*current[i]) + { + scoreline_l_->add_column ((*current[i])); +#if 0 + /* + TODO: delay this decision. + */ + if (!Paper_column::used_b (*current[i])) + { + (*current[i])->suicide (); + *current[i] =0; + } +#endif + } + if (news[i]) + *current[i] = news[i]; } -} - -Staff_info -Score_engraver::get_staff_info() const -{ - Staff_info inf = Engraver_group_engraver::get_staff_info(); - - inf.command_l_ = command_column_l_; - inf.musical_l_ = musical_column_l_; - - return inf; + if (new_musical_l) + set_property ("currentMusicalColumn", new_musical_l->self_scm ()); + if (new_command_l) + set_property ("currentCommandColumn", new_command_l->self_scm ()); } - - Music_output* Score_engraver::get_output_p () { @@ -238,37 +222,55 @@ Score_engraver::get_output_p () } bool -Score_engraver::do_try_request (Request*r) +Score_engraver::do_try_music (Music*r) { - bool gotcha = Engraver_group_engraver::do_try_request (r); + bool gotcha = Engraver_group_engraver::do_try_music (r); - if (gotcha || !r->access_Command_req ()) - return gotcha; - - Command_req * c = r->access_Command_req (); - if (c->access_Break_req ()) + if (!gotcha) { - Break_req* b = (Break_req*)c->access_Break_req (); - if (b->penalty_i_ <= Break_req::DISALLOW) - break_penalty_i_ = b->penalty_i_; - else if (b->penalty_i_ >= Break_req::FORCE) + if (Break_req* b = dynamic_cast (r)) { - command_column_l_->break_penalty_i_ = b->penalty_i_; gotcha = true; + + + SCM pen = command_column_l_->get_elt_property ("penalty"); + Real total_penalty = gh_number_p (pen) + ? gh_scm2double(pen) + : 0.0; + + total_penalty += b->penalty_f_; + if (b->penalty_f_ > 10000.0) // ugh. arbitrary. + forbid_breaks (); + + command_column_l_->set_elt_property ("penalty", + gh_double2scm (total_penalty)); } } - return gotcha; + return gotcha; +} + +void +Score_engraver::forbid_breaks () +{ + /* + result is junked. + */ + command_column_l_->remove_elt_property ("breakable"); } -IMPLEMENT_IS_TYPE_B1(Score_engraver,Engraver_group_engraver); ADD_THIS_TRANSLATOR(Score_engraver); void Score_engraver::do_add_processing () { Translator_group::do_add_processing (); - assert (output_def_l_->is_type_b (Paper_def::static_name ())); + assert (dynamic_cast (output_def_l_)); assert (!daddy_trans_l_); pscore_p_ = new Paper_score; - pscore_p_->paper_l_ = (Paper_def*)output_def_l_; + pscore_p_->paper_l_ = dynamic_cast(output_def_l_); + + SCM props = get_property(ly_symbol2scm ("basicLineOfScoreProperties")); + + pscore_p_->typeset_line (new Line_of_score (props)); } +