new interface trill-spanner-interface. Use for pitched trill engraver.

diff --git a/lily/pitched-trill-engraver.cc b/lily/pitched-trill-engraver.cc
index 2d632a02a13347e4de3c623abd38fbfeaf5dc8f7..daa3bee42c772b37f6e4e53f90fbd3e4e42b68a6 100644 (file)
--- a/lily/pitched-trill-engraver.cc
+++ b/lily/pitched-trill-engraver.cc
@@ -27,8 +27,7 @@ public:
 protected:
   DECLARE_ACKNOWLEDGER (note_head);
   DECLARE_ACKNOWLEDGER (dots);
-  DECLARE_ACKNOWLEDGER (text_spanner);
-  void process_music ();
+  DECLARE_ACKNOWLEDGER (trill_spanner);
   void stop_translation_timestep ();
 
 private:
@@ -60,7 +59,7 @@ Pitched_trill_engraver::acknowledge_note_head (Grob_info info)
 }
 
 void
-Pitched_trill_engraver::acknowledge_text_spanner (Grob_info info)
+Pitched_trill_engraver::acknowledge_trill_spanner (Grob_info info)
 {
   Stream_event *ev = info.event_cause ();
   if (ev
@@ -132,17 +131,12 @@ Pitched_trill_engraver::stop_translation_timestep ()
   trill_accidental_ = 0;
 }
 
-void
-Pitched_trill_engraver::process_music ()
-{
-}
-
 
 #include "translator.icc"
 
 ADD_ACKNOWLEDGER (Pitched_trill_engraver, note_head);
 ADD_ACKNOWLEDGER (Pitched_trill_engraver, dots);
-ADD_ACKNOWLEDGER (Pitched_trill_engraver, text_spanner);
+ADD_ACKNOWLEDGER (Pitched_trill_engraver, trill_spanner);
 
 ADD_TRANSLATOR (Pitched_trill_engraver,
                /* doc */

diff --git a/scm/define-grob-interfaces.scm b/scm/define-grob-interfaces.scm
index 2f8c1413d31a7bc473094da67436539bcb311175..8f7c52660e9711581e939dbd2a9a329ff8028710 100644 (file)
--- a/scm/define-grob-interfaces.scm
+++ b/scm/define-grob-interfaces.scm
@@ -143,6 +143,11 @@
  '()
  )
 
+(ly:add-interface
+ 'trill-spanner-interface
+ "An accidental for trill pitch"
+ '())
+
 (ly:add-interface
  'rhythmic-grob-interface
  "Any object with a duration. Used to determine which grobs are

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 9aef7bf56c5b8c2d82595db2d4e57aadbe62c9ab..93dfbba0e6b128570cf018bbe0f8781e1b70c21d 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -1926,6 +1926,7 @@
        (meta . ((class . Spanner)
                 (interfaces . (new-line-spanner-interface
                                line-interface
+                               trill-spanner-interface
                                side-position-interface
                                font-interface))))))