if (text_
&& !text_->get_parent (X_AXIS)
&& dynamic_cast<Item *> (s)
- && (s->get_property_data (ly_symbol2scm ("break-align-symbol"))
- == text_->get_property_data (ly_symbol2scm ("break-align-symbol"))))
+ && (s->get_property_data ("break-align-symbol")
+ == text_->get_property_data ("break-align-symbol")))
{
/*
By default this would land on the Paper_column -- so why
{
Grob *s = stems[i];
Direction stem_dir = CENTER;
- SCM stem_dir_scm = s->get_property_data (ly_symbol2scm ("direction"));
+ SCM stem_dir_scm = s->get_property_data ("direction");
if (is_direction (stem_dir_scm))
{
stem_dir = to_dir (stem_dir_scm);
{
Grob *s = stems[i];
- SCM forcedir = s->get_property_data (ly_symbol2scm ("direction"));
+ SCM forcedir = s->get_property_data ("direction");
if (!to_dir (forcedir))
set_grob_direction (s, d);
}
*/
head_extents += stem->relative_coordinate (common, Y_AXIS);
- if (to_dir (stem->get_property_data (ly_symbol2scm ("direction"))))
+ if (to_dir (stem->get_property_data ("direction")))
{
Direction stemdir = to_dir (stem->get_property ("direction"));
head_extents[-stemdir] = -stemdir * infinity_f;
fingering->set_property ("script-priority", scm_from_int (priority));
- if (!is_direction (fingering->get_property_data (ly_symbol2scm ("direction"))))
+ if (!is_direction (fingering->get_property_data ("direction")))
{
if (d)
fingering->set_property ("direction", scm_from_int (d));
//#define PROFILE_PROPERTY_ACCESSES
SCM
-Grob::get_property_data (SCM sym) const
+Grob::internal_get_property_data (SCM sym) const
{
#ifndef NDEBUG
if (profile_property_accesses)
if (scm_is_pair (meta))
interfaces_ = scm_cdr (scm_assq (ly_symbol2scm ("interfaces"), meta));
- if (get_property_data (ly_symbol2scm ("X-extent")) == SCM_EOL)
+ if (get_property_data ("X-extent") == SCM_EOL)
set_property ("X-extent", Grob::stencil_width_proc);
- if (get_property_data (ly_symbol2scm ("Y-extent")) == SCM_EOL)
+ if (get_property_data ("Y-extent") == SCM_EOL)
set_property ("Y-extent", Grob::stencil_height_proc);
}
off = *dim_cache_[Y_AXIS].offset_;
else
{
- SCM proc = get_property_data (ly_symbol2scm ("Y-offset"));
+ SCM proc = get_property_data ("Y-offset");
dim_cache_[Y_AXIS].offset_ = new Real (0.0);
off = robust_scm2double (call_pure_function (proc,
/* Properties */
SCM get_property_alist_chain (SCM) const;
SCM internal_get_property (SCM symbol) const;
- SCM get_property_data (SCM symbol) const;
+ SCM internal_get_property_data (SCM symbol) const;
SCM internal_get_object (SCM symbol) const;
void internal_set_object (SCM sym, SCM val);
void internal_del_property (SCM symbol);
VAR, ARGLIST, DOCSTRING)
#define get_property(x) internal_get_property (ly_symbol2scm (x))
+#define get_property_data(x) internal_get_property_data (ly_symbol2scm (x))
#define get_object(x) internal_get_object (ly_symbol2scm (x))
#define set_object(x, y) internal_set_object (ly_symbol2scm (x), y)
#define del_property(x) internal_del_property (ly_symbol2scm (x))
Grob *s = inf.grob ();
if (text_
&& !text_->get_parent (X_AXIS)
- && (text_->get_property_data (ly_symbol2scm ("break-align-symbol"))
- == s->get_property_data (ly_symbol2scm ("break-align-symbol")))
+ && (text_->get_property_data ("break-align-symbol")
+ == s->get_property_data ("break-align-symbol"))
&& Axis_group_interface::has_interface (s))
{
/*
Melody_engraver::stop_translation_timestep ()
{
if (stem_
- && !is_direction (stem_->get_property_data (ly_symbol2scm ("neutral-direction"))))
+ && !is_direction (stem_->get_property_data ("neutral-direction")))
{
extract_grob_set (stem_, "rests", rests);
if (rests.size ())
{
affect_all_grobs.push_back (sc);
}
- else if (sc->get_property_data (ly_symbol2scm ("Y-offset")) !=
+ else if (sc->get_property_data ("Y-offset") !=
Side_position_interface::x_aligned_side_proc)
{
head_scripts_map[sc->get_parent (Y_AXIS)].push_back (sc);
/*
Don't want to consider scripts horizontally next to notes.
*/
- if (sc->get_property_data (ly_symbol2scm ("X-offset")) !=
+ if (sc->get_property_data ("X-offset") !=
Side_position_interface::x_aligned_side_proc)
staff_sided.push_back (sc);
}
{
Tie_specification spec;
- if (scm_is_number (ties[i]->get_property_data (ly_symbol2scm ("direction"))))
+ if (scm_is_number (ties[i]->get_property_data ("direction")))
{
spec.manual_dir_ = to_dir (ties[i]->get_property ("direction"));
spec.has_manual_dir_ = true;
(void) yparent->get_property ("positioning-done");
}
- if (!scm_is_pair (me->get_property_data (ly_symbol2scm ("control-points"))))
+ if (!scm_is_pair (me->get_property_data ("control-points")))
{
set_default_control_points (me);
}