lily/paper-score.cc

   1 /*
   2   This file is part of LilyPond, the GNU music typesetter.
   3
   4   Copyright (C) 1996--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
   5
   6   LilyPond is free software: you can redistribute it and/or modify
   7   it under the terms of the GNU General Public License as published by
   8   the Free Software Foundation, either version 3 of the License, or
   9   (at your option) any later version.
  10
  11   LilyPond is distributed in the hope that it will be useful,
  12   but WITHOUT ANY WARRANTY; without even the implied warranty of
  13   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14   GNU General Public License for more details.
  15
  16   You should have received a copy of the GNU General Public License
  17   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  18 */
  19
  20 #include "paper-score.hh"
  21
  22 #include "all-font-metrics.hh"
  23 #include "book.hh"
  24 #include "international.hh"
  25 #include "main.hh"
  26 #include "misc.hh"
  27 #include "output-def.hh"
  28 #include "paper-book.hh"
  29 #include "paper-column.hh"
  30 #include "scm-hash.hh"
  31 #include "score.hh"
  32 #include "stencil.hh"
  33 #include "system.hh"
  34 #include "warn.hh"
  35 #include "constrained-breaking.hh"
  36
  37 Paper_score::Paper_score (Output_def *layout)
  38 {
  39   layout_ = layout;
  40   system_ = 0;
  41   systems_ = SCM_EOL;
  42   paper_systems_ = SCM_BOOL_F;
  43 }
  44
  45 Paper_score::Paper_score (Paper_score const &s)
  46   : Music_output (s)
  47 {
  48   assert (false);
  49 }
  50
  51 void
  52 Paper_score::derived_mark () const
  53 {
  54   if (layout_)
  55     scm_gc_mark (layout_->self_scm ());
  56   scm_gc_mark (systems_);
  57   scm_gc_mark (paper_systems_);
  58 }
  59
  60 void
  61 Paper_score::typeset_system (System *system)
  62 {
  63   if (!system_)
  64     system_ = system;
  65
  66   systems_ = scm_cons (system->self_scm (), systems_);
  67   system->pscore_ = this;
  68   system->layout_ = layout_;
  69   system->unprotect ();
  70 }
  71
  72
  73 vector<vsize>
  74 Paper_score::find_break_indices () const
  75 {
  76   vector<Grob*> all = root_system ()->used_columns ();
  77   vector<vsize> retval;
  78
  79   for (vsize i = 0; i < all.size (); i++)
  80     {
  81       Item *it = dynamic_cast<Item*> (all[i]);
  82       if (Paper_column::is_breakable (all[i])
  83           && (i == 0 || it->find_prebroken_piece (LEFT))
  84           && (i == all.size () - 1 || it->find_prebroken_piece (RIGHT)))
  85         retval.push_back (i);
  86     }
  87
  88   cols_ = all;
  89   break_indices_ = retval;
  90
  91   return retval;
  92 }
  93
  94 vector<vsize>
  95 Paper_score::get_break_indices () const
  96 {
  97   if (break_indices_.empty ())
  98     find_break_indices ();
  99   return break_indices_;
 100 }
 101
 102 vector<Grob*>
 103 Paper_score::get_columns () const
 104 {
 105   if (cols_.empty ())
 106     find_break_indices ();
 107   return cols_;
 108 }
 109
 110 vector<Column_x_positions>
 111 Paper_score::calc_breaking ()
 112 {
 113   Constrained_breaking algorithm (this);
 114   vector<Column_x_positions> sol;
 115
 116   message (_ ("Calculating line breaks...") + " ");
 117
 118   int system_count = robust_scm2int (layout ()->c_variable ("system-count"), 0);
 119   if (system_count)
 120     return algorithm.solve (0, VPOS, system_count);
 121
 122   return algorithm.best_solution (0, VPOS);
 123 }
 124
 125 void
 126 Paper_score::process ()
 127 {
 128   if (be_verbose_global)
 129     message (_f ("Element count %d (spanners %d) ",
 130                  system_->element_count (),
 131                  system_->spanner_count ()));
 132
 133   message (_ ("Preprocessing graphical objects..."));
 134
 135   system_->pre_processing ();
 136 }
 137
 138 System *
 139 Paper_score::root_system () const
 140 {
 141   return system_;
 142 }
 143
 144 Output_def *
 145 Paper_score::layout () const
 146 {
 147   return layout_;
 148 }
 149
 150 SCM
 151 Paper_score::get_paper_systems ()
 152 {
 153   if (paper_systems_ == SCM_BOOL_F)
 154     {
 155       vector<Column_x_positions> breaking = calc_breaking ();
 156       system_->break_into_pieces (breaking);
 157       message (_ ("Drawing systems...") + " ");
 158       system_->do_break_substitution_and_fixup_refpoints ();
 159       paper_systems_ = system_->get_paper_systems ();
 160     }
 161   return paper_systems_;
 162 }
 163
 164
 165 Paper_score *
 166 unsmob_paper_score (SCM x)
 167 {
 168   return dynamic_cast<Paper_score*> (unsmob_music_output (x));
 169 }