lily/cluster-engraver.cc

   1 /*
   2   cluster-engraver.cc -- implement Cluster_engraver
   3
   4   (c) 2002--2004 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 ("cluster-note-event"))
  71     {
  72       cluster_notes_.push (m);
  73       return true;
  74     }
  75   return false;
  76 }
  77
  78 void
  79 Cluster_spanner_engraver::process_music ()
  80 {
  81   if (cluster_notes_.size ())
  82     {
  83       SCM c0scm = get_property ("middleCPosition");
  84
  85       int c0 =  gh_number_p (c0scm) ? gh_scm2int (c0scm) : 0;
  86       int pmax = INT_MIN;
  87       int pmin = INT_MAX;
  88
  89       for (int i = 0; i <cluster_notes_.size (); i++)
  90         {
  91           Pitch *pit =unsmob_pitch (cluster_notes_[i]->get_property ("pitch"));
  92
  93           int p =( pit ? pit->steps () : 0) + c0;
  94
  95           pmax = pmax >? p;
  96           pmin = pmin <? p;
  97         }
  98
  99       beacon_ = make_item ("ClusterSpannerBeacon");
 100       beacon_->set_property ("positions",
 101                                   scm_cons (gh_int2scm (pmin),
 102                                             gh_int2scm (pmax)));
 103       announce_grob (beacon_, cluster_notes_[0]->self_scm ());
 104     }
 105
 106   if (beacon_ && !spanner_)
 107     {
 108       spanner_ = make_spanner ("ClusterSpanner");
 109       announce_grob (spanner_, cluster_notes_[0]->self_scm ());
 110     }
 111
 112   if (beacon_ && spanner_)
 113     {
 114       add_bound_item (spanner_, beacon_);
 115       Pointer_group_interface::add_grob (spanner_, ly_symbol2scm ("columns"), beacon_);
 116     }
 117 }
 118
 119
 120 void
 121 Cluster_spanner_engraver::stop_translation_timestep ()
 122 {
 123   typeset_grobs ();
 124
 125   cluster_notes_.clear ();
 126
 127 }
 128
 129 void
 130 Cluster_spanner_engraver::acknowledge_grob (Grob_info info)
 131 {
 132   if (!beacon_ && Note_column::has_interface (info.grob_))
 133     {
 134       finished_spanner_ = spanner_;
 135       spanner_ = 0;
 136     }
 137 }
 138
 139 ENTER_DESCRIPTION (Cluster_spanner_engraver,
 140 /* descr */     "Engraves a cluster using Spanner notation ",
 141 /* creats*/     "ClusterSpanner ClusterSpannerBeacon",
 142 /* accepts */   "cluster-note-event",
 143 /* acks  */     "note-column-interface",
 144 /* reads */     "",
 145 /* write */     "");
 146