X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=lily%2Fscore-engraver.cc;h=09bb7c4b33a1325a02cab8164626a9f3ab1640cf;hb=7556e96abb66c88ae653c96898bcad2c3f18b645;hp=7c7adf3c6c06763631a6a615a77e0dcb5ea5b4db;hpb=07d4d05df6479d58c3c5152c07d7c86b94ee98b4;p=lilypond.git diff --git a/lily/score-engraver.cc b/lily/score-engraver.cc index 7c7adf3c6c..94d269df9f 100644 --- a/lily/score-engraver.cc +++ b/lily/score-engraver.cc @@ -1,281 +1,179 @@ /* - score-grav.cc -- implement Score_engraver + score-engraver.cc -- implement Score_engraver source file of the GNU LilyPond music typesetter - (c) 1997--1999 Han-Wen Nienhuys + (c) 1997--2006 Han-Wen Nienhuys */ -#include "dimension-cache.hh" -#include "super-element.hh" -#include "line-of-score.hh" -#include "debug.hh" -#include "item.hh" +#include "all-font-metrics.hh" +#include "warn.hh" +#include "main.hh" +#include "system.hh" #include "score-engraver.hh" #include "paper-score.hh" -#include "musical-request.hh" -#include "score-column.hh" -#include "command-request.hh" -#include "paper-def.hh" +#include "paper-column.hh" +#include "output-def.hh" +#include "axis-group-interface.hh" +#include "context-def.hh" +#include "global-context.hh" +#include "open-type-font.hh" +#include "paper-column-engraver.hh" -Score_engraver::Score_engraver() +Score_engraver::Score_engraver () { - break_penalty_i_ = 0; - scoreline_l_ =0; - command_column_l_ =0; - musical_column_l_ =0; - breaks_i_ =0; - pscore_p_ = 0; + system_ = 0; + pscore_ = 0; } - + void -Score_engraver::prepare (Moment w) +Score_engraver::derived_mark () const { - Global_translator::prepare (w); - set_columns (new Score_column (w), new Score_column (w)); - - break_penalty_i_ = 0; - post_move_processing(); + if (pscore_) + scm_gc_mark (pscore_->self_scm ()); + Score_translator::derived_mark (); + Engraver_group::derived_mark (); } void -Score_engraver::finish() +Score_engraver::prepare (Moment m) { - if ((breaks_i_%8)) - *mlog << "[" << breaks_i_ << "]" << flush; - - check_removal(); - removal_processing(); + (void) m; + + precomputed_recurse_over_translators (context (), START_TRANSLATION_TIMESTEP, DOWN); } -/* - use start/finish? - */ void -Score_engraver::do_creation_processing () +Score_engraver::finish () { - scoreline_l_ = pscore_p_->line_l_; - scoreline_l_->set_bounds(LEFT,command_column_l_); - command_column_l_->set_elt_property (breakable_scm_sym, SCM_BOOL_T); - - Engraver_group_engraver::do_creation_processing(); + recurse_over_translators (context (), &Translator::finalize, + &Translator_group::finalize, + UP); } +#define MUSIC_FONT "emmentaler-20" +/* + use start/finish? +*/ void -Score_engraver::do_removal_processing() +Score_engraver::initialize () { - Engraver_group_engraver::do_removal_processing(); - scoreline_l_->set_bounds(RIGHT,command_column_l_); - command_column_l_->set_elt_property (breakable_scm_sym, SCM_BOOL_T); + Font_metric *fm = all_fonts_global->find_otf (MUSIC_FONT); + if (!fm) + { + error (_f ("cannot find `%s'", MUSIC_FONT ".otf") + + "\n" + + _ ("Music font has not been installed properly.") + + "\n" + + _f ("Search path `%s'", global_path.to_string ().c_str ()) + + "\n" + + _ ("Aborting")); + } - typeset_all (); - set_columns (0,0); -} + pscore_ = new Paper_score (dynamic_cast (context ()->get_output_def ())); + pscore_->unprotect (); -void -Score_engraver::process() -{ - process_requests(); - do_announces(); - pre_move_processing(); - check_removal(); -} + SCM props = updated_grob_properties (context (), ly_symbol2scm ("System")); -void -Score_engraver::announce_element (Score_element_info info) -{ - announce_info_arr_.push (info); - info.origin_trans_l_arr_.push (this); + Object_key const *sys_key = context ()->get_grob_key ("System"); + pscore_->typeset_system (new System (props, sys_key)); + + system_ = pscore_->root_system (); + context ()->set_property ("rootSystem", system_->self_scm ()); - if (Spanner *s = dynamic_cast (info.elem_l_)) - pscore_p_->typeset_unbroken_spanner (s); - else if (Item *i = dynamic_cast (info.elem_l_)) - pscore_p_->typeset_element (i); + Engraver_group::initialize (); } -/* 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() +Score_engraver::finalize () { - while (announce_info_arr_.size()) - Engraver_group_engraver::do_announces(); -} + Score_translator::finalize (); - -void -Score_engraver::typeset_element (Score_element *elem_p) -{ - elem_p_arr_.push (elem_p); + typeset_all (); } - void -Score_engraver::typeset_all() +Score_engraver::one_time_step () { - for (int i =0; i < elem_p_arr_.size(); i++) + if (!to_boolean (context ()->get_property ("skipTypesetting"))) { - Score_element * elem_p = elem_p_arr_[i]; - elem_p->add_processing (); - -#if 0 // TODO! - /* - elem_p wants to be connected to the rest of the - dependency graph. - */ - - if (elem_p->get_elt_property (dangling_scm_sym) != SCM_BOOL_F) - scoreline_l_->add_dependency (elem_p); -#endif - - 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]) - { - s->set_bounds(d, command_column_l_); - ::warning (_f ("Unbound spanner `%s\'", classname(s))); - } - } while (flip(&d) != LEFT); - } - else - { - Item *item_p = dynamic_cast (elem_p); - - if (!item_p->parent_l (X_AXIS)) - { - bool br = (item_p->remove_elt_property (breakable_scm_sym) != SCM_BOOL_F); - if (br) - command_column_l_->add_element(item_p); - else - musical_column_l_->add_element(item_p); - } - } - if (!elem_p->parent_l(Y_AXIS)) - scoreline_l_->add_element (elem_p); + precomputed_recurse_over_translators (context (), PROCESS_MUSIC, UP); + Engraver_group::do_announces (); } - elem_p_arr_.clear(); + + precomputed_recurse_over_translators (context (), STOP_TRANSLATION_TIMESTEP, UP); + typeset_all (); } void -Score_engraver::do_pre_move_processing() +Score_engraver::announce_grob (Grob_info info) { - if (break_penalty_i_ > Break_req::DISALLOW) - { - command_column_l_->set_elt_property (breakable_scm_sym, SCM_BOOL_T); - breaks_i_ ++; - if (! (breaks_i_%8)) - *mlog << "[" << breaks_i_ << "]" << flush; - } - // this generates all items. - Engraver_group_engraver::do_pre_move_processing(); - - typeset_all(); + announce_infos_.push (info); + pscore_->root_system ()->typeset_grob (info.grob ()); + elems_.push (info.grob ()); } void -Score_engraver::set_columns (Score_column *new_command_l, - Score_column *new_musical_l) +Score_engraver::typeset_all () { - if (command_column_l_ && command_column_l_->linked_b()) + for (int i = 0; i < elems_.size (); i++) { - pscore_p_->add_column (command_column_l_); - scoreline_l_->add_column (command_column_l_); - } - else - { - delete command_column_l_ ; - command_column_l_ =0; - } - if (new_command_l) - command_column_l_ = new_command_l; + Grob *elem = elems_[i]; - if (musical_column_l_ && musical_column_l_->linked_b()) - { - pscore_p_->add_column (musical_column_l_); - scoreline_l_->add_column (musical_column_l_); - } - else - { - delete musical_column_l_; - musical_column_l_ = 0; - } - - if (new_musical_l) - { - musical_column_l_ = new_musical_l; + if (!elem->get_parent (Y_AXIS)) + Axis_group_interface::add_element (system_, elem); } + elems_.clear (); } - -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; -} - - -Music_output* -Score_engraver::get_output_p () -{ - Music_output * o = pscore_p_; - pscore_p_=0; - return o; -} - -bool -Score_engraver::do_try_music (Music*r) +SCM +Score_engraver::get_output () { - bool gotcha = Engraver_group_engraver::do_try_music (r); - - if (!gotcha) - { - /* - UGH! THIS IS NOT SYMMETRIC. CLEAN ME UP! - */ - if (Break_req* b = dynamic_cast (r)) - { - gotcha = true; - if (b->penalty_i_ <= Break_req::DISALLOW) - break_penalty_i_ = b->penalty_i_; - else if (b->penalty_i_ >= Break_req::FORCE) - command_column_l_->break_penalty_i_ = b->penalty_i_; - } - } - return gotcha; + Music_output *o = pscore_; + return o->self_scm (); } +/* + UGH UGH +*/ void Score_engraver::forbid_breaks () { - break_penalty_i_ = Break_req::DISALLOW; + for (SCM s = simple_trans_list_; scm_is_pair (s); s = scm_cdr (s)) + { + Translator *tr = unsmob_translator (scm_car (s)); + if (Paper_column_engraver *pce = dynamic_cast (tr)) + pce->forbid_breaks (); + } } -ADD_THIS_TRANSLATOR(Score_engraver); - -void -Score_engraver::do_add_processing () -{ - Translator_group::do_add_processing (); - assert (dynamic_cast (output_def_l_)); - assert (!daddy_trans_l_); - pscore_p_ = new Paper_score; - pscore_p_->paper_l_ = dynamic_cast(output_def_l_); -} +bool +Score_engraver::try_music (Music *m) +{ + if (Engraver_group::try_music (m)) + return true; + + return false; +} + +ADD_TRANSLATOR_GROUP (Score_engraver, + /* doc */ "Top level engraver. Takes care of generating columns and the complete system (ie. System) " + "\n\n " + "This engraver decides whether a column is breakable. The default is " + "that a column is always breakable. However, when every Bar_engraver " + "that does not have a barline at a certain point will call " + "Score_engraver::forbid_breaks to stop linebreaks. In practice, this " + "means that you can make a breakpoint by creating a barline (assuming " + "that there are no beams or notes that prevent a breakpoint.) ", + /* create */ + "System ", + + /* accept */ + "break-event", + /* read */ + "currentMusicalColumn " + "currentCommandColumn " + "verticallySpacedContexts", + /* write */ + "");