lily/score-engraver.cc

   1 /*
   2   score-grav.cc -- implement Score_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "super-element.hh"
  10 #include "line-of-score.hh"
  11 #include "debug.hh"
  12 #include "item.hh"
  13 #include "score-engraver.hh"
  14 #include "p-score.hh"
  15 #include "musical-request.hh"
  16 #include "score-column.hh"
  17 #include "command-request.hh"
  18 #include "paper-def.hh"
  19
  20
  21
  22 Score_engraver::Score_engraver()
  23 {
  24   break_penalty_i_ = 0;
  25   scoreline_l_ =0;
  26   command_column_l_ =0;
  27   musical_column_l_ =0;
  28   breaks_i_ =0;
  29   pscore_p_ = 0;
  30 }
  31
  32 void
  33 Score_engraver::prepare (Moment w)
  34 {
  35   Global_translator::prepare (w);
  36   set_columns (new Score_column (w),  new Score_column (w));
  37
  38   break_penalty_i_ = 0;
  39   post_move_processing();
  40 }
  41
  42 void
  43 Score_engraver::finish()
  44 {
  45   if ((breaks_i_%8))
  46     *mlog << "[" << breaks_i_ << "]" << flush;
  47
  48   check_removal();
  49   removal_processing();
  50 }
  51
  52 void
  53 Score_engraver::do_creation_processing()
  54 {
  55   scoreline_l_ = pscore_p_->line_l_;
  56   scoreline_l_->set_bounds(LEFT,command_column_l_);
  57   command_column_l_->set_elt_property (breakable_scm_sym, SCM_BOOL_T);
  58   Engraver_group_engraver::do_creation_processing();
  59 }
  60
  61 void
  62 Score_engraver::do_removal_processing()
  63 {
  64   Engraver_group_engraver::do_removal_processing();
  65   scoreline_l_->set_bounds(RIGHT,command_column_l_);
  66   command_column_l_->set_elt_property (breakable_scm_sym, SCM_BOOL_T);
  67
  68   typeset_all ();
  69   set_columns (0,0);
  70 }
  71
  72 void
  73 Score_engraver::process()
  74 {
  75   process_requests();
  76   do_announces();
  77   pre_move_processing();
  78   check_removal();
  79 }
  80
  81 void
  82 Score_engraver::announce_element (Score_element_info info)
  83 {
  84   announce_info_arr_.push (info);
  85   info.origin_trans_l_arr_.push (this);
  86
  87   if (Spanner *s = dynamic_cast <Spanner *> (info.elem_l_))
  88     pscore_p_->typeset_unbroken_spanner (s);
  89   else if (Item *i = dynamic_cast<Item*> (info.elem_l_))
  90     pscore_p_->typeset_element (i);
  91 }
  92
  93 /* All elements are propagated to the top upon announcement. If
  94    something was created during one run of
  95    Engraver_group_engraver::do_announces, then
  96    announce_info_arr_.size() will be nonzero again
  97 */
  98 void
  99 Score_engraver::do_announces()
 100 {
 101   while (announce_info_arr_.size())
 102     Engraver_group_engraver::do_announces();
 103 }
 104
 105
 106 void
 107 Score_engraver::typeset_element (Score_element *elem_p)
 108 {
 109   elem_p_arr_.push (elem_p);
 110 }
 111
 112
 113 void
 114 Score_engraver::typeset_all()
 115 {
 116   for  (int i =0; i < elem_p_arr_.size(); i++)
 117     {
 118       Score_element * elem_p = elem_p_arr_[i];
 119       elem_p->add_processing ();
 120       if (Spanner *s = dynamic_cast <Spanner *> (elem_p))
 121         {
 122             /*
 123             do something sensible if spanner not
 124             spanned on 2 items.
 125            */
 126           Direction d = LEFT;
 127           do {
 128             if (!s->spanned_drul_[d])
 129               {
 130                 s->set_bounds(d, command_column_l_);
 131                 ::warning (_f ("Unbound spanner `%s\'", classname(s)));
 132               }
 133           } while (flip(&d) != LEFT);
 134         }
 135       else
 136         {
 137           Item *item_p = dynamic_cast <Item *> (elem_p);
 138
 139           if (!item_p->parent_l (X_AXIS))
 140             {
 141               bool br = (item_p->remove_elt_property (breakable_scm_sym) != SCM_BOOL_F);
 142               if (br)
 143                 command_column_l_->add_element(item_p);
 144               else
 145                 musical_column_l_->add_element(item_p);
 146             }
 147         }
 148       if (!elem_p->dim_cache_[Y_AXIS]->parent_l_)
 149         scoreline_l_->add_element (elem_p);
 150     }
 151   elem_p_arr_.clear();
 152 }
 153
 154 void
 155 Score_engraver::do_pre_move_processing()
 156 {
 157   if (break_penalty_i_ > Break_req::DISALLOW)
 158     {
 159       command_column_l_->set_elt_property (breakable_scm_sym, SCM_BOOL_T);
 160       breaks_i_ ++;
 161       if (! (breaks_i_%8))
 162         *mlog << "[" << breaks_i_ << "]" << flush;
 163     }
 164   // this generates all items.
 165   Engraver_group_engraver::do_pre_move_processing();
 166
 167   typeset_all();
 168 }
 169
 170 void
 171 Score_engraver::set_columns (Score_column *new_command_l,
 172                              Score_column *new_musical_l)
 173 {
 174   if (command_column_l_ && command_column_l_->linked_b())
 175     {
 176       pscore_p_->add_column (command_column_l_);
 177       scoreline_l_->add_column (command_column_l_);
 178     }
 179   else
 180     {
 181       delete command_column_l_ ;
 182       command_column_l_ =0;
 183     }
 184   if (new_command_l)
 185     command_column_l_ = new_command_l;
 186
 187   if (musical_column_l_ && musical_column_l_->linked_b())
 188     {
 189       pscore_p_->add_column (musical_column_l_);
 190       scoreline_l_->add_column (musical_column_l_);
 191     }
 192   else
 193     {
 194       delete musical_column_l_;
 195       musical_column_l_ = 0;
 196     }
 197
 198   if (new_musical_l)
 199     {
 200       musical_column_l_ = new_musical_l;
 201     }
 202 }
 203
 204
 205 Staff_info
 206 Score_engraver::get_staff_info() const
 207 {
 208   Staff_info inf = Engraver_group_engraver::get_staff_info();
 209
 210   inf.command_l_ = command_column_l_;
 211   inf.musical_l_ = musical_column_l_;
 212
 213   return inf;
 214 }
 215
 216
 217 Music_output*
 218 Score_engraver::get_output_p ()
 219 {
 220   Music_output * o = pscore_p_;
 221   pscore_p_=0;
 222   return o;
 223 }
 224
 225 bool
 226 Score_engraver::do_try_music (Music*r)
 227 {
 228   bool gotcha = Engraver_group_engraver::do_try_music (r);
 229
 230   if (!gotcha)
 231     {
 232       if (Break_req* b = dynamic_cast<Break_req *> (r))
 233         {
 234           if (b->penalty_i_ <= Break_req::DISALLOW)
 235             break_penalty_i_ = b->penalty_i_;
 236           else if (b->penalty_i_ >= Break_req::FORCE)
 237             {
 238               command_column_l_->break_penalty_i_ = b->penalty_i_;
 239               gotcha = true;
 240             }
 241         }
 242     }
 243    return gotcha;
 244
 245 }
 246
 247
 248 ADD_THIS_TRANSLATOR(Score_engraver);
 249
 250 void
 251 Score_engraver::do_add_processing ()
 252 {
 253   Translator_group::do_add_processing ();
 254   assert (dynamic_cast<Paper_def *> (output_def_l_));
 255   assert (!daddy_trans_l_);
 256   pscore_p_ = new Paper_score;
 257   pscore_p_->paper_l_ = dynamic_cast<Paper_def*>(output_def_l_);
 258 }