/*
- beaming-info.cc -- implement Beam_rhythmic_element, Beaming_pattern
+ This file is part of LilyPond, the GNU music typesetter.
- A Beaming_pattern object takes a set of stems at given moments and calculates
- the pattern of their beam. That is, it works out, for each stem, how many
- beams should be connected to the right and left sides of that stem. In
- calculating this, Beaming_pattern takes into account
- - the rhythmic position of the stems
- - the options that are defined in Beaming_options
+ Copyright (C) 1999--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
- source file of the GNU LilyPond music typesetter
+ LilyPond is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
- (c) 1999--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ LilyPond is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
*/
-#include "beaming-pattern.hh"
#include "context.hh"
+#include "beam-settings.hh"
+#include "beaming-pattern.hh"
/*
Represents a stem belonging to a beam. Sometimes (for example, if the stem
{
if (start_moment_.grace_part_)
{
- start_moment_.main_part_ = start_moment_.grace_part_;
+ start_moment_.main_part_ = start_moment_.grace_part_;
start_moment_.grace_part_ = 0;
}
}
void
Beaming_pattern::find_rhythmic_importance (Beaming_options const &options)
{
- Moment measure_pos (0);
+ Moment measure_pos (0);
SCM grouping = options.grouping_;
vsize i = 0;
return infos_.at (i).beam_count_drul_[d];
}
+Moment
+Beaming_pattern::start_moment (int i) const
+{
+ return infos_.at (i).start_moment_;
+}
+
+Moment
+Beaming_pattern::end_moment (int i) const
+{
+ Duration *dur = new Duration (2 + max (beamlet_count (i, LEFT),
+ beamlet_count (i, RIGHT)),
+ 0);
+
+ return infos_.at (i).start_moment_ + dur->get_length();
+}
+
+bool
+Beaming_pattern::invisibility (int i) const
+{
+ return infos_.at (i).invisible_;
+}
+
+/*
+ Split a beamin pattern at index i and return a new
+ Beaming_pattern containing the removed elements
+*/
+Beaming_pattern *
+Beaming_pattern::split_pattern (int i)
+{
+ Beaming_pattern* new_pattern=0;
+ int count;
+
+ new_pattern = new Beaming_pattern ();
+ for (vsize j=i+1; j<infos_.size (); j++)
+ {
+ count = max(beamlet_count (j, LEFT), beamlet_count(j, RIGHT));
+ new_pattern->add_stem (start_moment (j),
+ count,
+ invisibility (j));
+ }
+ for (vsize j=i+1; j<infos_.size (); )
+ infos_.pop_back ();
+ return (new_pattern);
+}
+
void
Beaming_options::from_context (Context *context)
{
- grouping_ = context->get_property ("beatGrouping");
+ grouping_ = ly_beat_grouping (context->self_scm ());
subdivide_beams_ = to_boolean (context->get_property ("subdivideBeams"));
beat_length_ = robust_scm2moment (context->get_property ("beatLength"), Moment (1, 4));
- measure_length_ = robust_scm2moment (context->get_property ("measureLength"), Moment (1, 4));
+ measure_length_ = robust_scm2moment (context->get_property ("measureLength"), Moment (4, 4));
}
Beaming_options::Beaming_options ()