2 sustain-pedal.cc -- implement Sustain_pedal
4 source file of the GNU LilyPond music typesetter
6 (c) 2000--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
10 #include "font-interface.hh"
12 // update comment --hwn
18 * symbols are at wrong place in font
24 glyph -- text string (TODO: make one large glyph of the Ped symbol, removes need for member_print ())
28 FIXME. Need to use markup.
33 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 (ssize i
= 0; i
< text
.length (); i
++)
51 string
idx ("pedal.");
52 if (text
.substr (i
, 3) == "Ped")
58 idx
+= string (&text
.c_str ()[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);
64 return mol
.smobbed_copy ();