* scm/output-lib.scm (shift-right-at-line-begin): new function:

[lilypond.git] / lily / arpeggio.cc

diff --git a/lily/arpeggio.cc b/lily/arpeggio.cc
index daf53c6eacffcac30e9b2c38b3ad8d901a57270b..4eef3d8cafd3a54b66c8f344f5b3ad55a7f8bdec 100644 (file)
--- a/lily/arpeggio.cc
+++ b/lily/arpeggio.cc
@@ -54,7 +54,7 @@ Arpeggio::brew_molecule (SCM smob)
                   - my_y);
     }
 
-  if (heads.empty_b ())
+  if (heads.is_empty ())
     {
       /*
        Dumb blonde error
@@ -67,7 +67,7 @@ Arpeggio::brew_molecule (SCM smob)
 
   SCM ad = me->get_grob_property ("arpeggio-direction");
   Direction dir = CENTER;
-  if (ly_dir_p (ad))
+  if (is_direction (ad))
     {
       dir = to_dir (ad);
     }
@@ -128,7 +128,7 @@ Arpeggio::brew_chord_bracket (SCM smob)
   Real dy = heads.length() + sp;
   Real x = 0.7;
 
-  Molecule mol (Lookup::bracket (Y_AXIS, Interval (0, dy), lt, x));
+  Molecule mol (Lookup::bracket (Y_AXIS, Interval (0, dy), lt, x, lt));
   mol.translate_axis (heads[LEFT] - sp/2.0, Y_AXIS);
   return mol.smobbed_copy();
 }