X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fsustain-pedal.cc;h=68db12e7608318e0585b7350438a8f245532ef4f;hb=9879bd7a67e4f72c6fa7f30eb355f2dc56f9a4bc;hp=5537069fd460033d77a24a1d6b11c54701884085;hpb=c659cb200486c2f908703696a1b2873e78c8160a;p=lilypond.git diff --git a/lily/sustain-pedal.cc b/lily/sustain-pedal.cc index 5537069fd4..68db12e760 100644 --- a/lily/sustain-pedal.cc +++ b/lily/sustain-pedal.cc @@ -1,11 +1,10 @@ -/* - sustain-pedal.cc -- implement Sustain_pedal - +/* + sustain-pedal.cc -- implement Sustain_pedal + source file of the GNU LilyPond music typesetter - - (c) 2000--2004 Han-Wen Nienhuys - - */ + + (c) 2000--2005 Han-Wen Nienhuys +*/ #include "grob.hh" #include "stencil.hh" #include "font-interface.hh" @@ -15,40 +14,41 @@ Urg. This is almost text Problem is: - * we have no kerning - * symbols are at wrong place in font + * we have no kerning + * symbols are at wrong place in font Properties: glyph -- text string (TODO: make one large glyph of the Ped symbol, removes need for member_print ()) - */ +/* + FIXME. Need to use markup. +*/ struct Sustain_pedal { public: DECLARE_SCHEME_CALLBACK (print, (SCM)); }; - -MAKE_SCHEME_CALLBACK (Sustain_pedal,print,1); +MAKE_SCHEME_CALLBACK (Sustain_pedal, print, 1); SCM -Sustain_pedal::print (SCM smob) +Sustain_pedal::print (SCM smob) { - Grob * e = unsmob_grob (smob); - + Grob *e = unsmob_grob (smob); + Stencil mol; SCM glyph = e->get_property ("text"); if (!scm_is_string (glyph)) return mol.smobbed_copy (); - + String text = ly_scm2string (glyph); for (int i = 0; i < text.length (); i++) { - String idx ("pedal-"); + String idx ("pedal."); if (text.cut_string (i, 3) == "Ped") { idx += "Ped"; @@ -60,7 +60,7 @@ Sustain_pedal::print (SCM smob) if (!m.is_empty ()) mol.add_at_edge (X_AXIS, RIGHT, m, 0, 0); } - + return mol.smobbed_copy (); }