lily/hara-kiri-line-group-engraver.cc

   1 /*
   2   hara-kiri-line-group-engraver.cc -- implement Hara_kiri_line_group_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1998 Jan Nieuwenhuizen <janneke@gnu.org>
   7 */
   8
   9 #include "staff-sym.hh"
  10 #include "command-request.hh"
  11 #include "note-head.hh"
  12 #include "hara-kiri-vertical-group-spanner.hh"
  13 #include "hara-kiri-line-group-engraver.hh"
  14
  15 IMPLEMENT_IS_TYPE_B1 (Hara_kiri_line_group_engraver,Line_group_engraver_group);
  16 ADD_THIS_TRANSLATOR (Hara_kiri_line_group_engraver);
  17
  18 void
  19 Hara_kiri_line_group_engraver::create_line_spanner ()
  20 {
  21   staffline_p_ = new Hara_kiri_vertical_group_spanner;
  22 }
  23
  24 void
  25 Hara_kiri_line_group_engraver::typeset_element(Score_element * e)
  26 {
  27   if (Note_head *h = dynamic_cast<Note_head *> (e))
  28     {
  29       dynamic_cast<Hara_kiri_vertical_group_spanner*> (staffline_p_)
  30         ->add_note  (h);
  31     }
  32   Line_group_engraver_group::typeset_element (e);
  33 }
  34