lily/semi-tie.cc

   1 /*
   2   semi-tie.cc -- implement Semi_tie
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2005--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7
   8 */
   9
  10 #include "semi-tie-column.hh"
  11 #include "semi-tie.hh"
  12 #include "directional-element-interface.hh"
  13 #include "grob.hh"
  14 #include "tie.hh"
  15 #include "warn.hh"
  16 #include "staff-symbol-referencer.hh"
  17
  18 ADD_INTERFACE(Semi_tie,
  19
  20               "A tie which is only on one side connected to note heads. ",
  21
  22               /* properties */
  23               "control-points "
  24               "direction "
  25               "details "
  26               "head-direction "
  27               "note-head "
  28               "thickness "
  29               );
  30
  31 MAKE_SCHEME_CALLBACK(Semi_tie, calc_control_points, 1)
  32 SCM
  33 Semi_tie::calc_control_points (SCM smob)
  34 {
  35   Grob *me = unsmob_grob (smob);
  36   (void) me->get_property ("direction");
  37
  38   if (Semi_tie_column::has_interface (me->get_parent (Y_AXIS)))
  39     {
  40       me->get_parent (Y_AXIS)->get_property ("positioning-done");
  41     }
  42   else
  43     {
  44       programming_error ("lv tie without Semi_tie_column. Killing lv tie.");
  45       me->suicide ();
  46     }
  47
  48   return me->get_property_data ("control-points");
  49 }
  50
  51 int
  52 Semi_tie::get_position (Grob *me)
  53 {
  54   Grob *h = unsmob_grob (me->get_object ("note-head"));
  55   return (int) rint (Staff_symbol_referencer::get_position (h));
  56 }
  57
  58 bool
  59 Semi_tie::less (Grob *const &s1,
  60                 Grob *const &s2)
  61 {
  62   return get_position (s1) < get_position (s2);
  63 }
  64