source file of the GNU LilyPond music typesetter
- (c) 2003--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ (c) 2003--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "stencil.hh"
struct Piano_pedal_bracket
{
DECLARE_SCHEME_CALLBACK (print, (SCM));
- static bool has_interface (Grob *);
+ DECLARE_GROB_INTERFACE();
};
MAKE_SCHEME_CALLBACK (Piano_pedal_bracket, print, 1);
Piano_pedal_bracket::print (SCM smob)
{
Spanner *me = dynamic_cast<Spanner *> (unsmob_grob (smob));
- Spanner *orig = dynamic_cast<Spanner *> (me->original_);
+ Spanner *orig = dynamic_cast<Spanner *> (me->original ());
Drul_array<bool> broken (false, false);
Drul_array<Real> height = robust_scm2drul
Grob *common = me->get_bound (LEFT)
->common_refpoint (me->get_bound (RIGHT), X_AXIS);
- Grob *textbit = unsmob_grob (me->get_property ("pedal-text"));
+ Grob *textbit = unsmob_grob (me->get_object ("pedal-text"));
if (textbit)
common = common->common_refpoint (textbit, X_AXIS);
if (broken[d])
{
if (orig
- && ((d == RIGHT && me->get_break_index () != orig->broken_intos_.size () - 1)
+ && ((d == RIGHT
+ && me->get_break_index () != orig->broken_intos_.size () - 1)
|| (d == LEFT && me->get_break_index ())))
height[d] = 0.0;
else
return m.smobbed_copy ();
}
-ADD_INTERFACE (Piano_pedal_bracket, "piano-pedal-bracket-interface",
- "The bracket of the piano pedal. It can be tuned through the regular "
+ADD_INTERFACE (Piano_pedal_bracket,
+
+ "The bracket of the piano pedal. "
+ "It can be tuned through the regular "
"bracket properties.",
- "bound-padding edge-height shorten-pair bracket-flare pedal-text");
+
+ /* props */
+ "bound-padding "
+ "edge-height "
+ "shorten-pair "
+ "bracket-flare "
+ "pedal-text");