]> git.donarmstrong.com Git - lilypond.git/blob - lily/base-span-bar-engraver.cc
patch::: 1.3.41.jcn4
[lilypond.git] / lily / base-span-bar-engraver.cc
1 /*
2   span-bar-grav.cc -- implement Base_span_bar_engraver
3
4   source file of the GNU LilyPond music typesetter
5
6   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 */
8
9 #include "dimension-cache.hh"
10 #include "lily-guile.hh"
11 #include "span-bar.hh"
12 #include "base-span-bar-engraver.hh"
13
14 Base_span_bar_engraver::Base_span_bar_engraver()
15 {
16   spanbar_p_ =0;
17   use_priority_b_ = true;
18 }
19
20 Span_bar*
21 Base_span_bar_engraver::get_span_bar_p() const
22 {
23   return new Span_bar;
24 }
25
26
27 void
28 Base_span_bar_engraver::acknowledge_element (Score_element_info i)
29 {
30   int depth = i.origin_trans_l_arr (this).size();
31   if (depth > 1
32       && dynamic_cast<Bar *> (i.elem_l_)) 
33     {
34       bar_l_arr_.push (dynamic_cast<Bar *> (i.elem_l_));
35
36       if (bar_l_arr_.size() >= 2 && !spanbar_p_) 
37         /*
38           hmm, i do want a bracket with one staff some times, but not always
39           if (bar_l_arr_.size() >= 1 && !spanbar_p_)
40
41           --jcn
42         */
43
44         /*
45
46           use a property?  get_property ("singleStaffBracket"); ?
47
48           --hwn
49          */
50         {
51           spanbar_p_ = get_span_bar_p();
52           spanbar_p_->set_parent (bar_l_arr_[0], Y_AXIS);
53
54           /*
55             UGH. UGH UUHGK GUHG G
56            */
57           String visnam =  String(name()) + "-visibility";
58
59           spanbar_p_->set_elt_property ("visibility-lambda",
60                                         scm_eval (ly_symbol2scm (visnam.ch_C())));
61
62           if (use_priority_b_)
63             {
64               spanbar_p_->set_elt_property ("break-aligned", SCM_BOOL_T);
65             }
66           else
67             {
68               spanbar_p_->set_parent (bar_l_arr_[0], X_AXIS);
69             }
70           
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"));
75         }
76     }
77 }
78
79 void
80 Base_span_bar_engraver::do_pre_move_processing()
81 {
82   if (spanbar_p_) 
83     {
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;
88     }
89   bar_l_arr_.set_size (0);
90 }
91
92
93
94 ADD_THIS_TRANSLATOR(Base_span_bar_engraver);
95