2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 1996--2010 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_
;
74 Paper_score::find_break_indices () const
76 vector
<Grob
*> all
= root_system ()->used_columns ();
79 for (vsize i
= 0; i
< all
.size (); i
++)
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
)))
89 break_indices_
= retval
;
95 Paper_score::get_break_indices () const
97 if (break_indices_
.empty ())
98 find_break_indices ();
99 return break_indices_
;
103 Paper_score::get_columns () const
106 find_break_indices ();
110 vector
<Column_x_positions
>
111 Paper_score::calc_breaking ()
113 Constrained_breaking
algorithm (this);
114 vector
<Column_x_positions
> sol
;
116 message (_ ("Calculating line breaks...") + " ");
118 int system_count
= robust_scm2int (layout ()->c_variable ("system-count"), 0);
120 return algorithm
.solve (0, VPOS
, system_count
);
122 return algorithm
.best_solution (0, VPOS
);
126 Paper_score::process ()
128 if (be_verbose_global
)
129 message (_f ("Element count %d (spanners %d) ",
130 system_
->element_count (),
131 system_
->spanner_count ()));
133 message (_ ("Preprocessing graphical objects..."));
135 system_
->pre_processing ();
139 Paper_score::root_system () const
145 Paper_score::layout () const
151 Paper_score::get_paper_systems ()
153 if (paper_systems_
== SCM_BOOL_F
)
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 ();
161 return paper_systems_
;
166 unsmob_paper_score (SCM x
)
168 return dynamic_cast<Paper_score
*> (unsmob_music_output (x
));