source file of the GNU LilyPond music typesetter
- (c) 1998--2007 Jan Nieuwenhuizen <janneke@gnu.org>
+ (c) 1998--2009 Jan Nieuwenhuizen <janneke@gnu.org>
*/
#include <cctype>
void create_items (Stream_event *);
Item *text_;
+ Item *final_text_;
Stream_event *mark_ev_;
public:
protected:
void process_music ();
+ void start_translation_timestep ();
void stop_translation_timestep ();
+ virtual void finalize ();
DECLARE_TRANSLATOR_LISTENER (mark);
DECLARE_ACKNOWLEDGER (break_alignment);
Mark_engraver::Mark_engraver ()
{
text_ = 0;
+ final_text_ = 0;
mark_ev_ = 0;
}
Grob *s = inf.grob ();
if (text_
&& dynamic_cast<Item *> (s))
- {
- text_->set_parent (s, X_AXIS);
- }
+ text_->set_parent (s, X_AXIS);
}
+void
+Mark_engraver::start_translation_timestep ()
+{
+ final_text_ = 0;
+}
void
Mark_engraver::stop_translation_timestep ()
{
text_->set_object ("side-support-elements",
grob_list_to_grob_array (get_property ("stavesFound")));
+ final_text_ = text_;
text_ = 0;
}
mark_ev_ = 0;
}
+void
+Mark_engraver::finalize ()
+{
+ if (final_text_)
+ final_text_->set_property ("break-visibility",
+ scm_c_make_vector (3, SCM_BOOL_T));
+ final_text_ = 0;
+}
+
void
Mark_engraver::create_items (Stream_event *ev)
{
ADD_TRANSLATOR (Mark_engraver,
/* doc */
- "Create @code{RehearsalMark} objects. It puts them on top of "
- "all staves (which is taken from the property "
- "@code{stavesFound}). If moving this engraver to a different "
- "context, @ref{Staff_collecting_engraver} must move along, "
- "otherwise all marks end up on the same Y@tie{}location.",
+ "Create @code{RehearsalMark} objects. It puts them on top of"
+ " all staves (which is taken from the property"
+ " @code{stavesFound}). If moving this engraver to a different"
+ " context, @ref{Staff_collecting_engraver} must move along,"
+ " otherwise all marks end up on the same Y@tie{}location.",
/* create */
"RehearsalMark ",