X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Frepeated-music.cc;h=9d127b8004fe525791f2ef417019af19b9678dfc;hb=9a7a808b7c7abcacd08f4c992f75394cc4543d2e;hp=67d640a5ff653dd3e696416c1abe3e8fede91701;hpb=1a71119277d04b287b3a976c526adba6500239c6;p=lilypond.git diff --git a/lily/repeated-music.cc b/lily/repeated-music.cc index 67d640a5ff..9d127b8004 100644 --- a/lily/repeated-music.cc +++ b/lily/repeated-music.cc @@ -3,132 +3,192 @@ source file of the GNU LilyPond music typesetter - (c) 1999 Han-Wen Nienhuys + (c) 1999--2003 Han-Wen Nienhuys */ #include "repeated-music.hh" #include "music-list.hh" -#include "musical-pitch.hh" -#include "debug.hh" +#include "pitch.hh" +#include "warn.hh" +#include "music-sequence.hh" -Repeated_music::Repeated_music(Music *beg, int times, Music_sequence * alts) +Music * +Repeated_music::body ()const { - repeat_body_p_ = beg; - fold_b_ = false; - repeats_i_ = times; - alternatives_p_ = alts; - volta_fold_b_ = true; - if (alts) - alts->music_p_list_p_->truncate (times); + return unsmob_music (get_mus_property ("element")); } -Repeated_music::Repeated_music (Repeated_music const &s) - : Music (s) +SCM +Repeated_music::alternatives ()const { - repeats_i_ = s.repeats_i_; - fold_b_ = s.fold_b_; - volta_fold_b_ = s.volta_fold_b_; - - repeat_body_p_ = s.repeat_body_p_ ? s.repeat_body_p_->clone () : 0; - alternatives_p_ = s.alternatives_p_ - ? dynamic_cast (s.alternatives_p_->clone ()):0; + return get_mus_property ("elements"); } -Repeated_music::~Repeated_music () -{ - delete repeat_body_p_; - delete alternatives_p_; -} -void -Repeated_music::do_print () const -{ -#ifndef NPRINT - DEBUG_OUT << "Fold = " << fold_b_ << " reps: " << repeats_i_; - if (repeat_body_p_) - repeat_body_p_->print(); - - if (alternatives_p_) - alternatives_p_->print(); -#endif -} -Musical_pitch -Repeated_music::to_relative_octave (Musical_pitch p) +Pitch +Repeated_music::to_relative_octave (Pitch p) { - if (repeat_body_p_) - p = repeat_body_p_->to_relative_octave (p); - - if (alternatives_p_) - p = alternatives_p_->do_relative_octave (p, true); - return p; -} + if (body ()) + p = body ()->to_relative_octave (p); + Pitch last = p ; + if (alternatives ()) + for (SCM s = alternatives (); gh_pair_p (s); s = ly_cdr (s)) + unsmob_music (ly_car (s))->to_relative_octave (p); + + return last; +} void -Repeated_music::transpose (Musical_pitch p) +Repeated_music::transpose (Pitch p) { - if (repeat_body_p_) - repeat_body_p_->transpose (p); + if (body ()) + body ()->transpose (p); - if (alternatives_p_) - alternatives_p_->transpose (p); + Music_sequence::transpose_list (get_mus_property ("elements"), p); } void Repeated_music::compress (Moment p) { - if (repeat_body_p_) - repeat_body_p_->compress (p); + if (body ()) + body ()->compress (p); - if (alternatives_p_) - alternatives_p_->compress (p); + Music_sequence::compress_list (alternatives (), p); } Moment -Repeated_music::alternatives_length_mom () const +Repeated_music::alternatives_get_length (bool fold) const { - if (!alternatives_p_ ) + if (!alternatives ()) return 0; - if (fold_b_) - return alternatives_p_->maximum_length (); + if (fold) + return Music_sequence::maximum_length (alternatives ()); Moment m =0; int done =0; - Cons *p = alternatives_p_->music_p_list_p_->head_; - while (p && done < repeats_i_) + + SCM p = alternatives (); + while (gh_pair_p (p) && done < repeat_count ()) { - m = m + p->car_->length_mom (); + m = m + unsmob_music (ly_car (p))->get_length (); done ++; - if (volta_fold_b_ - || repeats_i_ - done < alternatives_p_->length_i ()) - p = p->next_; + if (repeat_count () - done < scm_ilength (alternatives ())) + p = ly_cdr (p); } return m; } +/* + Sum all duration of all available alternatives. This is for the case + of volta repeats, where the alternatives are iterated just as they + were entered. */ Moment -Repeated_music::length_mom () const +Repeated_music::alternatives_volta_get_length () const { - Moment m =0; - if (fold_b_) + if (!alternatives ()) + return 0; + + Moment m; + SCM p = alternatives (); + while (gh_pair_p (p)) { - if (repeat_body_p_) - m += repeat_body_p_->length_mom (); + m = m + unsmob_music (ly_car (p))->get_length (); + p = ly_cdr (p); } - else + return m; +} + + +/* + Length of the body in THIS. Disregards REPEAT-COUNT. + */ +Moment +Repeated_music::body_get_length () const +{ + Moment m = 0; + if (body ()) { - Moment beg = (repeat_body_p_) ? repeat_body_p_->length_mom () : Rational(0); - if (!volta_fold_b_) - beg *= Rational (repeats_i_); - m += beg; + m = body ()->get_length (); } - - m += alternatives_length_mom (); return m; } +int +Repeated_music::repeat_count () const +{ + return gh_scm2int (get_mus_property ("repeat-count")); +} + + +MAKE_SCHEME_CALLBACK (Repeated_music,unfolded_music_length, 1); +MAKE_SCHEME_CALLBACK (Repeated_music,folded_music_length, 1); +MAKE_SCHEME_CALLBACK (Repeated_music,volta_music_length, 1); + +SCM +Repeated_music::unfolded_music_length (SCM m) +{ + Repeated_music* r = dynamic_cast (unsmob_music (m)); + + Moment l = Moment (r->repeat_count ()) * r->body_get_length () + r->alternatives_get_length (false); + return l.smobbed_copy (); +} + +SCM +Repeated_music::folded_music_length (SCM m) +{ + Repeated_music* r = dynamic_cast (unsmob_music (m)); + + Moment l = r->body_get_length () + r->alternatives_get_length (true); + return l.smobbed_copy (); +} + +SCM +Repeated_music::volta_music_length (SCM m) +{ + Repeated_music* r = dynamic_cast (unsmob_music (m)); + Moment l = r->body_get_length () + r->alternatives_volta_get_length (); + return l.smobbed_copy (); +} + +ADD_MUSIC (Repeated_music); + +Repeated_music::Repeated_music () + : Music () +{ +} + + +MAKE_SCHEME_CALLBACK (Repeated_music,minimum_start, 1); +MAKE_SCHEME_CALLBACK (Repeated_music,first_start, 1); + +SCM +Repeated_music::minimum_start (SCM m) +{ + Music * me = unsmob_music (m); + Music * body = unsmob_music (me->get_mus_property ("element")); + + if (body) + return body->start_mom ().smobbed_copy(); + else + { + return Music_sequence::minimum_start (me->get_mus_property ("elements")).smobbed_copy(); + } +} + +SCM +Repeated_music::first_start (SCM m) +{ + Music * me = unsmob_music (m); + Music * body = unsmob_music (me->get_mus_property ("element")); + + Moment rv = (body) ? body->start_mom () : + Music_sequence::first_start (me->get_mus_property ("elements")); + + return rv.smobbed_copy (); +}