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 ())
31 FIXME. Need to use markup.
36 DECLARE_SCHEME_CALLBACK (print, (SCM));
40 MAKE_SCHEME_CALLBACK (Sustain_pedal,print,1);
42 Sustain_pedal::print (SCM smob)
44 Grob * e = unsmob_grob (smob);
47 SCM glyph = e->get_property ("text");
48 if (!scm_is_string (glyph))
49 return mol.smobbed_copy ();
51 String text = ly_scm2string (glyph);
53 for (int i = 0; i < text.length (); i++)
55 String idx ("pedal.");
56 if (text.cut_string (i, 3) == "Ped")
62 idx += String (&text.to_bytes ()[i], 1);
63 Stencil m = Font_interface::get_default_font (e)->find_by_name (idx);
65 mol.add_at_edge (X_AXIS, RIGHT, m, 0, 0);
68 return mol.smobbed_copy ();