release: 1.3.107

[lilypond.git] / lily / chord-name-engraver.cc

diff --git a/lily/chord-name-engraver.cc b/lily/chord-name-engraver.cc
index b074cd8b753c7885aa7ba11188abafa5c07f6594..50ece53329022d8efb8ac5d4816f1282295e27e2 100644 (file)
--- a/lily/chord-name-engraver.cc
+++ b/lily/chord-name-engraver.cc
@@ -6,16 +6,41 @@
   (c) 1998--2000 Jan Nieuwenhuizen <janneke@gnu.org>
 */
 
-#include "chord-name-engraver.hh"
+#include "engraver.hh"
 #include "chord-name.hh"
+#include "chord.hh"
 #include "musical-request.hh"
 #include "paper-def.hh"
-#include "lookup.hh"
+#include "font-interface.hh"
 #include "paper-def.hh"
 #include "main.hh"
 #include "dimensions.hh"
-#include "text-item.hh"
+#include "item.hh"
+#include "musical-pitch.hh"
 
+class Chord_name_engraver : public Engraver 
+{
+public:
+  Chord_name_engraver ();
+  VIRTUAL_COPY_CONS (Translator);
+
+protected:
+  virtual void do_pre_move_processing ();
+  virtual void acknowledge_element (Score_element_info i);
+  virtual void do_process_music ();
+  virtual bool do_try_music (Music* m);
+
+private:
+  void create_chord_name ();
+
+  Array<Musical_pitch> pitch_arr_;
+  Item* chord_name_p_;
+  Chord* chord_p_;
+  Chord* last_chord_p_;
+  Tonic_req* tonic_req_;
+  Inversion_req* inversion_req_;
+  Bass_req* bass_req_;
+};
 
 ADD_THIS_TRANSLATOR (Chord_name_engraver);
 
@@ -25,13 +50,15 @@ Chord_name_engraver::Chord_name_engraver ()
   tonic_req_ = 0;
   inversion_req_ = 0;
   bass_req_ = 0;
+  chord_p_ = 0;
+  last_chord_p_ = 0;
 }
 
 void
 Chord_name_engraver::acknowledge_element (Score_element_info i)
 {
   if (Note_req* n = dynamic_cast<Note_req*> (i.req_l_))
-    pitch_arr_.push (n->pitch_);
+    pitch_arr_.push (* unsmob_pitch (n->get_mus_property ("pitch")));
 }
 
 bool
@@ -39,7 +66,7 @@ Chord_name_engraver::do_try_music (Music* m)
 {
   if (Note_req* n = dynamic_cast<Note_req*> (m))
     {
-      pitch_arr_.push (n->pitch_);
+      pitch_arr_.push (* unsmob_pitch (n->get_mus_property ("pitch")));
       return true;
     }
   if (Tonic_req* t = dynamic_cast<Tonic_req*> (m))
@@ -65,6 +92,7 @@ Chord_name_engraver::do_process_music ()
 {
   if (chord_name_p_)
     return;
+
   if (!pitch_arr_.size ())
     return;
 
@@ -73,26 +101,36 @@ Chord_name_engraver::do_process_music ()
   if (gh_boolean_p (chord_inversion))
     find_inversion_b = gh_scm2bool (chord_inversion);
 
-  chord_name_p_ = new Chord_name (SCM_EOL);
-  Chord chord = to_chord (pitch_arr_, tonic_req_, inversion_req_, bass_req_,
-                         find_inversion_b);
+  chord_p_ = new Chord (to_chord (pitch_arr_,
+                                 tonic_req_, inversion_req_, bass_req_,
+                                 find_inversion_b));
+  
+  create_chord_name ();
+  announce_element (chord_name_p_, 0);
+  SCM s = get_property ("drarnChords"); //FIXME!
+  if (to_boolean (s) && last_chord_p_ && !compare (chord_p_, last_chord_p_))
+    chord_name_p_->set_elt_property ("begin-of-line-visible", SCM_BOOL_T);
+}
 
+void
+Chord_name_engraver::create_chord_name ()
+{
+  assert (chord_p_);
+  chord_name_p_ = new Item (get_property ("ChordName"));
   /*
     Hmm, why not represent complete chord as list?
     ((tonic third fifth) (inversion bass))
   */
   SCM plist = SCM_EOL;
-  for (int i= chord.pitch_arr_.size (); i--; )
-    plist = gh_cons (chord.pitch_arr_[i].to_scm (), plist);
+  for (int i= chord_p_->pitch_arr_.size (); i--; )
+    plist = gh_cons (chord_p_->pitch_arr_[i].smobbed_copy (), plist);
   
   chord_name_p_->set_elt_property ("pitches", plist);
-  if (chord.inversion_b_)
+  if (chord_p_->inversion_b_)
     chord_name_p_->set_elt_property ("inversion",
-                                    chord.inversion_pitch_.to_scm ());
-  if (chord.bass_b_)
-    chord_name_p_->set_elt_property ("bass", chord.bass_pitch_.to_scm ());
-
-  announce_element (Score_element_info (chord_name_p_, 0));
+                                    chord_p_->inversion_pitch_.smobbed_copy ());
+  if (chord_p_->bass_b_)
+    chord_name_p_->set_elt_property ("bass", chord_p_->bass_pitch_.smobbed_copy ());
 }
 
 void
@@ -107,5 +145,8 @@ Chord_name_engraver::do_pre_move_processing ()
   tonic_req_ = 0;
   inversion_req_ = 0;
   bass_req_ = 0;
+  delete last_chord_p_;
+  last_chord_p_ = chord_p_;
+  chord_p_ = 0;
 }