X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fdots.cc;h=43c47b77199a4576a7de3890f8011d485e925e84;hb=32a34dcef0c0041c6d62677487a380b5c8b85712;hp=8319118752c781ec16fc01f69fa7f62a035c44a0;hpb=f41973ff763d5972a85995b6d40c864281ec6714;p=lilypond.git diff --git a/lily/dots.cc b/lily/dots.cc index 8319118752..43c47b7719 100644 --- a/lily/dots.cc +++ b/lily/dots.cc @@ -1,7 +1,7 @@ /* This file is part of LilyPond, the GNU music typesetter. - Copyright (C) 1997--2011 Han-Wen Nienhuys + Copyright (C) 1997--2012 Han-Wen Nienhuys LilyPond is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -38,46 +38,46 @@ Dots::print (SCM d) 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); - } + { + d.translate_axis (2 * dw, X_AXIS); + 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 " + );