lily/hara-kiri-engraver.cc

   1 /*
   2   hara-kiri-engraver.cc --  implement Hara_kiri_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "axis-group-engraver.hh"
  10 #include "hara-kiri-group-spanner.hh"
  11 #include "rhythmic-head.hh"
  12 #include "spanner.hh"
  13
  14 #include "translator.icc"
  15
  16 /*
  17   TODO: fold together with axis_group_engraver?
  18  */
  19
  20 class Hara_kiri_engraver : public Axis_group_engraver
  21 {
  22 protected:
  23   virtual Spanner *get_spanner ();
  24   DECLARE_ACKNOWLEDGER (grob);
  25   virtual void add_element (Grob *e);
  26   void start_translation_timestep ();
  27   virtual void derived_mark () const;
  28   SCM interesting_;
  29 public:
  30   TRANSLATOR_DECLARATIONS (Hara_kiri_engraver);
  31 };
  32
  33 void
  34 Hara_kiri_engraver::derived_mark () const
  35 {
  36   scm_gc_mark (interesting_);
  37 }
  38
  39 void
  40 Hara_kiri_engraver::start_translation_timestep ()
  41 {
  42   Axis_group_engraver::start_translation_timestep ();
  43   interesting_ = get_property ("keepAliveInterfaces");
  44 }
  45
  46 void
  47 Hara_kiri_engraver::add_element (Grob *e)
  48 {
  49   Axis_group_engraver::add_element (e);
  50 }
  51
  52 Spanner *
  53 Hara_kiri_engraver::get_spanner ()
  54 {
  55   Spanner *sp = make_spanner ("VerticalAxisGroup", SCM_EOL);
  56   return sp;
  57 }
  58
  59 void
  60 Hara_kiri_engraver::acknowledge_grob (Grob_info i)
  61 {
  62   Axis_group_engraver::acknowledge_grob (i);
  63   if (staffline_)
  64     {
  65       for (SCM s = interesting_; scm_is_pair (s); s = scm_cdr (s))
  66         {
  67           if (i.grob ()->internal_has_interface (scm_car (s)))
  68             Hara_kiri_group_spanner::add_interesting_item (staffline_, i.grob ());
  69         }
  70     }
  71 }
  72
  73 Hara_kiri_engraver::Hara_kiri_engraver ()
  74 {
  75   interesting_ = SCM_EOL;
  76 }
  77
  78 ADD_ACKNOWLEDGER (Hara_kiri_engraver, grob);
  79 ADD_TRANSLATOR (Hara_kiri_engraver,
  80                 /* doc */ "Like Axis_group_engraver, but make a hara-kiri spanner, and add "
  81                 "interesting items (ie. note heads, lyric syllables and normal rests) ",
  82                 /* create */ "VerticalAxisGroup",
  83                 /* accept */ "",
  84                 /* read */ "keepAliveInterfaces",
  85                 /* write */ "");
  86