lily/dot-column.cc

   1 /*
   2   dot-column.cc -- implement Dot_column
   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 "dots.hh"
  10 #include "dot-column.hh"
  11 #include "rhythmic-head.hh"
  12 #include "group-interface.hh"
  13 #include "staff-symbol-referencer.hh"
  14 #include "directional-element-interface.hh"
  15 #include "side-position-interface.hh"
  16 #include "axis-group-interface.hh"
  17
  18
  19
  20 void
  21 Dot_column::add_head (Score_element * dc, Score_element *rh)
  22 {
  23   Score_element * d = unsmob_element (rh->get_elt_pointer ("dot"));
  24   if (d)
  25     {
  26       Side_position_interface (dc).add_support (rh);
  27
  28       Pointer_group_interface gi (dc, "dots");
  29       gi.add_element (d);
  30
  31       d->add_offset_callback (force_shift_callback , Y_AXIS);
  32       Axis_group_interface (dc).add_element (d);
  33     }
  34 }
  35
  36
  37 int
  38 Dot_column::compare (Score_element * const &d1, Score_element * const &d2)
  39 {
  40   Staff_symbol_referencer_interface s1(d1);
  41   Staff_symbol_referencer_interface s2(d2);
  42
  43   return int (s1.position_f () - s2.position_f ());
  44 }
  45
  46
  47 void
  48 Dot_column::set_interface (Score_element* dc)
  49 {
  50   dc->set_elt_pointer  ("dots", SCM_EOL);
  51   Directional_element_interface (dc).set (RIGHT);
  52
  53   Axis_group_interface (dc).set_interface ();
  54   Axis_group_interface (dc).set_axes(X_AXIS,X_AXIS);
  55 }
  56
  57 /*
  58   Will fuck up in this case.
  59
  60   X.  .
  61   X.X .
  62    |X .
  63    |
  64    |
  65    |X .
  66    |
  67    |
  68
  69
  70    Should be smarter.
  71  */
  72
  73
  74 Real
  75 Dot_column::force_shift_callback (Score_element * dot, Axis a)
  76 {
  77   assert (a == Y_AXIS);
  78   Score_element * me = dot->parent_l (X_AXIS);
  79   SCM dots = me->get_elt_pointer ("dots");
  80   do_shifts (dots);
  81   return 0.0;
  82 }
  83
  84 SCM
  85 Dot_column::do_shifts (SCM l)
  86 {
  87   Link_array<Score_element> dots;
  88   while (gh_pair_p (l))
  89     {
  90       dots.push (unsmob_element (gh_car (l)));
  91       l = gh_cdr (l);
  92     }
  93
  94   dots.sort (Dot_column::compare);
  95
  96   if (dots.size () < 2)
  97     return SCM_UNDEFINED;
  98   Slice s;
  99   s.set_empty ();
 100
 101   Array<int> taken_posns;
 102   int conflicts = 0;
 103   for (int i=0; i < dots.size (); i++)
 104     {
 105       Real p = Staff_symbol_referencer_interface (dots[i]).position_f ();
 106       for (int j=0; j < taken_posns.size (); j++)
 107         {
 108           if (taken_posns[j] == (int) p)
 109             conflicts++;
 110         }
 111       taken_posns.push ((int)p);
 112       s.unite (Slice ((int)p,
 113                       (int)p));
 114     }
 115
 116   if (!conflicts)
 117     return SCM_UNDEFINED;
 118
 119   int  middle = s.center ();
 120   /*
 121     +1 -> off by one
 122    */
 123   int pos = middle - dots.size () + 1;
 124   if (!(pos % 2))
 125     pos ++;                     // center () rounds down.
 126
 127   for (int i=0; i < dots.size (); pos += 2, i++)
 128     {
 129       Score_element * d = dots[i];
 130       Staff_symbol_referencer_interface (d).set_position(pos);
 131     }
 132
 133   return SCM_UNDEFINED;
 134 }