X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fdots.cc;h=ff777b926aae1ebc772786d9ac88d16d903a71aa;hb=5b4b0d6e9a197e8f9eb085b7c2ad78b8be3e5cfc;hp=f697752e35f9b30f4f46c93bb05328a774244d9a;hpb=391b5dcbba1ff625fb8e4afee64af4503d49ef5a;p=lilypond.git diff --git a/lily/dots.cc b/lily/dots.cc index f697752e35..ff777b926a 100644 --- a/lily/dots.cc +++ b/lily/dots.cc @@ -3,7 +3,7 @@ source file of the GNU LilyPond music typesetter - (c) 1997--2006 Han-Wen Nienhuys + (c) 1997--2008 Han-Wen Nienhuys */ #include "dots.hh" @@ -13,7 +13,6 @@ #include "font-interface.hh" #include "lookup.hh" #include "staff-symbol-referencer.hh" -#include "directional-element-interface.hh" #include "international.hh" MAKE_SCHEME_CALLBACK (Dots, print, 1); @@ -53,16 +52,18 @@ Dots::print (SCM d) for (int i = scm_to_int (c); i--;) { d.translate_axis (2 * dw, X_AXIS); - mol.add_at_edge (X_AXIS, RIGHT, d, dw, 0); + mol.add_at_edge (X_AXIS, RIGHT, d, dw); } } return mol.smobbed_copy (); } -ADD_INTERFACE (Dots, "dots-interface", - "The dots to go with a notehead or rest." - "@code{direction} sets the preferred direction to move in case of staff " - "line collisions.", +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.", /* properties */ "direction "