2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 1996--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
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.
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.
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/>.
20 #include "paper-score.hh"
22 #include "all-font-metrics.hh"
24 #include "international.hh"
27 #include "output-def.hh"
28 #include "paper-book.hh"
29 #include "paper-column.hh"
30 #include "scm-hash.hh"
35 #include "constrained-breaking.hh"
37 Paper_score::Paper_score (Output_def *layout)
42 paper_systems_ = SCM_BOOL_F;
45 Paper_score::Paper_score (Paper_score const &s)
52 Paper_score::derived_mark () const
55 scm_gc_mark (layout_->self_scm ());
56 scm_gc_mark (systems_);
57 scm_gc_mark (paper_systems_);
61 Paper_score::typeset_system (System *system)
66 systems_ = scm_cons (system->self_scm (), systems_);
67 system->pscore_ = this;
68 system->layout_ = layout_;
73 Paper_score::find_break_indices () const
75 cols_ = root_system ()->used_columns ();
76 break_indices_.clear ();
77 break_ranks_.clear ();
79 for (vsize i = 0; i < cols_.size (); i++)
81 Item *it = dynamic_cast<Item *> (cols_[i]);
82 if (Paper_column::is_breakable (cols_[i])
83 && (i == 0 || it->find_prebroken_piece (LEFT))
84 && (i == cols_.size () - 1 || it->find_prebroken_piece (RIGHT)))
86 break_indices_.push_back (i);
87 break_ranks_.push_back (it->get_column ()->get_rank ());
93 Paper_score::get_break_indices () const
95 if (break_indices_.empty ())
96 find_break_indices ();
97 return break_indices_;
101 Paper_score::get_columns () const
104 find_break_indices ();
109 Paper_score::get_break_ranks () const
111 if (break_ranks_.empty ())
112 find_break_indices ();
116 vector<Column_x_positions>
117 Paper_score::calc_breaking ()
119 Constrained_breaking algorithm (this);
120 vector<Column_x_positions> sol;
122 message (_ ("Calculating line breaks...") + " ");
124 int system_count = robust_scm2int (layout ()->c_variable ("system-count"), 0);
126 return algorithm.solve (0, VPOS, system_count);
128 return algorithm.best_solution (0, VPOS);
132 Paper_score::process ()
134 debug_output (_f ("Element count %d (spanners %d) ",
135 system_->element_count (),
136 system_->spanner_count ()));
138 message (_ ("Preprocessing graphical objects..."));
140 system_->pre_processing ();
144 Paper_score::root_system () const
150 Paper_score::layout () const
156 Paper_score::get_paper_systems ()
158 if (paper_systems_ == SCM_BOOL_F)
160 vector<Column_x_positions> breaking = calc_breaking ();
161 system_->break_into_pieces (breaking);
162 message (_ ("Drawing systems...") + " ");
163 system_->do_break_substitution_and_fixup_refpoints ();
164 paper_systems_ = system_->get_paper_systems ();
166 return paper_systems_;
170 unsmob_paper_score (SCM x)
172 return dynamic_cast<Paper_score *> (unsmob_music_output (x));