Run `make grand-replace'.

[lilypond.git] / lily / ambitus.cc

diff --git a/lily/ambitus.cc b/lily/ambitus.cc
index 702d8ba7b5757caa50814557c811878fa797b1f1..e123538dfa2df315e52cfc59b309bcf439489b6c 100644 (file)
--- a/lily/ambitus.cc
+++ b/lily/ambitus.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 2002--2006 Juergen Reuter <reuter@ipd.uka.de>
+  (c) 2002--2008 Juergen Reuter <reuter@ipd.uka.de>
 */
 
 #include "ambitus.hh"
@@ -24,13 +24,15 @@ Ambitus::print (SCM smob)
   Item *me = (Item *) unsmob_grob (smob);
   Stencil stencil;
 
-  // join heads
+  // FIXME : should be Ambitus_line join heads
   extract_grob_set (me, "note-heads", heads);
   if (to_boolean (me->get_property ("join-heads"))
       && heads.size () > 1)
     {
       Grob *common
-       = common_refpoint_of_array (heads.slice (0, 2), me, Y_AXIS);
+       = common_refpoint_of_array (vector<Grob*> (heads.begin (),
+                                                      heads.begin () + 2),
+                                   me, Y_AXIS);
 
       Grob *minh = heads[0];
       Grob *maxh = heads[1];
@@ -49,9 +51,9 @@ Ambitus::print (SCM smob)
 
       if (pmin < pmax)
        {
-         Real linethickness = me->layout ()->get_dimension (ly_symbol2scm ("linethickness"))
+         Real linethickness = me->layout ()->get_dimension (ly_symbol2scm ("line-thickness"))
            * robust_scm2double (me->get_property ("thickness"), 1.0);
-         Real blotdiameter = me->layout ()->get_dimension (ly_symbol2scm ("blotdiameter"));
+         Real blotdiameter = me->layout ()->get_dimension (ly_symbol2scm ("blot-diameter"));
          Interval x_extent = 0.5 * linethickness * Interval (-1, 1);
          Interval y_extent = Interval (pmin, pmax);
          Box line_box (x_extent, y_extent);
@@ -66,6 +68,11 @@ Ambitus::print (SCM smob)
   return SCM_EOL;
 }
 
-ADD_INTERFACE (Ambitus, "ambitus-interface",
+ADD_INTERFACE (Ambitus,
               "The line between note heads for a pitch range.",
-              "thickness note-heads join-heads");
+
+              /* properties */
+              "join-heads "
+              "note-heads "
+              "thickness "
+              );