source file of the GNU LilyPond music typesetter
- (c) 2000--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 2000--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
{
Repeated_music * rp = dynamic_cast<Repeated_music*> (m);
if (rp
- && rp->get_mus_property ("iterator-ctor") == Chord_tremolo_iterator::constructor_proc
+ && rp->get_property ("iterator-ctor") == Chord_tremolo_iterator::constructor_proc
&& !repeat_)
{
Moment l = rp->get_length ();
int elt_count = seq ? scm_ilength (seq-> music_list ()) : 1;
- if (elt_count != 2)
+ if (seq && elt_count != 2)
{
rp->origin ()->warning (_f ("Chord tremolo with %d elements. Must have two elements.", elt_count));
}
{
if (sequential_body_b_ && !beam_)
{
- beam_ = new Spanner (get_property ("Beam"));
- beam_->set_grob_property ("chord-tremolo", SCM_BOOL_T);
+ beam_ = make_spanner ("Beam");
+ beam_->set_property ("chord-tremolo", SCM_BOOL_T);
SCM smp = get_property ("measurePosition");
Moment mp
{
if (flags_)
{
- stem_tremolo_ = new Item (get_property ("StemTremolo"));
+ stem_tremolo_ = make_item ("StemTremolo");
announce_grob(stem_tremolo_, repeat_->self_scm());
- stem_tremolo_->set_grob_property ("flag-count",
+ stem_tremolo_->set_property ("flag-count",
scm_int2num (flags_));
}
}
if (Stem::duration_log (s) != 1)
{
- beam_->set_grob_property ("gap-count", gh_int2scm (flags_ - total_duration_flags_));
+ beam_->set_property ("gap-count", gh_int2scm (flags_ - total_duration_flags_));
}
if (info.music_cause ()->is_mus_type ("rhythmic-event"))