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--2005 Han-Wen Nienhuys <hanwen@cs.uu.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 class Horizontal_bracket_engraver : public Engraver
  16 {
  17 public:
  18   TRANSLATOR_DECLARATIONS (Horizontal_bracket_engraver);
  19   Link_array<Spanner> bracket_stack_;
  20   Link_array<Music> events_;
  21   int pop_count_;
  22   int push_count_;
  23
  24   virtual bool try_music (Music *);
  25   virtual void stop_translation_timestep ();
  26   virtual void process_music ();
  27   virtual void acknowledge_grob (Grob_info);
  28 };
  29
  30 ADD_TRANSLATOR (Horizontal_bracket_engraver,
  31                 "Create horizontal brackets over notes for musical analysis purposes.",
  32                 "HorizontalBracket",
  33                 "note-grouping-event",
  34                 "note-column-interface",
  35                 "",
  36                 "");
  37
  38 Horizontal_bracket_engraver::Horizontal_bracket_engraver ()
  39 {
  40   pop_count_ = 0;
  41   push_count_ = 0;
  42 }
  43
  44 bool
  45 Horizontal_bracket_engraver::try_music (Music *m)
  46 {
  47   if (m->is_mus_type ("note-grouping-event"))
  48     {
  49       Direction d = to_dir (m->get_property ("span-direction"));
  50
  51       if (d == STOP)
  52         {
  53           pop_count_++;
  54           if (pop_count_ > bracket_stack_.size ())
  55             m->origin ()->warning (_ ("don't have that many brackets"));
  56         }
  57       else
  58         {
  59           push_count_++;
  60           events_.push (m);
  61         }
  62
  63       if (pop_count_ && push_count_)
  64         m->origin ()->warning (_ ("conflicting note group events"));
  65
  66       return true;
  67     }
  68   return false;
  69 }
  70
  71 void
  72 Horizontal_bracket_engraver::acknowledge_grob (Grob_info gi)
  73 {
  74   if (Note_column::has_interface (gi.grob ()))
  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
  87 void
  88 Horizontal_bracket_engraver::process_music ()
  89 {
  90   for (int k = 0; k < push_count_; k++)
  91     {
  92       Spanner *sp = make_spanner ("HorizontalBracket", events_[k]->self_scm ());
  93
  94       for (int i = 0; i < bracket_stack_.size (); i++)
  95         {
  96           /*
  97             sp is the smallest, it should be added to the bigger brackets.
  98           */
  99           Side_position_interface::add_support (bracket_stack_[i], sp);
 100         }
 101       bracket_stack_.push (sp);
 102     }
 103 }
 104
 105 void
 106 Horizontal_bracket_engraver::stop_translation_timestep ()
 107 {
 108   for (int i = pop_count_; i--;)
 109     {
 110       if (bracket_stack_.size ())
 111         bracket_stack_.pop ();
 112     }
 113   pop_count_ = 0;
 114   push_count_ = 0;
 115 }
 116