]> git.donarmstrong.com Git - lilypond.git/blob - lily/paper-score.cc
Docs-hu: Translated Community Updated macro translations Fixed some translations...
[lilypond.git] / 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 }