lily/score-column.cc

   1 /*
   2   score-column.cc -- implement Score_column
   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 "debug.hh"
  10 #include "p-col.hh"
  11 #include "score-column.hh"
  12 #include "command-request.hh"
  13
  14 Score_column::Score_column (Moment w)
  15 {
  16   break_penalty_i_ = 0;
  17   when_ = w;
  18 }
  19
  20 void
  21 Score_column::do_print() const
  22 {
  23 #ifndef NPRINT
  24   DOUT << " at " <<  when_ << '\n';
  25   if (break_penalty_i_ >= Break_req::FORCE)
  26     DOUT << "Break forced";
  27
  28   DOUT << "Shortest playing: " <<  shortest_playing_mom_ << " shortest starter: " << shortest_starter_mom_;
  29   Paper_column::do_print();
  30 #endif
  31 }
  32
  33
  34 bool
  35 Score_column::musical_b () const
  36 {
  37   return shortest_starter_mom_ != Moment(0);
  38 }