return grob_stencil_extent (me, X_AXIS);
}
+Stream_event*
+Grob::event_cause ()
+{
+ SCM cause = get_property ("cause");
+ if (to_boolean (Stream_event::smob_p (cause)))
+ return unsmob_stream_event (cause);
+ else if (to_boolean (Grob::smob_p (cause)))
+ return unsmob_grob (cause)->event_cause ();
+ return 0;
+}
Grob *
common_refpoint_of_list (SCM elist, Grob *common, Axis a)
(c) 1997--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
-#include "warn.hh"
+#include <list>
+
+#include "duration.hh"
#include "engraver.hh"
-#include "rest-collision.hh"
-#include "note-column.hh"
#include "item.hh"
+#include "moment.hh"
+#include "note-column.hh"
+#include "rest-collision.hh"
+#include "stream-event.hh"
+#include "warn.hh"
class Rest_collision_engraver : public Engraver
{
Item *rest_collision_;
vsize rest_count_;
- vector<Grob*> note_columns_;
+ list<pair<Grob*, Moment> > note_columns_;
protected:
DECLARE_ACKNOWLEDGER (note_column);
void process_acknowledged ();
void stop_translation_timestep ();
+ void start_translation_timestep ();
public:
TRANSLATOR_DECLARATIONS (Rest_collision_engraver);
};
rest_collision_ = make_item ("RestCollision", SCM_EOL);
- for (vsize i = 0; i < note_columns_.size (); i++)
- Rest_collision::add_column (rest_collision_, note_columns_[i]);
+ list<pair<Grob*, Moment> >::iterator i;
+ for (i = note_columns_.begin (); i != note_columns_.end (); i++)
+ Rest_collision::add_column (rest_collision_, i->first);
}
void
Rest_collision_engraver::acknowledge_note_column (Grob_info i)
{
- note_columns_.push_back (i.grob ());
+ Moment end = now_mom ();
if (Note_column::has_rests (i.grob ()))
rest_count_++;
+ else
+ {
+ // We only keep track of ending moments for columns with notes.
+ // It is safe to add a column with notes to multiple RestCollisions, but
+ // it might not be safe to add a column with rests to multiple RestCollisions.
+ Grob *stem = Note_column::get_stem (i.grob ());
+ Stream_event *ev = stem ? stem->event_cause () : 0;
+ Duration *dur_ptr = ev ? unsmob_duration (ev->get_property ("duration")) : 0;
+ if (dur_ptr)
+ {
+ if (end.grace_part_)
+ end.grace_part_ += dur_ptr->get_length ();
+ else
+ end.main_part_ += dur_ptr->get_length ();
+ }
+ }
+ note_columns_.push_back (pair<Grob*, Moment> (i.grob (), end));
}
void
Rest_collision_engraver::stop_translation_timestep ()
{
rest_collision_ = 0;
- note_columns_.clear ();
rest_count_ = 0;
}
+void
+Rest_collision_engraver::start_translation_timestep ()
+{
+ list<pair<Grob*, Moment> >::iterator i = note_columns_.begin ();
+ while (i != note_columns_.end ())
+ {
+ if (i->second <= now_mom ())
+ i = note_columns_.erase (i);
+ else
+ i++;
+ }
+}
+
#include "translator.icc"
ADD_ACKNOWLEDGER (Rest_collision_engraver, note_column);
#include "directional-element-interface.hh"
#include "duration.hh"
#include "international.hh"
+#include "item.hh"
#include "note-column.hh"
#include "output-def.hh"
#include "pointer-group-interface.hh"
Interval notedim;
for (vsize i = 0; i < notes.size (); i++)
{
- if (Note_column::dir (notes[i]) == -dir)
+ if (Note_column::dir (notes[i]) == -dir
+ // If the note has already happened (but it has a long duration, so there is a collision),
+ // don't look at the stem. If we do, the rest gets shifted down a lot and it looks bad.
+ || dynamic_cast<Item*> (notes[i])->get_column () != dynamic_cast<Item*> (rest)->get_column ())
{
/* try not to look at the stem, as looking at a beamed
note may trigger beam positioning prematurely.