2 chord-name-engraver.cc -- implement Chord_name_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1998--2000 Jan Nieuwenhuizen <janneke@gnu.org>
10 #include "chord-name.hh"
12 #include "musical-request.hh"
13 #include "paper-def.hh"
15 #include "paper-def.hh"
17 #include "dimensions.hh"
19 #include "musical-pitch.hh"
21 class Chord_name_engraver : public Engraver
24 Chord_name_engraver ();
25 VIRTUAL_COPY_CONS (Translator);
28 virtual void do_pre_move_processing ();
29 virtual void acknowledge_element (Score_element_info i);
30 virtual void do_process_music ();
31 virtual bool do_try_music (Music* m);
34 Array<Musical_pitch> pitch_arr_;
36 Tonic_req* tonic_req_;
37 Inversion_req* inversion_req_;
41 ADD_THIS_TRANSLATOR (Chord_name_engraver);
43 Chord_name_engraver::Chord_name_engraver ()
52 Chord_name_engraver::acknowledge_element (Score_element_info i)
54 if (Note_req* n = dynamic_cast<Note_req*> (i.req_l_))
55 pitch_arr_.push (n->pitch_);
59 Chord_name_engraver::do_try_music (Music* m)
61 if (Note_req* n = dynamic_cast<Note_req*> (m))
63 pitch_arr_.push (n->pitch_);
66 if (Tonic_req* t = dynamic_cast<Tonic_req*> (m))
71 if (Inversion_req* i = dynamic_cast<Inversion_req*> (m))
76 if (Bass_req* b = dynamic_cast<Bass_req*> (m))
85 Chord_name_engraver::do_process_music ()
89 if (!pitch_arr_.size ())
92 bool find_inversion_b = false;
93 SCM chord_inversion = get_property ("chordInversion");
94 if (gh_boolean_p (chord_inversion))
95 find_inversion_b = gh_scm2bool (chord_inversion);
97 chord_name_p_ = new Item (get_property ("basicChordNameProperties"));
98 Chord chord = to_chord (pitch_arr_, tonic_req_, inversion_req_, bass_req_,
102 Hmm, why not represent complete chord as list?
103 ((tonic third fifth) (inversion bass))
106 for (int i= chord.pitch_arr_.size (); i--; )
107 plist = gh_cons (chord.pitch_arr_[i].to_scm (), plist);
109 chord_name_p_->set_elt_property ("pitches", plist);
110 if (chord.inversion_b_)
111 chord_name_p_->set_elt_property ("inversion",
112 chord.inversion_pitch_.to_scm ());
114 chord_name_p_->set_elt_property ("bass", chord.bass_pitch_.to_scm ());
116 announce_element (chord_name_p_, 0);
120 Chord_name_engraver::do_pre_move_processing ()
124 typeset_element (chord_name_p_);