2 sustain-pedal.cc -- implement Sustain_pedal
4 source file of the GNU LilyPond music typesetter
6 (c) 2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
9 #include "score-element.hh"
10 #include "molecule.hh"
14 // update comment --hwn
20 * symbols are at wrong place in font
26 glyph -- text string (TODO: make one large glyph of the Ped symbol, removes need for member_brew_molecule ())
33 static SCM
brew_molecule (SCM
);
37 MAKE_SCHEME_CALLBACK(Sustain_pedal
,brew_molecule
);
40 Sustain_pedal::brew_molecule (SCM smob
)
42 Score_element
* e
= unsmob_element (smob
);
45 SCM glyph
= e
->get_elt_property ("text");
46 if (!gh_string_p (glyph
))
47 return mol
.create_scheme();
48 String text
= ly_scm2string (glyph
);
50 for (int i
= 0; i
< text
.length_i (); i
++)
52 String
idx ("pedal-");
53 if (text
.cut_str (i
, 3) == "Ped")
59 idx
+= String (&text
.byte_C ()[i
], 1);
60 Molecule m
= e
->lookup_l ()->afm_find (idx
);
62 mol
.add_at_edge (X_AXIS
, RIGHT
, m
, 0);
65 return mol
.create_scheme ();