add vim.

[lilypond.git] / lily / cluster.cc

diff --git a/lily/cluster.cc b/lily/cluster.cc
index fedaaf4d79d0192ed6ffd5802bcb4ddee31c3e0a..6c11ff1aa63b970446c9865ad39ad1aee2f1fc4b 100644 (file)
--- a/lily/cluster.cc
+++ b/lily/cluster.cc
@@ -32,13 +32,13 @@ 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_grob_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);
   Offset hvpadding = 0.5 * hpadding + vpadding;
 
-  SCM shape_scm = me->get_grob_property ("style");
+  SCM shape_scm = me->get_property ("style");
   String shape;
 
   if (gh_symbol_p (shape_scm))
@@ -142,7 +142,7 @@ Cluster::print (SCM smob)
   Item *right_bound = spanner->get_bound (RIGHT);
 
   Grob *common = left_bound->common_refpoint (right_bound, X_AXIS);
-  SCM cols  =me->get_grob_property ("columns");
+  SCM cols  =me->get_property ("columns");
 
   if (!gh_pair_p (cols))
     {
@@ -169,7 +169,7 @@ Cluster::print (SCM smob)
     {
       Grob * col = unsmob_grob (ly_car (s));
 
-      SCM posns = col->get_grob_property ("positions");
+      SCM posns = col->get_property ("positions");
       
       Slice s (0,0);
       if (is_number_pair (posns))
@@ -191,11 +191,11 @@ Cluster::print (SCM smob)
       if (spanner->get_break_index () < orig->broken_intos_.size()-1)
        {
          Spanner * next = orig->broken_intos_[spanner->get_break_index () + 1];
-         SCM cols = next->get_grob_property ("columns");
+         SCM cols = next->get_property ("columns");
          if (gh_pair_p (cols))
            {
              Grob * col = unsmob_grob (ly_car (scm_last_pair (cols)));
-             SCM posns = col->get_grob_property ("positions");
+             SCM posns = col->get_property ("positions");
       
              Slice s (0,0);
              if (is_number_pair (posns))
@@ -218,16 +218,12 @@ Cluster::print (SCM smob)
 }
 
 ADD_INTERFACE (Cluster,"cluster-interface",
-  "A graphically drawn musical cluster. " 
-"\n\n"
-"@code{padding} adds to the vertical extent of the shape (top and "
-"bottom) and is expressed in units of staffspace.  Since the pitch "
-"range of a single pitch is infinitely small, if padding is set to "
-"@code{0.0}, this possibly results in an invisible shape, if you,for "
-"example, say @code{c-\\startCluster d e-\\endCluster}.  The default "
-"value for @code{padding} therefore is @code{0.25}, such that a single "
-"pitch roughly shows the same height as a note head. "
-"\n\n"
-"@code{style} controls the shape of cluster segments.  Valid values include 'leftsided-stairs', 'rightsided-stairs', 'centered-stairs', and 'ramp'.\n"
+              "A graphically drawn musical cluster. " 
+              "\n\n"
+              "@code{padding} adds to the vertical extent of the shape (top and "
+              "bottom). \n\n"
+              "The property @code{style} controls the shape of cluster segments.  Valid values "
+              "include @code{leftsided-stairs}, @code{rightsided-stairs}, @code{centered-stairs}, "
+              "and @code{ramp}.\n"
 ,
   "style padding columns");