2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2011 Mike Solomon <mike@apollinemike.com>
6 LilyPond is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 LilyPond is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
21 #include "engraver.hh"
23 #include "note-head.hh"
24 #include "pointer-group-interface.hh"
26 class Beam_collision_engraver : public Engraver
29 vector<Grob *> beams_;
30 vector<Grob *> covered_grobs_;
32 DECLARE_ACKNOWLEDGER (note_head);
33 DECLARE_ACKNOWLEDGER (accidental);
34 DECLARE_ACKNOWLEDGER (clef);
35 DECLARE_ACKNOWLEDGER (key_signature);
36 DECLARE_ACKNOWLEDGER (time_signature);
37 DECLARE_ACKNOWLEDGER (beam);
39 virtual void finalize ();
42 bool covered_grob_has_interface (Grob *covered_grob, Grob *beam);
45 TRANSLATOR_DECLARATIONS (Beam_collision_engraver);
48 Beam_collision_engraver::Beam_collision_engraver () {}
51 Beam_collision_engraver::covered_grob_has_interface (Grob *covered_grob, Grob *beam)
53 SCM interfaces = beam->get_property ("collision-interfaces");
55 for (SCM l = interfaces; scm_is_pair (l); l = scm_cdr (l))
57 if (covered_grob->internal_has_interface (scm_car (l)));
65 Beam_collision_engraver::finalize ()
67 if (!covered_grobs_.size ())
70 vector_sort (covered_grobs_, Grob::less);
71 vector_sort (beams_, Grob::less);
74 for (vsize i = 0; i < beams_.size (); i++)
76 Interval_t<int> beam_spanned_rank_ = beams_[i]->spanned_rank_interval ();
77 // Start considering grobs at the first grob whose end falls at or after the beam's beginning.
78 while (covered_grobs_[start]->spanned_rank_interval ()[RIGHT] < beam_spanned_rank_[LEFT])
81 // Stop when the grob's beginning comes after the beam's end.
82 for (vsize j = start; j < covered_grobs_.size (); j++)
84 Interval_t<int> covered_grob_spanned_rank = covered_grobs_[j]->spanned_rank_interval ();
85 if ((covered_grob_spanned_rank[LEFT] > beam_spanned_rank_[RIGHT]
86 || !covered_grob_has_interface (covered_grobs_[j], beams_[i])))
89 Only consider grobs whose end falls at or after the beam's beginning.
90 If the grob is a beam, it cannot start before beams_[i]
92 if ((covered_grob_spanned_rank[RIGHT] >= beam_spanned_rank_[LEFT])
93 && !(Beam::has_interface (covered_grobs_[j])
94 && (covered_grob_spanned_rank[LEFT] <= beam_spanned_rank_[LEFT])))
96 // Do not consider note heads attached to the beam.
98 if (Grob *stem = unsmob_grob (covered_grobs_[j]->get_object ("stem")))
99 if (Grob *beam = unsmob_grob (stem->get_object ("beam")))
100 if (beam == beams_[i])
104 Pointer_group_interface::add_grob (beams_[i], ly_symbol2scm ("covered-grobs"), covered_grobs_[j]);
111 Beam_collision_engraver::acknowledge_note_head (Grob_info i)
113 covered_grobs_.push_back (i.grob ());
117 Beam_collision_engraver::acknowledge_accidental (Grob_info i)
119 if (i.grob ()->internal_has_interface (ly_symbol2scm ("inline-accidental-interface")))
120 covered_grobs_.push_back (i.grob ());
124 Beam_collision_engraver::acknowledge_clef (Grob_info i)
126 covered_grobs_.push_back (i.grob ());
130 Beam_collision_engraver::acknowledge_key_signature (Grob_info i)
132 covered_grobs_.push_back (i.grob ());
136 Beam_collision_engraver::acknowledge_time_signature (Grob_info i)
138 covered_grobs_.push_back (i.grob ());
142 Beam_collision_engraver::acknowledge_beam (Grob_info i)
144 beams_.push_back (i.grob ());
145 covered_grobs_.push_back (i.grob ());
148 #include "translator.icc"
150 ADD_ACKNOWLEDGER (Beam_collision_engraver, note_head);
151 ADD_ACKNOWLEDGER (Beam_collision_engraver, accidental);
152 ADD_ACKNOWLEDGER (Beam_collision_engraver, clef);
153 ADD_ACKNOWLEDGER (Beam_collision_engraver, key_signature);
154 ADD_ACKNOWLEDGER (Beam_collision_engraver, time_signature);
155 ADD_ACKNOWLEDGER (Beam_collision_engraver, beam);
157 ADD_TRANSLATOR (Beam_collision_engraver,
159 "Help beams avoid colliding with notes and clefs in other voices.",