Use smaller font for beam debug output.

diff --git a/lily/beam.cc b/lily/beam.cc
index d31e570186dca277a527ea687262d1abe45dced1..f983040bcabc51aaab2962563eac22135f43c1a0 100644 (file)
--- a/lily/beam.cc
+++ b/lily/beam.cc
@@ -622,10 +622,13 @@ Beam::print (SCM grob)
       string str;
       SCM properties = Font_interface::text_font_alist_chain (me);
 
+      properties = scm_cons(scm_acons (ly_symbol2scm ("font-size"), scm_from_int (-3), SCM_EOL),
+                            properties);
+      
       Direction stem_dir = stems.size () ? to_dir (stems[0]->get_property ("direction")) : UP;
 
       Stencil score = *unsmob_stencil (Text_interface::interpret_markup
-                                   (me->layout ()->self_scm (), properties, annotation));
+                                       (me->layout ()->self_scm (), properties, annotation));
 
       if (!score.is_empty ())
        {