lily/cluster-engraver.cc

   1 /*
   2   cluster-engraver.cc -- implement Cluster_engraver
   3
   4   (c) 2002--2006 Juergen Reuter <reuter@ipd.uka.de>
   5
   6   Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "engraver.hh"
  10 #include "spanner.hh"
  11 #include "note-head.hh"
  12 #include "note-column.hh"
  13 #include "pointer-group-interface.hh"
  14 #include "pitch.hh"
  15 #include "stream-event.hh"
  16
  17 #include "translator.icc"
  18
  19 class Cluster_spanner_engraver : public Engraver
  20 {
  21
  22 protected:
  23   TRANSLATOR_DECLARATIONS (Cluster_spanner_engraver);
  24   DECLARE_TRANSLATOR_LISTENER (cluster_note);
  25   DECLARE_ACKNOWLEDGER (note_column);
  26   void stop_translation_timestep ();
  27   virtual void process_music ();
  28   virtual void finalize ();
  29 private:
  30   vector<Stream_event*> cluster_notes_;
  31   Item *beacon_;
  32
  33   void typeset_grobs ();
  34   Spanner *spanner_;
  35   Spanner *finished_spanner_;
  36 };
  37
  38 Cluster_spanner_engraver::Cluster_spanner_engraver ()
  39 {
  40   spanner_ = 0;
  41   finished_spanner_ = 0;
  42   beacon_ = 0;
  43 }
  44
  45 void
  46 Cluster_spanner_engraver::finalize ()
  47 {
  48   typeset_grobs ();
  49   finished_spanner_ = spanner_;
  50   spanner_ = 0;
  51   typeset_grobs ();
  52 }
  53
  54 void
  55 Cluster_spanner_engraver::typeset_grobs ()
  56 {
  57   finished_spanner_ = 0;
  58   beacon_ = 0;
  59 }
  60
  61 IMPLEMENT_TRANSLATOR_LISTENER (Cluster_spanner_engraver, cluster_note);
  62 void
  63 Cluster_spanner_engraver::listen_cluster_note (Stream_event *ev)
  64 {
  65   cluster_notes_.push_back (ev);
  66 }
  67
  68 void
  69 Cluster_spanner_engraver::process_music ()
  70 {
  71   if (cluster_notes_.size ())
  72     {
  73       SCM c0scm = get_property ("middleCPosition");
  74
  75       int c0 = scm_is_number (c0scm) ? scm_to_int (c0scm) : 0;
  76       int pmax = INT_MIN;
  77       int pmin = INT_MAX;
  78
  79       for (vsize i = 0; i < cluster_notes_.size (); i++)
  80         {
  81           Pitch *pit = unsmob_pitch (cluster_notes_[i]->get_property ("pitch"));
  82
  83           int p = (pit ? pit->steps () : 0) + c0;
  84
  85           pmax = max (pmax, p);
  86           pmin = min (pmin, p);
  87         }
  88
  89       beacon_ = make_item ("ClusterSpannerBeacon", cluster_notes_[0]->self_scm ());
  90       beacon_->set_property ("positions",
  91                              scm_cons (scm_from_int (pmin),
  92                                        scm_from_int (pmax)));
  93     }
  94
  95   if (beacon_ && !spanner_)
  96     spanner_ = make_spanner ("ClusterSpanner", cluster_notes_[0]->self_scm ());
  97
  98   if (beacon_ && spanner_)
  99     {
 100       add_bound_item (spanner_, beacon_);
 101       Pointer_group_interface::add_grob (spanner_, ly_symbol2scm ("columns"), beacon_);
 102     }
 103 }
 104
 105 void
 106 Cluster_spanner_engraver::stop_translation_timestep ()
 107 {
 108   typeset_grobs ();
 109   cluster_notes_.clear ();
 110 }
 111
 112 void
 113 Cluster_spanner_engraver::acknowledge_note_column (Grob_info info)
 114 {
 115   if (!beacon_ && Note_column::has_interface (info.grob ()))
 116     {
 117       finished_spanner_ = spanner_;
 118       spanner_ = 0;
 119     }
 120 }
 121
 122 ADD_ACKNOWLEDGER (Cluster_spanner_engraver, note_column);
 123 ADD_TRANSLATOR (Cluster_spanner_engraver,
 124                 /* doc */       "Engraves a cluster using Spanner notation ",
 125                 /* create */    "ClusterSpanner ClusterSpannerBeacon",
 126                 /* accept */    "cluster-note-event",
 127                 /* read */      "",
 128                 /* write */     "");
 129