lilypond-1.3.67
[lilypond.git] / lily / base-span-bar-engraver.cc
blob3993776b427409e0366bdc425672bc4873f922ed
1 /*
2 span-bar-grav.cc -- implement Base_span_bar_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 */
9 #include "dimension-cache.hh"
10 #include "lily-guile.hh"
11 #include "span-bar.hh"
12 #include "base-span-bar-engraver.hh"
14 Base_span_bar_engraver::Base_span_bar_engraver()
16 spanbar_p_ =0;
17 use_priority_b_ = true;
20 Span_bar*
21 Base_span_bar_engraver::get_span_bar_p() const
23 return new Span_bar;
27 void
28 Base_span_bar_engraver::acknowledge_element (Score_element_info i)
30 int depth = i.origin_trans_l_arr (this).size();
31 if (depth > 1
32 && dynamic_cast<Bar *> (i.elem_l_))
34 bar_l_arr_.push (dynamic_cast<Bar *> (i.elem_l_));
36 if (bar_l_arr_.size() >= 2 && !spanbar_p_)
38 hmm, i do want a bracket with one staff some times, but not always
39 if (bar_l_arr_.size() >= 1 && !spanbar_p_)
41 --jcn
46 use a property? get_property ("singleStaffBracket"); ?
48 --hwn
51 spanbar_p_ = get_span_bar_p();
52 spanbar_p_->set_parent (bar_l_arr_[0], Y_AXIS);
55 UGH. UGH UUHGK GUHG G
57 String visnam = String(name()) + "-visibility";
59 spanbar_p_->set_elt_property ("visibility-lambda",
60 scm_eval (ly_symbol2scm (visnam.ch_C())));
62 if (use_priority_b_)
64 spanbar_p_->set_elt_property ("break-aligned", SCM_BOOL_T);
66 else
68 spanbar_p_->set_parent (bar_l_arr_[0], X_AXIS);
71 announce_element (Score_element_info (spanbar_p_,0));
72 if (!gh_string_p (spanbar_p_->get_elt_property ("glyph")))
73 spanbar_p_-> set_elt_property ("glyph",
74 bar_l_arr_[0]->get_elt_property ("glyph"));
79 void
80 Base_span_bar_engraver::do_pre_move_processing()
82 if (spanbar_p_)
84 for (int i=0; i < bar_l_arr_.size() ; i++)
85 spanbar_p_->add_bar (bar_l_arr_[i]);
86 typeset_element (spanbar_p_);
87 spanbar_p_ =0;
89 bar_l_arr_.set_size (0);
94 ADD_THIS_TRANSLATOR(Base_span_bar_engraver);