lily/bar-number-engraver.cc

   1 /*
   2   bar-number-grav.cc -- implement Bar_number_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9
  10 #include "lily-guile.hh"
  11 #include "paper-column.hh"
  12 #include "paper-def.hh"
  13 #include "side-position-interface.hh"
  14 #include "item.hh"
  15 #include "moment.hh"
  16 #include "engraver.hh"
  17 #include "translator-group.hh"
  18
  19
  20 class Bar_number_engraver : public Engraver
  21 {
  22 protected:
  23   Item* text_p_;
  24
  25 protected:
  26   virtual void stop_translation_timestep ();
  27   virtual void acknowledge_grob (Grob_info);
  28   virtual void create_grobs ();
  29   void create_items ();
  30   TRANSLATOR_DECLARATIONS(  Bar_number_engraver );
  31 };
  32
  33
  34 /*
  35   TODO: more advanced formatting via SCM function, perhaps barnumbers
  36   every 5 measures?  */
  37
  38 void
  39 Bar_number_engraver::create_grobs ()
  40 {
  41   // todo include (&&!time->cadenza_b_)
  42   SCM bn = get_property ("currentBarNumber");
  43   SCM smp = get_property ("measurePosition");
  44   Moment mp = (unsmob_moment (smp)) ? *unsmob_moment (smp) : Moment (0);
  45
  46   if (gh_number_p (bn) &&
  47       !mp.to_bool () && now_mom () > Moment (0))
  48     {
  49       create_items ();
  50
  51       // guh.
  52       text_p_->set_grob_property ("text",
  53                                  ly_str02scm (to_str (gh_scm2int (bn)).ch_C ()));
  54     }
  55 }
  56
  57
  58
  59 Bar_number_engraver::Bar_number_engraver ()
  60 {
  61   text_p_ =0;
  62 }
  63
  64
  65 void
  66 Bar_number_engraver::acknowledge_grob (Grob_info inf)
  67 {
  68   Grob * s = inf.grob_l_;
  69   if (text_p_
  70       && dynamic_cast<Item*> (s)
  71       && s->get_grob_property ("break-align-symbol") == ly_symbol2scm ("Left_edge_item"))
  72     {
  73       /*
  74         By default this would land on the Paper_column -- so why
  75         doesn't it work when you leave this out?  */
  76       text_p_->set_parent (s, X_AXIS);
  77     }
  78 }
  79
  80 void
  81 Bar_number_engraver::stop_translation_timestep ()
  82 {
  83   if (text_p_)
  84     {
  85       text_p_->set_grob_property ("side-support-elements", get_property ("stavesFound"));
  86       typeset_grob (text_p_);
  87       text_p_ =0;
  88     }
  89 }
  90
  91
  92 void
  93 Bar_number_engraver::create_items ()
  94 {
  95   if (text_p_)
  96     return;
  97
  98   SCM b = get_property ("BarNumber");
  99   text_p_ = new Item (b);
 100   Side_position_interface::set_axis (text_p_,Y_AXIS);
 101
 102   announce_grob (text_p_, 0);
 103 }
 104
 105 ENTER_DESCRIPTION(Bar_number_engraver,
 106 /* descr */       "A bar number is created whenever measurePosition is zero. It is
 107 put on top of all staves, and appears only at  left side of the staff.",
 108 /* creats*/       "BarNumber",
 109 /* acks  */       "break-aligned-interface",
 110 /* reads */       "currentBarNumber stavesFound" ,
 111 /* write */       "");