]> git.donarmstrong.com Git - lilypond.git/blob - lily/sustain-pedal.cc
new file.
[lilypond.git] / lily / sustain-pedal.cc
1 /*
2   sustain-pedal.cc -- implement Sustain_pedal
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 2000--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
7 */
8 #include "grob.hh"
9 #include "stencil.hh"
10 #include "font-interface.hh"
11
12 // update comment --hwn 
13 /*
14   Urg.
15   This is almost text
16   Problem is:
17   * we have no kerning
18   * symbols are at wrong place in font
19
20
21
22   Properties:
23
24   glyph -- text string (TODO: make one large glyph of the Ped symbol, removes need for member_print ())
25 */
26
27 /*
28   FIXME. Need to use markup.
29 */
30 struct Sustain_pedal
31 {
32 public:
33   DECLARE_SCHEME_CALLBACK (print, (SCM));
34 };
35
36 MAKE_SCHEME_CALLBACK (Sustain_pedal, print, 1);
37 SCM
38 Sustain_pedal::print (SCM smob)
39 {
40   Grob *e = unsmob_grob (smob);
41
42   Stencil mol;
43   SCM glyph = e->get_property ("text");
44   if (!scm_is_string (glyph))
45     return mol.smobbed_copy ();
46
47   string text = ly_scm2string (glyph);
48
49   for (ssize i = 0; i < text.length (); i++)
50     {
51       string idx ("pedal.");
52       if (text.substr (i, 3) == "Ped")
53         {
54           idx += "Ped";
55           i += 2;
56         }
57       else
58         idx += string (&text.c_str ()[i], 1);
59       Stencil m = Font_interface::get_default_font (e)->find_by_name (idx);
60       if (!m.is_empty ())
61         mol.add_at_edge (X_AXIS, RIGHT, m, 0, 0);
62     }
63
64   return mol.smobbed_copy ();
65 }
66