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 #include "axis-align-spanner.hh"
  14
  15 Base_span_bar_engraver::Base_span_bar_engraver()
  16 {
  17   spanbar_p_ =0;
  18   use_priority_b_ = true;
  19 }
  20
  21 Span_bar*
  22 Base_span_bar_engraver::get_span_bar_p() const
  23 {
  24   return new Span_bar;
  25 }
  26
  27
  28 void
  29 Base_span_bar_engraver::acknowledge_element (Score_element_info i)
  30 {
  31   int depth = i.origin_trans_l_arr (this).size();
  32   if (depth > 1
  33       && dynamic_cast<Bar *> (i.elem_l_))
  34     {
  35       bar_l_arr_.push (dynamic_cast<Bar *> (i.elem_l_));
  36
  37       if (bar_l_arr_.size() >= 2 && !spanbar_p_)
  38         /*
  39           hmm, i do want a bracket with one staff some times, but not always
  40           if (bar_l_arr_.size() >= 1 && !spanbar_p_)
  41
  42           --jcn
  43         */
  44
  45         /*
  46
  47           use a property?  get_property ("singleStaffBracket", 0) ?
  48
  49           --hwn
  50          */
  51         {
  52           spanbar_p_ = get_span_bar_p();
  53           spanbar_p_->set_parent (bar_l_arr_[0], Y_AXIS);
  54
  55           /*
  56             UGH. UGH UUHGK GUHG G
  57             (ly_eval_str ??)
  58            */
  59           String visnam =  String(name()) + "-visibility";
  60
  61           spanbar_p_->set_elt_property ("visibility-lambda",
  62                                         ly_eval_str (visnam.ch_C()));
  63
  64           if (use_priority_b_)
  65             {
  66               spanbar_p_->set_elt_property ("break-aligned", SCM_BOOL_T);
  67             }
  68           else
  69             {
  70               spanbar_p_->set_parent (bar_l_arr_[0], X_AXIS);
  71             }
  72
  73           announce_element (Score_element_info (spanbar_p_,0));
  74           if (!gh_string_p (spanbar_p_->get_elt_property ("glyph")))
  75             spanbar_p_-> set_elt_property ("glyph",
  76                                            bar_l_arr_[0]->get_elt_property ("glyph"));
  77         }
  78     }
  79 }
  80
  81 void
  82 Base_span_bar_engraver::do_pre_move_processing()
  83 {
  84   if (spanbar_p_)
  85     {
  86       for (int i=0; i < bar_l_arr_.size() ; i++)
  87         spanbar_p_->add_bar (bar_l_arr_[i]);
  88       typeset_element (spanbar_p_);
  89       spanbar_p_ =0;
  90     }
  91   bar_l_arr_.set_size (0);
  92 }
  93
  94
  95
  96 ADD_THIS_TRANSLATOR(Base_span_bar_engraver);
  97