source file of the GNU LilyPond music typesetter
- (c) 2000 Jan Nieuwenhuizen <janneke@gnu.org>
+ (c) 2000--2006 Jan Nieuwenhuizen <janneke@gnu.org>
*/
#include "performer.hh"
-#include "command-request.hh"
-#include "musical-request.hh"
#include "audio-item.hh"
+#include "music.hh"
+/*
+ TODO: fold this into 1 engraver: \< and \> should also stop when
+ absdyn is encountered.
+*/
struct Audio_dynamic_tuple
{
- Audio_dynamic* audio_;
+ Audio_dynamic *audio_;
Moment mom_;
};
/**
perform span-dynamics
- */
+*/
class Span_dynamic_performer : public Performer
{
public:
- TRANSLATOR_DECLARATIONS(Span_dynamic_performer);
+ TRANSLATOR_DECLARATIONS (Span_dynamic_performer);
protected:
- virtual bool try_music (Music*);
+ virtual bool try_music (Music *);
virtual void acknowledge_audio_element (Audio_element_info);
- virtual void process_music ();
- virtual void stop_translation_timestep ();
- virtual void start_translation_timestep ();
+ void process_music ();
+ void stop_translation_timestep ();
private:
- Audio_dynamic* audio_;
+ Audio_dynamic *audio_;
Real last_volume_;
- Span_req* span_start_req_;
- Drul_array<Span_req*> span_req_l_drul_;
+ Music *span_start_event_;
+ Drul_array<Music *> span_events_;
Array<Audio_dynamic_tuple> dynamic_tuples_;
Array<Audio_dynamic_tuple> finished_dynamic_tuples_;
Direction dir_;
Span_dynamic_performer::Span_dynamic_performer ()
{
- span_req_l_drul_[START] = 0;
- span_req_l_drul_[STOP] = 0;
- span_start_req_ = 0;
+ span_events_[START] = 0;
+ span_events_[STOP] = 0;
+ span_start_event_ = 0;
audio_ = 0;
last_volume_ = 0;
}
void
Span_dynamic_performer::acknowledge_audio_element (Audio_element_info i)
{
- if (Audio_dynamic * d = dynamic_cast <Audio_dynamic*> (i.elem_))
- {
- last_volume_ = d->volume_;
- }
+ if (Audio_dynamic *d = dynamic_cast<Audio_dynamic *> (i.elem_))
+ last_volume_ = d->volume_;
}
void
Span_dynamic_performer::process_music ()
{
- if (span_start_req_ || span_req_l_drul_[START])
+ if (span_start_event_ || span_events_[START])
{
audio_ = new Audio_dynamic (0);
- Audio_element_info info (audio_, span_req_l_drul_[START]
- ? span_req_l_drul_[START]
- : span_req_l_drul_[STOP]);
+ Audio_element_info info (audio_, span_events_[START]
+ ? span_events_[START]
+ : span_events_[STOP]);
announce_element (info);
Audio_dynamic_tuple a = { audio_, now_mom () };
dynamic_tuples_.push (a);
}
-
- if (span_req_l_drul_[STOP])
+
+ if (span_events_[STOP])
{
- if (!span_start_req_)
+ if (!span_start_event_)
{
- span_req_l_drul_[STOP]->origin ()->warning (_ ("can't find start of (de)crescendo"));
- span_req_l_drul_[STOP] = 0;
+ span_events_[STOP]->origin ()->warning (_ ("can't find start of (de)crescendo"));
+ span_events_[STOP] = 0;
}
else
{
finished_dynamic_tuples_ = dynamic_tuples_;
}
dynamic_tuples_.clear ();
- span_start_req_ = 0;
+ span_start_event_ = 0;
}
- if (span_req_l_drul_[START])
+ if (span_events_[START])
{
- String t = ly_scm2string (span_req_l_drul_[START]->get_mus_property ("span-type"));
- dir_ = (t == "crescendo") ? RIGHT : LEFT;
- span_start_req_ = span_req_l_drul_[START];
-
+ dir_ = (span_events_[START]->is_mus_type ("crescendo-event"))
+ ? RIGHT : LEFT;
+ span_start_event_ = span_events_[START];
+
dynamic_tuples_.clear ();
Audio_dynamic_tuple a = { audio_, now_mom () };
dynamic_tuples_.push (a);
}
+ if (span_events_[STOP])
+ finished_dynamic_tuples_.top ().audio_->volume_ = last_volume_;
- if (span_req_l_drul_[STOP])
- {
- finished_dynamic_tuples_.top ().audio_->volume_ = last_volume_;
- }
-
- if (span_req_l_drul_[START])
- {
- dynamic_tuples_[0].audio_->volume_ = last_volume_;
- }
- span_start_req_ = 0;
- span_req_l_drul_[START] = 0;
- span_req_l_drul_[STOP] = 0;
+ if (span_events_[START])
+ dynamic_tuples_[0].audio_->volume_ = last_volume_;
+
+ span_events_[START] = 0;
+ span_events_[STOP] = 0;
}
void
urg.
Catch and fix the case of:
- | |
- x| x|
- f cresc. -- -- -- -- -- pp
+ | |
+ x| x|
+ f cresc. -- -- -- -- -- pp
- Actually, we should provide a non-displayed dynamic/volume setting,
- to set volume to 'ff' just before the pp.
- */
+ Actually, we should provide a non-displayed dynamic/volume setting,
+ to set volume to 'ff' just before the pp.
+ */
if (!dv || sign (dv) != finished_dir_)
{
// urg. 20%: about two volume steps
dv = (Real)finished_dir_ * 0.2;
if (!start_volume)
start_volume = finished_dynamic_tuples_.top
- ().audio_->volume_ - dv;
+ ().audio_->volume_ - dv;
}
Moment start_mom = finished_dynamic_tuples_[0].mom_;
Moment dt = finished_dynamic_tuples_.top ().mom_ - start_mom;
- for (int i=0; i < finished_dynamic_tuples_.size (); i++)
+ for (int i = 0; i < finished_dynamic_tuples_.size (); i++)
{
- Audio_dynamic_tuple* a = &finished_dynamic_tuples_[i];
+ Audio_dynamic_tuple *a = &finished_dynamic_tuples_[i];
Real volume = start_volume + dv * (Real) (a->mom_ - start_mom).main_part_
/ (Real)dt.main_part_;
a->audio_->volume_ = volume;
play_element (audio_);
audio_ = 0;
}
-}
-void
-Span_dynamic_performer::start_translation_timestep ()
-{
- span_req_l_drul_[STOP] = 0;
- span_req_l_drul_[START] = 0;
+ span_events_[STOP] = 0;
+ span_events_[START] = 0;
}
bool
-Span_dynamic_performer::try_music (Music* r)
+Span_dynamic_performer::try_music (Music *r)
{
- if (Span_req * s = dynamic_cast<Span_req*> (r))
+ if (r->is_mus_type ("crescendo-event")
+ || r->is_mus_type ("decrescendo-event"))
{
- String t = ly_scm2string (s->get_mus_property ("span-type"));
- if (t == "crescendo" || t == "decrescendo")
- {
- span_req_l_drul_[s->get_span_dir ()] = s;
- return true;
- }
+ Direction d = to_dir (r->get_property ("span-direction"));
+ span_events_[d] = r;
+ return true;
}
return false;
}
-ENTER_DESCRIPTION (Span_dynamic_performer,
- "", "",
- "general-music",
- "", "", "");
+#include "translator.icc"
+
+ADD_TRANSLATOR (Span_dynamic_performer,
+ "", "",
+ "crescendo-event decrescendo-event",
+ "", "");