/*
cluster-engraver.cc -- implement Cluster_engraver
- (c) 2002--2003 Juergen Reuter <reuter@ipd.uka.de>
+ (c) 2002--2004 Juergen Reuter <reuter@ipd.uka.de>
Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
{
protected:
- TRANSLATOR_DECLARATIONS(Cluster_spanner_engraver);
+ TRANSLATOR_DECLARATIONS (Cluster_spanner_engraver);
virtual bool try_music (Music *);
virtual void process_music ();
virtual void acknowledge_grob (Grob_info);
void
Cluster_spanner_engraver::process_music ()
{
- if (cluster_notes_.size())
+ if (cluster_notes_.size ())
{
- SCM c0scm = get_property ("centralCPosition");
+ SCM c0scm = get_property ("middleCPosition");
int c0 = gh_number_p (c0scm) ? gh_scm2int (c0scm) : 0;
int pmax = INT_MIN;
for (int i = 0; i <cluster_notes_.size (); i++)
{
- Pitch *pit =unsmob_pitch (cluster_notes_[i]->get_mus_property ("pitch"));
+ Pitch *pit =unsmob_pitch (cluster_notes_[i]->get_property ("pitch"));
int p =( pit ? pit->steps () : 0) + c0;
}
beacon_ = make_item ("ClusterSpannerBeacon");
- beacon_->set_grob_property ("positions",
+ beacon_->set_property ("positions",
scm_cons (gh_int2scm (pmin),
gh_int2scm (pmax)));
announce_grob (beacon_, cluster_notes_[0]->self_scm ());
{
typeset_grobs ();
- cluster_notes_.clear();
+ cluster_notes_.clear ();
}
}
}
-ENTER_DESCRIPTION(Cluster_spanner_engraver,
+ENTER_DESCRIPTION (Cluster_spanner_engraver,
/* descr */ "Engraves a cluster using Spanner notation ",
/* creats*/ "ClusterSpanner ClusterSpannerBeacon",
/* accepts */ "cluster-note-event",