]> git.donarmstrong.com Git - lilypond.git/blob - lily/parenthesis-engraver.cc
Basic-notation reorg and misc small fixes.
[lilypond.git] / lily / parenthesis-engraver.cc
1 /*
2   parenthesis-engraver.cc -- implement Parenthesis_engraver
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
7
8 */
9
10 #include "engraver.hh"
11
12 #include "warn.hh"
13 #include "simple-closure.hh"
14 #include "music.hh"
15 #include "grob.hh"
16 #include "item.hh"
17 #include "pointer-group-interface.hh"
18
19 #include "translator.icc"
20
21 class Parenthesis_engraver : public Engraver
22 {
23   TRANSLATOR_DECLARATIONS (Parenthesis_engraver);
24
25 protected:
26   DECLARE_ACKNOWLEDGER (grob);
27 };
28
29 Parenthesis_engraver::Parenthesis_engraver()
30 {
31 }
32
33 void
34 Parenthesis_engraver::acknowledge_grob (Grob_info info)
35 {
36   if (Music *music = info.music_cause ())
37     {
38       if (to_boolean (music->get_property ("parenthesize")))
39         {
40           if (Item *victim = dynamic_cast<Item*> (info.grob ()))
41             {
42               Engraver *eng = dynamic_cast<Engraver*> (info.origin_translator ());
43               Item *paren = make_item_from_properties (eng,
44                                                        ly_symbol2scm ("ParenthesesItem"),
45                                                        victim->self_scm (),
46                                                        "ParenthesesItem");
47
48               Pointer_group_interface::add_grob (paren, ly_symbol2scm ("elements"), victim);
49               
50               Real size = robust_scm2double (paren->get_property ("font-size"), 0.0)
51                 + robust_scm2double (victim->get_property ("font-size"), 0.0);
52               paren->set_property ("font-size", scm_from_double (size));
53               
54               /*
55                 TODO?
56
57                 enlarge victim to allow for parentheses space? 
58               */
59             }
60           else
61             {
62               programming_error ("Don't know how to parenthesize spanners.");
63             }
64         }
65     }
66 }
67
68 ADD_ACKNOWLEDGER (Parenthesis_engraver, grob);
69 ADD_TRANSLATOR (Parenthesis_engraver,
70                 /* doc */ "Parenthesize objects whose music cause has the @code{parenthesize} "
71                 "property.",
72                 
73                 /* create */
74                 "ParenthesesItem ",
75                 /* accept */ "",
76                 /* read */ "",
77                 /* write */ "");