SCM
Accidental_placement::alignment_callback (SCM s, SCM )
{
- Grob * me =unsmob_grob (s);
+ Grob * me = unsmob_grob (s);
Grob * par = me->get_parent (X_AXIS);
if (!to_boolean (par->get_property ("positioning-done")))
a->add_offset_callback (alignment_callback_proc, X_AXIS);
SCM cause = a->get_parent (Y_AXIS)->get_property ("cause");
- Music *mcause =unsmob_music (cause);
+ Music *mcause = unsmob_music (cause);
if (!mcause)
{
programming_error ("Note head has no music cause!");
Link_array<Grob> *break_reminder,
Link_array<Grob> *real_acc)
{
- for (SCM acs =accs->get_property ("accidental-grobs"); is_pair (acs);
+ for (SCM acs =accs->get_property ("accidental-grobs"); ly_c_pair_p (acs);
acs =ly_cdr (acs))
- for (SCM s = ly_cdar (acs); is_pair (s); s = ly_cdr (s))
+ for (SCM s = ly_cdar (acs); ly_c_pair_p (s); s = ly_cdr (s))
{
Grob *a = unsmob_grob (ly_car (s));
SCM
Accidental_placement::position_accidentals (Grob * me)
{
- if (!me->live ())
+ if (!me->is_live ())
return SCM_UNSPECIFIED;
SCM accs = me->get_property ("accidental-grobs");
Y-position, they share an Ape, and will be printed in overstrike.
*/
Link_array<Accidental_placement_entry> apes;
- for (SCM s = accs; is_pair (s); s =ly_cdr (s))
+ for (SCM s = accs; ly_c_pair_p (s); s =ly_cdr (s))
{
Accidental_placement_entry *ape = new Accidental_placement_entry;
- ape->notename_ = ly_scm2int (ly_caar (s));
+ ape->notename_ = scm_to_int (ly_caar (s));
- for (SCM t = ly_cdar (s); is_pair (t); t =ly_cdr (t))
+ for (SCM t = ly_cdar (s); ly_c_pair_p (t); t =ly_cdr (t))
ape->grobs_.push (unsmob_grob (ly_car (t)));
apes.push (ape);
}
-
Grob *common[] = {me, 0};
/*
left_extent[LEFT] -= robust_scm2double (me->get_property ("left-padding"), 0);
-
-
Interval width (left_extent[LEFT], right_extent[RIGHT]);
SCM scm_width = ly_interval2scm (width);