Gets vertical skylines from grob stencils

lily/grob.cc

 /*
   This file is part of LilyPond, the GNU music typesetter.
 
   Copyright (C) 1997--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
   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 61 matching lines @@
         {
           for (SCM s = scm_cdr (object_cbs); scm_is_pair (s); s = scm_cdr (s))
             set_object (scm_caar (s), scm_cdar (s));
         }
     }
 
   if (get_property_data ("X-extent") == SCM_EOL)
     set_property ("X-extent", Grob::stencil_width_proc);
   if (get_property_data ("Y-extent") == SCM_EOL)
     set_property ("Y-extent", Grob::stencil_height_proc);
+  if (get_property_data ("vertical-skylines") == SCM_EOL)
+    set_property ("vertical-skylines", Grob::simple_vertical_skylines_from_stencil_proc);
+  if (get_property_data ("horizontal-skylines") == SCM_EOL)
+    set_property ("horizontal-skylines", Grob::simple_horizontal_skylines_from_stencil_proc);
 }
 
 Grob::Grob (Grob const &s)
   : dim_cache_ (s.dim_cache_)
 {
   original_ = (Grob *) & s;
   self_scm_ = SCM_EOL;
 
   immutable_property_alist_ = s.immutable_property_alist_;
   mutable_property_alist_ = SCM_EOL;
@@ skipping 367 matching lines @@
         = (a == X_AXIS)
           ? ly_symbol2scm ("minimum-X-extent")
           : ly_symbol2scm ("minimum-Y-extent");
       SCM min_ext = internal_get_property (min_ext_sym);
       if (is_number_pair (min_ext))
         real_ext.unite (ly_scm2interval (min_ext));
 
       ((Grob *)this)->dim_cache_[a].extent_ = new Interval (real_ext);
     }
 
-  real_ext.translate (offset);
+  // We never want nan, so we avoid shifting infinite values.
+  for (LEFT_and_RIGHT (d))
+    if (!isinf (real_ext[d]))
+      real_ext[d] += offset;
 
   return real_ext;
 }
 
 Interval
 Grob::pure_height (Grob *refp, int start, int end)
 {
   SCM iv_scm = get_pure_property ("Y-extent", start, end);
   Interval iv = robust_scm2interval (iv_scm, Interval (0, 0));
   Real offset = pure_relative_y_coordinate (refp, start, end);
@@ skipping 312 matching lines @@
                "axis-group-parent-X "
                "axis-group-parent-Y "
                "before-line-breaking "
                "cause "
                "color "
                "cross-staff "
                "id "
                "extra-X-extent "
                "extra-Y-extent "
                "extra-offset "
+               "footnote-music "
                "forced-spacing "
+               "horizontal-skylines "
                "interfaces "
                "layer "
                "meta "
                "minimum-X-extent "
                "minimum-Y-extent "
                "outside-staff-horizontal-padding "
                "outside-staff-padding "
                "outside-staff-priority "
                "pure-Y-offset-in-progress "
                "rotation "
+               "skyline-horizontal-padding "
                "springs-and-rods "
                "staff-symbol "
                "stencil "
                "transparent "
                "vertical-skylines "
                "whiteout "
               );
 
 /****************************************************************
   CALLBACKS
@@ skipping 95 matching lines @@
   if (Align_interface::has_interface (commony))
     return true;
 
   for (Grob *g = this; g && g != commony; g = g->get_parent (Y_AXIS))
     if (Align_interface::has_interface (g))
       return true;
 
   return false;
 }