X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fchord-name-engraver.cc;h=0a78017c8fe5b0a39d25f9580b0a3acc8734357c;hb=b2d2fdedaee06d957f69bafc0d9fba706b415a8c;hp=79190f393ba793d15f787f5d8e8b5eb3314b1d37;hpb=afa5829cd270e1b0c616b7ba5c5e6cdc0e920e5f;p=lilypond.git diff --git a/lily/chord-name-engraver.cc b/lily/chord-name-engraver.cc index 79190f393b..0a78017c8f 100644 --- a/lily/chord-name-engraver.cc +++ b/lily/chord-name-engraver.cc @@ -3,211 +3,120 @@ source file of the GNU LilyPond music typesetter - (c) 1998 Jan Nieuwenhuizen + (c) 1998--2001 Jan Nieuwenhuizen */ -#include "chord-name-engraver.hh" +#include "engraver.hh" +#include "chord-name.hh" +#include "chord.hh" #include "musical-request.hh" -#include "text-item.hh" #include "paper-def.hh" -#include "lookup.hh" +#include "font-interface.hh" #include "paper-def.hh" #include "main.hh" #include "dimensions.hh" -#include "g-text-item.hh" +#include "item.hh" +#include "pitch.hh" +#include "protected-scm.hh" + +class Chord_name_engraver : public Engraver +{ + + TRANSLATOR_DECLARATIONS( Chord_name_engraver); + +protected: + virtual void stop_translation_timestep (); + virtual void acknowledge_grob (Grob_info i); + virtual void create_grobs (); + virtual bool try_music (Music *); + +private: + void add_note (Note_req *); + + Item* chord_name_p_; + + Protected_scm chord_; + Protected_scm last_chord_; +}; + -ADD_THIS_TRANSLATOR (Chord_name_engraver); Chord_name_engraver::Chord_name_engraver () { + chord_name_p_ = 0; + chord_ = gh_cons (SCM_EOL, gh_cons (SCM_EOL, SCM_EOL)); + last_chord_ = chord_; } void -Chord_name_engraver::acknowledge_element (Score_element_info i) +Chord_name_engraver::add_note (Note_req* n) { - if (Note_req* n = dynamic_cast (i.req_l_)) - pitch_arr_.push (n->pitch_); + SCM pitches = ly_car (chord_); + SCM modifiers = ly_cdr (chord_); + SCM inversion = modifiers == SCM_EOL ? SCM_EOL : ly_car (modifiers); + SCM bass = modifiers == SCM_EOL ? SCM_EOL : ly_cdr (modifiers); + + if (n->get_mus_property ("inversion") == SCM_BOOL_T) + inversion = n->get_mus_property ("pitch"); + else if (n->get_mus_property ("bass") == SCM_BOOL_T) + bass = n->get_mus_property ("pitch"); + else + pitches = scm_sort_list (gh_cons (n->get_mus_property ("pitch"), pitches), + Pitch::less_p_proc); + chord_ = gh_cons (pitches, gh_cons (inversion, bass)); } bool -Chord_name_engraver::do_try_music (Music* m) +Chord_name_engraver::try_music (Music* m) { if (Note_req* n = dynamic_cast (m)) { - pitch_arr_.push (n->pitch_); + add_note (n); return true; } return false; } -/* - UGH. - - Split this routine into neat packets - */ void -Chord_name_engraver::do_process_requests () +Chord_name_engraver::acknowledge_grob (Grob_info i) { - if (text_p_arr_.size ()) - return; - if (!pitch_arr_.size ()) - return; - - /* - Banter style chord names (almost). - TODO: - - move this stuff to new Item class Chord_name - - switch on property, add american (?) chordNameStyle - - Scalar chordNameStyle = get_property ("chordNameStyle", 0); - if (chordNameStyle == "Banter") - chord = pitches_to_banter (pitch_arr_)); - - */ - - - /* - find tonic: after longest line of triads - */ - - int tonic_i = 0; - Scalar chord_inversions = get_property ("chordInversion", 0); - if (chord_inversions.to_bool ()) - { - int longest_i = 0; - for (int i = 0; i < pitch_arr_.size (); i++) - for (int j = 0; j < pitch_arr_.size (); j++) - { - int gap = pitch_arr_[(i + j + 1) % pitch_arr_.size ()].notename_i_ - - pitch_arr_[(i + j) % pitch_arr_.size ()].notename_i_; - while (gap < 0) - gap += 7; - gap %= 7; - if (gap != 2) - { - if (j > longest_i) - { - longest_i = j; - tonic_i = i; - } - break; - } - } - - int biggest_i = 0; - if (!longest_i) - for (int i = 0; i < pitch_arr_.size (); i++) - { - int gap = pitch_arr_[i].notename_i_ - - pitch_arr_[(i - 1 + pitch_arr_.size ()) - % pitch_arr_.size ()].notename_i_; - while (gap < 0) - gap += 7; - gap %= 7; - if (gap > biggest_i) - { - biggest_i = gap; - tonic_i = i; - } - } - } - - Musical_pitch inversion = pitch_arr_[0]; - if (tonic_i) - { - Musical_pitch last (0, 0, -5); - Array pitches; - for (int i = 0; i < pitch_arr_.size (); i++) - { - Musical_pitch p = pitch_arr_[(tonic_i + i) % pitch_arr_.size ()]; - if (p < last) - { - p.octave_i_ = last.octave_i_; - if (p < last) - p.octave_i_++; - } - pitches.push (p); - last = p; - } - pitch_arr_ = pitches; - } - - Musical_pitch tonic = pitch_arr_[0]; - - Array scale; - scale.push (Musical_pitch (0)); // c - scale.push (Musical_pitch (1)); // d - scale.push (Musical_pitch (2)); // e - scale.push (Musical_pitch (3)); // f - scale.push (Musical_pitch (4)); // g - scale.push (Musical_pitch (5)); // a - // 7 always means 7-... - scale.push (Musical_pitch (6, -1)); // b - - - for (int i = 0; i < scale.size (); i++) - scale[i].transpose (tonic); - - //urg, should do translation in scheme. - char const *acc[] = {"\\textflat\\textflat ", "\\textflat ", "", "\\textsharp " , "\\textsharp\\textsharp "}; - String tonic_str = tonic.str (); - tonic_str = tonic_str.left_str (1).upper_str () - + acc[tonic.accidental_i_ + 2]; - - String add_str; - String sep_str; - for (int i=1; i < pitch_arr_.size (); i++) - { - Musical_pitch p = pitch_arr_[i]; - int trap = p.notename_i_ - tonic.notename_i_ - + (p.octave_i_ - tonic.octave_i_) * 7 + 1; - int accidental = p.accidental_i_ - scale[(trap - 1) % 7].accidental_i_; - if ((trap == 3) && (accidental == -1)) - tonic_str += "m"; // hmm - else if (accidental || (!(trap % 2) || ((i + 1 == pitch_arr_.size ()) && (trap > 5)))) - { - add_str += sep_str; - if ((trap == 7) && (accidental == 1)) - add_str += "maj7"; - else - { - add_str += to_str (trap); - if (accidental) - add_str += accidental < 0 ? "-" : "+"; - } - sep_str = "/"; - } - } + if (Note_req* n = dynamic_cast (i.music_cause ())) + add_note (n); +} - String inversion_str; - if (tonic_i) +void +Chord_name_engraver::create_grobs () +{ + if (!chord_name_p_ && ly_car (chord_) != SCM_EOL) { - inversion_str = inversion.str (); - inversion_str = "/" + inversion_str.left_str (1).upper_str () - + acc[tonic.accidental_i_ + 2]; - + chord_name_p_ = new Item (get_property ("ChordName")); + chord_name_p_->set_grob_property ("chord", chord_); + announce_grob (chord_name_p_, 0); + SCM s = get_property ("chordChanges"); + if (to_boolean (s) && ly_car (last_chord_) != SCM_EOL + && gh_equal_p (chord_, last_chord_)) + chord_name_p_->set_grob_property ("begin-of-line-visible", SCM_BOOL_T); } - - G_text_item* item_p = new G_text_item; - - - item_p->text_str_ = tonic_str + "$^{" + add_str + "}$" + inversion_str; - Scalar style = get_property ("textstyle", 0); - if (style.length_i ()) - item_p->style_str_ = style; - - text_p_arr_.push (item_p); - announce_element (Score_element_info (item_p, 0)); } void -Chord_name_engraver::do_pre_move_processing () +Chord_name_engraver::stop_translation_timestep () { - for (int i=0; i < text_p_arr_.size (); i++) + if (chord_name_p_) { - typeset_element (text_p_arr_[i]); + typeset_grob (chord_name_p_); } - text_p_arr_.clear (); - pitch_arr_.clear (); + chord_name_p_ = 0; + + if (ly_car (chord_) != SCM_EOL) + last_chord_ = chord_; + chord_ = gh_cons (SCM_EOL, gh_cons (SCM_EOL, SCM_EOL)); } +ENTER_DESCRIPTION(Chord_name_engraver, +/* descr */ "Catch Note_req's, Tonic_reqs, Inversion_reqs, Bass_req +and generate the appropriate chordname.", +/* creats*/ "ChordName", +/* acks */ "grob-interface", +/* reads */ "chordChanges", +/* write */ "");