source file of the GNU LilyPond music typesetter
- (c) 1998 Jan Nieuwenhuizen <janneke@gnu.org>
+ (c) 1998--2000 Jan Nieuwenhuizen <janneke@gnu.org>
*/
-#include "repeat-engraver.hh"
+#include "engraver.hh"
+#include "cons.hh"
#include "bar.hh"
+#include "bar-engraver.hh"
#include "musical-request.hh"
#include "multi-measure-rest.hh"
#include "command-request.hh"
-#include "time-description.hh"
-#include "engraver-group.hh"
+#include "timing-translator.hh"
+#include "engraver-group-engraver.hh"
#include "repeated-music.hh"
-#include "time-description.hh"
+#include "timing-translator.hh"
#include "volta-spanner.hh"
-//#include "note-column.hh"
+#include "note-column.hh"
+#include "paper-def.hh"
+#include "music-list.hh"
+#include "side-position-interface.hh"
+#include "spanner.hh"
+#include "note-column.hh"
-ADD_THIS_TRANSLATOR (Repeat_engraver);
+struct Bar_create_event
+{
+ Moment when_;
+ bool bar_b_;
+ bool last_b_;
+ String type_;
+ Bar_create_event();
+ Bar_create_event (Moment w, String s);
+ Bar_create_event (Moment w, int i, int j);
+};
-Repeat_engraver::Repeat_engraver ()
+int compare (Bar_create_event const & c1, Bar_create_event const &c2)
{
+ return (c1.when_ - c2.when_).sign();
}
+/**
+ Generate repeat-bars |: :| for repeated-music
+ */
+class Repeat_engraver : public Engraver
+{
+public:
+ VIRTUAL_COPY_CONS(Translator);
+ Repeat_engraver ();
+protected:
+ virtual void acknowledge_element (Score_element_info i);
+ virtual void do_removal_processing ();
+ virtual bool do_try_music (Music *req_l);
+ virtual void do_process_music();
+ virtual void do_pre_move_processing();
+ virtual void do_post_move_processing ();
+ void queue_events ();
+
+private:
+ Repeated_music *repeated_music_l_;
+ bool done_this_one_b_;
+
+ /*
+ Royal_brackla_create_queue is only two Whiskies away. :-)
+ */
+ Cons<Bar_create_event> *create_barmoments_queue_;
+
+ Spanner * volta_span_p_;
+ Spanner* end_volta_span_p_;
+};
+
+
+
+
+ADD_THIS_TRANSLATOR (Repeat_engraver);
+
bool
Repeat_engraver::do_try_music (Music* m)
{
if (Repeated_music* r = dynamic_cast<Repeated_music *> (m))
{
- repeated_music_arr_.push (r);
- stop_mom_arr_.push (now_moment () + r->repeat_p_->duration ()
- + r->alternative_p_->music_p_list_p_->top ()->duration ());
- Moment alt_mom = now_moment () + r->repeat_p_->duration ();
- for (PCursor<Music*> i (r->alternative_p_->music_p_list_p_->top ()); i.ok (); i++)
- {
- alternative_music_arr_.push (i.ptr ());
- alternative_start_mom_arr_.push (alt_mom);
- alt_mom += i->duration ();
- alternative_stop_mom_arr_.push (alt_mom);
+ if (repeated_music_l_)
+ return false;
+
+ if (r->volta_fold_b_)
+ {
+ repeated_music_l_ = r;
}
- return true;
+
+ /*
+ We acknowledge other types of unfolded music as well, to
+ get auto context selection right.
+ */
+ if (r->type_ == "volta" || r->type_ == "unfolded")
+ return true;
+
}
return false;
}
+/**
+ Walk through repeat music, and generate events for appropriate times.
+
+ UGH. Should use Music_iteration for this.
+
+ Should also queue some event to get timing information reset during
+ 2nd and following voltas.
+*/
void
-Repeat_engraver::acknowledge_element (Score_element_info i)
+Repeat_engraver::queue_events ()
{
- Moment now = now_moment ();
-// if (Note_column *c = dynamic_cast<Note_column *> (i.elem_l_))
- if (Bar *c = dynamic_cast<Bar*> (i.elem_l_))
+ Music_sequence* alt = repeated_music_l_->alternatives ();
+ Moment walk_mom = now_mom () + repeated_music_l_->body ()->length_mom ();
+
+ SCM novolta = get_property ("noVoltaBraces");
+ bool create_volta = !to_boolean (novolta);
+
+ Cons_list<Bar_create_event> becel;
+ becel.append (new Bar_create_event (now_mom (), "|:"));
+
+ if (!alt)
+ {
+ becel.append (new Bar_create_event (walk_mom, ":|"));
+ becel.append (new Bar_create_event (walk_mom, "stop"));
+ }
+ else
{
- for (int i = 0; i < volta_p_arr_.size (); i++)
- if ((now >= alternative_start_mom_arr_[i]) && volta_p_arr_[i])
- volta_p_arr_[i]->add_column (c);
+ int last_number = 0;
+ int volta_number = repeated_music_l_->repeats_i_ - alt->length_i () + 1;
+
+ /*
+ all repeat alternatives, and generate events with
+ appropriate timestamps. The volta spanner event (a number string)
+ happens at the begin of the alt. The :| bar event at the ending.
+ */
+
+ for (SCM s = repeated_music_l_->alternatives ()->music_list ();
+ gh_pair_p (s); s = gh_cdr (s))
+ {
+ Music *mus =unsmob_music (gh_car (s));
+
+ /*
+ some idiot might typeset a repeat not starting on a
+ barline. Make sure there is one.
+
+ (todo: should try to avoid line breaks?)
+ */
+ if (last_number == 0)
+ {
+ becel.append (new Bar_create_event (walk_mom, ""));
+ }
+
+
+ if (create_volta)
+ {
+ Bar_create_event * c = new Bar_create_event (walk_mom, last_number+ 1,
+ volta_number);
+
+ if (!gh_pair_p (gh_cdr (s)))
+ c->last_b_ = true;
+
+ becel.append (c);
+ last_number = volta_number;
+ volta_number ++;
+ SCM l (get_property ("voltaSpannerDuration"));
+ if (unsmob_moment(l))
+ {
+ Moment vSD_mom = *unsmob_moment (l);
+ if ( vSD_mom < mus->length_mom() ) // terminate volta early ?
+ {
+ vSD_mom += walk_mom;
+ c->last_b_ = true;
+ becel.append (new Bar_create_event (vSD_mom, "stop"));
+ }
+ }
+ }
+ walk_mom += mus->length_mom();
+
+ if (gh_pair_p (gh_cdr (s)))
+ becel.append (new Bar_create_event (walk_mom, ":|"));
+ else
+ becel.append (new Bar_create_event (walk_mom, "stop"));
+ }
}
-}
-void
-Repeat_engraver::do_removal_processing ()
-{
- for (int i = 0; i < bar_p_arr_.size (); i++)
- if (bar_p_arr_[i])
- typeset_element (bar_p_arr_[i]);
- for (int i = 0; i < volta_p_arr_.size (); i++)
- if (volta_p_arr_[i])
- typeset_element (volta_p_arr_[i]);
+ /*
+ ugh, should merge :| and |: here.
+ */
+ Cons<Bar_create_event> * last = last_cons (create_barmoments_queue_);
+ Cons<Bar_create_event> **tail = last? & last->next_
+ : & create_barmoments_queue_;
+
+ *tail = becel.head_ ;
+
+ becel.head_ = 0;
}
void
-Repeat_engraver::do_process_requests ()
-{
- for (int i = bar_p_arr_.size (); i < repeated_music_arr_.size (); i++)
- {
- Bar* bar_p = new Bar;
- bar_p-> type_str_ = "|:";
- bar_p_arr_.push (bar_p);
- announce_element (Score_element_info (bar_p, repeated_music_arr_[i]));
+Repeat_engraver::do_process_music ()
+{
+ if (repeated_music_l_ && !done_this_one_b_)
+ {
+ queue_events ();
+ done_this_one_b_ = true;
}
-#if 0 //urg, try pre-ceating and announcing
- Moment now = now_moment ();
- for (int i = 0; i < bar_p_arr_.size (); i++)
+
+
+ Cons<Bar_create_event> * head = create_barmoments_queue_;
+ if (!head)
+ return;
+
+ /*
+ Do all the events that need to be done now.
+ */
+ while (head && now_mom () == head->car_->when_)
{
- if (!bar_p_arr_[i] && (now >= stop_mom_arr_[i]))
- {
- Bar* bar_p = new Bar;
- bar_p-> type_str_ = ":|";
- bar_p_arr_[i] = bar_p;
- announce_element (Score_element_info (bar_p, repeated_music_arr_[i]));
+ create_barmoments_queue_ = create_barmoments_queue_->next_;
+ head->next_ =0;
+ String t = head->car_->type_;
+ if (head->car_->bar_b_)
+ {
+ if (t == "stop" || t == ":|")
+ {
+ end_volta_span_p_ = volta_span_p_;
+ volta_span_p_ =0;
+ }
+
+ SCM whsym = ly_symbol2scm ("whichBar");
+ Translator_group* where = daddy_trans_l_->where_defined (whsym);
+ SCM which = where->get_property (whsym);
+
+ /*
+ Should use symbols for bar glyphs.
+ */
+ if (t == "stop" && which == SCM_UNDEFINED)
+ which = ly_str02scm ("");
+ else if (t != "stop")
+ {
+ SCM l = ly_str02scm (":|");
+ SCM r = ly_str02scm ("|:");
+
+ if ( (t == "|:" && scm_equal_p (which, l) == SCM_BOOL_T)
+ || (t == ":|" && scm_equal_p (which, r)== SCM_BOOL_T))
+ t = ":|:";
+
+ if (t != "" || !gh_string_p (which))
+ which = ly_str02scm (t.ch_C());
+ }
+ where->set_property (whsym, which);
+ }
+ else
+ {
+ assert (!volta_span_p_);
+ volta_span_p_ = new Spanner (get_property ("basicVoltaSpannerProperties"));
+ Volta_spanner::set_interface (volta_span_p_);
+ announce_element (volta_span_p_,0);
+ volta_span_p_->set_elt_property ("text",
+ ly_str02scm (t.ch_C()));
+ volta_span_p_->set_elt_property ("last-volta",
+ gh_bool2scm (head->car_->last_b_));
+ // voltaSpannerDuration stuff here.
+ // other property stuff here.
}
+
+
+ delete head->car_;
+ delete head;
+
+ head = create_barmoments_queue_;
}
-#endif
- int bees = volta_p_arr_.size ();
- for (int i = volta_p_arr_.size (); i < alternative_music_arr_.size (); i++)
+
+ assert (!head || head->car_->when_ > now_mom ());
+}
+
+
+void
+Repeat_engraver::acknowledge_element (Score_element_info i)
+{
+ if (Item* item = dynamic_cast<Item*> (i.elem_l_))
{
- Volta_spanner* v = new Volta_spanner;
- if (i == alternative_music_arr_.size () - 1)
- v->last_b_ = true;
- Text_def* t = new Text_def;
- t->text_str_ = to_str (i - bees + 1);
- v->number_p_.set_p (t);
- volta_p_arr_.push (v);
- announce_element (Score_element_info (v, alternative_music_arr_[i]));
+ if (Note_column::has_interface (item))
+ {
+ if (volta_span_p_)
+ Volta_spanner::add_column (volta_span_p_,item);
+ if (end_volta_span_p_)
+ Volta_spanner::add_column (end_volta_span_p_,item);
+ }
+ if (Bar::has_interface (item))
+ {
+ if (volta_span_p_)
+ Volta_spanner::add_bar (volta_span_p_, item);
+ if (end_volta_span_p_)
+ Volta_spanner::add_bar(end_volta_span_p_ , item);
+ }
}
}
-void
-Repeat_engraver::do_pre_move_processing ()
+void
+Repeat_engraver::do_removal_processing ()
{
- for (int i = bar_p_arr_.size (); i--; )
+ if (volta_span_p_)
{
- if (bar_p_arr_[i])
- {
- typeset_element (bar_p_arr_[i]);
- bar_p_arr_[i] = 0;
- }
+ typeset_element(volta_span_p_);
}
- Moment now = now_moment ();
- for (int i = volta_p_arr_.size (); i--; )
+ if (end_volta_span_p_)
{
- if (now >= alternative_stop_mom_arr_[i])
- {
- if (volta_p_arr_[i])
- {
- typeset_element (volta_p_arr_[i]);
- volta_p_arr_[i] = 0;
- }
- }
+ typeset_element (end_volta_span_p_);
}
+ // todo: the paranoid may also delete create_barmoments_queue_
}
-void
+void
Repeat_engraver::do_post_move_processing ()
{
- Moment now = now_moment ();
- for (int i = bar_p_arr_.size (); i--; )
+ for (Cons<Bar_create_event> *p = create_barmoments_queue_;
+ p && p->car_->when_ == now_mom (); p = p->next_)
+ if (p->car_->type_ == "stop")
+ {
+ repeated_music_l_ = 0;
+ done_this_one_b_ = false;
+ }
+}
+
+void
+Repeat_engraver::do_pre_move_processing ()
+{
+ if (end_volta_span_p_)
{
-#if 0 // urg, try with pre-created and annouced :|
- if (now >= stop_mom_arr_[i])
- {
- if (bar_p_arr_[i])
- {
- typeset_element (bar_p_arr_[i]);
- bar_p_arr_.del (i);
- stop_mom_arr_.del (i);
- repeated_music_arr_.del (i);
- }
- else
- {
- bar_p_arr_.del (i);
- }
- }
-#else
- if (now >= stop_mom_arr_[i])
- {
- Bar* bar_p = new Bar;
- bar_p-> type_str_ = ":|";
- typeset_element (bar_p);
- bar_p_arr_.del (i);
- stop_mom_arr_.del (i);
- repeated_music_arr_.del (i);
- }
-#endif
+ Side_position::add_staff_support (end_volta_span_p_);
+
+ typeset_element (end_volta_span_p_ );
+ end_volta_span_p_ =0;
}
+
}
+
+Repeat_engraver::Repeat_engraver()
+{
+ repeated_music_l_ =0;
+ end_volta_span_p_ =0;
+ volta_span_p_ =0;
+ done_this_one_b_ = false;
+ create_barmoments_queue_ =0;
+}
+
+/* ************** */
+Bar_create_event::Bar_create_event()
+{
+ last_b_ =false;
+ bar_b_ = true;
+}
+
+Bar_create_event::Bar_create_event (Moment w, String s)
+{
+ last_b_ =false;
+ when_ = w;
+ type_ = s;
+ bar_b_ = true;
+}
+
+Bar_create_event::Bar_create_event (Moment w, int i, int j)
+{
+ last_b_ =false;
+ when_ = w ;
+ bar_b_ = false;
+
+ if (i!=j)
+ type_ = to_str (i) + ".-" ;
+
+ type_ += to_str(j) + ".";
+}