2 slur-grav.cc -- implement Slur_engraver
4 (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 #include "musical-request.hh"
8 #include "slur-engraver.hh"
11 #include "note-column.hh"
12 #include "translator-group.hh"
13 #include "engraver.hh"
16 class Slur_engraver
:public Engraver
{
17 Link_array
<Span_req
> requests_arr_
;
18 Link_array
<Span_req
> new_slur_req_l_arr_
;
19 Link_array
<Score_element
> slur_l_stack_
;
20 Link_array
<Score_element
> end_slur_l_arr_
;
22 void set_melisma (bool);
24 virtual bool do_try_music (Music
*);
25 virtual void do_process_music ();
26 virtual void acknowledge_element (Score_element_info
);
27 virtual void do_pre_move_processing ();
28 virtual void do_post_move_processing ();
29 virtual void do_removal_processing ();
32 VIRTUAL_COPY_CONS (Translator
);
37 Slur_engraver::do_try_music (Music
*req_l
)
39 if (Span_req
*sl
= dynamic_cast <Span_req
*> (req_l
))
41 if (sl
->span_type_str_
!= "slur")
43 new_slur_req_l_arr_
.push (sl
);
51 Slur_engraver::set_melisma (bool m
)
53 daddy_trans_l_
->set_property ("slurMelismaBusy", m
? SCM_BOOL_T
:SCM_BOOL_F
);
57 Slur_engraver::acknowledge_element (Score_element_info info
)
59 if (Note_column::has_interface (info
.elem_l_
))
61 Score_element
*e
=info
.elem_l_
;
62 for (int i
= 0; i
< slur_l_stack_
.size (); i
++)
63 Slur::add_column (slur_l_stack_
[i
], e
);
64 for (int i
= 0; i
< end_slur_l_arr_
.size (); i
++)
65 Slur::add_column (end_slur_l_arr_
[i
], e
);
70 Slur_engraver::do_removal_processing ()
72 for (int i
= 0; i
< slur_l_stack_
.size (); i
++)
74 typeset_element (slur_l_stack_
[i
]);
76 slur_l_stack_
.clear ();
77 SCM wg
= get_property ("weAreGraceContext");
78 bool wgb
= to_boolean (wg
);
80 for (int i
=0; i
< requests_arr_
.size (); i
++)
82 requests_arr_
[i
]->origin ()->warning (_ ("unterminated slur"));
87 Slur_engraver::do_process_music ()
89 Link_array
<Score_element
> start_slur_l_arr_
;
90 for (int i
=0; i
< new_slur_req_l_arr_
.size (); i
++)
92 Span_req
* slur_req_l
= new_slur_req_l_arr_
[i
];
93 // end slur: move the slur to other array
94 if (slur_req_l
->span_dir_
== STOP
)
96 if (slur_l_stack_
.empty ())
98 slur_req_l
->origin ()->warning (_f ("can't find both ends of %s", _ ("slur")));
101 Score_element
* slur
= slur_l_stack_
.pop ();
102 SCM s
= get_property ("slurEndAttachment");
105 index_set_cell (slur
->get_elt_property ("attachment"), STOP
, s
);
107 end_slur_l_arr_
.push (slur
);
108 requests_arr_
.pop ();
111 else if (slur_req_l
->span_dir_
== START
)
113 // push a new slur onto stack.
114 // (use temp. array to wait for all slur STOPs)
115 Score_element
* slur
= new Spanner (get_property ("basicSlurProperties"));
116 Slur::set_interface (slur
);
117 SCM s
= get_property ("slurBeginAttachment");
120 index_set_cell (slur
->get_elt_property ("attachment"), START
, s
);
122 start_slur_l_arr_
.push (slur
);
123 requests_arr_
.push (slur_req_l
);
124 announce_element (slur
, slur_req_l
);
127 for (int i
=0; i
< start_slur_l_arr_
.size (); i
++)
128 slur_l_stack_
.push (start_slur_l_arr_
[i
]);
132 Slur_engraver::do_pre_move_processing ()
134 for (int i
= 0; i
< end_slur_l_arr_
.size (); i
++)
136 typeset_element (end_slur_l_arr_
[i
]);
138 end_slur_l_arr_
.clear ();
142 Slur_engraver::do_post_move_processing ()
144 new_slur_req_l_arr_
.clear ();
145 SCM m
= get_property ("automaticMelismata");
148 set_melisma (slur_l_stack_
.size ());
153 ADD_THIS_TRANSLATOR (Slur_engraver
);