2 script.cc -- implement Script
4 source file of the GNU LilyPond music typesetter
6 (c) 1999--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
13 #include "side-position-interface.hh"
14 #include "paper-def.hh"
15 #include "dimension-cache.hh"
17 Script ::Script (SCM s)
23 Script::get_molecule(Direction d) const
25 SCM s = get_elt_property ("molecule");
26 assert (gh_pair_p (s));
29 if (key == ly_symbol2scm ("feta"))
31 return lookup_l ()->afm_find ("scripts-" +
32 ly_scm2string (index_cell (gh_cdr (s), d)));
34 else if (key == ly_symbol2scm ("accordion"))
36 return lookup_l ()->accordion (gh_cdr (s), paper_l()->get_var("interline"));
46 Script::before_line_breaking ()
49 center my self on the note head.
51 Score_element * e = parent_l(X_AXIS);
52 translate_axis (e->extent (X_AXIS).center (), X_AXIS);
56 Script::after_line_breaking ()
58 Side_position_interface i (this);
59 Direction d = i.get_direction ();
63 MAKE_SCHEME_SCORE_ELEMENT_CALLBACKS(Script)
65 Script::do_brew_molecule () const
68 SCM d = get_elt_property ("direction");
72 return get_molecule (dir);