lily/spacing-engraver.cc

   1 /*
   2   spacing-engraver.cc --  implement Spacing_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "musical-request.hh"
  11 #include "paper-column.hh"
  12 #include "spacing-engraver.hh"
  13 #include "spacing-spanner.hh"
  14
  15 inline int
  16 compare (Rhythmic_tuple const &a, Rhythmic_tuple const &b)
  17 {
  18   return Rhythmic_tuple::time_compare (a,b);
  19 }
  20
  21 int
  22 Rhythmic_tuple::time_compare (Rhythmic_tuple const &h1,
  23                               Rhythmic_tuple const &h2)
  24 {
  25
  26   return (h1.end_ - h2.end_ ).sign ();
  27 }
  28
  29 Spacing_engraver::Spacing_engraver()
  30 {
  31   spacing_p_ = 0;
  32 }
  33
  34 void
  35 Spacing_engraver::do_creation_processing ()
  36 {
  37   spacing_p_  =new Spacing_spanner;
  38   spacing_p_->set_bounds (LEFT, get_staff_info ().command_pcol_l ());
  39   announce_element (Score_element_info (spacing_p_, 0));
  40 }
  41
  42 void
  43 Spacing_engraver::do_removal_processing ()
  44 {
  45   Paper_column * p = get_staff_info ().command_pcol_l ();
  46
  47   spacing_p_->set_bounds (RIGHT, p);
  48   typeset_element (spacing_p_);
  49   spacing_p_ =0;
  50 }
  51
  52 void
  53 Spacing_engraver::acknowledge_element (Score_element_info i)
  54 {
  55   if (to_boolean (i.elem_l_->get_elt_property ("grace")))
  56     return;
  57
  58   if (to_boolean (i.elem_l_->get_elt_property ("non-rhythmic")))
  59     return;
  60
  61   if (Rhythmic_req * r = dynamic_cast<Rhythmic_req*>(i.req_l_))
  62     {
  63       Rhythmic_tuple t(i, now_mom () + r->length_mom ());
  64       now_durations_.push (t);
  65     }
  66 }
  67
  68 void
  69 Spacing_engraver::do_pre_move_processing ()
  70 {
  71   Moment shortest_playing;
  72   shortest_playing.set_infinite (1);
  73   for (int i=0; i < playing_durations_.size (); i++)
  74     {
  75       Moment m = (playing_durations_[i].info_.req_l_)->length_mom ();
  76       if (m)
  77         {
  78           shortest_playing = shortest_playing <? m;
  79         }
  80     }
  81
  82   Moment starter, inf;
  83   inf.set_infinite (1);
  84   starter=inf;
  85   for (int i=0; i < now_durations_.size (); i++)
  86     {
  87       Moment m = now_durations_[i].info_.req_l_->length_mom ();
  88       if (m)
  89         starter = starter <? m;
  90
  91       playing_durations_.insert (now_durations_[i]);
  92     }
  93   now_durations_.clear ();
  94
  95   shortest_playing = shortest_playing <? starter;
  96
  97   Paper_column * sc
  98     = dynamic_cast<Paper_column*> (get_staff_info ().musical_pcol_l ());
  99
 100   SCM sh = (new Moment (shortest_playing))->smobify_self ();
 101   SCM st = (new Moment (starter))->smobify_self ();
 102
 103   scm_unprotect_object (st);
 104   scm_unprotect_object (sh);
 105
 106   sc->set_elt_property ("shortest-playing-duration", sh);
 107   sc->set_elt_property ("shortest-starter-duration", st);
 108 }
 109
 110 void
 111 Spacing_engraver::do_post_move_processing ()
 112 {
 113   Moment now = now_mom ();
 114   stopped_durations_.clear ();
 115   while (playing_durations_.size () && playing_durations_.front ().end_ < now)
 116     playing_durations_.delmin ();
 117   while (playing_durations_.size () && playing_durations_.front ().end_ == now)
 118     stopped_durations_.push (playing_durations_.get ());
 119 }
 120
 121 ADD_THIS_TRANSLATOR(Spacing_engraver);
 122
 123