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
  55 void
  56 Staff_symbol_engraver::finalize ()
  57 {
  58   if (span_)
  59     {
  60       span_->set_bound (RIGHT, unsmob_grob (get_property ("currentCommandColumn")));
  61     }
  62   span_ = 0;
  63 }
  64
  65 void
  66 Staff_symbol_engraver::acknowledge_grob (Grob_info s)
  67 {
  68   s.grob_->set_property ("staff-symbol", span_->self_scm ());
  69 }
  70
  71
  72 ADD_TRANSLATOR (Staff_symbol_engraver,
  73                 /* descr */ "Create the constellation of five (default) "
  74                 "staff lines.",
  75                 /* creats*/ "StaffSymbol",
  76                 /* accepts */ "",
  77                 /* acks  */ "grob-interface",
  78                 /* reads */ "",
  79                 /* write */ "");
  80
  81 /****************************************************************/
  82
  83 class Tab_staff_symbol_engraver : public Staff_symbol_engraver
  84 {
  85 public:
  86   TRANSLATOR_DECLARATIONS (Tab_staff_symbol_engraver);
  87 protected:
  88   virtual void process_music ();
  89 };
  90
  91 void
  92 Tab_staff_symbol_engraver::process_music ()
  93 {
  94   bool init = !span_;
  95   Staff_symbol_engraver::process_music ();
  96   if (init)
  97     {
  98       int k = scm_ilength (get_property ("stringTunings"));
  99       if (k>= 0)
 100         span_->set_property ("line-count", scm_int2num (k));
 101     }
 102 }
 103
 104 Tab_staff_symbol_engraver::Tab_staff_symbol_engraver ()
 105 {
 106 }
 107
 108 ADD_TRANSLATOR (Tab_staff_symbol_engraver,
 109                 /* descr */ "Create a staff-symbol, but look at stringTunings for the number of lines."
 110                 "staff lines.",
 111                 /* creats*/ "StaffSymbol",
 112                 /* accepts */ "",
 113                 /* acks  */ "grob-interface",
 114                 /* reads */ "stringTunings",
 115                 /* write */ "");