]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/cluster.cc
* lily/dots.cc (print): replace -
[lilypond.git] / lily / cluster.cc
index a426c827694aeb035de7400eeda9147dfabfaf48..5eee6ee6db2bfd53413d507995c15b976aef6bdd 100644 (file)
@@ -9,16 +9,15 @@
 
 */
 
-#include <stdio.h>
-
 #include "cluster.hh"
+
+#include <cstdio>
+
 #include "spanner.hh"
 #include "item.hh"
 #include "pitch.hh"
 #include "staff-symbol-referencer.hh"
 #include "lookup.hh"
-#include "box.hh"
-#include "interval.hh"
 #include "output-def.hh"
 #include "warn.hh"
 
@@ -32,7 +31,7 @@ brew_cluster_piece (Grob *me, Array<Offset> bottom_points, Array<Offset> top_poi
 {
   Real blotdiameter = Staff_symbol_referencer::staff_space (me)/2;
 
-  Real padding =robust_scm2double ( me->get_property ("padding"), 0.0);
+  Real padding = robust_scm2double ( me->get_property ("padding"), 0.0);
 
   Offset vpadding = Offset (0, padding);
   Offset hpadding = Offset (0.5 * blotdiameter, 0);
@@ -142,7 +141,7 @@ Cluster::print (SCM smob)
   Item *right_bound = spanner->get_bound (RIGHT);
 
   Grob *commonx = left_bound->common_refpoint (right_bound, X_AXIS);
-  SCM cols  =me->get_property ("columns");
+  SCM cols  = me->get_property ("columns");
 
   if (!scm_is_pair (cols))
     {
@@ -165,9 +164,9 @@ Cluster::print (SCM smob)
     line with the center of the note heads?
     
    */
-  for (SCM s = cols; scm_is_pair (s); s = ly_cdr (s))
+  for (SCM s = cols; scm_is_pair (s); s = scm_cdr (s))
     {
-      Grob * col = unsmob_grob (ly_car (s));
+      Grob * col = unsmob_grob (scm_car (s));
       Interval yext = col->extent (commony, Y_AXIS);
 
       Real x = col->relative_coordinate (commonx, X_AXIS) - left_coord;
@@ -189,7 +188,7 @@ Cluster::print (SCM smob)
          if (scm_is_pair (cols))
            {
              Grob *next_commony = common_refpoint_of_list (cols, next, Y_AXIS);
-             Grob * col = unsmob_grob (ly_car (scm_last_pair (cols)));
+             Grob * col = unsmob_grob (scm_car (scm_last_pair (cols)));
 
              Interval v = col->extent (next_commony, Y_AXIS);
              Real x = right_bound->relative_coordinate (commonx, X_AXIS) - left_coord;