X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpiano-pedal-engraver.cc;h=90844c6d24ef7ad396a5c00d68bac56efc8be705;hb=8c63c295f9eade6ef6ce7bbd2437c2fc6f506844;hp=270033f29ed2bcfee122d594268a201d2bbbefc9;hpb=83ed05cef3bfcbd69f4148e8ee0669ca0664e214;p=lilypond.git diff --git a/lily/piano-pedal-engraver.cc b/lily/piano-pedal-engraver.cc index 270033f29e..90844c6d24 100644 --- a/lily/piano-pedal-engraver.cc +++ b/lily/piano-pedal-engraver.cc @@ -3,34 +3,74 @@ source file of the GNU LilyPond music typesetter - (c) 2000--2005 Jan Nieuwenhuizen + (c) 2000--2006 Jan Nieuwenhuizen , + Erik Sandberg Chris Jackson - extended to support bracketed pedals. */ #include "engraver.hh" -#include "lily-guile.hh" -#include "side-position-interface.hh" -#include "staff-symbol-referencer.hh" + #include "axis-group-interface.hh" #include "context.hh" #include "directional-element-interface.hh" +#include "international.hh" +#include "lily-guile.hh" #include "note-column.hh" +#include "side-position-interface.hh" +#include "staff-symbol-referencer.hh" +#include "stream-event.hh" +#include "string-convert.hh" #include "warn.hh" +#include "protected-scm.hh" +#include "translator.icc" /* Urgh. This engraver is too complex. rewrite. --hwn */ +/* Ugh: This declaration is duplicated in piano-pedal-performer */ +typedef enum Pedal_type {SOSTENUTO, SUSTAIN, UNA_CORDA, NUM_PEDAL_TYPES}; + +/* + Static precalculated data (symbols and strings) for the different + pedal types +*/ +struct Pedal_type_info +{ + string base_name_; + SCM event_class_sym_; + SCM style_sym_; + SCM strings_sym_; + + const char *pedal_line_spanner_c_str_; + const char *pedal_c_str_; + + Pedal_type_info () + { + event_class_sym_ = SCM_EOL; + style_sym_ = SCM_EOL; + strings_sym_ = SCM_EOL; + pedal_line_spanner_c_str_ = 0; + pedal_c_str_ = 0; + } + void protect () + { + scm_gc_protect_object (event_class_sym_); + scm_gc_protect_object (style_sym_); + scm_gc_protect_object (strings_sym_); + } +}; + struct Pedal_info { - char const *name_; + const Pedal_type_info *type_; /* Event for currently running pedal. */ - Music *current_bracket_ev_; + Stream_event *current_bracket_ev_; /* Event for currently starting pedal, (necessary? @@ -38,12 +78,12 @@ struct Pedal_info distinct from current_bracket_ev_, since current_bracket_ev_ only necessary for brackets, not for text style. */ - Music *start_ev_; + Stream_event *start_ev_; /* Events that were found in this timestep. */ - Drul_array event_drul_; + Drul_array event_drul_; Item *item_; Spanner *bracket_; // A single portion of a pedal bracket Spanner *finished_bracket_; @@ -55,6 +95,8 @@ struct Pedal_info Spanner *finished_line_spanner_; }; +static Pedal_type_info pedal_types_[NUM_PEDAL_TYPES]; + class Piano_pedal_engraver : public Engraver { public: @@ -63,21 +105,22 @@ public: protected: virtual void initialize (); virtual void finalize (); - virtual bool try_music (Music *); - PRECOMPUTED_VIRTUAL void stop_translation_timestep (); - DECLARE_ACKNOWLEDGER(note_column); - PRECOMPUTED_VIRTUAL void process_music (); + DECLARE_TRANSLATOR_LISTENER (sustain); + DECLARE_TRANSLATOR_LISTENER (una_corda); + DECLARE_TRANSLATOR_LISTENER (sostenuto); + void stop_translation_timestep (); + DECLARE_ACKNOWLEDGER (note_column); + void process_music (); private: - - Pedal_info *info_list_; + Pedal_info info_list_[NUM_PEDAL_TYPES + 1]; /* Record a stack of the current pedal spanners, so if more than one pedal occurs simultaneously then extra space can be added between them. */ - Link_array previous_; + vector previous_; void del_linespanner (Spanner *); void create_text_grobs (Pedal_info *p, bool); @@ -85,41 +128,78 @@ private: void typeset_all (Pedal_info *p); }; +static void +init_pedal_types () +{ + const char *names [NUM_PEDAL_TYPES]; + names[SOSTENUTO] = "Sostenuto"; + names[SUSTAIN] = "Sustain"; + names[UNA_CORDA] = "UnaCorda"; + + for (int i = 0; i < NUM_PEDAL_TYPES; i++) + { + const char *name = names[i]; + /* FooBar */ + string base_name = name; + /* foo-bar */ + string base_ident = ""; + int prev_pos=0; + int cur_pos; + for (cur_pos = 1; name[cur_pos]; cur_pos++) + if (isupper (name[cur_pos])) + { + base_ident = base_ident + String_convert::to_lower (string (name, prev_pos, cur_pos - prev_pos)) + "-"; + prev_pos = cur_pos; + } + base_ident += String_convert::to_lower (string (name, prev_pos, cur_pos - prev_pos)); + + /* + be careful, as we don't want to loose references to the _sym_ members. + */ + Pedal_type_info info; + info.event_class_sym_ = scm_str2symbol ((base_ident + "-event").c_str ()); + info.style_sym_ = scm_str2symbol (("pedal" + base_name + "Style").c_str ()); + info.strings_sym_ = scm_str2symbol (("pedal" + base_name + "Strings").c_str ()); + + info.pedal_line_spanner_c_str_ = strdup ((base_name + "PedalLineSpanner").c_str ()); + info.base_name_ = name; + info.pedal_c_str_ = strdup ((base_name + "Pedal").c_str ()); + + info.protect (); + + pedal_types_[i] = info; + } +} +ADD_SCM_INIT_FUNC (Piano_pedal_engraver_init_pedal_types_, init_pedal_types); + Piano_pedal_engraver::Piano_pedal_engraver () { - info_list_ = 0; } void Piano_pedal_engraver::initialize () { - char *names [] = { "Sostenuto", "Sustain", "UnaCorda", 0 }; - - info_list_ = new Pedal_info[sizeof (names) / sizeof (const char *)]; - Pedal_info *p = info_list_; - - char **np = names; - do + for (int i = 0; i < NUM_PEDAL_TYPES; i++) { - p->name_ = *np; - p->item_ = 0; - p->bracket_ = 0; - p->finished_bracket_ = 0; - p->line_spanner_ = 0; - p->finished_line_spanner_ = 0; - p->current_bracket_ev_ = 0; - p->event_drul_[START] = 0; - p->event_drul_[STOP] = 0; - p->start_ev_ = 0; - - p++; + Pedal_type_info *s = &pedal_types_[i]; + Pedal_info *info = &info_list_[i]; + + info->type_ = s; + info->item_ = 0; + info->bracket_ = 0; + info->finished_bracket_ = 0; + info->line_spanner_ = 0; + info->finished_line_spanner_ = 0; + info->current_bracket_ev_ = 0; + info->event_drul_[START] = 0; + info->event_drul_[STOP] = 0; + info->start_ev_ = 0; } - while (* (np++)); + info_list_[NUM_PEDAL_TYPES].type_ = 0; } Piano_pedal_engraver::~Piano_pedal_engraver () { - delete[] info_list_; } /* @@ -129,7 +209,7 @@ Piano_pedal_engraver::~Piano_pedal_engraver () void Piano_pedal_engraver::acknowledge_note_column (Grob_info info) { - for (Pedal_info *p = info_list_; p && p->name_; p++) + for (Pedal_info *p = info_list_; p->type_; p++) { if (p->line_spanner_) { @@ -143,38 +223,42 @@ Piano_pedal_engraver::acknowledge_note_column (Grob_info info) } } -bool -Piano_pedal_engraver::try_music (Music *m) +IMPLEMENT_TRANSLATOR_LISTENER (Piano_pedal_engraver, sostenuto); +void +Piano_pedal_engraver::listen_sostenuto (Stream_event *r) { - if (m->is_mus_type ("pedal-event")) - { - for (Pedal_info *p = info_list_; p->name_; p++) - { - String nm = p->name_ + String ("Event"); - if (ly_is_equal (m->get_property ("name"), - scm_str2symbol (nm.to_str0 ()))) - { - Direction d = to_dir (m->get_property ("span-direction")); - p->event_drul_[d] = m; - return true; - } - } - } - return false; + Direction d = to_dir (r->get_property ("span-direction")); + info_list_[SOSTENUTO].event_drul_[d] = r; +} + +IMPLEMENT_TRANSLATOR_LISTENER (Piano_pedal_engraver, sustain); +void +Piano_pedal_engraver::listen_sustain (Stream_event *r) +{ + Direction d = to_dir (r->get_property ("span-direction")); + info_list_[SUSTAIN].event_drul_[d] = r; +} + +IMPLEMENT_TRANSLATOR_LISTENER (Piano_pedal_engraver, una_corda); +void +Piano_pedal_engraver::listen_una_corda (Stream_event *r) +{ + Direction d = to_dir (r->get_property ("span-direction")); + info_list_[UNA_CORDA].event_drul_[d] = r; } void Piano_pedal_engraver::process_music () { - for (Pedal_info *p = info_list_; p && p->name_; p++) + for (Pedal_info *p = info_list_; p->type_; p++) { if (p->event_drul_[STOP] || p->event_drul_[START]) { if (!p->line_spanner_) { - String name = String (p->name_) + "PedalLineSpanner"; - Music *rq = (p->event_drul_[START] ? p->event_drul_[START] : p->event_drul_[STOP]); - p->line_spanner_ = make_spanner (name.to_str0 (), rq->self_scm ()); + const char *name = p->type_->pedal_line_spanner_c_str_; + Stream_event *rq = (p->event_drul_[START] ? p->event_drul_[START] : p->event_drul_[STOP]); + p->line_spanner_ = make_spanner (name, rq->self_scm ()); } /* Choose the appropriate grobs to add to the line spanner @@ -190,8 +274,7 @@ Piano_pedal_engraver::process_music () mixed: Ped. _____/\____| */ - String prop = String ("pedal") + p->name_ + "Style"; - SCM style = get_property (prop.to_str0 ()); + SCM style = internal_get_property (p->type_->style_sym_); bool mixed = style == ly_symbol2scm ("mixed"); bool bracket = (mixed @@ -211,14 +294,14 @@ void Piano_pedal_engraver::create_text_grobs (Pedal_info *p, bool mixed) { SCM s = SCM_EOL; - SCM strings = get_property (("pedal" + String (p->name_) + "Strings").to_str0 ()); + SCM strings = internal_get_property (p->type_->strings_sym_); if (scm_ilength (strings) < 3) { - Music *m = p->event_drul_[START]; + Stream_event *m = p->event_drul_[START]; if (!m) m = p->event_drul_ [STOP]; - String msg = _f ("expect 3 strings for piano pedals, found: %d", + string msg = _f ("expect 3 strings for piano pedals, found: %ld", scm_ilength (strings)); if (m) m->origin ()->warning (msg); @@ -233,13 +316,9 @@ Piano_pedal_engraver::create_text_grobs (Pedal_info *p, bool mixed) if (!mixed) { if (!p->start_ev_) - { - p->event_drul_[STOP]->origin ()->warning (_f ("can't find start of piano pedal: `%s'", p->name_)); - } + p->event_drul_[STOP]->origin ()->warning (_f ("can't find start of piano pedal: `%s'", p->type_->base_name_.c_str ())); else - { - s = scm_cadr (strings); - } + s = scm_cadr (strings); p->start_ev_ = p->event_drul_[START]; } } @@ -248,13 +327,9 @@ Piano_pedal_engraver::create_text_grobs (Pedal_info *p, bool mixed) if (!mixed) { if (!p->start_ev_) - { - p->event_drul_[STOP]->origin ()->warning (_f ("can't find start of piano pedal: `%s'", p->name_)); - } + p->event_drul_[STOP]->origin ()->warning (_f ("can't find start of piano pedal: `%s'", p->type_->base_name_.c_str ())); else - { - s = scm_caddr (strings); - } + s = scm_caddr (strings); p->start_ev_ = 0; } } @@ -270,18 +345,18 @@ Piano_pedal_engraver::create_text_grobs (Pedal_info *p, bool mixed) if (previous_.size ()) // add extra space below the previous already-occuring pedal Side_position_interface::add_support (p->line_spanner_, - previous_.top ()); - previous_.push (p->line_spanner_); + previous_.back ()); + previous_.push_back (p->line_spanner_); } } if (scm_is_string (s)) { - String propname = String (p->name_) + "Pedal"; + const char *propname = p->type_->pedal_c_str_; - p->item_ = make_item (propname.to_str0 (), (p->event_drul_[START] - ? p->event_drul_[START] - : p->event_drul_[STOP])->self_scm ()); + p->item_ = make_item (propname, (p->event_drul_[START] + ? p->event_drul_[START] + : p->event_drul_[STOP])->self_scm ()); p->item_->set_property ("text", s); Axis_group_interface::add_element (p->line_spanner_, p->item_); @@ -299,7 +374,7 @@ Piano_pedal_engraver::create_bracket_grobs (Pedal_info *p, bool mixed) { if (!p->bracket_ && p->event_drul_[STOP]) { - String msg = _f ("can't find start of piano pedal bracket: `%s'", p->name_); + string msg = _f ("can't find start of piano pedal bracket: `%s'", p->type_->base_name_.c_str ()); p->event_drul_[STOP]->origin ()->warning (msg); p->event_drul_[STOP] = 0; } @@ -322,7 +397,7 @@ Piano_pedal_engraver::create_bracket_grobs (Pedal_info *p, bool mixed) { SCM flare = p->bracket_->get_property ("bracket-flare"); p->bracket_->set_property ("bracket-flare", scm_cons (scm_car (flare), - scm_make_real (0))); + scm_from_double (0))); } p->finished_bracket_ = p->bracket_; @@ -345,7 +420,7 @@ Piano_pedal_engraver::create_bracket_grobs (Pedal_info *p, bool mixed) if (!p->finished_bracket_) { SCM flare = p->bracket_->get_property ("bracket-flare"); - p->bracket_->set_property ("bracket-flare", scm_cons (scm_make_real (0), scm_cdr (flare))); + p->bracket_->set_property ("bracket-flare", scm_cons (scm_from_double (0), scm_cdr (flare))); } /* Set this property for 'mixed style' pedals, Ped._______/\ , @@ -392,9 +467,9 @@ Piano_pedal_engraver::create_bracket_grobs (Pedal_info *p, bool mixed) // position new pedal spanner below the current one */ if (previous_.size ()) - Side_position_interface::add_support (p->line_spanner_, previous_.top ()); + Side_position_interface::add_support (p->line_spanner_, previous_.back ()); - previous_.push (p->line_spanner_); + previous_.push_back (p->line_spanner_); } } @@ -405,7 +480,7 @@ Piano_pedal_engraver::create_bracket_grobs (Pedal_info *p, bool mixed) void Piano_pedal_engraver::finalize () { - for (Pedal_info *p = info_list_; p && p->name_; p++) + for (Pedal_info *p = info_list_; p->type_; p++) { /* suicide? @@ -423,9 +498,7 @@ Piano_pedal_engraver::finalize () SCM cc = get_property ("currentCommandColumn"); Item *c = unsmob_item (cc); if (p->line_spanner_) - { - p->line_spanner_->set_bound (RIGHT, c); - } + p->line_spanner_->set_bound (RIGHT, c); p->bracket_->set_bound (RIGHT, c); p->finished_bracket_ = p->bracket_; @@ -446,15 +519,15 @@ Piano_pedal_engraver::finalize () void Piano_pedal_engraver::del_linespanner (Spanner *g) { - int idx = previous_.find_index (g); - if (idx >= 0) - previous_.del (idx); + vsize idx = find (previous_, g) - previous_.begin (); + if (idx != VPOS && idx < previous_.size ()) + previous_.erase (previous_.begin () + idx); } void Piano_pedal_engraver::stop_translation_timestep () { - for (Pedal_info *p = info_list_; p && p->name_; p++) + for (Pedal_info *p = info_list_; p->type_; p++) { if (!p->bracket_) { @@ -466,7 +539,7 @@ Piano_pedal_engraver::stop_translation_timestep () typeset_all (p); } - for (Pedal_info *p = info_list_; p->name_; p++) + for (Pedal_info *p = info_list_; p->type_; p++) { p->event_drul_[STOP] = 0; p->event_drul_[START] = 0; @@ -487,17 +560,13 @@ Piano_pedal_engraver::typeset_all (Pedal_info *p) p->finished_bracket_ = 0; if (p->item_) - { - p->item_ = 0; - } + p->item_ = 0; if (p->finished_bracket_) { Grob *r = p->finished_bracket_->get_bound (RIGHT); if (!r) - { - p->finished_bracket_->set_bound (RIGHT, unsmob_grob (get_property ("currentMusicalColumn"))); - } + p->finished_bracket_->set_bound (RIGHT, unsmob_grob (get_property ("currentMusicalColumn"))); p->finished_bracket_ = 0; } @@ -522,15 +591,30 @@ Piano_pedal_engraver::typeset_all (Pedal_info *p) } } -#include "translator.icc" -ADD_ACKNOWLEDGER(Piano_pedal_engraver,note_column); +ADD_ACKNOWLEDGER (Piano_pedal_engraver, note_column); + ADD_TRANSLATOR (Piano_pedal_engraver, - /* descr */ "Engrave piano pedal symbols and brackets.", - /* creats*/ "SostenutoPedal SustainPedal UnaCordaPedal SostenutoPedalLineSpanner SustainPedalLineSpanner UnaCordaPedalLineSpanner", - /* accepts */ "pedal-event", - /* acks */ "", - /* reads */ "currentCommandColumn " - "pedalSostenutoStrings pedalSustainStrings " - "pedalUnaCordaStrings pedalSostenutoStyle " - "pedalSustainStyle pedalUnaCordaStyle", + + /* doc */ + "Engrave piano pedal symbols and brackets.", + + /* create */ + "SostenutoPedal " + "SostenutoPedalLineSpanner " + "SustainPedal " + "SustainPedalLineSpanner " + "UnaCordaPedal " + "UnaCordaPedalLineSpanner ", + + /* accept */ + "pedal-event", + + /* read */ + "currentCommandColumn " + "pedalSostenutoStrings " + "pedalSostenutoStyle " + "pedalSustainStrings " + "pedalSustainStyle " + "pedalUnaCordaStrings " + "pedalUnaCordaStyle", /* write */ "");