* mf/GNUmakefile: always trace pfa fonts.

[lilypond.git] / lily / side-position-interface.cc

diff --git a/lily/side-position-interface.cc b/lily/side-position-interface.cc
index 2b7ae5f9d8ae0df1edd67bea27b6b9627615b9d4..103593b686c95be0bf6a7e80b69e5460209bfcea 100644 (file)
--- a/lily/side-position-interface.cc
+++ b/lily/side-position-interface.cc
@@ -3,7 +3,7 @@
   
   source file of the GNU LilyPond music typesetter
   
-  (c) 1998--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1998--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   
  */
 #include <math.h>              // ceil.
@@ -28,12 +28,12 @@ Direction
 Side_position_interface::get_direction (Grob*me)
 {
   SCM d = me->get_grob_property ("direction");
-  if (ly_dir_p (d) && to_dir (d))
+  if (is_direction (d) && to_dir (d))
     return to_dir (d);
 
   Direction relative_dir = Direction (1);
   SCM reldir = me->get_grob_property ("side-relative-direction");      // should use a lambda.
-  if (ly_dir_p (reldir))
+  if (is_direction (reldir))
     {
       relative_dir = to_dir (reldir);
     }
@@ -103,10 +103,10 @@ Side_position_interface::general_side_position (Grob * me, Axis a, bool use_exte
   Direction dir = Side_position_interface::get_direction (me);
     
   Real off =  me->get_parent (a)->relative_coordinate (common, a);
-  SCM minimum = me->remove_grob_property ("minimum-space");
+  SCM minimum = me->get_grob_property ("minimum-space");
 
   Real total_off = dim.linear_combination (dir) - off;
-  SCM padding = me->remove_grob_property ("padding");
+  SCM padding = me->get_grob_property ("padding");
   if (gh_number_p (padding))
     {
       total_off += gh_scm2double (padding) * dir;
@@ -162,10 +162,10 @@ Side_position_interface::quantised_position (SCM element_smob, SCM)
 {
   Grob *me = unsmob_grob (element_smob);
   
-  
   Direction d = Side_position_interface::get_direction (me);
 
-  if (Staff_symbol_referencer::has_interface (me))
+  Grob * stsym = Staff_symbol_referencer::get_staff_symbol (me);
+  if (stsym)
     {
       Real p = Staff_symbol_referencer::get_position (me);
       Real rp = directed_round (p, d);
@@ -207,14 +207,41 @@ Side_position_interface::aligned_side (SCM element_smob, SCM axis)
          d = DOWN;
        }
       o += - iv[-d];
-
-      SCM pad = me->get_grob_property ("padding");
-      if (gh_number_p (pad))
-       o += d *gh_scm2double (pad) ; 
     }
   return gh_double2scm (o);
 }
 
+/*
+  Maintain a minimum distance to the staff. This is similar to side
+  position with padding, but it will put adjoining objects on a row if
+  stuff sticks out of the staff a little.
+ */
+MAKE_SCHEME_CALLBACK (Side_position_interface,out_of_staff,2);
+SCM
+Side_position_interface::out_of_staff (SCM element_smob, SCM axis)
+{
+  Grob *me = unsmob_grob (element_smob);
+  Axis a = (Axis) gh_scm2int (axis);
+
+  Grob * st = Staff_symbol_referencer::get_staff_symbol (me);
+
+  if (!st)
+    return gh_int2scm (0);
+
+  Real padding=0.0;
+  SCM spad = me->get_grob_property ("staff-padding");
+
+  if (gh_number_p (spad))
+    padding = gh_scm2double (spad);
+  
+  Grob *common = me->common_refpoint (st, Y_AXIS);
+  Direction d = Side_position_interface::get_direction (me);
+  Interval staff_size = st->extent (common, Y_AXIS);
+  Interval me_ext = me->extent (common, a);
+  Real diff =  d*staff_size[d] + padding - d*me_ext[-d];
+  return gh_double2scm (diff >? 0);
+}
+
 void
 Side_position_interface::add_staff_support (Grob*me)
 {
@@ -275,8 +302,8 @@ Side_position_interface::supported_b (Grob*me)
 
 
 ADD_INTERFACE (Side_position_interface,"side-position-interface",
-  "Position a victim object (this one) next to other objects (the
-support).  In this case, the direction signifies where to put the
-victim object relative to the support (left or right, up or down?)
-",
-  "side-support-elements direction-source direction side-relative-direction minimum-space padding");
+  "Position a victim object (this one) next to other objects (the "
+"support).  In this case, the property @code{direction} signifies where to put the  "
+"victim object relative to the support (left or right, up or down?) "
+,
+  "staff-padding side-support-elements direction-source direction side-relative-direction minimum-space padding");