lily/cluster-engraver.cc

   1 /*
   2   cluster-engraver.cc -- implement Cluster_engraver
   3
   4   (c) 2002--2003 Juergen Reuter <reuter@ipd.uka.de>
   5
   6   Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "engraver.hh"
  10 #include "item.hh"
  11 #include "spanner.hh"
  12 #include "note-head.hh"
  13 #include "note-column.hh"
  14 #include "group-interface.hh"
  15
  16 class Cluster_spanner_engraver : public Engraver
  17 {
  18
  19 protected:
  20   TRANSLATOR_DECLARATIONS(Cluster_spanner_engraver);
  21   virtual bool try_music (Music *);
  22   virtual void process_music ();
  23   virtual void acknowledge_grob (Grob_info);
  24   virtual void stop_translation_timestep ();
  25   virtual void finalize ();
  26 private:
  27   Link_array<Music> cluster_notes_;
  28   Item* beacon_;
  29
  30   void typeset_grobs ();
  31   Spanner *spanner_;
  32   Spanner * finished_spanner_ ;
  33 };
  34
  35 Cluster_spanner_engraver::Cluster_spanner_engraver ()
  36 {
  37   spanner_ = 0;
  38   finished_spanner_ = 0;
  39   beacon_ = 0;
  40 }
  41
  42 void
  43 Cluster_spanner_engraver::finalize ()
  44 {
  45   typeset_grobs ();
  46   finished_spanner_ = spanner_;
  47   spanner_ = 0;
  48   typeset_grobs ();
  49 }
  50
  51 void
  52 Cluster_spanner_engraver::typeset_grobs ()
  53 {
  54   if (finished_spanner_ )
  55     {
  56       typeset_grob (finished_spanner_);
  57       finished_spanner_ = 0;
  58     }
  59
  60   if (beacon_)
  61     {
  62       typeset_grob (beacon_);
  63       beacon_ = 0;
  64     }
  65 }
  66
  67 bool
  68 Cluster_spanner_engraver::try_music (Music *m)
  69 {
  70   if (m->is_mus_type ("abort-event"))
  71     {
  72       if (spanner_)
  73         {
  74           spanner_->suicide ();
  75           spanner_ = 0;
  76         }
  77     }
  78   else if (m->is_mus_type ("cluster-note-event"))
  79     {
  80       cluster_notes_.push (m);
  81       return true;
  82     }
  83   return false;
  84 }
  85
  86 void
  87 Cluster_spanner_engraver::process_music ()
  88 {
  89   if (cluster_notes_.size())
  90     {
  91       SCM c0scm = get_property ("centralCPosition");
  92
  93       int c0 =  gh_number_p (c0scm) ? gh_scm2int (c0scm) : 0;
  94       int pmax = INT_MIN;
  95       int pmin = INT_MAX;
  96
  97       for (int i = 0; i <cluster_notes_.size (); i++)
  98         {
  99           Pitch *pit =unsmob_pitch (cluster_notes_[i]->get_mus_property ("pitch"));
 100
 101           int p =( pit ? pit->steps () : 0) + c0;
 102
 103           pmax = pmax >? p;
 104           pmin = pmin <? p;
 105         }
 106
 107       beacon_ = make_item ("ClusterSpannerBeacon");
 108       beacon_->set_grob_property ("positions",
 109                                   scm_cons (gh_int2scm (pmin),
 110                                             gh_int2scm (pmax)));
 111       announce_grob (beacon_, cluster_notes_[0]->self_scm ());
 112     }
 113
 114   if (beacon_ && !spanner_)
 115     {
 116       spanner_ = make_spanner ("ClusterSpanner");
 117       announce_grob (spanner_, cluster_notes_[0]->self_scm ());
 118     }
 119
 120   if (beacon_ && spanner_)
 121     {
 122       add_bound_item (spanner_, beacon_);
 123       Pointer_group_interface::add_grob (spanner_, ly_symbol2scm ("columns"), beacon_);
 124     }
 125 }
 126
 127
 128 void
 129 Cluster_spanner_engraver::stop_translation_timestep ()
 130 {
 131   typeset_grobs ();
 132
 133   cluster_notes_.clear();
 134
 135 }
 136
 137 void
 138 Cluster_spanner_engraver::acknowledge_grob (Grob_info info)
 139 {
 140   if (!beacon_ && Note_column::has_interface (info.grob_))
 141     {
 142       finished_spanner_ = spanner_;
 143       spanner_ = 0;
 144     }
 145 }
 146
 147 ENTER_DESCRIPTION(Cluster_spanner_engraver,
 148 /* descr */     "Engraves a cluster using Spanner notation ",
 149 /* creats*/     "ClusterSpanner ClusterSpannerBeacon",
 150 /* accepts */   "cluster-note-event abort-event",
 151 /* acks  */     "note-column-interface",
 152 /* reads */     "",
 153 /* write */     "");
 154