/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 1997--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 1997--2014 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
SCM
Dots::print (SCM d)
{
- Grob *sc = unsmob_grob (d);
+ Grob *sc = Grob::unsmob (d);
Stencil mol;
SCM c = sc->get_property ("dot-count");
if (scm_is_number (c))
{
SCM scm_style = sc->get_property ("style");
- string style ="";
+ string style = "";
if (scm_is_symbol (scm_style))
- style = ly_symbol2string (scm_style);
- string idx = "dots.dot" + style;
+ style = ly_symbol2string (scm_style);
+ string idx = "dots.dot" + style;
Stencil d = Font_interface::get_default_font (sc)->find_by_name (idx);
if (d.is_empty ())
- {
- sc->warning (_f ("dot `%s' not found", idx.c_str ()));
- return SCM_EOL;
- }
+ {
+ sc->warning (_f ("dot `%s' not found", idx.c_str ()));
+ return SCM_EOL;
+ }
Real dw = d.extent (X_AXIS).length ();
/*
- we need to add a real blank box, to assure that
- side-positioning doth not cancel the left-most padding. */
+ we need to add a real blank box, to assure that
+ side-positioning doth not cancel the left-most padding. */
/*
- TODO: this should be handled by side-position padding.
+ TODO: this should be handled by side-position padding.
*/
mol = Lookup::blank (Box (Interval (0, 0),
- Interval (0, 0)));
+ Interval (0, 0)));
for (int i = scm_to_int (c); i--;)
- {
- d.translate_axis (2 * dw, X_AXIS);
- mol.add_at_edge (X_AXIS, RIGHT, d, dw);
- }
+ {
+ mol.add_at_edge (X_AXIS, RIGHT, d, dw);
+ }
}
return mol.smobbed_copy ();
}
ADD_INTERFACE (Dots,
- "The dots to go with a notehead or rest. @code{direction}"
- " sets the preferred direction to move in case of staff line"
- " collisions. @code{style} defaults to undefined, which is"
- " normal 19th/20th century traditional style. Set"
- " @code{style} to @code{vaticana} for ancient type dots.",
+ "The dots to go with a notehead or rest. @code{direction}"
+ " sets the preferred direction to move in case of staff line"
+ " collisions. @code{style} defaults to undefined, which is"
+ " normal 19th/20th century traditional style. Set"
+ " @code{style} to @code{vaticana} for ancient type dots.",
- /* properties */
- "direction "
- "dot-count "
- "style "
- );
+ /* properties */
+ "direction "
+ "dot-count "
+ "style "
+ );