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--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9
  10 #include "score.hh"
  11 #include "paper-column.hh"
  12 #include "paper-def.hh"
  13 #include "side-position-interface.hh"
  14 #include "engraver.hh"
  15 #include "moment.hh"
  16
  17 /**
  18   Manage the staff symbol.
  19  */
  20 class Staff_symbol_engraver : public Engraver {
  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
  34 Staff_symbol_engraver::~Staff_symbol_engraver ()
  35 {
  36   assert (!span_);
  37 }
  38
  39 Staff_symbol_engraver::Staff_symbol_engraver ()
  40 {
  41   span_ = 0;
  42 }
  43
  44 void
  45 Staff_symbol_engraver::process_music ()
  46 {
  47   if (!span_)
  48     {
  49       span_ = make_spanner ("StaffSymbol");
  50
  51       span_->set_bound (LEFT, unsmob_grob (get_property ("currentCommandColumn")));
  52
  53       announce_grob (span_, SCM_EOL);
  54     }
  55 }
  56
  57 void
  58 Staff_symbol_engraver::finalize ()
  59 {
  60   if (span_)
  61     {
  62       span_->set_bound (RIGHT,unsmob_grob (get_property ("currentCommandColumn")));
  63       typeset_grob (span_);
  64     }
  65   span_ =0;
  66 }
  67
  68 void
  69 Staff_symbol_engraver::acknowledge_grob (Grob_info s)
  70 {
  71   s.grob_->set_property ("staff-symbol", span_->self_scm ());
  72
  73   // remove this. probly not necessary?
  74   s.grob_->add_dependency (span_); // UGH. UGH. UGH
  75 }
  76
  77
  78
  79
  80 ENTER_DESCRIPTION (Staff_symbol_engraver,
  81 /* descr */       "Create the constellation of five (default) "
  82 "staff lines.",
  83 /* creats*/       "StaffSymbol",
  84 /* accepts */     "",
  85 /* acks  */      "grob-interface",
  86 /* reads */       "",
  87 /* write */       "");
  88
  89 /****************************************************************/
  90
  91
  92 class Tab_staff_symbol_engraver : public Staff_symbol_engraver
  93 {
  94 public:
  95   TRANSLATOR_DECLARATIONS (Tab_staff_symbol_engraver);
  96 protected:
  97   virtual void process_music ();
  98 };
  99
 100 void
 101 Tab_staff_symbol_engraver::process_music ()
 102 {
 103   bool init = !span_;
 104   Staff_symbol_engraver::process_music ();
 105   if (init)
 106     {
 107       int k = scm_ilength (get_property ("stringTunings"));
 108       if (k>=0)
 109         span_->set_property ("line-count", gh_int2scm (k));
 110     }
 111 }
 112
 113 Tab_staff_symbol_engraver::Tab_staff_symbol_engraver ()
 114 {
 115 }
 116
 117 ENTER_DESCRIPTION (Tab_staff_symbol_engraver,
 118 /* descr */       "Create a staff-symbol, but look at stringTunings for the number of lines."
 119 "staff lines.",
 120 /* creats*/       "StaffSymbol",
 121 /* accepts */     "",
 122 /* acks  */      "grob-interface",
 123 /* reads */       "stringTunings",
 124 /* write */       "");