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) 1999--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9 #include "hara-kiri-group-spanner.hh"
  10 #include "hara-kiri-engraver.hh"
  11 #include "rhythmic-head.hh"
  12 #include "spanner.hh"
  13
  14 Spanner*
  15 Hara_kiri_engraver::get_spanner_p () const
  16 {
  17   Spanner * sp = new Spanner (get_property ("basicHaraKiriVerticalGroupspannerProperties"));
  18   Hara_kiri_group_spanner::set_interface (sp);
  19   return sp;
  20 }
  21
  22 void
  23 Hara_kiri_engraver::acknowledge_element (Score_element_info i)
  24 {
  25   Axis_group_engraver::acknowledge_element (i);
  26   if (Rhythmic_head::has_interface (i.elem_l_))
  27     {
  28       Hara_kiri_group_spanner::add_interesting_item (staffline_p_, i.elem_l_);
  29     }
  30 }
  31 ADD_THIS_TRANSLATOR(Hara_kiri_engraver);