SCM
Stem_tremolo::height (SCM smob, SCM ax)
{
- Axis a = (Axis)gh_scm2int (ax);
+ Axis a = (Axis)ly_scm2int (ax);
Grob * me = unsmob_grob (smob);
assert (a == Y_AXIS);
SCM s = beam->get_property ("positions");
if (is_number_pair (s))
{
- dy = -gh_scm2double (gh_car (s)) +gh_scm2double (gh_cdr (s));
+ dy = -ly_scm2double (ly_car (s)) +ly_scm2double (ly_cdr (s));
}
Real dx = Beam::last_visible_stem (beam)->relative_coordinate (0, X_AXIS)
int tremolo_flags = 0;
SCM s = me->get_property ("flag-count");
- if (gh_number_p (s))
- tremolo_flags = gh_scm2int (s);
+ if (ly_number_p (s))
+ tremolo_flags = ly_scm2int (s);
if (!tremolo_flags)
{
Real beamthickness = 0.0;
SCM sbt = (beam) ? beam->get_property ("thickness") : SCM_EOL ;
- if (gh_number_p (sbt))
+ if (ly_number_p (sbt))
{
- beamthickness = gh_scm2double (sbt) * ss;
+ beamthickness = ly_scm2double (sbt) * ss;
}
Real end_y