Script::get_molecule(Direction d) const
{
SCM s = get_elt_property ("molecule");
- assert (s != SCM_UNDEFINED);
+ assert (gh_pair_p (s));
- SCM key = SCM_CAR (s);
+ SCM key = gh_car (s);
if (key == ly_symbol2scm ("feta"))
{
return lookup_l ()->afm_find ("scripts-" +
void
-Script::do_pre_processing ()
+Script::before_line_breaking ()
{
/*
center my self on the note head.
}
void
-Script::do_post_processing ()
+Script::after_line_breaking ()
{
- Direction d = Side_position_interface (this).get_direction ();
- Molecule m (get_molecule(d));
+ Side_position_interface i (this);
+ Direction d = i.get_direction ();
+ i.set_direction (d);
}
-Molecule*
-Script::do_brew_molecule_p () const
+Molecule
+Script::do_brew_molecule () const
{
Direction dir = DOWN;
SCM d = get_elt_property ("direction");
if (isdir_b (d))
dir = to_dir (d);
- return new Molecule (get_molecule (dir));
+ return get_molecule (dir);
}