2 ctie-engraver.cc -- implement Tie_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1998--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "tie-engraver.hh"
11 #include "command-request.hh"
12 #include "note-head.hh"
13 #include "musical-request.hh"
15 #include "translator-group.hh"
17 Tie_engraver::Tie_engraver()
24 Tie_engraver::do_try_music (Music
*m
)
26 if (Tie_req
* c
= dynamic_cast<Tie_req
*> (m
))
29 SCM m
= get_property ("automaticMelismata",0);
30 bool am
= gh_boolean_p (m
) &&gh_scm2bool (m
);
41 Tie_engraver::set_melisma (bool m
)
43 Translator_group
*where
= daddy_trans_l_
;
44 get_property ("tieMelismaBusy", &where
);
46 where
= daddy_trans_l_
;
48 daddy_trans_l_
->set_property ("tieMelismaBusy", m
? SCM_BOOL_T
: SCM_BOOL_F
);
52 Tie_engraver::acknowledge_element (Score_element_info i
)
54 if (Note_head
*nh
= dynamic_cast<Note_head
*> (i
.elem_l_
))
56 Note_req
* m
= dynamic_cast<Note_req
* > (i
.req_l_
);
59 now_heads_
.push (CHead_melodic_tuple (nh
, m
, now_mom()+ m
->length_mom ()));
64 Tie_engraver::do_process_requests ()
68 Moment now
= now_mom ();
69 Link_array
<Note_head
> nharr
;
71 stopped_heads_
.clear ();
72 while (past_notes_pq_
.size ()
73 && past_notes_pq_
.front ().end_
== now
)
74 stopped_heads_
.push (past_notes_pq_
.get ());
79 Tie_engraver::process_acknowledged ()
83 now_heads_
.sort (CHead_melodic_tuple::pitch_compare
);
84 stopped_heads_
.sort(CHead_melodic_tuple::pitch_compare
);
86 SCM head_list
= SCM_EOL
;
88 int j
= stopped_heads_
.size ()-1;
89 int i
= now_heads_
.size ()-1;
91 while (i
>= 0 && j
>=0)
94 = Musical_pitch::compare (now_heads_
[i
].req_l_
->pitch_
,
95 stopped_heads_
[j
].req_l_
->pitch_
);
99 (comp
< 0) ? j
-- : i
--;
104 head_list
= gh_cons (gh_cons (stopped_heads_
[j
].head_l_
->self_scm_
,
105 now_heads_
[i
].head_l_
->self_scm_
),
108 past_notes_pq_
. insert (now_heads_
[i
]);
110 stopped_heads_
.del (j
);
117 SCM sparse
= get_property ("sparseTies", 0);
118 if (to_boolean (sparse
))
120 int i
= scm_ilength (head_list
);
125 SCM pair
= gh_list_ref (head_list
, gh_int2scm (i
/2));
128 p
->set_head (LEFT
, dynamic_cast<Item
*> (unsmob_element (gh_car (pair
))));
129 p
->set_head (RIGHT
, dynamic_cast<Item
*> (unsmob_element (gh_cdr (pair
))));
132 announce_element (Score_element_info (p
, req_l_
));
134 else for (SCM s
= head_list
; gh_pair_p (s
); s
= gh_cdr (s
))
137 p
->set_head (LEFT
, dynamic_cast<Item
*> (unsmob_element (gh_caar (s
))));
138 p
->set_head (RIGHT
, dynamic_cast<Item
*> (unsmob_element (gh_cdar (s
))));
141 announce_element (Score_element_info (p
, req_l_
));
144 if (!tie_p_arr_
.size ())
146 req_l_
->warning (_ ("No ties were created!"));
154 Tie_engraver::do_pre_move_processing ()
156 for (int i
=0; i
< now_heads_
.size (); i
++)
158 past_notes_pq_
.insert (now_heads_
[i
]);
162 for (int i
=0; i
< tie_p_arr_
.size (); i
++)
164 typeset_element (tie_p_arr_
[i
]);
170 Tie_engraver::do_post_move_processing ()
172 SCM m
= get_property ("automaticMelismata",0);
178 Moment now
= now_mom ();
179 while (past_notes_pq_
.size () && past_notes_pq_
.front ().end_
< now
)
180 past_notes_pq_
.delmin ();
183 ADD_THIS_TRANSLATOR(Tie_engraver
);
186 CHead_melodic_tuple::CHead_melodic_tuple ()
193 CHead_melodic_tuple::CHead_melodic_tuple (Note_head
*h
, Melodic_req
*m
, Moment mom
)
201 CHead_melodic_tuple::pitch_compare (CHead_melodic_tuple
const&h1
,
202 CHead_melodic_tuple
const &h2
)
204 return Melodic_req::compare (*h1
.req_l_
, *h2
.req_l_
);
208 CHead_melodic_tuple::time_compare (CHead_melodic_tuple
const&h1
,
209 CHead_melodic_tuple
const &h2
)
211 return (h1
.end_
- h2
.end_
).sign ();