X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=lily%2Fsystem-start-delimiter.cc;h=7099ca7e7a30039bd40abd0f408f12316129e4cb;hb=f82f9474b9b2852084b42b2e79e2743a90769167;hp=5a4e220500519ffbb8f7c9924d11f1fa1c3d4f87;hpb=0a1eb1cb92c0ed9d34e9b9d9492e7b118a8bb3a0;p=lilypond.git diff --git a/lily/system-start-delimiter.cc b/lily/system-start-delimiter.cc index 5a4e220500..7099ca7e7a 100644 --- a/lily/system-start-delimiter.cc +++ b/lily/system-start-delimiter.cc @@ -75,28 +75,6 @@ System_start_delimiter::line_bracket (Grob *me, Real height) return vline; } -Stencil -System_start_delimiter::text (Grob *me_grob, Real h) -{ - (void) h; - - Spanner *me = dynamic_cast (me_grob); - SCM t = me->get_property ("text"); - if (me->get_break_index () == 0) - t = me->get_property ("long-text"); - - - SCM chain = Font_interface::text_font_alist_chain (me); - - SCM scm_stencil = Text_interface::is_markup (t) - ? Text_interface::interpret_markup (me->layout ()->self_scm (), chain, t) - : SCM_EOL; - - if (Stencil *p = unsmob_stencil (scm_stencil)) - return *p; - return Stencil(); -} - Stencil System_start_delimiter::simple_bar (Grob *me, Real h) { @@ -152,8 +130,6 @@ System_start_delimiter::print (SCM smob) m = simple_bar (me, len); else if (glyph_sym == ly_symbol2scm ("line-bracket")) m = line_bracket (me, len); - else if (glyph_sym == ly_symbol2scm ("text")) - m = text (me, len); m.translate_axis (ext.center (), Y_AXIS); return m.smobbed_copy (); @@ -166,7 +142,7 @@ System_start_delimiter::staff_brace (Grob *me, Real y) /* We go through the style sheet to lookup the font file name. This is better than using find_font directly, esp. because that triggers mktextfm for non-existent -> fonts. */ + fonts. */ SCM fam = scm_cons (ly_symbol2scm ("font-encoding"), ly_symbol2scm ("fetaBraces")); @@ -198,14 +174,13 @@ System_start_delimiter::staff_brace (Grob *me, Real y) return stil; } -ADD_INTERFACE (System_start_delimiter, "system-start-delimiter-interface", +ADD_INTERFACE (System_start_delimiter, + "system-start-delimiter-interface", "The brace, bracket or bar in front of the system. " , /* properties */ "collapse-height " "style " - "text " - "long-text " "thickness " );