/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 2000--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 2000--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
#include "stencil.hh"
#include "font-interface.hh"
-// update comment --hwn
+// update comment --hwn
/*
Urg.
This is almost text
SCM
Sustain_pedal::print (SCM smob)
{
- Grob *e = unsmob_grob (smob);
+ Grob *e = unsmob<Grob> (smob);
Stencil mol;
SCM glyph = e->get_property ("text");
{
string idx ("pedal.");
if (text.substr (i, 3) == "Ped")
- {
- idx += "Ped";
- i += 2;
- }
+ {
+ idx += "Ped";
+ i += 2;
+ }
else
- idx += string (&text.c_str ()[i], 1);
+ idx += string (&text.c_str ()[i], 1);
Stencil m = Font_interface::get_default_font (e)->find_by_name (idx);
if (!m.is_empty ())
- mol.add_at_edge (X_AXIS, RIGHT, m, 0);
+ mol.add_at_edge (X_AXIS, RIGHT, m, 0);
}
return mol.smobbed_copy ();