From: Han-Wen Nienhuys <hanwen@lilypond.org>
Date: Wed, 9 Feb 2011 03:43:38 +0000 (-0200)
Subject: Use smaller font for beam debug output.
X-Git-Tag: release/2.13.49-1~1^2~4
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=7d870a2890deabfa746d2c17038a00fa9afb8897;p=lilypond.git

Use smaller font for beam debug output.
---

diff --git a/lily/beam.cc b/lily/beam.cc
index d31e570186..f983040bca 100644
--- 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 ())
 	{