2 sustain-pedal.cc -- implement Sustain_pedal
4 source file of the GNU LilyPond music typesetter
6 (c) 2000--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
11 #include "font-interface.hh"
13 // update comment --hwn
19 * symbols are at wrong place in font
25 glyph -- text string (TODO: make one large glyph of the Ped symbol, removes need for member_print ())
32 DECLARE_SCHEME_CALLBACK (print, (SCM));
36 MAKE_SCHEME_CALLBACK (Sustain_pedal,print,1);
38 Sustain_pedal::print (SCM smob)
40 Grob * e = unsmob_grob (smob);
43 SCM glyph = e->get_property ("text");
44 if (!scm_is_string (glyph))
45 return mol.smobbed_copy ();
47 String text = ly_scm2string (glyph);
49 for (int i = 0; i < text.length (); i++)
51 String idx ("pedal-");
52 if (text.cut_string (i, 3) == "Ped")
58 idx += String (&text.to_bytes ()[i], 1);
59 Stencil m = Font_interface::get_default_font (e)->find_by_name (idx);
61 mol.add_at_edge (X_AXIS, RIGHT, m, 0, 0);
64 return mol.smobbed_copy ();