*/
#include "engraver.hh"
-#include "event.hh"
-#include "grob.hh"
-#include "item.hh"
#include "lily-guile.hh"
#include "side-position-interface.hh"
#include "staff-symbol-referencer.hh"
-#include "item.hh"
#include "axis-group-interface.hh"
#include "context.hh"
-
#include "directional-element-interface.hh"
#include "note-column.hh"
#include "warn.hh"
}
else
{
- s = ly_cadr (strings);
+ s = scm_cadr (strings);
}
p->start_ev_ = p->event_drul_[START];
}
}
else
{
- s = ly_caddr (strings);
+ s = scm_caddr (strings);
}
p->start_ev_ = 0;
}
else if (p->event_drul_[START])
{
p->start_ev_ = p->event_drul_[START];
- s = ly_car (strings);
+ s = scm_car (strings);
if (!mixed)
{
/*
{
if (!p->bracket_ && p->event_drul_[STOP])
{
- String msg =_f ("can't find start of piano pedal bracket: `%s'", p->name_);
+ String msg = _f ("can't find start of piano pedal bracket: `%s'", p->name_);
p->event_drul_[STOP]->origin ()->warning (msg);
p->event_drul_[STOP] = 0;
}
if (!p->event_drul_[START])
{
SCM flare = p->bracket_->get_property ("bracket-flare");
- p->bracket_->set_property ("bracket-flare", scm_cons (ly_car (flare),
+ p->bracket_->set_property ("bracket-flare", scm_cons (scm_car (flare),
scm_make_real (0)));
}
if (!p->finished_bracket_)
{
SCM flare = p->bracket_->get_property ("bracket-flare");
- p->bracket_->set_property ("bracket-flare", scm_cons (scm_make_real (0),ly_cdr (flare)));
+ p->bracket_->set_property ("bracket-flare", scm_cons (scm_make_real (0),scm_cdr (flare)));
}
}
}
-ENTER_DESCRIPTION (Piano_pedal_engraver,
+ADD_TRANSLATOR (Piano_pedal_engraver,
/* descr */ "Engrave piano pedal symbols and brackets.",
/* creats*/ "SostenutoPedal SustainPedal UnaCordaPedal SostenutoPedalLineSpanner SustainPedalLineSpanner UnaCordaPedalLineSpanner",
/* accepts */ "pedal-event",