\score{
\notes\relative c''{
- \outputproperty #(make-type-checker 'Note_head)
+ \outputproperty #(make-type-checker 'note-head-interface)
#'extra-offset = #'(2 . 3)
c2
c
\context Score {
- \outputproperty #(make-type-checker 'Mark)
+ \outputproperty #(make-type-checker 'mark-interface)
#'extra-offset = #'(-1 . 4)
}
\mark A;
return (Paper_column*)(this);
}
-Paper_column::Paper_column (Moment w)
- : Item (SCM_EOL) // guh.?
+Paper_column::Paper_column (SCM l)
+ : Item (l) // guh.?
{
- SCM when = smobify (new Moment (w));
- set_elt_property ("when", when);
-
Axis_group_interface (this).set_interface ();
Axis_group_interface (this).set_axes (X_AXIS, X_AXIS);
set_elt_pointer ("bounded-by-me", SCM_EOL);