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--2001 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 "font-interface.hh"
  15 #include "rest.hh"
  16 #include "molecule.hh"
  17 #include "misc.hh"
  18 #include "group-interface.hh"
  19 #include "spanner.hh"
  20 #include "staff-symbol-referencer.hh"
  21 #include "text-item.hh"
  22
  23 void
  24 Multi_measure_rest::set_interface (Grob*me)
  25 {
  26   me->set_interface (ly_symbol2scm ("multi-measure-rest-interface"));
  27 }
  28
  29 bool
  30 Multi_measure_rest::has_interface (Grob*me)
  31 {
  32   return me->has_interface (ly_symbol2scm ("multi-measure-rest-interface"));
  33 }
  34
  35   /*
  36    [TODO]                                      17
  37  * variable-sized multi-measure rest symbol: |====| ??
  38 */
  39 MAKE_SCHEME_CALLBACK(Multi_measure_rest,brew_molecule,1);
  40 SCM
  41 Multi_measure_rest::brew_molecule (SCM smob)
  42 {
  43   Grob *me = unsmob_grob (smob);
  44   if (to_boolean (me->get_grob_property ("skip-timestep")))
  45     {
  46       me->set_grob_property ("skip-timestep", SCM_EOL);
  47       return SCM_EOL;
  48     }
  49
  50   Spanner * sp = dynamic_cast<Spanner*> (me);
  51
  52   SCM alist_chain = Font_interface::font_alist_chain (me);
  53
  54
  55   SCM style_chain =
  56     Font_interface::add_style (me, ly_symbol2scm ("mmrest-symbol"),
  57                                alist_chain);
  58
  59   Font_metric *musfont
  60     = Font_interface::get_font (me,style_chain);
  61
  62   Real staff_space = Staff_symbol_referencer::staff_space (me);
  63
  64   Interval sp_iv;
  65   Direction d = LEFT;
  66   do
  67     {
  68       Item * col = sp->get_bound (d)->column_l ();
  69
  70       Interval coldim = col->extent (0, X_AXIS);
  71
  72       sp_iv[d] = coldim[-d]  ;
  73     }
  74   while ((flip (&d)) != LEFT);
  75   Molecule mol;
  76   Real x_off = 0.0;
  77
  78   Real rx  = sp->get_bound (LEFT)->relative_coordinate (0, X_AXIS);
  79   /*
  80     we gotta stay clear of sp_iv, so move a bit to the right if
  81     needed.
  82    */
  83   x_off += (sp_iv[LEFT] -  rx) >? 0;
  84
  85   /*
  86     center between stuff.
  87    */
  88   x_off += sp_iv.length ()/ 2;
  89
  90
  91   Molecule s;
  92
  93   int measures = 1;
  94   SCM m (me->get_grob_property ("measure-count"));
  95   if (gh_number_p (m))
  96     {
  97       measures = gh_scm2int (m);
  98     }
  99
 100
 101   SCM limit = me->get_grob_property ("expand-limit");
 102   if (measures <= gh_scm2int (limit))
 103     {
 104       /*
 105         Build a rest from smaller parts. Distances inbetween are
 106         really variable, see Wanske pp. 125 */
 107
 108       int l = measures;
 109       while (l)
 110         {
 111           int k;
 112           if (l >= 4)
 113             {
 114               l-=4;
 115               k = -2;
 116             }
 117           else if (l>= 2)
 118             {
 119               l -= 2;
 120               k = -1;
 121             }
 122           else
 123             {
 124               k = 0;
 125               l --;
 126             }
 127
 128           Real pad = s.empty_b ()
 129             ? 0.0 : gh_scm2double (me->get_grob_property ("padding")) * staff_space;
 130
 131           Molecule r (musfont->find_by_name ("rests-" + to_str (k)));
 132           if (k == 0)
 133             r.translate_axis (staff_space, Y_AXIS);
 134
 135           s.add_at_edge (X_AXIS, RIGHT, r, pad);
 136         }
 137
 138
 139       s.align_to (X_AXIS, CENTER);
 140     }
 141   else
 142     {
 143       String idx =  ("rests-") + to_str (-4);
 144       s = musfont->find_by_name (idx);
 145     }
 146
 147   mol.add_molecule (s);
 148
 149   if (measures > 1)
 150     {
 151       Molecule s = Text_item::text2molecule (me,
 152                                              ly_str02scm (to_str (measures).ch_C ()),
 153                                              alist_chain);
 154       s.align_to (X_AXIS, CENTER);
 155       s.translate_axis (3.0 * staff_space, Y_AXIS);
 156       mol.add_molecule (s);
 157     }
 158   mol.translate_axis (x_off, X_AXIS);
 159   return mol.smobbed_copy();
 160 }
 161
 162 /*
 163   UGH. JUNKME elt prop "columns" isn't really needed.
 164  */
 165 void
 166 Multi_measure_rest::add_column (Grob*me,Item* c)
 167 {
 168   Pointer_group_interface::add_element (me, "columns",c);
 169
 170   add_bound_item (dynamic_cast<Spanner*> (me),c);
 171 }
 172
 173
 174 MAKE_SCHEME_CALLBACK (Multi_measure_rest, set_spacing_rods,1);
 175
 176 SCM
 177 Multi_measure_rest::set_spacing_rods (SCM smob)
 178 {
 179   Grob*me = unsmob_grob (smob);
 180
 181   Spanner*sp = dynamic_cast<Spanner*> (me);
 182   if (!(sp->get_bound (LEFT) && sp->get_bound (RIGHT)))
 183     {
 184       programming_error ("Multi_measure_rest::get_rods (): I am not spanned!");
 185       return SCM_UNSPECIFIED;
 186     }
 187
 188   Item * l = sp->get_bound (LEFT)->column_l ();
 189   Item * r = sp->get_bound (RIGHT)->column_l ();
 190   Item * lb = l->find_prebroken_piece (RIGHT);
 191   Item * rb = r->find_prebroken_piece (LEFT);
 192
 193   Item* combinations[4][2]={{l,r}, {lb,r}, {l,rb},{lb,rb}};
 194   Real staff_space = Staff_symbol_referencer::staff_space (me);
 195   for (int i=0; i < 4; i++)
 196     {
 197       Item * l =  combinations[i][0];
 198       Item *r = combinations[i][1];
 199
 200       if (!l || !r)
 201         continue;
 202
 203       Rod rod;
 204       rod.item_l_drul_[LEFT] = l;
 205       rod.item_l_drul_[RIGHT] = r;
 206
 207         /*
 208           should do something more advanced.
 209          */
 210       rod.distance_f_ = l->extent (l, X_AXIS)[BIGGER] - r->extent (r, X_AXIS)[SMALLER]
 211         + gh_scm2double (me->get_grob_property ("minimum-width")) * staff_space;
 212
 213       rod.add_to_cols ();
 214     }
 215   return SCM_UNSPECIFIED;
 216 }
 217