*/
#include "self-alignment-interface.hh"
+
#include "warn.hh"
/* Position centered on parent. */
Self_alignment_interface::centered_on_parent (SCM element_smob, SCM axis)
{
Grob *me = unsmob_grob (element_smob);
- Axis a = (Axis) ly_scm2int (axis);
+ Axis a = (Axis) scm_to_int (axis);
Grob *him = me->get_parent (a);
Interval he = him->extent (him, a);
Self_alignment_interface::aligned_on_parent (SCM element_smob, SCM axis)
{
Grob *me = unsmob_grob (element_smob);
- Axis a = (Axis) ly_scm2int (axis);
+ Axis a = (Axis) scm_to_int (axis);
Grob *him = me->get_parent (a);
Interval he = him->extent (him, a);
- SCM sym= (a == X_AXIS) ? ly_symbol2scm ("self-alignment-X")
+ SCM sym = (a == X_AXIS) ? ly_symbol2scm ("self-alignment-X")
: ly_symbol2scm ("self-alignment-Y");
SCM align_prop (me->internal_get_property (sym));
- if (!ly_c_number_p (align_prop))
+ if (!scm_is_number (align_prop))
return scm_int2num (0);
Real x = 0.0;
- Real align = ly_scm2double (align_prop);
+ Real align = scm_to_double (align_prop);
Interval ext (me->extent (me, a));
if (ext.is_empty ())
SCM axis)
{
Grob *me = unsmob_grob (element_smob);
- Axis a = (Axis) ly_scm2int (axis);
+ Axis a = (Axis) scm_to_int (axis);
Grob *him = me->get_parent (other_axis (a));
Interval he = him->extent (him, a);
Self_alignment_interface::aligned_on_self (SCM element_smob, SCM axis)
{
Grob *me = unsmob_grob (element_smob);
- Axis a = (Axis) ly_scm2int (axis);
+ Axis a = (Axis) scm_to_int (axis);
- SCM sym= (a == X_AXIS) ? ly_symbol2scm ("self-alignment-X")
+ SCM sym = (a == X_AXIS) ? ly_symbol2scm ("self-alignment-X")
: ly_symbol2scm ("self-alignment-Y");
SCM align (me->internal_get_property (sym));
- if (ly_c_number_p (align))
+ if (scm_is_number (align))
{
Interval ext (me->extent (me, a));
if (ext.is_empty ())
programming_error ("I'm empty. Can't align on self");
else
- return scm_make_real (- ext.linear_combination (ly_scm2double (align)));
+ return scm_make_real (- ext.linear_combination (scm_to_double (align)));
}
return scm_make_real (0.0);
}