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);