]> git.donarmstrong.com Git - lilypond.git/blob - lily/script-column.cc
patch::: 1.3.8.uu1
[lilypond.git] / lily / script-column.cc
1 /*   
2   g-script-column.cc --  implement Script_column
3   
4   source file of the GNU LilyPond music typesetter
5   
6   (c) 1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7   
8  */
9 #include "script-column.hh"
10 #include "staff-side.hh"
11 #include "dimension-cache.hh"
12
13
14 void
15 Script_column::add_staff_sided (Item *i)
16 {
17   SCM p = i->get_elt_property ("script-priority");
18   if (p == SCM_UNDEFINED)
19     return;
20   
21   staff_sided_item_l_arr_.push (i);
22   add_dependency (i);
23 }
24
25 static int
26 staff_side_compare (Item * const &i1,
27                     Item * const &i2)
28 {
29   SCM p1 = i1->get_elt_property ("script-priority");
30   SCM p2 = i2->get_elt_property ("script-priority");
31
32   return gh_scm2int (p1) - gh_scm2int (p2);
33 }
34
35 void
36 Script_column::do_pre_processing ()
37 {
38   Drul_array<Link_array<Item> > arrs;
39
40   for (int i=0; i < staff_sided_item_l_arr_.size (); i++)
41     {
42       Side_position_interface st (staff_sided_item_l_arr_[i]);
43       arrs[st.get_direction ()].push (staff_sided_item_l_arr_[i]);
44     }
45
46   Direction d = DOWN;
47   do {
48     Link_array<Item> &arr(arrs[d]);
49     
50     arr.sort (staff_side_compare);
51
52     Item * last = 0;
53     for (int i=0; i < arr.size (); i++)
54       {
55         Side_position_interface s (arr[i]);
56         if (last)
57           {
58             s.add_support (last);
59           }
60             
61         arr[i]->remove_elt_property ("script-priority");
62         last = arr[i];
63       }
64     
65   } while (flip (&d) != DOWN);
66 }
67