From 7d870a2890deabfa746d2c17038a00fa9afb8897 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Wed, 9 Feb 2011 01:43:38 -0200 Subject: [PATCH 1/1] Use smaller font for beam debug output. --- lily/beam.cc | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 ()) { -- 2.39.2