- collisions with accidentals
- collisions with scripts (staccato!)
-
-
*/
-struct Encompass_info {
+struct Encompass_info
+{
Real x_;
Real stem_;
Real head_;
}
};
-struct Bound_info {
-
+struct Bound_info
+{
Box stem_extent_;
Direction stem_dir_;
Grob *bound_;
Grob *stem_;
Interval slur_head_extent_;
Real neighbor_y_;
- Real staff_space_ ;
+ Real staff_space_;
- Bound_info () {
+ Bound_info ()
+ {
stem_ = 0;
neighbor_y_ = 0;
staff_ = 0;
*/
struct Slur_score_parameters
{
- int SLUR_REGION_SIZE ;
- Real HEAD_ENCOMPASS_PENALTY ;
- Real STEM_ENCOMPASS_PENALTY ;
- Real CLOSENESS_FACTOR ;
- Real EDGE_ATTRACTION_FACTOR ;
- Real SAME_SLOPE_PENALTY ;
- Real STEEPER_SLOPE_FACTOR ;
- Real NON_HORIZONTAL_PENALTY ;
- Real HEAD_STRICT_FREE_SPACE ;
- Real MAX_SLOPE ;
- Real MAX_SLOPE_FACTOR ;
- Real FREE_HEAD_DISTANCE ;
+ int SLUR_REGION_SIZE;
+ Real HEAD_ENCOMPASS_PENALTY;
+ Real STEM_ENCOMPASS_PENALTY;
+ Real CLOSENESS_FACTOR;
+ Real EDGE_ATTRACTION_FACTOR;
+ Real SAME_SLOPE_PENALTY;
+ Real STEEPER_SLOPE_FACTOR;
+ Real NON_HORIZONTAL_PENALTY;
+ Real HEAD_STRICT_FREE_SPACE;
+ Real MAX_SLOPE;
+ Real MAX_SLOPE_FACTOR;
+ Real FREE_HEAD_DISTANCE;
Slur_score_parameters ();
};
score_param->HEAD_ENCOMPASS_PENALTY = 1000.0;
score_param->STEM_ENCOMPASS_PENALTY = 30.0;
score_param->CLOSENESS_FACTOR = 10;
- score_param->EDGE_ATTRACTION_FACTOR = 4;
+ score_param->EDGE_ATTRACTION_FACTOR = 4;
score_param->SAME_SLOPE_PENALTY = 20;
score_param->STEEPER_SLOPE_FACTOR = 50;
score_param->NON_HORIZONTAL_PENALTY = 15;
score_param->HEAD_STRICT_FREE_SPACE = 0.2;
score_param->MAX_SLOPE = 1.1;
score_param->MAX_SLOPE_FACTOR = 10;
- score_param->FREE_HEAD_DISTANCE = 0.3 ;
+ score_param->FREE_HEAD_DISTANCE = 0.3;
}
Slur_score_parameters::Slur_score_parameters()
#define DEBUG_SLUR_QUANTING 1
-struct Slur_score {
+struct Slur_score
+{
Drul_array<Offset> attachment_;
Real score_;
Bezier curve_;
String score_card_;
#endif
- Slur_score() {
+ Slur_score()
+ {
score_ = 0.0;
}
};
public:
static void add_column (Grob *me, Grob *col);
DECLARE_SCHEME_CALLBACK (print, (SCM));
- static void score_slopes (Grob * me, Grob *common[],
- Slur_score_parameters * score_param,
-
+ static void score_slopes (Grob *me, Grob *common[],
+ Slur_score_parameters *score_param,
Drul_array<Bound_info>,
Drul_array<Offset> base_attach,
- Array<Slur_score> * scores);
-
- static void score_edges (Grob * me, Grob *common[],
- Slur_score_parameters * score_param,
-
+ Array<Slur_score> *scores);
+
+ static void score_edges (Grob *me, Grob *common[],
+ Slur_score_parameters *score_param,
Drul_array<Bound_info> extremes,
Drul_array<Offset> base_attach,
- Array<Slur_score> * scores);
- static void score_encompass (Grob * me, Grob *common[],
+ Array<Slur_score> *scores);
+ static void score_encompass (Grob *me, Grob *common[],
Slur_score_parameters*,
Drul_array<Bound_info>,
- Drul_array<Offset>, Array<Slur_score> * scores);
- static Bezier avoid_staff_line (Grob * me, Grob **common,
- Drul_array<Bound_info> extremes,
- Bezier bez);
+ Drul_array<Offset>, Array<Slur_score> *scores);
+ static Bezier avoid_staff_line (Grob *me, Grob **common,
+ Drul_array<Bound_info> extremes,
+ Bezier bez);
static Encompass_info get_encompass_info (Grob *me,
Grob *col,
- Grob **common) ;
- static void set_interface (Grob*);
- static bool has_interface (Grob*);
+ Grob **common);
+ static void set_interface (Grob *);
+ static bool has_interface (Grob *);
static Bezier get_curve (Grob *me);
- static Bezier get_bezier (Grob *me, Drul_array<Offset>,Real,Real);
+ static Bezier get_bezier (Grob *me, Drul_array<Offset>, Real, Real);
static Direction get_default_dir (Grob *me);
DECLARE_SCHEME_CALLBACK (after_line_breaking, (SCM));
DECLARE_SCHEME_CALLBACK (height, (SCM,SCM));
- static void set_end_points (Grob*);
+ static void set_end_points (Grob *);
static Real get_boundary_notecolumn_y (Grob *me, Direction dir);
- static Real broken_trend_y (Grob *me, Grob**, Direction dir);
+ static Real broken_trend_y (Grob *me, Grob **, Direction dir);
static void set_control_points (Grob *me);
- static Drul_array<Bound_info> get_bound_info (Spanner* me,
- Grob **common);
+ static Drul_array<Bound_info> get_bound_info (Spanner *me, Grob **common);
- static void generate_curves (Grob*me,
+ static void generate_curves (Grob *me,
Grob *common[],
Drul_array<Bound_info> extremes,
Drul_array<Offset> base_attach,
- Array<Slur_score> * scores);
- static Array<Slur_score> enumerate_attachments (Grob * me, Grob *common[],
- Slur_score_parameters * score_param,
- Drul_array<Bound_info> extremes,
- Drul_array<Offset> base_attachment, Drul_array<Real> end_ys);
- ;
- static Drul_array<Offset> get_base_attachments (Spanner*sp,
- Grob **common,
- Drul_array<Bound_info> extremes);
- static Drul_array<Real> get_y_attachment_range (Spanner*sp,
- Grob **common,
- Drul_array<Bound_info> extremes,
- Drul_array<Offset> base_attachment);
+ Array<Slur_score> *scores);
+ static Array<Slur_score> enumerate_attachments
+ (Grob *me, Grob *common[], Slur_score_parameters *score_param,
+ Drul_array<Bound_info> extremes,
+ Drul_array<Offset> base_attachment, Drul_array<Real> end_ys);
+ static Drul_array<Offset> get_base_attachments
+ (Spanner *sp, Grob **common, Drul_array<Bound_info> extremes);
+ static Drul_array<Real> get_y_attachment_range
+ (Spanner *sp, Grob **common, Drul_array<Bound_info> extremes,
+ Drul_array<Offset> base_attachment);
};
-/*
- HDIR indicates the direction for the slur.
- */
+/* HDIR indicates the direction for the slur. */
Real
-New_slur::broken_trend_y (Grob *me, Grob**common, Direction hdir)
+New_slur::broken_trend_y (Grob *me, Grob **common, Direction hdir)
{
- /*
- A broken slur should maintain the same vertical trend
- the unbroken slur would have had.
- */
+ /* A broken slur should maintain the same vertical trend
+ the unbroken slur would have had. */
Real by = 0.0;
- if (Spanner *mother = dynamic_cast<Spanner*> (me->original_))
+ if (Spanner *mother = dynamic_cast<Spanner*> (me->original_))
{
int k = broken_spanner_index (dynamic_cast<Spanner*> (me));
int j = k + hdir;
if (j < 0 || j >= mother->broken_intos_.size ())
return by;
-
- Grob *neighbor = mother->broken_intos_[j];
+
+ Grob *neighbor = mother->broken_intos_[j];
if (hdir == RIGHT)
neighbor->set_property ("direction",
me->get_property ("direction"));
- Spanner * common_mother = dynamic_cast<Spanner*> (common[Y_AXIS]->original_);
- int common_k = broken_spanner_index (dynamic_cast<Spanner*> (common[Y_AXIS]));
+ Spanner *common_mother
+ = dynamic_cast<Spanner*> (common[Y_AXIS]->original_);
+ int common_k
+ = broken_spanner_index (dynamic_cast<Spanner*> (common[Y_AXIS]));
int common_j = common_k + hdir;
if (common_j < 0 || common_j >= common_mother->broken_intos_.size())
return by;
-
Grob *common_next_system = common_mother->broken_intos_[common_j];
- Link_array<Grob> neighbor_cols =
- Pointer_group_interface__extract_grobs (neighbor, (Grob*)0, "note-columns");
+ Link_array<Grob> neighbor_cols
+ = Pointer_group_interface__extract_grobs (neighbor, (Grob *)0,
+ "note-columns");
- Grob * neighbor_col = (hdir == RIGHT) ? neighbor_cols[0] : neighbor_cols.top ();
- Grob * neighbor_common = common_next_system->common_refpoint (neighbor_col, Y_AXIS);
+ Grob *neighbor_col
+ = (hdir == RIGHT) ? neighbor_cols[0] : neighbor_cols.top ();
+ Grob *neighbor_common
+ = common_next_system->common_refpoint (neighbor_col, Y_AXIS);
Direction vdir = get_grob_direction (me);
- Real neighbor_y =
- neighbor_col->extent (neighbor_common, Y_AXIS)
+ Real neighbor_y
+ = neighbor_col->extent (neighbor_common, Y_AXIS)
.linear_combination (int(neighbor_cols.size()==1 ? CENTER : vdir))
- common_next_system->relative_coordinate (neighbor_common, Y_AXIS);
- Link_array<Grob> my_cols =
- Pointer_group_interface__extract_grobs (me, (Grob*)0, "note-columns");
-
+ Link_array<Grob> my_cols
+ = Pointer_group_interface__extract_grobs (me, (Grob *)0,
+ "note-columns");
+
Grob *extreme_col = (hdir == RIGHT) ? my_cols.top() : my_cols[0];
Real y = extreme_col->extent (common[Y_AXIS], Y_AXIS)
- .linear_combination (int ((my_cols.size()==1) ? CENTER : vdir));
-
+ .linear_combination (int ((my_cols.size() == 1) ? CENTER : vdir));
by = (y*neighbor_cols.size() + neighbor_y*my_cols.size()) /
(my_cols.size() + neighbor_cols.size());
}
Encompass_info
New_slur::get_encompass_info (Grob *me,
Grob *col,
- Grob **common)
+ Grob **common)
{
Grob* stem = unsmob_grob (col->get_property ("stem"));
Encompass_info ei;
-
+
Direction dir = get_grob_direction (me);
-
+
if (!stem)
{
programming_error ("No stem for note column?");
ei.x_ = col->relative_coordinate (common[X_AXIS], X_AXIS);
- ei.head_ = ei.stem_ = col->extent (common[Y_AXIS], Y_AXIS)[get_grob_direction (me)];
- return ei;
+ ei.head_ = ei.stem_ = col->extent (common[Y_AXIS],
+ Y_AXIS)[get_grob_direction (me)];
+ return ei;
}
Direction stem_dir = get_grob_direction (stem);
if (!h)
{
ei.head_ = ei.stem_ = col->extent (common[Y_AXIS], Y_AXIS)[dir];
- return ei;
+ return ei;
}
-
+
ei.head_ = h->extent (common[Y_AXIS], Y_AXIS)[dir];
-
+
if ((stem_dir == dir)
&& !stem->extent (stem, Y_AXIS).is_empty ())
{
ei.stem_ = stem->extent (common[Y_AXIS], Y_AXIS)[dir];
if (Grob * b = Stem::get_beam (stem))
- {
- ei.stem_ += stem_dir * 0.5 *Beam::get_thickness (b);
- }
-
+ ei.stem_ += stem_dir * 0.5 * Beam::get_thickness (b);
ei.x_ = stem->extent (common[X_AXIS], X_AXIS).center ();
}
else
Direction
-New_slur::get_default_dir (Grob*me)
+New_slur::get_default_dir (Grob*me)
{
- Link_array<Grob> encompasses =
- Pointer_group_interface__extract_grobs (me, (Grob*)0, "note-columns");
-
+ Link_array<Grob> encompasses
+ = Pointer_group_interface__extract_grobs (me, (Grob*) 0, "note-columns");
+
Direction d = DOWN;
- for (int i=0; i < encompasses.size (); i ++)
+ for (int i= 0; i < encompasses.size (); i ++)
{
- if (Note_column::dir (encompasses[i]) < 0)
+ if (Note_column::dir (encompasses[i]) < 0)
{
d = UP;
break;
me->suicide ();
return SCM_UNSPECIFIED;
}
-
+
if (!get_grob_direction (me))
set_grob_direction (me, get_default_dir (me));
-
set_end_points (me);
return SCM_UNSPECIFIED;
Array<Offset> encompasses;
encompasses.push (extremes[LEFT]);
encompasses.push (extremes[RIGHT]);
-
+
Slur_bezier_bow bb (encompasses,
get_grob_direction (me), h_inf, r_0);
do {
extremes[d].bound_ = me->get_bound (d);
-
+
if (Note_column::has_interface (extremes[d].bound_))
{
extremes[d].note_column_ = extremes[d].bound_;
void
New_slur::set_end_points (Grob *me)
{
- Link_array<Grob> columns =
- Pointer_group_interface__extract_grobs (me, (Grob*)0, "note-columns");
-
+ Link_array<Grob> columns
+ = Pointer_group_interface__extract_grobs (me, (Grob *)0, "note-columns");
Slur_score_parameters params;
-
if (columns.is_empty ())
{
me->suicide ();
- return ;
+ return;
}
SCM eltlist = me->get_property ("note-columns");
common_refpoint_of_list (eltlist, me, Y_AXIS)};
- Spanner* sp = dynamic_cast<Spanner*> (me);
- common[X_AXIS] = common[X_AXIS]->common_refpoint (sp->get_bound (RIGHT), X_AXIS);
- common[X_AXIS] = common[X_AXIS]->common_refpoint (sp->get_bound (LEFT), X_AXIS);
-
-
+ Spanner *sp = dynamic_cast<Spanner*> (me);
+ common[X_AXIS] = common[X_AXIS]->common_refpoint (sp->get_bound (RIGHT),
+ X_AXIS);
+ common[X_AXIS] = common[X_AXIS]->common_refpoint (sp->get_bound (LEFT),
+ X_AXIS);
Drul_array<Bound_info> extremes = get_bound_info (sp, common);
- Drul_array<Offset> base_attachment = get_base_attachments (sp, common, extremes);
- Drul_array<Real> end_ys = get_y_attachment_range (sp, common, extremes, base_attachment);
- Array<Slur_score> scores = enumerate_attachments (me, common,
- ¶ms, extremes, base_attachment, end_ys);
-
+ Drul_array<Offset> base_attachment
+ = get_base_attachments (sp, common, extremes);
+ Drul_array<Real> end_ys
+ = get_y_attachment_range (sp, common, extremes, base_attachment);
+ Array<Slur_score> scores = enumerate_attachments (me, common, ¶ms,
+ extremes, base_attachment,
+ end_ys);
+
generate_curves (me, common, extremes, base_attachment, &scores);
score_edges (me, common, ¶ms,extremes, base_attachment, &scores);
score_slopes (me, common, ¶ms,extremes, base_attachment, &scores);
Real opt = 1e6;
int opt_idx = 0;
+ // why backwards?
for (int i = scores.size (); i--;)
{
if (scores[i].score_ < opt)
#if DEBUG_SLUR_QUANTING
SCM inspect_quants = me->get_property ("inspect-quants");
- if (to_boolean (me->get_paper ()->lookup_variable (ly_symbol2scm ("debug-slur-quanting")))
+ if (to_boolean (me->get_paper ()
+ ->lookup_variable (ly_symbol2scm ("debug-slur-quanting")))
&& ly_c_pair_p (inspect_quants))
{
Drul_array<Real> ins = ly_scm2interval (inspect_quants);
if (mindist > 1e5)
programming_error ("Could not find quant.");
}
-
scores[opt_idx].score_card_ += to_string ("i%d", opt_idx);
// debug quanting
scm_makfrom0str (scores[opt_idx].score_card_.to_str0 ()));
#endif
- Bezier b =
- avoid_staff_line (me,common, extremes, scores[opt_idx].curve_);
+ Bezier b
+ = avoid_staff_line (me,common, extremes, scores[opt_idx].curve_);
SCM controls = SCM_EOL;
for (int i = 4; i--;)
Offset o = b.control_[i] -
Offset (me->relative_coordinate (common[X_AXIS], X_AXIS),
me->relative_coordinate (common[Y_AXIS], Y_AXIS));
-
+
controls = scm_cons (ly_offset2scm (o), controls);
}
Drul_array<Real> end_ys;
Direction dir = get_grob_direction (me);
Direction d = LEFT;
- do {
- if (extremes[d].note_column_)
- {
- end_ys[d] = dir * ((dir * (base_attachment[d][Y_AXIS] + 4.0 *dir))
- >? (dir * (dir + extremes[d].note_column_->extent(common[Y_AXIS],Y_AXIS)[dir]))
- >? (dir * base_attachment[-d][Y_AXIS])
- );
- }
- else
- {
- end_ys[d] = extremes[d].neighbor_y_ + 4.0 * dir ;
- }
- } while (flip (&d) != LEFT);
+ do
+ {
+ if (extremes[d].note_column_)
+ {
+ end_ys[d] = dir
+ * ((dir * (base_attachment[d][Y_AXIS] + 4.0 * dir))
+ >? (dir * (dir + extremes[d].note_column_->extent(common[Y_AXIS],
+ Y_AXIS)[dir]))
+ >? (dir * base_attachment[-d][Y_AXIS]));
+ }
+ else
+ end_ys[d] = extremes[d].neighbor_y_ + 4.0 * dir;
+ }
+ while (flip (&d) != LEFT);
return end_ys;
}
Drul_array<Offset>
-New_slur::get_base_attachments (Spanner*me,
- Grob **common,
- Drul_array<Bound_info> extremes)
+New_slur::get_base_attachments (Spanner *me,
+ Grob **common, Drul_array<Bound_info> extremes)
{
- Link_array<Grob> columns =
- Pointer_group_interface__extract_grobs (me, (Grob*)0, "note-columns");
+ Link_array<Grob> columns
+ = Pointer_group_interface__extract_grobs (me, (Grob *)0, "note-columns");
Drul_array<Offset> base_attachment;
-
-
Slur_score_parameters params;
-
Real staff_space = Staff_symbol_referencer::staff_space ((Grob*)me);
-
Direction dir = get_grob_direction (me);
- Direction d = LEFT;
+ Direction d = LEFT;
do
{
Grob *stem = extremes[d].stem_;
Grob *head = extremes[d].slur_head_;
-
- Real x,y;
+
+ Real x, y;
if (!extremes[d].note_column_)
{
y = extremes[d].neighbor_y_;
&& Stem::get_beaming (stem, -d)
&& columns.size () > 2
)
+ y = extremes[d].stem_extent_[Y_AXIS][dir];
+ else if (head)
+ y = head->extent (common[Y_AXIS], Y_AXIS)[dir];
+ y += dir * 0.5 * staff_space;
+
+ if (stem)
{
- y = extremes[d].stem_extent_[Y_AXIS][dir];
- }
- else if (head)
- {
- y = head->extent (common[Y_AXIS], Y_AXIS)[dir];
+ SCM scripts = stem->get_property ((dir == UP
+ ? "script-up"
+ : "script-down"));
+
+ /* FIXME: number of scripts, height, priority?
+ articulation scripts should be inside slur, other,
+ such as dynamics, pedals, fingering, should be
+ outside. */
+ if (!SCM_NULLP (scripts))
+ y += dir * staff_space;
}
- y += dir * 0.5 * staff_space;
- Real pos = 2.0 * (y - extremes[d].staff_->relative_coordinate (common[Y_AXIS], Y_AXIS))
- / Staff_symbol::staff_space (extremes[d].staff_);
+ Real pos
+ = (y - extremes[d].staff_->relative_coordinate (common[Y_AXIS],
+ Y_AXIS))
+ * 2.0 / Staff_symbol::staff_space (extremes[d].staff_);
- /*
- start off staffline.
- */
+ /* start off staffline. */
if (fabs (pos - round (pos)) < 0.2
&& Staff_symbol_referencer::on_staffline (head, (int) rint (pos))
- && Staff_symbol_referencer::line_count (head) -1 >= rint (pos)
+ && Staff_symbol_referencer::line_count (head) - 1 >= rint (pos)
)
- y += 1.5 * staff_space * dir / 10 ; // TODO: calc from slur thick & line thick, parameter.
-
+ // TODO: calc from slur thick & line thick, parameter.
+ y += 1.5 * staff_space * dir / 10;
+
Grob * fh = Note_column::first_head (extremes[d].note_column_);
- x = fh->extent (common[X_AXIS], X_AXIS).linear_combination (CENTER);
+ x = fh->extent (common[X_AXIS], X_AXIS).linear_combination (CENTER);
}
base_attachment[d] = Offset (x, y);
return base_attachment;
}
-
void
-New_slur::generate_curves (Grob * me, Grob **common,
+New_slur::generate_curves (Grob *me, Grob **common,
Drul_array<Bound_info> extremes,
- Drul_array<Offset> ,
+ Drul_array<Offset>,
Array<Slur_score> *scores)
{
- Real staff_space = Staff_symbol_referencer::staff_space ((Grob*)me);
+ Real staff_space = Staff_symbol_referencer::staff_space ((Grob *) me);
Real r_0 = robust_scm2double (me->get_property ("ratio"), 0.33);
Real h_inf = staff_space * ly_scm2double (me->get_property ("height-limit"));
-
for (int i = 0; i < scores->size(); i++)
{
- Bezier bez= get_bezier (me, (*scores)[i].attachment_,
- r_0, h_inf);
-
+ Bezier bez= get_bezier (me, (*scores)[i].attachment_, r_0, h_inf);
(*scores)[i].curve_ = bez;
}
}
-
-
Bezier
-New_slur::avoid_staff_line (Grob * me, Grob **common,
+New_slur::avoid_staff_line (Grob *me, Grob **common,
Drul_array<Bound_info> extremes,
Bezier bez)
{
Real lt = me->get_paper ()->get_dimension (ly_symbol2scm ("linethickness"));
Real thick = robust_scm2double (me->get_property ("thickness"), 1.0) * lt;
-
- /*
- TODO: handle case of broken slur.
- */
+ /* TODO: handle case of broken slur. */
if (!ts.is_empty ()
&& (extremes[LEFT].staff_ == extremes[RIGHT].staff_)
&& extremes[LEFT].staff_ && extremes[RIGHT].staff_)
Grob *staff = extremes[LEFT].staff_;
Real staff_space = extremes[LEFT].staff_space_;
- Real p = 2 * (y - staff->relative_coordinate (common[Y_AXIS], Y_AXIS)) / staff_space;
+ Real p = 2 * (y - staff->relative_coordinate (common[Y_AXIS], Y_AXIS))
+ / staff_space;
Real distance = fabs (round (p) - p); // in halfspaces
if (distance < 4 * thick
- && (int) fabs (round (p)) <= 2* Staff_symbol_referencer::staff_radius (staff) + 0.1
+ && (int) fabs (round (p))
+ <= 2 * Staff_symbol_referencer::staff_radius (staff) + 0.1
&& (int (fabs (round (p))) % 2
!= Staff_symbol_referencer::line_count (staff) % 2))
{
// TODO: parameter
Real newp = round (p) + get_grob_direction (me) * 5 * thick;
Real dy = (newp - p) * staff_space / 2.0;
- bez.translate (Offset (0,dy));
+ bez.translate (Offset (0, dy));
}
}
return bez;
}
Array<Slur_score>
-New_slur::enumerate_attachments (Grob * me, Grob **,
- Slur_score_parameters * score_param,
+New_slur::enumerate_attachments (Grob *me, Grob **,
+ Slur_score_parameters *score_param,
Drul_array<Bound_info> extremes,
Drul_array<Offset> base_attachment,
Drul_array<Real> end_ys)
Array<Slur_score> scores;
Direction dir = get_grob_direction (me);
- Real staff_space = Staff_symbol_referencer::staff_space ((Grob*)me);
-
+ Real staff_space = Staff_symbol_referencer::staff_space ((Grob *)me);
+
Drul_array<Offset> os;
os[LEFT] = base_attachment[LEFT];
- Real minimum_length = staff_space * robust_scm2double (me->get_property ("minimum-length"),
- 2.0);
-
+ Real minimum_length = staff_space
+ * robust_scm2double (me->get_property ("minimum-length"), 2.0);
+
for (int i = 0; dir * os[LEFT][Y_AXIS] <= dir * end_ys[LEFT]; i++)
{
os[RIGHT] = base_attachment[RIGHT];
- for (int j = 0; dir *os[RIGHT][Y_AXIS] <= dir * end_ys[RIGHT]; j++)
+ for (int j = 0; dir * os[RIGHT][Y_AXIS] <= dir * end_ys[RIGHT]; j++)
{
Slur_score s;
Direction d = LEFT;
-
Drul_array<bool> attach_to_stem (false, false);
-
do {
os[d][X_AXIS] = base_attachment[d][X_AXIS];
if (extremes[d].stem_
Offset dz;
dz = os[RIGHT] - os[LEFT];
if (dz[X_AXIS] < minimum_length
- || fabs (dz[Y_AXIS] / dz[X_AXIS]) > score_param->MAX_SLOPE
+ || fabs (dz[Y_AXIS] / dz[X_AXIS]) > score_param->MAX_SLOPE
)
{
- do {
- if (extremes[d].slur_head_)
- {
- os[d][X_AXIS] = extremes[d].slur_head_extent_.center ();
- attach_to_stem[d] = false;
- }
- } while (flip (&d) != LEFT);
+ do
+ {
+ if (extremes[d].slur_head_)
+ {
+ os[d][X_AXIS] = extremes[d].slur_head_extent_.center ();
+ attach_to_stem[d] = false;
+ }
+ }
+ while (flip (&d) != LEFT);
}
dz = os[RIGHT] - os[LEFT];
s.attachment_ = os;
scores.push (s);
-
+
os[RIGHT][Y_AXIS] += dir * staff_space / 2;
}
- os[LEFT][Y_AXIS] += dir * staff_space /2 ;
+ os[LEFT][Y_AXIS] += dir * staff_space / 2;
}
return scores;
}
-
void
-New_slur::score_encompass (Grob * me, Grob *common[],
- Slur_score_parameters * score_param,
-
+New_slur::score_encompass (Grob *me, Grob *common[],
+ Slur_score_parameters *score_param,
Drul_array<Bound_info> ,
Drul_array<Offset> ,
Array<Slur_score> * scores)
{
- Link_array<Grob> encompasses =
- Pointer_group_interface__extract_grobs (me, (Grob*)0, "note-columns");
+ Link_array<Grob> encompasses
+ = Pointer_group_interface__extract_grobs (me, (Grob *)0, "note-columns");
Direction dir = get_grob_direction (me);
-
+
Array<Encompass_info> infos;
for (int i = 0; i < encompasses.size(); i++)
infos.push (get_encompass_info (me, encompasses[i], common));
- for (int i =0 ; i < scores->size (); i++)
+ for (int i = 0; i < scores->size (); i++)
{
Bezier const &bez (scores->elem (i).curve_);
- Real demerit =0.;
+ Real demerit = 0.0;
for (int j = 0; j < infos.size(); j++)
{
Real x = infos[j].x_;
if (!(x < scores->elem (i).attachment_[RIGHT][X_AXIS]
&& x > scores->elem (i).attachment_[LEFT][X_AXIS]))
continue;
-
+
Real y = bez.get_other_coordinate (X_AXIS, x);
if (!edge)
{
Real head_dy = (y - infos[j].head_);
if (dir * head_dy < 0)
+ demerit += score_param->HEAD_ENCOMPASS_PENALTY;
+ else
{
- demerit += score_param->HEAD_ENCOMPASS_PENALTY;
- }
- else
- {
- Real hd =
- (head_dy) ? (1/fabs (head_dy) - 1/score_param->FREE_HEAD_DISTANCE)
+ Real hd = (head_dy)
+ ? (1 / fabs (head_dy) - 1 / score_param->FREE_HEAD_DISTANCE)
: score_param->HEAD_ENCOMPASS_PENALTY;
- hd = (hd >? 0)<? score_param->HEAD_ENCOMPASS_PENALTY;
+ hd = (hd >? 0)<? score_param->HEAD_ENCOMPASS_PENALTY;
- demerit += hd;
+ demerit += hd;
}
}
#if DEBUG_SLUR_QUANTING
(*scores)[i].score_card_ += to_string ("C%.2f", demerit);
#endif
-
+
(*scores)[i].score_ += demerit;
}
}
-
void
-New_slur::score_edges (Grob * me, Grob **,
+New_slur::score_edges (Grob *me, Grob **,
Slur_score_parameters * score_param,
Drul_array<Bound_info> extremes,
Drul_array<Offset> base_attach,
- Array<Slur_score> * scores)
+ Array<Slur_score> *scores)
{
Direction dir = get_grob_direction (me);
-
- for (int i =0 ; i < scores->size (); i++)
+
+ for (int i = 0; i < scores->size (); i++)
{
-
+
Direction d = LEFT;
do {
Real y = scores->elem (i).attachment_[d][Y_AXIS];
Real dy = fabs (y - base_attach[d][Y_AXIS]);
Real factor = score_param->EDGE_ATTRACTION_FACTOR;
-
Real demerit = factor * dy;
-
if (extremes[d].stem_
&& extremes[d].stem_dir_ == dir
&& !Stem::get_beaming (extremes[d].stem_, -d)
}
void
-New_slur::score_slopes (Grob * me, Grob *common[],
+New_slur::score_slopes (Grob *me, Grob *common[],
Slur_score_parameters*score_param,
Drul_array<Bound_info> extremes,
Drul_array<Offset> base_attach,
Direction d = LEFT;
do {
-
if (extremes[d].slur_head_)
- ys[d] = extremes[d].slur_head_ ->relative_coordinate (common[Y_AXIS], Y_AXIS);
+ ys[d] = extremes[d].slur_head_ ->relative_coordinate (common[Y_AXIS],
+ Y_AXIS);
else
ys[d] = extremes[d].neighbor_y_;
} while (flip (&d) != LEFT);
- bool has_beams =
- (extremes[LEFT].stem_ && Stem::get_beam (extremes[LEFT].stem_))
+ bool has_beams
+ = (extremes[LEFT].stem_ && Stem::get_beam (extremes[LEFT].stem_))
|| (extremes[RIGHT].stem_ && Stem::get_beam (extremes[RIGHT].stem_));
Real dy = ys[RIGHT] - ys[LEFT];
- for (int i =0 ; i < scores->size (); i++)
+ for (int i = 0; i < scores->size (); i++)
{
Offset slur_dz = (*scores)[i].attachment_[RIGHT]
- - (*scores)[i].attachment_[LEFT];
-
- Real slur_dy = slur_dz[Y_AXIS];
-
-
+ - (*scores)[i].attachment_[LEFT];
+ Real slur_dy = slur_dz[Y_AXIS];
Real demerit = 0.0;
+ if (!has_beams)
+ /* 0.2: account for staffline offset. */
+ demerit += score_param->STEEPER_SLOPE_FACTOR
+ * (dir * (fabs (slur_dy) - fabs (dy + 0.2)) >? 0);
+
+ demerit += ((fabs (slur_dy/slur_dz[X_AXIS])
+ - score_param->MAX_SLOPE) >? 0)
+ * score_param->MAX_SLOPE_FACTOR;
if (!has_beams)
/*
if (sign (dy)
&& sign (slur_dy)
&& sign (slur_dy) != sign (dy))
- demerit +=
- has_beams ? score_param->SAME_SLOPE_PENALTY/10 : score_param->SAME_SLOPE_PENALTY;
-
+ demerit += has_beams
+ ? score_param->SAME_SLOPE_PENALTY / 10
+ : score_param->SAME_SLOPE_PENALTY;
+
#if DEBUG_SLUR_QUANTING
(*scores)[i].score_card_ += to_string ("S%.2f",d);
#endif
Bezier
-New_slur::get_curve (Grob*me)
+New_slur::get_curve (Grob*me)
{
Bezier b;
int i = 0;
- for (SCM s= me->get_property ("control-points"); s != SCM_EOL; s = ly_cdr (s))
- {
- b.control_[i++] = ly_scm2offset (ly_car (s));
- }
+ for (SCM s = me->get_property ("control-points"); s != SCM_EOL;
+ s = ly_cdr (s))
+ b.control_[i++] = ly_scm2offset (ly_car (s));
return b;
}
New_slur::height (SCM smob, SCM ax)
{
Axis a = (Axis)ly_scm2int (ax);
- Grob * me = unsmob_grob (smob);
+ Grob *me = unsmob_grob (smob);
assert (a == Y_AXIS);
SCM mol = me->get_uncached_stencil ();
Interval ext;
- if (Stencil * m = unsmob_stencil (mol))
+ if (Stencil *m = unsmob_stencil (mol))
ext = m->extent (a);
return ly_interval2scm (ext);
}
SCM
New_slur::print (SCM smob)
{
- Grob * me = unsmob_grob (smob);
+ Grob *me = unsmob_grob (smob);
if (!scm_ilength (me->get_property ("note-columns")))
{
me->suicide ();
#if DEBUG_SLUR_QUANTING
SCM quant_score = me->get_property ("quant-score");
-
- if (to_boolean (me->get_paper ()->lookup_variable (ly_symbol2scm ("debug-slur-quanting"))) &&
- ly_c_string_p (quant_score))
+
+ if (to_boolean (me->get_paper ()
+ ->lookup_variable (ly_symbol2scm ("debug-slur-quanting")))
+ && ly_c_string_p (quant_score))
{
String str;
SCM properties = Font_interface::text_font_alist_chain (me);
Stencil tm = *unsmob_stencil (Text_item::interpret_markup
- (me->get_paper ()->self_scm (), properties, quant_score));
+ (me->get_paper ()->self_scm (), properties,
+ quant_score));
a.add_at_edge (Y_AXIS, get_grob_direction (me), tm, 1.0, 0);
}
#endif
-
+
return a.smobbed_copy ();
}
-
-
-
ADD_INTERFACE (New_slur, "new-slur-interface",
"A slur",
"control-points dashed details direction height-limit note-columns ratio slope-limit thickness");
/*
- script-engraver.cc -- implement Script_engraver
+ script-engraver.cc -- engrave Scripts: Articulations.
+
+ source file of the GNU LilyPond music typesetter
(c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
-#include "script.hh"
-#include "side-position-interface.hh"
-#include "event.hh"
-#include "stem.hh"
-#include "rhythmic-head.hh"
+#include "context.hh"
#include "engraver.hh"
+#include "event.hh"
#include "note-column.hh"
-#include "context.hh"
-
+#include "rhythmic-head.hh"
+#include "script-interface.hh"
+#include "side-position-interface.hh"
+#include "stem.hh"
#include "warn.hh"
struct Script_tuple
{
Music *event_;
- Grob * script_;
+ Grob *script_;
SCM description_;
Script_tuple ()
{
class Script_engraver : public Engraver
{
Array<Script_tuple> scripts_;
-public:
- TRANSLATOR_DECLARATIONS (Script_engraver);
+
protected:
virtual bool try_music (Music*);
virtual void stop_translation_timestep ();
virtual void process_music ();
virtual void acknowledge_grob (Grob_info);
+
+public:
+ TRANSLATOR_DECLARATIONS (Script_engraver);
};
+Script_engraver::Script_engraver ()
+{
+}
+
bool
Script_engraver::try_music (Music *r)
{
if (r->is_mus_type ("articulation-event"))
{
- /*
- Discard double articulations.
- This is necessary for part-combining.
- */
- for (int j = 0; j < scripts_.size (); j++)
- if (ly_c_equal_p (scripts_[j]. event_->get_property ("articulation-type"),
- r->get_property ("articulation-type")
- ))
+ /* Discard double articulations for part-combining. */
+ int script_count = scripts_.size ();
+ for (int i = 0; i < script_count; i++)
+ if (ly_c_equal_p (scripts_[i].event_
+ ->get_property ("articulation-type"),
+ r->get_property ("articulation-type")))
return true;
-
+
Script_tuple t;
- t.event_ =r;
+ t.event_ = r;
scripts_.push (t);
-
return true;
}
return false;
}
void
-copy_property (Grob * g , SCM sym, SCM alist)
+copy_property (Grob *g, SCM sym, SCM alist)
{
if (g->internal_get_property (sym) == SCM_EOL)
{
- SCM entry = scm_assoc (sym,alist);
+ SCM entry = scm_assoc (sym, alist);
if (ly_c_pair_p (entry))
- {
- g->internal_set_property (sym, ly_cdr (entry));
- }
+ g->internal_set_property (sym, ly_cdr (entry));
}
}
-
-/*
- We add the properties, one by one for each Script. We could save a
- little space by tacking the props onto the Script grob (i.e. make
- ScriptStaccato , ScriptMarcato, etc. )
- */
-void make_script_from_event (Grob *p,
- SCM * descr, Context *tg,
- SCM art_type,
- int index)
+/* Add the properties, one by one for each Script. A little space
+ (memory? --jcn) could be saved by tacking the props onto the Script
+ grob (i.e. make ScriptStaccato , ScriptMarcato, etc. ). */
+void make_script_from_event (Grob *p, SCM *descr, Context *tg,
+ SCM art_type, int index)
{
SCM alist = tg->get_property ("scriptDefinitions");
SCM art = scm_assoc (art_type, alist);
if (art == SCM_BOOL_F)
{
- warning (_("Don't know how to interpret articulation:"));
- warning (_("Scheme encoding: "));
+ /* FIXME: */
+ warning (_ ("Do not know how to interpret articulation: "));
+ warning (_ ("Scheme encoding: "));
scm_write (art_type, scm_current_error_port ());
- return ;
+ return;
}
art = ly_cdr (art);
-
- *descr = art;
-
+ *descr = art;
copy_property (p, ly_symbol2scm ("script-stencil"), art);
copy_property (p, ly_symbol2scm ("direction"), art);
copy_property (p, ly_symbol2scm ("side-relative-direction"), art);
- int prio =0;
+ int prio = 0;
SCM sprio = scm_assoc (ly_symbol2scm ("script-priority"), art);
if (ly_c_pair_p (sprio))
prio = ly_scm2int (ly_cdr (sprio));
-
- /*
- Make sure they're in order of user input by adding index i.
- Don't use the direction in this priority. Smaller means closer
- to the head.
- */
+ /* Make sure they're in order of user input by adding index i.
+ Don't use the direction in this priority. Smaller means closer
+ to the head. */
prio += index;
Side_position_interface::set_axis (p, Y_AXIS);
void
Script_engraver::process_music ()
{
- for (int i=0; i < scripts_.size (); i++)
+ int script_count = scripts_.size ();
+ for (int i = 0; i < script_count; i++)
{
- Music* l=scripts_[i].event_;
+ Music *m = scripts_[i].event_;
- Grob * p = make_item ("Script", l->self_scm ());
+ Grob *p = make_item ("Script", m->self_scm ());
make_script_from_event (p, &scripts_[i].description_, context (),
- l->get_property ("articulation-type"),
+ m->get_property ("articulation-type"),
i);
scripts_[i].script_ = p;
-
- SCM force_dir = l->get_property ("direction");
+ SCM force_dir = m->get_property ("direction");
if (is_direction (force_dir) && to_dir (force_dir))
p->set_property ("direction", force_dir);
}
void
Script_engraver::acknowledge_grob (Grob_info inf)
{
+ int script_count = scripts_.size ();
if (Stem::has_interface (inf.grob_))
{
- for (int i=0; i < scripts_.size (); i++)
+ for (int i = 0; i < script_count; i++)
{
- Grob*e = scripts_[i].script_;
+ Grob *e = scripts_[i].script_;
if (to_dir (e->get_property ("side-relative-direction")))
e->set_property ("direction-source", inf.grob_->self_scm ());
- /*
- add dep ?
- */
+ /* FIXME: add dependency */
e->add_dependency (inf.grob_);
Side_position_interface::add_support (e, inf.grob_);
}
}
else if (Rhythmic_head::has_interface (inf.grob_))
{
- for (int i=0; i < scripts_.size (); i++)
+ for (int i = 0; i < script_count; i++)
{
Grob *e = scripts_[i].script_;
-
+
if (Side_position_interface::get_axis (e) == X_AXIS
&& !e->get_parent (Y_AXIS))
{
}
else if (Note_column::has_interface (inf.grob_))
{
-
- /*
- We make note column the parent of the script. That's not
+ /* Make note column the parent of the script. That is not
correct, but due to seconds in a chord, noteheads may be
- swapped around horizontally. We don't know which note head to
- put it on, so we postpone this decision to
- Script_interface::before_line_breaking ().
-
- */
- for (int i=0; i < scripts_.size (); i++)
+ swapped around horizontally.
+
+ As the note head to put it on is not known now, postpone this
+ decision to Script_interface::before_line_breaking (). */
+ for (int i = 0; i < script_count; i++)
{
Grob *e = scripts_[i].script_;
-
- if (!e->get_parent (X_AXIS) &&
- Side_position_interface::get_axis (e) == Y_AXIS)
- {
- e->set_parent (inf.grob_, X_AXIS);
- }
+
+ if (!e->get_parent (X_AXIS)
+ && Side_position_interface::get_axis (e) == Y_AXIS)
+ e->set_parent (inf.grob_, X_AXIS);
}
}
}
void
Script_engraver::stop_translation_timestep ()
{
- for (int i=0; i < scripts_.size (); i++)
- {
- if (!scripts_[i].script_)
- continue;
-
- Grob * sc = scripts_[i].script_;
-
- SCM follow = scm_assoc (ly_symbol2scm ("follow-into-staff"), scripts_[i].description_);
- if (ly_c_pair_p (follow) && to_boolean (ly_cdr (follow)))
- {
- sc->add_offset_callback (Side_position_interface::quantised_position_proc, Y_AXIS);
- sc->set_property ("staff-padding", SCM_EOL);
- }
- }
+ int script_count = scripts_.size ();
+ for (int i = 0; i < script_count; i++)
+ if (Grob *sc = scripts_[i].script_)
+ {
+ SCM follow = scm_assoc (ly_symbol2scm ("follow-into-staff"),
+ scripts_[i].description_);
+ if (ly_c_pair_p (follow) && to_boolean (ly_cdr (follow)))
+ {
+ sc->add_offset_callback (Side_position_interface
+ ::quantised_position_proc, Y_AXIS);
+ sc->set_property ("staff-padding", SCM_EOL);
+ }
+ }
scripts_.clear ();
}
-
-
-Script_engraver::Script_engraver (){}
-
ENTER_DESCRIPTION (Script_engraver,
/* descr */ "Handles note scripted articulations.",
/* creats*/ "Script",
(c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
-#include "staff-symbol-referencer.hh"
-#include "rhythmic-head.hh"
-#include "stem.hh"
+#include "context.hh"
+#include "directional-element-interface.hh"
+#include "engraver.hh"
#include "event.hh"
+#include "item.hh"
#include "misc.hh"
+#include "rhythmic-head.hh"
+#include "script-interface.hh"
+#include "staff-symbol-referencer.hh"
#include "stem-tremolo.hh"
-#include "item.hh"
-#include "context.hh"
-
-#include "engraver.hh"
-
+#include "stem.hh"
/**
*/
class Stem_engraver : public Engraver
{
- TRANSLATOR_DECLARATIONS (Stem_engraver);
-protected:
- virtual void acknowledge_grob (Grob_info);
- virtual void stop_translation_timestep ();
- virtual bool try_music (Music*);
-
-private:
Grob *stem_;
Grob *tremolo_;
Music *rhythmic_ev_;
Music* tremolo_ev_;
+ TRANSLATOR_DECLARATIONS (Stem_engraver);
+
+protected:
+ void add_script (Grob *);
+ void make_stem (Grob_info);
+ virtual void acknowledge_grob (Grob_info);
+ virtual void stop_translation_timestep ();
+ virtual bool try_music (Music *);
};
Stem_engraver::Stem_engraver ()
rhythmic_ev_ =0;
}
-
void
-Stem_engraver::acknowledge_grob (Grob_info i)
+Stem_engraver::make_stem (Grob_info gi)
{
- Grob* h = i.grob_;
- if (Rhythmic_head::has_interface (h))
+ /* Announce the cause of the head as cause of the stem. The
+ stem needs a rhythmic structure to fit it into a beam. */
+ stem_ = make_item ("Stem", gi.music_cause ()->self_scm ());
+
+ int duration_log = gi.music_cause ()->duration_log ();
+ stem_->set_property ("duration-log", scm_int2num (duration_log));
+
+ if (tremolo_ev_)
{
- if (Rhythmic_head::get_stem (h))
- return;
+ /* Stem tremolo is never applied to a note by default,
+ is must me requested. But there is a default for the
+ tremolo value:
- /* Reverted to the old method so chord tremolos work again. /MB
- */
- int duration_log = 0;
+ c4:8 c c:
- Music * m = i.music_cause ();
- if (m->is_mus_type ("rhythmic-event"))
- duration_log = unsmob_duration (m->get_property ("duration"))-> duration_log ();
-
- if (!stem_)
+ the first and last (quarter) note bothe get one tremolo flag. */
+ int requested_type
+ = ly_scm2int (tremolo_ev_->get_property ("tremolo-type"));
+ SCM f = get_property ("tremoloFlags");
+ if (!requested_type)
{
- /*
- We announce the cause of the head as cause of the stem.
- The stem needs a rhythmic structure to fit it into a beam. */
- stem_ = make_item ("Stem",i.music_cause ()->self_scm ());
-
- stem_->set_property ("duration-log", scm_int2num (duration_log));
-
- if (tremolo_ev_)
- {
- /*
- Stem tremolo is never applied to a note by default,
- is must me evuested. But there is a default for the
- tremolo value:
-
- c4:8 c c:
-
- the first and last (quarter) note bothe get one tremolo flag.
- */
- int requested_type = ly_scm2int (tremolo_ev_->get_property ("tremolo-type"));
- SCM f = get_property ("tremoloFlags");
- if (!requested_type)
- if (ly_c_number_p (f))
- requested_type = ly_scm2int (f);
- else
- requested_type = 8;
- else
- context ()->set_property ("tremoloFlags", scm_int2num (requested_type));
-
- int tremolo_flags = intlog2 (requested_type) - 2
- - (duration_log > 2 ? duration_log - 2 : 0);
- if (tremolo_flags <= 0)
- {
- tremolo_ev_->origin ()->warning (_("tremolo duration is too long"));
- tremolo_flags = 0;
- }
-
- if (tremolo_flags)
- {
- tremolo_ = make_item ("StemTremolo", tremolo_ev_->self_scm ());
-
- /*
- The number of tremolo flags is the number of flags of
- the tremolo-type minus the number of flags of the note
- itself.
- */
- tremolo_->set_property ("flag-count",
- scm_int2num (tremolo_flags));
- tremolo_->set_parent (stem_, X_AXIS);
- stem_->set_property ("tremolo-flag", tremolo_->self_scm ());
- tremolo_->set_property ("stem",
- stem_->self_scm ());
- }
- }
+ if (ly_c_number_p (f))
+ requested_type = ly_scm2int (f);
+ else
+ requested_type = 8;
+ }
+ else
+ context ()->set_property ("tremoloFlags", scm_int2num (requested_type));
+ int tremolo_flags = intlog2 (requested_type) - 2
+ - (duration_log > 2 ? duration_log - 2 : 0);
+ if (tremolo_flags <= 0)
+ {
+ tremolo_ev_->origin ()->warning (_("tremolo duration is too long"));
+ tremolo_flags = 0;
+ }
+
+ if (tremolo_flags)
+ {
+ tremolo_ = make_item ("StemTremolo", tremolo_ev_->self_scm ());
+
+ /* The number of tremolo flags is the number of flags of the
+ tremolo-type minus the number of flags of the note itself. */
+ tremolo_->set_property ("flag-count", scm_int2num (tremolo_flags));
+ tremolo_->set_parent (stem_, X_AXIS);
+ stem_->set_property ("tremolo-flag", tremolo_->self_scm ());
+ tremolo_->set_property ("stem", stem_->self_scm ());
}
+ }
+}
+
+void
+Stem_engraver::add_script (Grob *script)
+{
+ Direction d = get_grob_direction (script);
+ if (d == UP || d == DOWN)
+ {
+ char const *property = d == UP ? "script-up" : "script-down";
+ stem_->set_property (property,
+ scm_cons (script->self_scm (),
+ stem_->get_property (property)));
+ }
+}
+void
+Stem_engraver::acknowledge_grob (Grob_info gi)
+{
+ if (Rhythmic_head::has_interface (gi.grob_))
+ {
+ if (Rhythmic_head::get_stem (gi.grob_))
+ return;
+
+ if (!stem_)
+ make_stem (gi);
+
+ int duration_log = gi.music_cause ()->duration_log ();
if (Stem::duration_log (stem_) != duration_log)
{
- i.music_cause ()->origin ()->warning (_f ("Adding note head to incompatible stem (type = %d)", 1 << Stem::duration_log (stem_))
- + _f ("Don't you want polyphonic voices instead?")
- );
+ // FIXME:
+ gi.music_cause ()->origin ()->warning (_f ("Adding note head to incompatible stem (type = %d)", 1 << Stem::duration_log (stem_)));
+
+ gi.music_cause ()->origin ()->warning (_f ("Don't you want polyphonic voices instead?"));
}
- Stem::add_head (stem_,h);
+ Stem::add_head (stem_, gi.grob_);
}
+ else if (Script_interface::has_interface (gi.grob_))
+ add_script (gi.grob_);
}
void
Stem_engraver::stop_translation_timestep ()
{
tremolo_ = 0;
-
if (stem_)
{
- /*
- toDO: junk these properties.
- */
+ /* FIXME: junk these properties. */
SCM prop = get_property ("stemLeftBeamCount");
if (ly_c_number_p (prop))
{
Stem::set_beaming (stem_,ly_scm2int (prop), RIGHT);
context ()->unset_property (ly_symbol2scm ("stemRightBeamCount"));
}
-
-
stem_ = 0;
}
-
-
tremolo_ev_ = 0;
}
bool
-Stem_engraver::try_music (Music* r)
+Stem_engraver::try_music (Music *m)
{
- if (r->is_mus_type ("tremolo-event"))
+ if (m->is_mus_type ("tremolo-event"))
{
- tremolo_ev_ = r;
+ tremolo_ev_ = m;
return true;
}
return false;
projects / lilypond.git / commitdiff