lily/semi-tie.cc

   1 /*
   2   This file is part of LilyPond, the GNU music typesetter.
   3
   4   Copyright (C) 2005--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
   5
   6
   7   LilyPond is free software: you can redistribute it and/or modify
   8   it under the terms of the GNU General Public License as published by
   9   the Free Software Foundation, either version 3 of the License, or
  10   (at your option) any later version.
  11
  12   LilyPond is distributed in the hope that it will be useful,
  13   but WITHOUT ANY WARRANTY; without even the implied warranty of
  14   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15   GNU General Public License for more details.
  16
  17   You should have received a copy of the GNU General Public License
  18   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  19 */
  20
  21 #include "semi-tie-column.hh"
  22 #include "semi-tie.hh"
  23 #include "directional-element-interface.hh"
  24 #include "grob.hh"
  25 #include "tie.hh"
  26 #include "warn.hh"
  27 #include "staff-symbol-referencer.hh"
  28
  29 ADD_INTERFACE (Semi_tie,
  30                "A tie which is only on one side connected to a note head.",
  31
  32                /* properties */
  33                "control-points "
  34                "direction "
  35                "details "
  36                "head-direction "
  37                "note-head "
  38                "thickness "
  39               );
  40
  41 MAKE_SCHEME_CALLBACK (Semi_tie, calc_control_points, 1)
  42 SCM
  43 Semi_tie::calc_control_points (SCM smob)
  44 {
  45   Grob *me = unsmob_grob (smob);
  46   (void) me->get_property ("direction");
  47
  48   if (Semi_tie_column::has_interface (me->get_parent (Y_AXIS)))
  49     {
  50       me->get_parent (Y_AXIS)->get_property ("positioning-done");
  51     }
  52   else
  53     {
  54       programming_error ("lv tie without Semi_tie_column.  Killing lv tie.");
  55       me->suicide ();
  56     }
  57
  58   return me->get_property_data ("control-points");
  59 }
  60
  61 int
  62 Semi_tie::get_position (Grob *me)
  63 {
  64   Grob *h = unsmob_grob (me->get_object ("note-head"));
  65   return (int) rint (Staff_symbol_referencer::get_position (h));
  66 }
  67
  68 bool
  69 Semi_tie::less (Grob *const &s1,
  70                 Grob *const &s2)
  71 {
  72   return get_position (s1) < get_position (s2);
  73 }
  74