- SCM heads = b->get_property ("note-heads");
- common = common_refpoint_of_list (heads, common, X_AXIS);
- for (SCM s = heads; scm_is_pair (s); s = scm_cdr (s))
+ extract_grob_set (b, "note-heads", heads);
+ common = common_refpoint_of_array (heads, common, X_AXIS);
+ for (vsize i = 0; i < heads.size (); i++)