lily/system-start-delimiter-engraver.cc

   1 /*
   2   system-start-delimiter-engraver.cc -- implement System_start_delimiter_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2000--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "engraver.hh"
  10
  11 #include "system-start-delimiter.hh"
  12 #include "staff-symbol.hh"
  13 #include "pointer-group-interface.hh"
  14 #include "paper-column.hh"
  15 #include "output-def.hh"
  16 #include "spanner.hh"
  17 #include "side-position-interface.hh"
  18
  19 class System_start_delimiter_engraver : public Engraver
  20 {
  21 public:
  22   TRANSLATOR_DECLARATIONS (System_start_delimiter_engraver);
  23
  24 protected:
  25   Spanner *delimiter_;
  26   DECLARE_ACKNOWLEDGER (system_start_delimiter);
  27   DECLARE_ACKNOWLEDGER (staff_symbol);
  28
  29   void process_music ();
  30   virtual void finalize ();
  31 };
  32
  33 void
  34 System_start_delimiter_engraver::acknowledge_staff_symbol (Grob_info inf)
  35 {
  36   Pointer_group_interface::add_grob (delimiter_, ly_symbol2scm ("elements"), inf.grob ());
  37 }
  38
  39
  40 void
  41 System_start_delimiter_engraver::acknowledge_system_start_delimiter (Grob_info inf)
  42 {
  43   Side_position_interface::add_support (inf.grob (), delimiter_);
  44 }
  45
  46 System_start_delimiter_engraver::System_start_delimiter_engraver ()
  47 {
  48   delimiter_ = 0;
  49 }
  50
  51 void
  52 System_start_delimiter_engraver::process_music ()
  53 {
  54   if (!delimiter_)
  55     {
  56       SCM delimiter_name = get_property ("systemStartDelimiter");
  57       delimiter_ = make_spanner_from_properties (this, delimiter_name, SCM_EOL,
  58                                                  ly_symbol2string (delimiter_name).to_str0 ());
  59
  60       delimiter_->set_bound (LEFT, unsmob_grob (get_property ("currentCommandColumn")));
  61     }
  62 }
  63 void
  64 System_start_delimiter_engraver::finalize ()
  65 {
  66   if (delimiter_)
  67     delimiter_->set_bound (RIGHT, unsmob_grob (get_property ("currentCommandColumn")));
  68 }
  69
  70 #include "translator.icc"
  71
  72 ADD_ACKNOWLEDGER (System_start_delimiter_engraver, system_start_delimiter);
  73 ADD_ACKNOWLEDGER (System_start_delimiter_engraver, staff_symbol);
  74
  75 ADD_TRANSLATOR (System_start_delimiter_engraver,
  76                 /* doc */ "Creates a system start delimiter (ie. SystemStart@{Bar, Brace, Bracket@} spanner",
  77                 /* create */ "SystemStartBar SystemStartBrace SystemStartBracket",
  78                 /* accept */ "",
  79                 /* read */ "systemStartDelimiter",
  80                 /* write */ "");