(LY_DEFINE): use Scheme style naming for

[lilypond.git] / lily / piano-pedal-bracket.cc

diff --git a/lily/piano-pedal-bracket.cc b/lily/piano-pedal-bracket.cc
index 7ec72e0ca6184a9bb01e999680301c691bb21f5b..26dbbc790d1bc930cbf93b503320b5719b2cb27b 100644 (file)
--- a/lily/piano-pedal-bracket.cc
+++ b/lily/piano-pedal-bracket.cc
@@ -27,15 +27,15 @@ Piano_pedal_bracket::print (SCM smob)
   
   Drul_array<bool> broken (false,false);
   Drul_array<Real> height = robust_scm2drul
-    (me->get_grob_property ("edge-height"), Interval (0,0));
+    (me->get_property ("edge-height"), Interval (0,0));
   Drul_array<Real> shorten = robust_scm2drul
-    (me->get_grob_property ("shorten-pair"), Interval (0,0));
+    (me->get_property ("shorten-pair"), Interval (0,0));
   Drul_array<Real> flare = robust_scm2drul
-    (me->get_grob_property ("bracket-flare"), Interval (0,0));
+    (me->get_property ("bracket-flare"), Interval (0,0));
 
   Grob *common = me->get_bound (LEFT)
     ->common_refpoint (me->get_bound (RIGHT), X_AXIS);
-  Grob *textbit = unsmob_grob (me->get_grob_property("pedal-text"));
+  Grob *textbit = unsmob_grob (me->get_property("pedal-text"));
 
   if (textbit)
     common = common->common_refpoint (textbit, X_AXIS);
@@ -62,7 +62,7 @@ Piano_pedal_bracket::print (SCM smob)
     {
       height[LEFT] = 0;
       
-      Real padding = robust_scm2double (me->get_grob_property ("if-text-padding"), 0);
+      Real padding = robust_scm2double (me->get_property ("if-text-padding"), 0);
       
       span_points[LEFT] = padding
        + textbit->extent (common, X_AXIS)[RIGHT];