- SCM details = me->get_property ("slur-details");
-
- score_param->region_size_
- = (int) get_detail (details, ly_symbol2scm ("region-size"));
- score_param->head_encompass_penalty_
- = get_detail (details, ly_symbol2scm ("head-encompass-penalty"));
- score_param->stem_encompass_penalty_
- = get_detail (details, ly_symbol2scm ("stem-encompass-penalty"));
- score_param->closeness_factor_
- = get_detail (details, ly_symbol2scm ("closeness-factor"));
- score_param->edge_attraction_factor_
- = get_detail (details, ly_symbol2scm ("edge-attraction-factor"));
- score_param->same_slope_penalty_
- = get_detail (details, ly_symbol2scm ("same-slope-penalty"));
- score_param->steeper_slope_factor_
- = get_detail (details, ly_symbol2scm ("steeper-slope-factor"));
- score_param->non_horizontal_penalty_
- = get_detail (details, ly_symbol2scm ("non-horizontal-penalty"));
- score_param->max_slope_
- = get_detail (details, ly_symbol2scm ("max-slope"));
- score_param->max_slope_factor_
- = get_detail (details, ly_symbol2scm ("max-slope-factor"));
- score_param->free_head_distance_
- = get_detail (details, ly_symbol2scm ("free-head-distance"));
- score_param->extra_object_collision_
- = get_detail (details, ly_symbol2scm ("extra-object-collision"));
- score_param->accidental_collision_
- = get_detail (details, ly_symbol2scm ("accidental-collision"));
- score_param->extra_encompass_free_distance_
- = get_detail (details, ly_symbol2scm ("extra-encompass-free-distance"));
- score_param->head_slur_distance_factor_
- = get_detail (details, ly_symbol2scm ("head-slur-distance-factor"));
- score_param->head_slur_distance_max_ratio_
- = get_detail (details, ly_symbol2scm ("head-slur-distance-max-ratio"));
- score_param->free_slur_distance_
- = get_detail (details, ly_symbol2scm ("free-slur-distance"));
- score_param->edge_slope_exponent_
- = get_detail (details, ly_symbol2scm ("edge-slope-exponent"));
-}