2 span-dynamic-performer.cc -- implement Span_dynamic_performer
4 source file of the GNU LilyPond music typesetter
6 (c) 2000 Jan Nieuwenhuizen <janneke@gnu.org>
9 #include "performer.hh"
10 #include "command-request.hh"
11 #include "musical-request.hh"
12 #include "audio-item.hh"
14 struct Audio_dynamic_tuple
16 Audio_dynamic
* audio_l_
;
23 class Span_dynamic_performer
: public Performer
26 VIRTUAL_COPY_CONS (Translator
);
28 Span_dynamic_performer ();
31 virtual bool do_try_music (Music
*);
32 virtual void acknowledge_element (Audio_element_info
);
33 virtual void process_acknowledged ();
34 virtual void do_process_music ();
35 virtual void do_pre_move_processing ();
36 virtual void do_post_move_processing ();
39 Audio_dynamic
* audio_p_
;
41 Span_req
* span_start_req_l_
;
42 Drul_array
<Span_req
*> span_req_l_drul_
;
43 Array
<Audio_dynamic_tuple
> dynamic_tuple_arr_
;
44 Array
<Audio_dynamic_tuple
> finished_dynamic_tuple_arr_
;
46 Direction finished_dir_
;
49 ADD_THIS_TRANSLATOR (Span_dynamic_performer
);
51 Span_dynamic_performer::Span_dynamic_performer ()
53 span_req_l_drul_
[START
] = 0;
54 span_req_l_drul_
[STOP
] = 0;
55 span_start_req_l_
= 0;
61 Span_dynamic_performer::acknowledge_element (Audio_element_info i
)
63 if (Audio_dynamic
* d
= dynamic_cast <Audio_dynamic
*> (i
.elem_l_
))
65 last_volume_
= d
->volume_
;
70 Span_dynamic_performer::do_process_music ()
72 if (span_start_req_l_
|| span_req_l_drul_
[START
])
74 audio_p_
= new Audio_dynamic (0);
75 Audio_element_info
info (audio_p_
, span_req_l_drul_
[START
]
76 ? span_req_l_drul_
[START
]
77 : span_req_l_drul_
[STOP
]);
78 announce_element (info
);
79 Audio_dynamic_tuple a
= { audio_p_
, now_mom () };
80 dynamic_tuple_arr_
.push (a
);
83 if (span_req_l_drul_
[STOP
])
85 if (!span_start_req_l_
)
87 span_req_l_drul_
[STOP
]->warning (_ ("can't find start of (de)crescendo"));
92 finished_dynamic_tuple_arr_
= dynamic_tuple_arr_
;
94 dynamic_tuple_arr_
.clear ();
95 span_start_req_l_
= 0;
98 if (span_req_l_drul_
[START
])
100 dir_
= span_req_l_drul_
[START
]->span_type_str_
== "crescendo"
102 span_start_req_l_
= span_req_l_drul_
[START
];
104 dynamic_tuple_arr_
.clear ();
105 Audio_dynamic_tuple a
= { audio_p_
, now_mom () };
106 dynamic_tuple_arr_
.push (a
);
111 Span_dynamic_performer::process_acknowledged ()
113 if (span_req_l_drul_
[STOP
])
115 finished_dynamic_tuple_arr_
.top ().audio_l_
->volume_
= last_volume_
;
118 if (span_req_l_drul_
[START
])
120 dynamic_tuple_arr_
[0].audio_l_
->volume_
= last_volume_
;
125 Span_dynamic_performer::do_pre_move_processing ()
127 if (finished_dynamic_tuple_arr_
.size () > 1)
129 Real start_volume
= finished_dynamic_tuple_arr_
[0].audio_l_
->volume_
;
130 Real dv
= finished_dynamic_tuple_arr_
.top ().audio_l_
->volume_
134 Catch and fix the case of:
138 f cresc. -- -- -- -- -- pp
140 Actually, we should provide a non-displayed dynamic/volume setting,
141 to set volume to 'ff' just before the pp.
143 if (!dv
|| sign (dv
) != finished_dir_
)
145 // urg. 20%: about two volume steps
146 dv
= (Real
)finished_dir_
* 0.2;
148 start_volume
= finished_dynamic_tuple_arr_
.top
149 ().audio_l_
->volume_
- dv
;
151 Moment start_mom
= finished_dynamic_tuple_arr_
[0].mom_
;
152 Moment dt
= finished_dynamic_tuple_arr_
.top ().mom_
- start_mom
;
153 for (int i
=0; i
< finished_dynamic_tuple_arr_
.size (); i
++)
155 Audio_dynamic_tuple
* a
= &finished_dynamic_tuple_arr_
[i
];
156 Real volume
= start_volume
+ dv
* (Real
)(a
->mom_
- start_mom
)
158 a
->audio_l_
->volume_
= volume
;
160 finished_dynamic_tuple_arr_
.clear ();
165 play_element (audio_p_
);
171 Span_dynamic_performer::do_post_move_processing ()
173 span_req_l_drul_
[STOP
] = 0;
174 span_req_l_drul_
[START
] = 0;
178 Span_dynamic_performer::do_try_music (Music
* r
)
180 if (Span_req
* s
= dynamic_cast<Span_req
*>(r
))
182 if (s
-> span_type_str_
== "crescendo"
183 || s
->span_type_str_
== "decrescendo")
185 span_req_l_drul_
[s
->span_dir_
] = s
;