/*
- span-bar-grav.cc -- implement Span_bar_engraver
+ This file is part of LilyPond, the GNU music typesetter.
- source file of the GNU LilyPond music typesetter
+ Copyright (C) 1997--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
- (c) 1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-*/
+ LilyPond is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
+
+ LilyPond is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+ You should have received a copy of the GNU General Public License
+ along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
+*/
-#include "lily-guile.hh"
-#include "bar.hh"
#include "item.hh"
-#include "span-bar.hh"
#include "engraver.hh"
+#include "pointer-group-interface.hh"
+#include "lily-imports.hh"
+#include "translator.icc"
-/**
+/**
- Make bars that span multiple "staffs". Catch bars, and span a
- Span_bar over them if we find more than 2 bars. Vertical alignment
- of staffs changes the appearance of spanbars. It is up to the
- aligner (Vertical_align_engraver, in this case, to add extra
- dependencies to the spanbars.
-
- */
+Make bars that span multiple "staves". Catch bars, and span a
+Span_bar over them if we find more than 2 bars. Vertical alignment
+of staves changes the appearance of spanbars. It is up to the
+aligner (Vertical_align_engraver, in this case, to add extra
+dependencies to the spanbars.
+*/
class Span_bar_engraver : public Engraver
{
- Item * spanbar_p_;
- Link_array<Item> bar_l_arr_;
+ Item *spanbar_;
+ bool make_spanbar_;
+ vector<Item *> bars_;
public:
- VIRTUAL_COPY_CONS(Translator);
- Span_bar_engraver();
+ TRANSLATOR_DECLARATIONS (Span_bar_engraver);
protected:
- virtual void acknowledge_grob (Grob_info);
- virtual void stop_translation_timestep();
-
+ void acknowledge_bar_line (Grob_info);
+ void stop_translation_timestep ();
+ void process_acknowledged ();
};
-
-Span_bar_engraver::Span_bar_engraver()
+Span_bar_engraver::Span_bar_engraver (Context *c)
+ : Engraver (c)
{
- spanbar_p_ =0;
+ spanbar_ = 0;
+ make_spanbar_ = false;
}
-
-
void
-Span_bar_engraver::acknowledge_grob (Grob_info i)
+Span_bar_engraver::acknowledge_bar_line (Grob_info i)
{
- int depth = i.origin_trans_l_arr (this).size();
- if (depth > 1
- && Bar::has_interface (i.elem_l_))
+ int depth = i.origin_contexts (this).size ();
+ if (depth && !i.grob ()->internal_has_interface (ly_symbol2scm ("span-bar-interface")))
{
- Item * it = dynamic_cast<Item*>(i.elem_l_);
- bar_l_arr_.push (it);
-
- if (bar_l_arr_.size() >= 2 && !spanbar_p_)
- {
- spanbar_p_ = new Item (get_property ("SpanBar"));
- Span_bar::set_interface (spanbar_p_);
-
- spanbar_p_->set_parent (bar_l_arr_[0], Y_AXIS);
- spanbar_p_->set_parent (bar_l_arr_[0], X_AXIS);
-
- announce_grob (spanbar_p_,0);
- }
+ Item *it = dynamic_cast<Item *> (i.grob ());
+ bars_.push_back (it);
+
+ if (bars_.size () >= 2 && !spanbar_)
+ make_spanbar_ = true;
}
}
+
void
-Span_bar_engraver::stop_translation_timestep()
+Span_bar_engraver::process_acknowledged ()
{
- if (spanbar_p_)
+ if (make_spanbar_)
{
- for (int i=0; i < bar_l_arr_.size() ; i++)
- Span_bar::add_bar( spanbar_p_,bar_l_arr_[i]);
-
- SCM vissym =ly_symbol2scm ("visibility-lambda");
- SCM vis = bar_l_arr_[0]->get_grob_property (vissym);
- if (scm_equal_p (spanbar_p_->get_grob_property (vissym), vis) != SCM_BOOL_T)
- spanbar_p_->set_grob_property (vissym, vis);
+ spanbar_ = make_item ("SpanBar", SCM_EOL);
- typeset_grob (spanbar_p_);
- spanbar_p_ =0;
+ spanbar_->set_parent (bars_[0], X_AXIS);
+ for (vsize i = 0; i < bars_.size (); i++)
+ Pointer_group_interface::add_grob (spanbar_, ly_symbol2scm ("elements"), bars_[i]);
+ make_spanbar_ = false;
}
- bar_l_arr_.set_size (0);
}
+void
+Span_bar_engraver::stop_translation_timestep ()
+{
+ if (spanbar_)
+ {
+ SCM vis = bars_[0]->get_property ("break-visibility");
+ if (ly_is_equal (spanbar_->get_property ("break-visibility"), vis))
+ spanbar_->set_property ("break-visibility", vis);
+ Lily::span_bar_notify_grobs_of_my_existence (spanbar_->self_scm ());
+ spanbar_ = 0;
+ }
+ bars_.resize (0);
+}
+void
+Span_bar_engraver::boot ()
+{
+ ADD_ACKNOWLEDGER (Span_bar_engraver, bar_line);
+}
-ADD_THIS_TRANSLATOR(Span_bar_engraver);
+ADD_TRANSLATOR (Span_bar_engraver,
+ /* doc */
+ "Make cross-staff bar lines: It catches all normal bar lines"
+ " and draws a single span bar across them.",
+ /* create */
+ "SpanBar ",
+ /* read */
+ "",
+ /* write */
+ ""
+ );