lily/multi-measure-rest.cc

   1 /*
   2   multi-measure-rest.cc --  implement Multi_measure_rest
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998--1999, 1999 Jan Nieuwenhuizen <janneke@gnu.org>
   7
   8  */
   9
  10 #include "multi-measure-rest.hh"
  11 #include "debug.hh"
  12 #include "paper-def.hh"
  13 #include "p-col.hh" // urg
  14 #include "bar.hh"
  15 #include "lookup.hh"
  16 #include "rest.hh"
  17 #include "molecule.hh"
  18 #include "misc.hh"
  19
  20
  21 Multi_measure_rest::Multi_measure_rest ()
  22 {
  23   measures_i_ = 0;
  24 }
  25
  26 void
  27 Multi_measure_rest::do_print () const
  28 {
  29 #ifndef NPRINT
  30   DOUT << "measures_i_ " << measures_i_;
  31 #endif
  32 }
  33
  34
  35
  36 /*
  37    [TODO]                                          17
  38  * variable-sized multi-measure rest symbol: |====| ??
  39
  40  * build 3, 5, 6, 7, 8 symbols (how far, property?)
  41        from whole, brevis and longa rests
  42
  43 */
  44 Molecule*
  45 Multi_measure_rest::do_brew_molecule_p () const
  46 {
  47   Interval sp_iv;
  48   Direction d = LEFT;
  49   do
  50     {
  51       Item * col = spanned_drul_[d]->column_l ();
  52
  53       Interval coldim = col->extent (X_AXIS);
  54
  55       sp_iv[d] = coldim[-d]  ;
  56     }
  57   while ((flip (&d)) != LEFT);
  58   Molecule *mol_p  = new Molecule;
  59   Real x_off = 0.0;
  60
  61
  62   Dimension_cache * col_ref = spanned_drul_[LEFT]->column_l ()->dim_cache_[X_AXIS];
  63
  64   Real rx  = spanned_drul_[LEFT]->absolute_coordinate (X_AXIS);
  65   /*
  66     we gotta stay clear of sp_iv, so move a bit to the right if
  67     needed.
  68    */
  69   x_off += (sp_iv[LEFT] -  rx) >? 0;
  70
  71   /*
  72     center between stuff.
  73    */
  74   x_off += sp_iv.length ()/ 2;
  75
  76
  77   Molecule s;
  78   if (measures_i_ == 1 || measures_i_ == 2 || measures_i_ == 4)
  79     {
  80       s = lookup_l ()->rest (- intlog2(measures_i_), 0, "");
  81       s.translate_axis (-s.extent ()[X_AXIS].length () / 2, X_AXIS);
  82     }
  83   else
  84     {
  85       s = lookup_l ()->rest (-4, 0, "");
  86     }
  87   mol_p->add_molecule (s);
  88   Real interline_f = staff_line_leading_f ();
  89   if (measures_i_ == 1)
  90     {
  91       mol_p->translate_axis (interline_f, Y_AXIS);
  92     }
  93   else if (measures_i_ > 1)
  94     {
  95       Molecule s ( lookup_l ()->text ("number", to_str (measures_i_)));
  96
  97       s.translate_axis (3.0 * interline_f, Y_AXIS);
  98       mol_p->add_molecule (s);
  99     }
 100
 101   mol_p->translate_axis (x_off, X_AXIS);
 102   return mol_p;
 103 }
 104
 105 void
 106 Multi_measure_rest::do_add_processing ()
 107 {
 108   if (column_arr_.size ())
 109     {
 110       set_bounds (LEFT, column_arr_[0 >? column_arr_.size () - 2]);
 111       set_bounds (RIGHT, column_arr_[column_arr_.size () - 1]);
 112     }
 113 }
 114
 115 void
 116 Multi_measure_rest::do_post_processing ()
 117 {
 118   if (!column_arr_.size ())
 119     set_elt_property (transparent_scm_sym, SCM_BOOL_T);
 120 }
 121
 122
 123 void
 124 Multi_measure_rest::do_substitute_element_pointer (Score_element* o, Score_element* n)
 125 {
 126   Staff_symbol_referencer::do_substitute_element_pointer (o,n);
 127   if (Item* c = dynamic_cast <Item*> (o))
 128     column_arr_.substitute (c, dynamic_cast<Item*> (n));
 129 }
 130
 131 void
 132 Multi_measure_rest::add_column (Item* c)
 133 {
 134   column_arr_.push (c);
 135   add_dependency (c);
 136 }
 137
 138
 139 Array<Rod>
 140 Multi_measure_rest::get_rods () const
 141 {
 142   Array<Rod> a;
 143
 144   if (!(spanned_drul_[LEFT] && spanned_drul_[RIGHT]))
 145     {
 146       programming_error ("Multi_measure_rest::get_rods (): I am not spanned!");
 147         return a;
 148     }
 149       Rod r;
 150       r.item_l_drul_ = spanned_drul_;
 151       r.distance_f_ = paper_l ()->get_var ("mmrest_x_minimum");
 152       a.push (r);
 153
 154
 155   /*
 156     also set distances in case the left or right ending of the rest is
 157     a broken column. This is very common: it happens if the rest is in
 158     the beginning of the line, or at the end.
 159
 160     TODO: merge this code with other discretionary handling code.
 161
 162     TODO: calc  mmrest_x_minimum (see brew_molecule_p ())
 163   */
 164
 165   Drul_array<Item*> discretionaries;
 166   Direction d = LEFT;
 167   do
 168     {
 169       Item *i = r.item_l_drul_[d]->find_prebroken_piece (-d);
 170       discretionaries[d] = i;
 171       if (i)
 172       {
 173         Rod k (r);
 174
 175         k.item_l_drul_[d] = i;
 176         a.push (k);
 177       }
 178     }
 179   while ((flip (&d))!= LEFT);
 180
 181   if (discretionaries[LEFT] && discretionaries[RIGHT])
 182     {
 183       Rod k(r);
 184       k.item_l_drul_ = discretionaries;
 185       a.push (k);
 186     }
 187
 188
 189
 190   return a;
 191 }