lily/staff-symbol-engraver.cc

   1 /*
   2   staff-symbol-engraver.cc -- implement Staff_symbol_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "score.hh"
  10 #include "paper-column.hh"
  11 #include "output-def.hh"
  12 #include "side-position-interface.hh"
  13 #include "engraver.hh"
  14 #include "moment.hh"
  15
  16 /**
  17    Manage the staff symbol.
  18 */
  19 class Staff_symbol_engraver : public Engraver
  20 {
  21 public:
  22   TRANSLATOR_DECLARATIONS (Staff_symbol_engraver);
  23
  24 protected:
  25   Spanner *span_;
  26
  27   virtual ~Staff_symbol_engraver ();
  28   virtual void acknowledge_grob (Grob_info);
  29   virtual void finalize ();
  30   virtual void process_music ();
  31 };
  32
  33 Staff_symbol_engraver::~Staff_symbol_engraver ()
  34 {
  35   assert (!span_);
  36 }
  37
  38 Staff_symbol_engraver::Staff_symbol_engraver ()
  39 {
  40   span_ = 0;
  41 }
  42
  43 void
  44 Staff_symbol_engraver::process_music ()
  45 {
  46   if (!span_)
  47     {
  48       span_ = make_spanner ("StaffSymbol", SCM_EOL);
  49
  50       span_->set_bound (LEFT, unsmob_grob (get_property ("currentCommandColumn")));
  51     }
  52 }
  53
  54 void
  55 Staff_symbol_engraver::finalize ()
  56 {
  57   if (span_)
  58     {
  59       span_->set_bound (RIGHT, unsmob_grob (get_property ("currentCommandColumn")));
  60     }
  61   span_ = 0;
  62 }
  63
  64 void
  65 Staff_symbol_engraver::acknowledge_grob (Grob_info s)
  66 {
  67   s.grob_->set_property ("staff-symbol", span_->self_scm ());
  68 }
  69
  70 ADD_TRANSLATOR (Staff_symbol_engraver,
  71                 /* descr */ "Create the constellation of five (default) "
  72                 "staff lines.",
  73                 /* creats*/ "StaffSymbol",
  74                 /* accepts */ "",
  75                 /* acks  */ "grob-interface",
  76                 /* reads */ "",
  77                 /* write */ "");
  78
  79 /****************************************************************/
  80
  81 class Tab_staff_symbol_engraver : public Staff_symbol_engraver
  82 {
  83 public:
  84   TRANSLATOR_DECLARATIONS (Tab_staff_symbol_engraver);
  85 protected:
  86   virtual void process_music ();
  87 };
  88
  89 void
  90 Tab_staff_symbol_engraver::process_music ()
  91 {
  92   bool init = !span_;
  93   Staff_symbol_engraver::process_music ();
  94   if (init)
  95     {
  96       int k = scm_ilength (get_property ("stringTunings"));
  97       if (k >= 0)
  98         span_->set_property ("line-count", scm_int2num (k));
  99     }
 100 }
 101
 102 Tab_staff_symbol_engraver::Tab_staff_symbol_engraver ()
 103 {
 104 }
 105
 106 ADD_TRANSLATOR (Tab_staff_symbol_engraver,
 107                 /* descr */ "Create a staff-symbol, but look at stringTunings for the number of lines."
 108                 "staff lines.",
 109                 /* creats*/ "StaffSymbol",
 110                 /* accepts */ "",
 111                 /* acks  */ "grob-interface",
 112                 /* reads */ "stringTunings",
 113                 /* write */ "");