2 parenthesis-engraver.cc -- implement Parenthesis_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
10 #include "engraver.hh"
13 #include "simple-closure.hh"
18 #include "translator.icc"
20 class Parenthesis_engraver : public Engraver
22 TRANSLATOR_DECLARATIONS (Parenthesis_engraver);
25 DECLARE_ACKNOWLEDGER (grob);
28 Parenthesis_engraver::Parenthesis_engraver()
35 Parenthesis_engraver::acknowledge_grob (Grob_info info)
37 if (Music *music = info.music_cause ())
39 if (to_boolean (music->get_property ("parenthesize")))
41 if (Item *victim = dynamic_cast<Item*> (info.grob ()))
43 Engraver *eng = dynamic_cast<Engraver*> (info.origin_translator ());
44 Item *paren = make_item_from_properties (eng,
45 ly_symbol2scm ("ParenthesesItem"),
49 paren->set_parent (victim, Y_AXIS);
50 paren->set_parent (victim, X_AXIS);
51 Real size = robust_scm2double (paren->get_property ("font-size"), 0.0)
52 + robust_scm2double (victim->get_property ("font-size"), 0.0);
53 paren->set_property ("font-size", scm_from_double (size));
58 enlarge victim to allow for parentheses space?
63 programming_error ("Don't know how to parenthesize spanners.");
69 ADD_ACKNOWLEDGER (Parenthesis_engraver, grob);
70 ADD_TRANSLATOR (Parenthesis_engraver,
71 /* doc */ "Parenthesize objects whose music cause has the @code{parenthesize} "
74 /* create */ "ParenthesesItem",