source file of the GNU LilyPond music typesetter
- (c) 2002--2005 Juergen Reuter <reuter@ipd.uka.de>
+ (c) 2002--2006 Juergen Reuter <reuter@ipd.uka.de>
- Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "cluster.hh"
#include <cstdio>
+using namespace std;
#include "spanner.hh"
#include "item.hh"
/*
Across a line break we anticipate on the next pitches.
*/
- if (spanner->original_)
+ if (spanner->original ())
{
- Spanner *orig = dynamic_cast<Spanner *> (spanner->original_);
+ Spanner *orig = dynamic_cast<Spanner *> (spanner->original ());
if (spanner->get_break_index () < orig->broken_intos_.size () - 1)
{
struct Cluster_beacon
{
public:
- DECLARE_SCHEME_CALLBACK (height, (SCM, SCM));
+ DECLARE_SCHEME_CALLBACK (height, (SCM));
static bool has_interface (Grob *);
};
-MAKE_SCHEME_CALLBACK (Cluster_beacon, height, 2);
+MAKE_SCHEME_CALLBACK (Cluster_beacon, height, 1);
SCM
-Cluster_beacon::height (SCM g, SCM)
+Cluster_beacon::height (SCM g)
{
Grob *me = unsmob_grob (g);
Interval v = robust_scm2interval (me->get_property ("positions"),
"cluster-beacon-interface",
"A place holder for the cluster spanner to determine the vertical "
"extents of a cluster spanner at this X position.",
- "positions");
+
+ /* properties */
+ "positions ");