rewrite Self_alignment_interface

lily/flag.cc

 /*
   This file is part of LilyPond, the GNU music typesetter.
 
   Copyright (C) 1996--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
   Jan Nieuwenhuizen <janneke@gnu.org>
 
   LilyPond is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation, either version 3 of the License, or
   (at your option) any later version.
@@ skipping 19 matching lines @@
 #include "warn.hh"
 
 class Flag
 {
 public:
   DECLARE_SCHEME_CALLBACK (print, (SCM));
   DECLARE_SCHEME_CALLBACK (glyph_name, (SCM));
   DECLARE_SCHEME_CALLBACK (width, (SCM));
   DECLARE_SCHEME_CALLBACK (calc_y_offset, (SCM));
   DECLARE_SCHEME_CALLBACK (pure_calc_y_offset, (SCM, SCM, SCM));
-  DECLARE_SCHEME_CALLBACK (calc_x_offset, (SCM));
   DECLARE_GROB_INTERFACE ();
 
   static SCM internal_calc_y_offset (SCM smob, bool pure);
 };
 
 MAKE_SCHEME_CALLBACK (Flag, width, 1);
 SCM
 Flag::width (SCM smob)
 {
   Grob *me = unsmob_grob (smob);
@@ skipping 137 matching lines @@
 
   Interval stem_extent = pure
                          ? stem->pure_height (stem, 0, INT_MAX)
                          : stem->extent (stem, Y_AXIS);
 
   return scm_from_double (stem_extent.is_empty ()
                           ? 0.0
                           : stem_extent[d] - d * blot / 2);
 }
 
-MAKE_SCHEME_CALLBACK (Flag, calc_x_offset, 1);
-SCM
-Flag::calc_x_offset (SCM smob)
-{
-  Grob *me = unsmob_grob (smob);
-  Grob *stem = me->get_parent (X_AXIS);
-  return scm_from_double (stem->extent (stem, X_AXIS)[RIGHT]);
-}
-
 ADD_INTERFACE (Flag,
                "A flag that gets attached to a stem."
                "The style property is  symbol determining"
                " what style of flag glyph is typeset on a"
                " @code{Stem}.  Valid options include @code{'()}"
                " for standard flags, @code{'mensural} and"
                " @code{'no-flag}, which switches off the flag.",
 
                /* properties */
                "glyph-name "
                "style "
                "stroke-style "
               );