X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpiano-pedal-engraver.cc;h=2d380fb3522699deece022a6c24e6c0ce4fba6ab;hb=585959e4a373db9658d84ace8f3d4f4f6af7b190;hp=e2e1896b17fbe7d11676d17cb79196cdd8519c70;hpb=bdf4ab13203502e7ec7cf9cf5896527643a07c1f;p=lilypond.git diff --git a/lily/piano-pedal-engraver.cc b/lily/piano-pedal-engraver.cc index e2e1896b17..2d380fb352 100644 --- a/lily/piano-pedal-engraver.cc +++ b/lily/piano-pedal-engraver.cc @@ -3,20 +3,22 @@ source file of the GNU LilyPond music typesetter - (c) 2000--2005 Jan Nieuwenhuizen + (c) 2000--2006 Jan Nieuwenhuizen 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 "warn.hh" /* @@ -64,9 +66,9 @@ protected: virtual void initialize (); virtual void finalize (); virtual bool try_music (Music *); - virtual void stop_translation_timestep (); - virtual void acknowledge_grob (Grob_info); - virtual void process_music (); + void stop_translation_timestep (); + DECLARE_ACKNOWLEDGER (note_column); + void process_music (); private: @@ -77,7 +79,7 @@ private: 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); @@ -95,7 +97,7 @@ Piano_pedal_engraver::initialize () { char *names [] = { "Sostenuto", "Sustain", "UnaCorda", 0 }; - info_list_ = new Pedal_info[sizeof (names) / sizeof (const char *)]; + info_list_ = new Pedal_info[sizeof (names) / sizeof (char const *)]; Pedal_info *p = info_list_; char **np = names; @@ -127,22 +129,19 @@ Piano_pedal_engraver::~Piano_pedal_engraver () I'm a script */ void -Piano_pedal_engraver::acknowledge_grob (Grob_info info) +Piano_pedal_engraver::acknowledge_note_column (Grob_info info) { for (Pedal_info *p = info_list_; p && p->name_; p++) { - if (Note_column::has_interface (info.grob_)) + if (p->line_spanner_) { - if (p->line_spanner_) - { - Side_position_interface::add_support (p->line_spanner_, info.grob_); - add_bound_item (p->line_spanner_, info.grob_); - } - if (p->bracket_) - add_bound_item (p->bracket_, info.grob_); - if (p->finished_bracket_) - add_bound_item (p->finished_bracket_, info.grob_); + Side_position_interface::add_support (p->line_spanner_, info.grob ()); + add_bound_item (p->line_spanner_, info.grob ()); } + if (p->bracket_) + add_bound_item (p->bracket_, info.grob ()); + if (p->finished_bracket_) + add_bound_item (p->finished_bracket_, info.grob ()); } } @@ -153,9 +152,9 @@ Piano_pedal_engraver::try_music (Music *m) { for (Pedal_info *p = info_list_; p->name_; p++) { - String nm = p->name_ + String ("Event"); - if (ly_c_equal_p (m->get_property ("name"), - scm_str2symbol (nm.to_str0 ()))) + string nm = p->name_ + string ("Event"); + if (ly_is_equal (m->get_property ("name"), + scm_str2symbol (nm.c_str ()))) { Direction d = to_dir (m->get_property ("span-direction")); p->event_drul_[d] = m; @@ -175,9 +174,9 @@ Piano_pedal_engraver::process_music () { if (!p->line_spanner_) { - String name = String (p->name_) + "PedalLineSpanner"; + 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 ()); + p->line_spanner_ = make_spanner (name.c_str (), rq->self_scm ()); } /* Choose the appropriate grobs to add to the line spanner @@ -193,8 +192,8 @@ Piano_pedal_engraver::process_music () mixed: Ped. _____/\____| */ - String prop = String ("pedal") + p->name_ + "Style"; - SCM style = get_property (prop.to_str0 ()); + string prop = string ("pedal") + p->name_ + "Style"; + SCM style = get_property (prop.c_str ()); bool mixed = style == ly_symbol2scm ("mixed"); bool bracket = (mixed @@ -214,14 +213,15 @@ 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 = get_property (("pedal" + string (p->name_) + "Strings").c_str ()); if (scm_ilength (strings) < 3) { Music *m = p->event_drul_[START]; if (!m) m = p->event_drul_ [STOP]; - String msg = _ ("Need 3 strings for piano pedals. No pedal made. "); + string msg = _f ("expect 3 strings for piano pedals, found: %ld", + scm_ilength (strings)); if (m) m->origin ()->warning (msg); else @@ -235,13 +235,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->name_)); else - { - s = scm_cadr (strings); - } + s = scm_cadr (strings); p->start_ev_ = p->event_drul_[START]; } } @@ -250,13 +246,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->name_)); else - { - s = scm_caddr (strings); - } + s = scm_caddr (strings); p->start_ev_ = 0; } } @@ -272,16 +264,16 @@ 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"; + string propname = string (p->name_) + "Pedal"; - p->item_ = make_item (propname.to_str0 (), (p->event_drul_[START] + p->item_ = make_item (propname.c_str (), (p->event_drul_[START] ? p->event_drul_[START] : p->event_drul_[STOP])->self_scm ()); @@ -301,7 +293,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->name_); p->event_drul_[STOP]->origin ()->warning (msg); p->event_drul_[STOP] = 0; } @@ -324,7 +316,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_; @@ -347,7 +339,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._______/\ , @@ -366,7 +358,7 @@ Piano_pedal_engraver::create_bracket_grobs (Pedal_info *p, bool mixed) WTF is pedal-text not the bound of the object? --hwn */ if (p->item_) - p->bracket_->set_property ("pedal-text", p->item_->self_scm ()); + p->bracket_->set_object ("pedal-text", p->item_->self_scm ()); } /* @@ -394,9 +386,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_); } } @@ -425,9 +417,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_; @@ -448,9 +438,9 @@ 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 @@ -489,17 +479,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; } @@ -524,13 +510,32 @@ Piano_pedal_engraver::typeset_all (Pedal_info *p) } } +#include "translator.icc" + +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 */ "note-column-interface", - /* 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 */ "");