lily/note-column.cc

   1 /*
   2   note-column.cc -- implement Note_column
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "note-column.hh"
  10
  11 #include <math.h>               // ceil
  12
  13 #include "axis-group-interface.hh"
  14 #include "stem.hh"
  15 #include "warn.hh"
  16 #include "output-def.hh"
  17 #include "staff-symbol-referencer.hh"
  18 #include "rest.hh"
  19 #include "note-head.hh"
  20 #include "accidental-placement.hh"
  21
  22 /*
  23   TODO: figure out if we can prune this class. This is just an
  24   annoying layer between (rest)collision & (note-head + stem)
  25  */
  26
  27 bool
  28 Note_column::has_rests (Grob*me)
  29 {
  30   return unsmob_grob (me->get_property ("rest"));
  31 }
  32
  33 int
  34 Note_column::shift_compare (Grob *const &p1, Grob *const&p2)
  35 {
  36   SCM s1 = p1->get_property ("horizontal-shift");
  37   SCM s2 = p2->get_property ("horizontal-shift");
  38
  39   int h1 = (scm_is_number (s1))?  scm_to_int (s1) :0;
  40   int h2 = (scm_is_number (s2)) ? scm_to_int (s2):0;
  41   return h1 - h2;
  42 }
  43
  44 Item *
  45 Note_column::get_stem (Grob*me)
  46 {
  47   SCM s = me->get_property ("stem");
  48   return  unsmob_item (s);
  49 }
  50
  51 Slice
  52 Note_column::head_positions_interval (Grob *me)
  53 {
  54   Slice  iv;
  55
  56   iv.set_empty ();
  57
  58   SCM h = me->get_property ("note-heads");
  59   for (; scm_is_pair (h); h = scm_cdr (h))
  60     {
  61       Grob *se = unsmob_grob (scm_car (h));
  62
  63       int j = Staff_symbol_referencer::get_rounded_position (se);
  64       iv.unite (Slice (j, j));
  65     }
  66   return iv;
  67 }
  68
  69 Direction
  70 Note_column::dir (Grob*  me)
  71 {
  72   Grob *stem = unsmob_grob (me->get_property ("stem"));
  73   if (stem && Stem::has_interface (stem))
  74     return Stem::get_direction (stem);
  75   else if (scm_is_pair (me->get_property ("note-heads")))
  76     return (Direction)sign (head_positions_interval (me).center ());
  77
  78   programming_error ("Note column without heads and stem!");
  79   return CENTER;
  80 }
  81
  82
  83 void
  84 Note_column::set_stem (Grob*me, Grob * stem)
  85 {
  86   me->set_property ("stem", stem->self_scm ());
  87   me->add_dependency (stem);
  88   Axis_group_interface::add_element (me, stem);
  89 }
  90
  91
  92 Grob*
  93 Note_column::get_rest (Grob*me)
  94 {
  95   return unsmob_grob (me->get_property ("rest"));
  96 }
  97
  98 void
  99 Note_column::add_head (Grob*me, Grob *h)
 100 {
 101   bool both = false;
 102   if (Rest::has_interface (h))
 103     {
 104       if (scm_is_pair (me->get_property ("note-heads")))
 105         both = true;
 106       else
 107         me->set_property ("rest", h->self_scm ());
 108     }
 109   else if (Note_head::has_interface (h))
 110     {
 111       if (unsmob_grob (me->get_property ("rest")))
 112         both = true;
 113       Pointer_group_interface::add_grob (me, ly_symbol2scm ("note-heads"), h);
 114     }
 115
 116   if (both)
 117     me->warning ("Can't have rests and note heads together on a stem.");
 118   else
 119     Axis_group_interface::add_element (me, h);
 120 }
 121
 122 /**
 123   translate the rest symbols vertically by amount DY, but only if
 124   they have no staff-position set.
 125 */
 126 void
 127 Note_column::translate_rests (Grob*me, int dy)
 128 {
 129   Grob * r = unsmob_grob (me->get_property ("rest"));
 130   if (r && !scm_is_number (r->get_property ("staff-position")))
 131     {
 132       r->translate_axis (dy * Staff_symbol_referencer::staff_space (r)/2.0, Y_AXIS);
 133       Grob *p = r->get_parent (Y_AXIS);
 134       p->flush_extent_cache (Y_AXIS);
 135     }
 136 }
 137
 138
 139 void
 140 Note_column::set_dotcol (Grob*me, Grob *d)
 141 {
 142   Axis_group_interface::add_element (me, d);
 143 }
 144
 145
 146
 147
 148 Grob*
 149 Note_column::first_head (Grob*me)
 150 {
 151   Grob * st = get_stem (me);
 152   return st?  Stem::first_head (st): 0;
 153 }
 154
 155
 156 /*
 157   Return the first Accidentals grob that we find in a note-head.
 158  */
 159 Grob*
 160 Note_column::accidentals (Grob *me)
 161 {
 162   SCM heads = me->get_property ("note-heads");
 163   Grob * acc = 0;
 164   for (;scm_is_pair (heads); heads = scm_cdr (heads))
 165     {
 166       Grob * h = unsmob_grob (scm_car (heads));
 167       acc = h ? unsmob_grob (h->get_property ("accidental-grob")) : 0;
 168       if (acc)
 169         break;
 170     }
 171
 172   if (!acc)
 173     return 0;
 174
 175   if (Accidental_placement::has_interface (acc->get_parent (X_AXIS)))
 176     return acc->get_parent (X_AXIS);
 177
 178   /* compatibility. */
 179   return  acc;
 180 }
 181
 182
 183
 184 ADD_INTERFACE (Note_column, "note-column-interface",
 185   "Stem and noteheads combined",
 186   "arpeggio note-heads rest-collision rest horizontal-shift stem accidentals force-hshift");
 187