X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fhairpin.cc;h=e5dea58244ae92033ca2d5c09cacf7dc9b224078;hb=8cab78caa0db1ba14f2e52e4c1ddbb541ea0e5cb;hp=20808956ae9607264d9ee84699bf778835e19cd2;hpb=ac1340846e81661575ba3036b251e8ab55b13023;p=lilypond.git diff --git a/lily/hairpin.cc b/lily/hairpin.cc index 20808956ae..e5dea58244 100644 --- a/lily/hairpin.cc +++ b/lily/hairpin.cc @@ -3,7 +3,7 @@ source file of the GNU LilyPond music typesetter - (c) 1997--2007 Han-Wen Nienhuys + (c) 1997--2009 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), @@ -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 "