X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fhairpin.cc;h=6a98e55bf9bd4b3964787b4b0267220e366febcd;hb=5b2bdf8c532aa1b4aa8626f6847938f2ef4ba1be;hp=6bb83b16a61fbb3ffaa90a1bb9be03b8e8a29856;hpb=1c34c0e50868cc1c3015e3db58b62dbe18cd1129;p=lilypond.git diff --git a/lily/hairpin.cc b/lily/hairpin.cc index 6bb83b16a6..6a98e55bf9 100644 --- a/lily/hairpin.cc +++ b/lily/hairpin.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 "hairpin.hh" @@ -47,7 +47,6 @@ Hairpin::consider_suicide (Spanner*me) && ly_is_equal (bounds[RIGHT]->get_column ()->get_property ("when"), bounds[LEFT]->get_property ("when"))) me->suicide (); - } MAKE_SCHEME_CALLBACK (Hairpin, print, 1); @@ -207,7 +206,6 @@ Hairpin::print (SCM smob) /* should do relative to staff-symbol staff-space? */ - Stencil mol; Real x = 0.0; @@ -236,7 +234,7 @@ Hairpin::print (SCM smob) Box extent (Interval (-rad, rad), Interval (-rad, rad)); /* Hmmm, perhaps we should have a Lookup::circle () method? */ - Stencil circle(extent, + Stencil circle (extent, scm_list_4 (ly_symbol2scm ("circle"), scm_from_double (rad), scm_from_double (thick), @@ -246,7 +244,7 @@ Hairpin::print (SCM smob) don't add another circle the hairpin is broken */ if (!broken[tip_dir]) - mol.add_at_edge (X_AXIS, tip_dir, Stencil (circle), 0, 0); + mol.add_at_edge (X_AXIS, tip_dir, Stencil (circle), 0); } mol.translate_axis (x_points[LEFT] @@ -256,9 +254,9 @@ Hairpin::print (SCM smob) } ADD_INTERFACE (Hairpin, - "A hairpin crescendo/decrescendo.", + "A hairpin crescendo or decrescendo.", - /* props */ + /* properties */ "adjacent-hairpins " "circled-tip " "bound-padding "