lily/span-bar.cc

   1 /*
   2   span-bar.cc -- implement Span_bar
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8 #include "dimension-cache.hh"
   9 #include "span-bar.hh"
  10 #include "lookup.hh"
  11 #include "dimensions.hh"
  12 #include "paper-def.hh"
  13 #include "molecule.hh"
  14 #include "align-element.hh"
  15 #include "warn.hh"
  16
  17 void
  18 Span_bar::add_bar (Score_element*b)
  19 {
  20   spanning_l_arr_.push (b);
  21   add_dependency (b);
  22 }
  23
  24 void
  25 Span_bar::do_substitute_element_pointer (Score_element*o, Score_element*n)
  26 {
  27   spanning_l_arr_.unordered_substitute (o, n);
  28 }
  29
  30
  31 Interval
  32 Span_bar::do_width () const
  33 {
  34   Molecule m = lookup_l ()->bar (type_str_, 40 PT, paper_l ());
  35
  36   return m.extent (X_AXIS);
  37 }
  38
  39 void
  40 Span_bar::do_pre_processing ()
  41 {
  42   Bar::do_pre_processing ();
  43
  44   evaluate_empty ();
  45
  46   set_empty (false, Y_AXIS); // a hack to make mark scripts work.
  47 }
  48
  49 void
  50 Span_bar::do_post_processing ()
  51 {
  52   Bar::do_post_processing ();
  53   Interval i(get_spanned_interval ());
  54
  55   translate_axis (i.center (), Y_AXIS);
  56 }
  57
  58 void
  59 Span_bar::evaluate_empty ()
  60 {
  61   if (spanning_l_arr_.size () < 1)
  62     {
  63       set_elt_property ("transparent", SCM_BOOL_T);
  64       set_empty (true, X_AXIS, Y_AXIS);
  65
  66     }
  67   if (type_str_.empty_b ())
  68     {
  69       set_elt_property ("transparent", SCM_BOOL_T);
  70       set_empty (true);
  71     }
  72   else if (type_str_ == "|:")
  73     {
  74       type_str_ = ".|";
  75     }
  76   else if (type_str_ == ":|")
  77     {
  78       type_str_ = "|.";
  79     }
  80   else if (type_str_ == ":|:")
  81     {
  82       type_str_ = ".|.";
  83     }
  84 }
  85
  86 Interval
  87 Span_bar::get_spanned_interval () const
  88 {
  89   Interval y_int;
  90
  91   for (int i=0; i < spanning_l_arr_.size (); i++)
  92     {
  93       Graphical_element*common = common_refpoint (spanning_l_arr_[i], Y_AXIS);
  94       Real y = spanning_l_arr_[i]->relative_coordinate (common, Y_AXIS)
  95         - relative_coordinate (common, Y_AXIS);
  96
  97       y_int.unite (y + spanning_l_arr_[i]->extent(Y_AXIS));
  98     }
  99   return y_int;
 100 }
 101
 102 Interval
 103 Span_bar::do_height () const
 104 {
 105   return get_spanned_interval ();
 106 }
 107
 108 Molecule*
 109 Span_bar::do_brew_molecule_p () const
 110 {
 111   Interval iv (get_spanned_interval ());
 112   Molecule*output = new Molecule;
 113   if (!iv.empty_b())
 114     {
 115       output->add_molecule (lookup_l ()->bar (type_str_, iv.length (), paper_l ()));
 116     }
 117   else
 118     {
 119       programming_error("Huh? My children deflated (FIXME)");
 120     }
 121   return output;
 122 }
 123
 124
 125
 126 Span_bar::Span_bar ()
 127 {
 128   type_str_ = "";
 129 }
 130