*** empty log message ***

diff --git a/lily/parenthesis-engraver.cc b/lily/parenthesis-engraver.cc
new file mode 100644 (file)
index 0000000..13aba09
--- /dev/null
+++ b/lily/parenthesis-engraver.cc
@@ -0,0 +1,77 @@
+/*
+  parenthesis-engraver.cc -- implement Parenthesis_engraver
+
+  source file of the GNU LilyPond music typesetter
+
+  (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+
+*/
+
+#include "engraver.hh"
+
+#include "warn.hh"
+#include "simple-closure.hh"
+#include "music.hh"
+#include "grob.hh"
+#include "item.hh"
+
+#include "translator.icc"
+
+class Parenthesis_engraver : public Engraver
+{
+  TRANSLATOR_DECLARATIONS (Parenthesis_engraver);
+
+protected:
+  DECLARE_ACKNOWLEDGER (grob);
+};
+
+Parenthesis_engraver::Parenthesis_engraver()
+{
+}
+
+
+
+void
+Parenthesis_engraver::acknowledge_grob (Grob_info info)
+{
+  if (Music *music = info.music_cause ())
+    {
+      if (to_boolean (music->get_property ("parenthesize")))
+       {
+         if (Item *victim = dynamic_cast<Item*> (info.grob ()))
+           {
+             Engraver *eng = dynamic_cast<Engraver*> (info.origin_translator ());
+             Item *paren = make_item_from_properties (eng,
+                                                      ly_symbol2scm ("ParenthesesItem"),
+                                                      victim->self_scm (),
+                                                      "ParenthesesItem");
+
+             paren->set_parent (victim, Y_AXIS);
+             paren->set_parent (victim, X_AXIS);
+             Real size = robust_scm2double (paren->get_property ("font-size"), 0.0)
+               + robust_scm2double (victim->get_property ("font-size"), 0.0);
+             paren->set_property ("font-size", scm_from_double (size));
+             
+             /*
+               TODO?
+
+               enlarge victim to allow for parentheses space? 
+             */
+           }
+         else
+           {
+             programming_error ("Don't know how to parenthesize spanners.");
+           }
+       }
+    }
+}
+
+ADD_ACKNOWLEDGER (Parenthesis_engraver, grob);
+ADD_TRANSLATOR (Parenthesis_engraver,
+               /* doc */ "Parenthesize objects whose music cause has the @code{parenthesize} "
+               "property.",
+               
+               /* create */ "ParenthesesItem",
+               /* accept */ "",
+               /* read */ "",
+               /* write */ "");