2 g-script-column.cc -- implement Script_column
4 source file of the GNU LilyPond music typesetter
6 (c) 1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
9 #include "script-column.hh"
10 #include "side-position-interface.hh"
11 #include "dimension-cache.hh"
12 #include "group-interface.hh"
15 Script_column::add_staff_sided (Item
*i
)
17 SCM p
= i
->get_elt_property ("script-priority");
22 Group_interface
gi (this, "scripts");
28 Script_column::Script_column ()
30 set_elt_property ("scripts", SCM_EOL
);
34 staff_side_compare (Item
* const &i1
,
37 SCM p1
= i1
->get_elt_property ("script-priority");
38 SCM p2
= i2
->get_elt_property ("script-priority");
40 return gh_scm2int (p1
) - gh_scm2int (p2
);
44 Script_column::do_pre_processing ()
46 Drul_array
<Link_array
<Item
> > arrs
;
47 Link_array
<Item
> staff_sided
48 = Group_interface__extract_elements (this, (Item
*)0, "scripts");
51 for (int i
=0; i
< staff_sided
.size (); i
++)
53 Side_position_interface
st (staff_sided
[i
]);
54 arrs
[st
.get_direction ()].push (staff_sided
[i
]);
59 Link_array
<Item
> &arr(arrs
[d
]);
61 arr
.sort (staff_side_compare
);
64 for (int i
=0; i
< arr
.size (); i
++)
66 Side_position_interface
s (arr
[i
]);
72 arr
[i
]->remove_elt_property ("script-priority");
76 } while (flip (&d
) != DOWN
);