2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 1997--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
5 Jan Nieuwenhuizen <janneke@gnu.org>
7 LilyPond is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 LilyPond is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
21 #include "bar-line.hh"
23 #include "score-engraver.hh"
28 #include "translator.icc"
31 generate bars. Either user ("|:"), or default (new measure)
33 class Bar_engraver
: public Engraver
36 TRANSLATOR_DECLARATIONS (Bar_engraver
);
37 void request_bar (string type_string
);
40 void stop_translation_timestep ();
41 void process_acknowledged ();
43 DECLARE_END_ACKNOWLEDGER (spanner
);
49 vector
<Spanner
*> spanners_
;
52 Bar_engraver::Bar_engraver ()
58 Bar_engraver::create_bar ()
62 bar_
= make_item ("BarLine", SCM_EOL
);
63 SCM gl
= get_property ("whichBar");
64 if (scm_equal_p (gl
, bar_
->get_property ("glyph")) != SCM_BOOL_T
)
65 bar_
->set_property ("glyph", gl
);
70 Bar_engraver should come *after* any engravers that
73 This is a little hairy : whichBar may be set by
74 Repeat_acknowledge_engraver::process_music, which is at score
75 context. This means that grobs could should be created after
76 process_music. We do stuff process_acknowledged (), just to be
81 Bar_engraver::process_acknowledged ()
83 if (!bar_
&& scm_is_string (get_property ("whichBar")))
87 for (vsize i
= 0; i
< spanners_
.size (); i
++)
88 spanners_
[i
]->set_bound (RIGHT
, bar_
);
92 lines may only be broken if there is a barline in all staves
95 Bar_engraver::stop_translation_timestep ()
98 context ()->get_score_context ()->set_property ("forbidBreak", SCM_BOOL_T
);
105 Bar_engraver::acknowledge_end_spanner (Grob_info gi
)
107 Grob
*g
= gi
.grob ();
109 if (to_boolean (g
->get_property ("to-barline")))
110 spanners_
.push_back (dynamic_cast<Spanner
*> (g
));
113 ADD_END_ACKNOWLEDGER (Bar_engraver
, spanner
);
115 ADD_TRANSLATOR (Bar_engraver
,
117 "Create barlines. This engraver is controlled through the"
118 " @code{whichBar} property. If it has no bar line to create,"
119 " it will forbid a linebreak at this point.",