X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fsustain-pedal.cc;h=68db12e7608318e0585b7350438a8f245532ef4f;hb=ec09bc9bd0802b6f55ae19b6dae4bd5d4b997365;hp=6806ce2c9df07abdbb8e3041f14e41a6e560e9a0;hpb=634ad74db688a5305f001917453c5cd15305c539;p=lilypond.git diff --git a/lily/sustain-pedal.cc b/lily/sustain-pedal.cc index 6806ce2c9d..68db12e760 100644 --- a/lily/sustain-pedal.cc +++ b/lily/sustain-pedal.cc @@ -1,11 +1,10 @@ -/* +/* sustain-pedal.cc -- implement Sustain_pedal - + source file of the GNU LilyPond music typesetter - + (c) 2000--2005 Han-Wen Nienhuys - - */ +*/ #include "grob.hh" #include "stencil.hh" #include "font-interface.hh" @@ -15,39 +14,36 @@ 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. - */ + FIXME. Need to use markup. +*/ struct Sustain_pedal { public: DECLARE_SCHEME_CALLBACK (print, (SCM)); }; - 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++) @@ -64,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 (); }