lily/horizontal-bracket-engraver.cc

   1 /*
   2   horizontal-bracket-engraver.cc -- implement
   3   Horizontal_bracket_engraver
   4
   5   source file of the GNU LilyPond music typesetter
   6
   7   (c) 2002--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
   8 */
   9
  10 #include "engraver.hh"
  11 #include "side-position-interface.hh"
  12 #include "note-column.hh"
  13 #include "pointer-group-interface.hh"
  14
  15 #include "translator.icc"
  16
  17 class Horizontal_bracket_engraver : public Engraver
  18 {
  19 public:
  20   TRANSLATOR_DECLARATIONS (Horizontal_bracket_engraver);
  21   Link_array<Spanner> bracket_stack_;
  22   Link_array<Music> events_;
  23   int pop_count_;
  24   int push_count_;
  25
  26   virtual bool try_music (Music *);
  27   void stop_translation_timestep ();
  28   void process_music ();
  29   DECLARE_ACKNOWLEDGER (note_column);
  30 };
  31
  32 ADD_ACKNOWLEDGER (Horizontal_bracket_engraver, note_column);
  33 ADD_TRANSLATOR (Horizontal_bracket_engraver,
  34                 "Create horizontal brackets over notes for musical analysis purposes.",
  35                 "HorizontalBracket",
  36                 "note-grouping-event",
  37                 "",
  38                 "");
  39
  40 Horizontal_bracket_engraver::Horizontal_bracket_engraver ()
  41 {
  42   pop_count_ = 0;
  43   push_count_ = 0;
  44 }
  45
  46 bool
  47 Horizontal_bracket_engraver::try_music (Music *m)
  48 {
  49   if (m->is_mus_type ("note-grouping-event"))
  50     {
  51       Direction d = to_dir (m->get_property ("span-direction"));
  52
  53       if (d == STOP)
  54         {
  55           pop_count_++;
  56           if (pop_count_ > bracket_stack_.size ())
  57             m->origin ()->warning (_ ("don't have that many brackets"));
  58         }
  59       else
  60         {
  61           push_count_++;
  62           events_.push (m);
  63         }
  64
  65       if (pop_count_ && push_count_)
  66         m->origin ()->warning (_ ("conflicting note group events"));
  67
  68       return true;
  69     }
  70   return false;
  71 }
  72
  73 void
  74 Horizontal_bracket_engraver::acknowledge_note_column (Grob_info gi)
  75 {
  76   for (int i = 0; i < bracket_stack_.size (); i++)
  77     {
  78       Side_position_interface::add_support (bracket_stack_[i], gi.grob ());
  79       Pointer_group_interface::add_grob (bracket_stack_[i],
  80                                          ly_symbol2scm ("columns"), gi.grob ());
  81       add_bound_item (bracket_stack_[i],
  82                       gi.grob ());
  83     }
  84 }
  85
  86 void
  87 Horizontal_bracket_engraver::process_music ()
  88 {
  89   for (int k = 0; k < push_count_; k++)
  90     {
  91       Spanner *sp = make_spanner ("HorizontalBracket", events_[k]->self_scm ());
  92
  93       for (int i = 0; i < bracket_stack_.size (); i++)
  94         {
  95           /*
  96             sp is the smallest, it should be added to the bigger brackets.
  97           */
  98           Side_position_interface::add_support (bracket_stack_[i], sp);
  99         }
 100       bracket_stack_.push (sp);
 101     }
 102 }
 103
 104 void
 105 Horizontal_bracket_engraver::stop_translation_timestep ()
 106 {
 107   for (int i = pop_count_; i--;)
 108     {
 109       if (bracket_stack_.size ())
 110         bracket_stack_.pop ();
 111     }
 112   pop_count_ = 0;
 113   push_count_ = 0;
 114 }
 115