lily/laissez-vibrer-tie.cc

   1 /*
   2   laissez-vibrer-tie.cc -- implement Laissez_vibrer_tie
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7
   8 */
   9
  10 #include "laissez-vibrer-tie-column.hh"
  11 #include "laissez-vibrer-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(Laissez_vibrer_tie,
  19               "laissez-vibrer-tie-interface",
  20               "The interface for l.v. tie items.",
  21
  22               /* properties */
  23               "control-points "
  24               "direction "
  25               "details "
  26               "note-head "
  27               "thickness "
  28               "x-gap "
  29               );
  30
  31 MAKE_SCHEME_CALLBACK (Laissez_vibrer_tie, print, 1);
  32 SCM
  33 Laissez_vibrer_tie::print (SCM smob)
  34 {
  35   Grob *me = unsmob_grob (smob);
  36   if (CENTER == get_grob_direction (me))
  37     set_direction (me);
  38
  39   if (!get_grob_direction (me))
  40     me->programming_error ("lv. tie direction not set.");
  41
  42   SCM cp = me->get_property ("control-points");
  43   if (!scm_is_pair (cp))
  44     if (Laissez_vibrer_tie_column::has_interface (me->get_parent (Y_AXIS)))
  45       {
  46         Laissez_vibrer_tie_column::set_directions (me->get_parent (Y_AXIS));
  47       }
  48
  49   return Tie::print (smob);
  50 }
  51
  52 void
  53 Laissez_vibrer_tie::set_direction (Grob *me)
  54 {
  55   if (!get_grob_direction (me))
  56     {
  57       if (Laissez_vibrer_tie_column::has_interface (me->get_parent (Y_AXIS)))
  58         Laissez_vibrer_tie_column::set_directions (me->get_parent (Y_AXIS));
  59       else
  60         {
  61           programming_error ("lv tie without Laissez_vibrer_tie_column");
  62           set_grob_direction (me, UP);
  63         }
  64     }
  65 }
  66
  67 int
  68 Laissez_vibrer_tie::get_position (Grob *me)
  69 {
  70   Grob *h = unsmob_grob (me->get_object ("note-head"));
  71   return (int) rint (Staff_symbol_referencer::get_position (h));
  72 }
  73
  74 int
  75 Laissez_vibrer_tie::compare (Grob *const &s1,
  76                              Grob *const &s2)
  77 {
  78   return sign (get_position (s1) - get_position (s2));
  79 }
  80