lilypond-1.3.28
[lilypond.git] / lily / tie-column.cc
blobf23d218d9316ca1dc82d970700fa3e789caf76d4
1 /*
2 tie-column.cc -- implement Tie_column
4 source file of the GNU LilyPond music typesetter
6 (c) 2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
8 */
10 #include "tie-column.hh"
11 #include "group-interface.hh"
12 #include "tie.hh"
13 #include "directional-element-interface.hh"
14 #include "note-head.hh"
16 Tie_column::Tie_column ()
18 set_elt_property ("ties", SCM_EOL);
19 set_empty (X_AXIS);
20 set_empty (Y_AXIS);
21 set_elt_property ("transparent", SCM_BOOL_T);
24 void
25 Tie_column::add_tie (Tie *s)
27 Group_interface g (this, "ties");
28 if (!g.count ())
30 set_bounds (LEFT, s->head (LEFT));
31 set_bounds (RIGHT, s->head (RIGHT));
34 group (this, "ties").add_element (s);
35 s->add_dependency (this);
39 int
40 tie_compare (Tie* const & s1,
41 Tie* const & s2)
43 return sign (s1->position_f () - s2->position_f());
47 See [Ross p. 138].
50 In normal chord cases, the outer ties point outwards, and the
51 direction of the rest is determined by their staff position.
53 Ross forgets about the tie that is *on* the middle staff line. We
54 assume it goes UP. (TODO: make this settable) */
55 void
56 Tie_column::set_directions ()
58 Link_array<Tie> s =
59 Group_interface__extract_elements (this, (Tie*)0, "ties");
62 Direction d = directional_element (this).get ();
64 if (d)
66 for (int i = s.size (); i--;)
67 directional_element (s[i]).set (d);
68 return;
71 if (s.size () == 1)
73 directional_element (s[0]).set (s[0]->get_default_dir ());
74 return;
77 s.sort (tie_compare);
78 directional_element (s[0]).set (DOWN);
79 s.del (0);
80 directional_element (s.pop ()).set (UP);
82 for (int i=s.size(); i--; )
84 Real p = s[i]->position_f ();
85 Direction d = (Direction) sign (p);
86 if (!d)
87 d = UP;
89 directional_element (s[i]).set (d);
94 void
95 Tie_column::do_post_processing ()
97 set_directions ();