source file of the GNU LilyPond music typesetter
- (c) 2002--2005 Juergen Reuter <reuter@ipd.uka.de>
+ (c) 2002--2007 Juergen Reuter <reuter@ipd.uka.de>
*/
#include "ambitus.hh"
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<Grob*> (heads.begin (),
+ heads.begin () + 2),
+ me, Y_AXIS);
Grob *minh = heads[0];
Grob *maxh = heads[1];
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);
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");
+
+ /* props */
+ "join-heads "
+ "note-heads "
+ "thickness "
+ );