X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fambitus.cc;h=e123538dfa2df315e52cfc59b309bcf439489b6c;hb=5b4b0d6e9a197e8f9eb085b7c2ad78b8be3e5cfc;hp=87ea977478ccdaba25e8f6ca6e40fc8bad0abcd4;hpb=8f8b3fb62d5d0776335de899b32aada69457810a;p=lilypond.git diff --git a/lily/ambitus.cc b/lily/ambitus.cc index 87ea977478..e123538dfa 100644 --- a/lily/ambitus.cc +++ b/lily/ambitus.cc @@ -3,7 +3,7 @@ source file of the GNU LilyPond music typesetter - (c) 2002--2005 Juergen Reuter + (c) 2002--2008 Juergen Reuter */ #include "ambitus.hh" @@ -24,13 +24,15 @@ Ambitus::print (SCM smob) Item *me = (Item *) unsmob_grob (smob); Stencil stencil; - // join heads + // FIXME : should be Ambitus_line join heads extract_grob_set (me, "note-heads", heads); if (to_boolean (me->get_property ("join-heads")) && heads.size () > 1) { Grob *common - = common_refpoint_of_array (heads.slice (0, 2), me, Y_AXIS); + = common_refpoint_of_array (vector (heads.begin (), + heads.begin () + 2), + me, Y_AXIS); Grob *minh = heads[0]; Grob *maxh = heads[1]; @@ -49,9 +51,9 @@ Ambitus::print (SCM smob) if (pmin < pmax) { - Real linethickness = me->layout ()->get_dimension (ly_symbol2scm ("linethickness")) + Real linethickness = me->layout ()->get_dimension (ly_symbol2scm ("line-thickness")) * robust_scm2double (me->get_property ("thickness"), 1.0); - Real blotdiameter = me->layout ()->get_dimension (ly_symbol2scm ("blotdiameter")); + Real blotdiameter = me->layout ()->get_dimension (ly_symbol2scm ("blot-diameter")); Interval x_extent = 0.5 * linethickness * Interval (-1, 1); Interval y_extent = Interval (pmin, pmax); Box line_box (x_extent, y_extent); @@ -66,6 +68,11 @@ Ambitus::print (SCM smob) return SCM_EOL; } -ADD_INTERFACE (Ambitus, "ambitus-interface", +ADD_INTERFACE (Ambitus, "The line between note heads for a pitch range.", - "thickness note-heads join-heads"); + + /* properties */ + "join-heads " + "note-heads " + "thickness " + );