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 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 "paper-column.hh" // urg
  14 #include "bar.hh"
  15 #include "lookup.hh"
  16 #include "rest.hh"
  17 #include "molecule.hh"
  18 #include "misc.hh"
  19 #include "group-interface.hh"
  20 #include "stem.hh"
  21 #include "staff-symbol-referencer.hh"
  22
  23 Multi_measure_rest::Multi_measure_rest ()
  24 {
  25   measures_i_ = 0;
  26   set_elt_property ("columns", SCM_EOL);
  27 }
  28
  29
  30
  31
  32
  33 /*
  34    [TODO]                                          17
  35  * variable-sized multi-measure rest symbol: |====| ??
  36
  37  * build 3, 5, 6, 7, 8 symbols (how far, property?)
  38        from whole, brevis and longa rests
  39
  40 */
  41 Molecule*
  42 Multi_measure_rest::do_brew_molecule_p () const
  43 {
  44   Interval sp_iv;
  45   Direction d = LEFT;
  46   do
  47     {
  48       Item * col = spanned_drul_[d]->column_l ();
  49
  50       Interval coldim = col->extent (X_AXIS)
  51         + col->relative_coordinate (0, X_AXIS);
  52
  53       sp_iv[d] = coldim[-d]  ;
  54     }
  55   while ((flip (&d)) != LEFT);
  56   Molecule *mol_p  = new Molecule;
  57   Real x_off = 0.0;
  58
  59   Real rx  = spanned_drul_[LEFT]->relative_coordinate (0, X_AXIS);
  60   /*
  61     we gotta stay clear of sp_iv, so move a bit to the right if
  62     needed.
  63    */
  64   x_off += (sp_iv[LEFT] -  rx) >? 0;
  65
  66   /*
  67     center between stuff.
  68    */
  69   x_off += sp_iv.length ()/ 2;
  70
  71
  72   Molecule s;
  73   bool rest_symbol=true;
  74   SCM alt_symbol_sym =get_elt_property ("alt-symbol");
  75   if (gh_string_p (alt_symbol_sym))
  76     {
  77       s = lookup_l () -> afm_find (ly_scm2string (alt_symbol_sym));
  78       rest_symbol = false;
  79     }
  80   else if (measures_i_ == 1 || measures_i_ == 2 || measures_i_ == 4)
  81     {
  82       s = lookup_l ()->afm_find ("rests-" + to_str (- intlog2(measures_i_)));
  83       s.translate_axis (-s.extent ()[X_AXIS].length () / 2, X_AXIS);
  84     }
  85   else
  86     {
  87       String idx =  ("rests-") + to_str (-4);
  88       s = lookup_l ()->afm_find (idx);
  89     }
  90
  91   mol_p->add_molecule (s);
  92   Real interline_f
  93     = staff_symbol_referencer_interface (this).staff_space ();
  94   if (measures_i_ == 1 && rest_symbol)
  95     {
  96       mol_p->translate_axis (interline_f, Y_AXIS);
  97     }
  98   else if (measures_i_ > 1)
  99     {
 100       Molecule s (lookup_l ()->text ("number", to_str (measures_i_), paper_l ()));
 101       s.align_to (X_AXIS, CENTER);
 102       s.translate_axis (3.0 * interline_f, Y_AXIS);
 103       mol_p->add_molecule (s);
 104     }
 105   mol_p->translate_axis (x_off, X_AXIS);
 106   return mol_p;
 107 }
 108
 109 /*
 110   UGH. JUNKME elt prop "columns" isn't really needed.
 111  */
 112
 113 void
 114 Multi_measure_rest::do_add_processing ()
 115 {
 116   if (gh_pair_p (get_elt_property ("columns")))
 117     {
 118       Link_array<Item> column_arr (Group_interface__extract_elements (this, (Item*)0, "columns"));
 119
 120       set_bounds (LEFT, column_arr[0 >? column_arr.size () - 2]);
 121       set_bounds (RIGHT, column_arr.top ());
 122     }
 123 }
 124
 125 void
 126 Multi_measure_rest::do_post_processing ()
 127 {
 128   if (!gh_pair_p (get_elt_property ("columns")))
 129     set_elt_property ("transparent", SCM_BOOL_T);
 130 }
 131
 132
 133
 134 void
 135 Multi_measure_rest::add_column (Item* c)
 136 {
 137   Group_interface gi (this, "columns");
 138   gi.add_element (c);
 139
 140
 141   add_dependency (c);
 142 }
 143
 144
 145 Array<Rod>
 146 Multi_measure_rest::get_rods () const
 147 {
 148   Array<Rod> a;
 149
 150   if (!(spanned_drul_[LEFT] && spanned_drul_[RIGHT]))
 151     {
 152       programming_error ("Multi_measure_rest::get_rods (): I am not spanned!");
 153       return a;
 154     }
 155
 156   Item * l = spanned_drul_[LEFT]->column_l ();
 157   Item * r = spanned_drul_[RIGHT]->column_l ();
 158   Item * lb = l->find_broken_piece (RIGHT);
 159   Item * rb = r->find_broken_piece (LEFT);
 160
 161   Item* combinations[4][2]={{l,r}, {lb,r}, {l,rb},{lb,rb}};
 162   for (int i=0; i < 4; i++)
 163     {
 164       Item * l =  combinations[i][0];
 165       Item *r = combinations[i][1];
 166
 167       if (!l || !r)
 168         continue;
 169
 170       Rod rod;
 171       rod.item_l_drul_[LEFT] = l;
 172       rod.item_l_drul_[RIGHT] = r;
 173
 174         /*
 175           should do something more advanced.
 176          */
 177       rod.distance_f_ = l->extent (X_AXIS)[BIGGER] - r->extent (X_AXIS)[SMALLER]
 178         + paper_l ()->get_var ("mmrest_x_minimum");
 179
 180       a.push (rod);
 181     }
 182
 183   return a;
 184 }
 185