]> git.donarmstrong.com Git - lilypond.git/blob - lily/spacing-engraver.cc
Configure only pristine build tree or on user
[lilypond.git] / 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--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7   
8  */
9
10 #include "event.hh"
11 #include "paper-column.hh"
12 #include "engraver.hh"
13 #include "pqueue.hh"
14 #include "note-spacing.hh"
15 #include "staff-spacing.hh"
16 #include "group-interface.hh"
17 #include "spanner.hh"
18
19 struct Rhythmic_tuple
20 {
21   Grob_info info_;
22   Moment end_;
23   
24   Rhythmic_tuple ()
25     {
26     }
27   Rhythmic_tuple (Grob_info i, Moment m)
28     {
29       info_ = i;
30       end_ = m;
31     }
32   static int time_compare (Rhythmic_tuple const &, Rhythmic_tuple const &);  
33 };
34
35 /**
36    Acknowledge rhythmic elements, for initializing spacing fields in
37    the columns.
38
39    should be the  last one of the toplevel context
40 */
41 class Spacing_engraver : public Engraver
42 {
43   PQueue<Rhythmic_tuple> playing_durations_;
44   Array<Rhythmic_tuple> now_durations_;
45   Array<Rhythmic_tuple> stopped_durations_;
46   Moment now_;
47   Spanner * spacing_;
48   
49   TRANSLATOR_DECLARATIONS (Spacing_engraver);
50 protected:
51   virtual void acknowledge_grob (Grob_info);
52   virtual void start_translation_timestep ();
53   virtual void stop_translation_timestep ();
54   virtual void process_music ();
55   virtual void finalize ();
56 };
57
58 inline int
59 compare (Rhythmic_tuple const &a, Rhythmic_tuple const &b)
60 {
61   return Rhythmic_tuple::time_compare (a,b);
62 }
63
64 int
65 Rhythmic_tuple::time_compare (Rhythmic_tuple const &h1,
66                               Rhythmic_tuple const &h2)
67 {
68   return (h1.end_ - h2.end_).main_part_.sign ();
69 }
70
71 Spacing_engraver::Spacing_engraver ()
72 {
73   spacing_ = 0;
74 }
75
76 void
77 Spacing_engraver::process_music ()
78 {
79   if (!spacing_)
80     {
81       spacing_ = make_spanner ("SpacingSpanner", SCM_EOL);
82       spacing_->set_bound (LEFT, unsmob_grob (get_property ("currentCommandColumn")));  
83       
84     }
85 }
86
87 void
88 Spacing_engraver::finalize ()
89 {
90   if (spacing_)
91     {
92       Grob * p = unsmob_grob (get_property ("currentCommandColumn"));
93   
94       spacing_->set_bound (RIGHT, p);
95       spacing_ =0;
96     }
97 }
98
99 void
100 Spacing_engraver::acknowledge_grob (Grob_info i)
101 {
102   if (Note_spacing::has_interface (i.grob_) || Staff_spacing::has_interface (i.grob_))
103     {
104       Pointer_group_interface::add_grob (spacing_, ly_symbol2scm  ("wishes"), i.grob_);
105     }
106   
107   if (i.grob_->internal_has_interface (ly_symbol2scm ("lyric-syllable-interface"))
108       || i.grob_->internal_has_interface (ly_symbol2scm ("multi-measure-event")))
109     return;
110
111   /*
112     only pay attention to durations that are not grace notes. 
113    */
114   if (!now_.grace_part_)
115     {
116       Music *r = i.music_cause ();
117       if (r && r->is_mus_type ("rhythmic-event"))
118         {
119           Moment len = r->get_length ();
120           Rhythmic_tuple t (i, now_mom () + len);
121           now_durations_.push (t);
122         }
123     }
124 }
125
126 void
127 Spacing_engraver::stop_translation_timestep ()
128 {
129   Moment shortest_playing;
130   shortest_playing.set_infinite (1);
131   for (int i=0; i < playing_durations_.size (); i++)
132     {
133       Music * mus = playing_durations_[i].info_.music_cause ();
134       if (mus)
135         {
136           Moment m = mus->get_length ();
137           shortest_playing = shortest_playing <? m;
138         }
139     }
140   Moment starter;
141   starter.set_infinite (1);
142
143   for (int i=0; i < now_durations_.size (); i++)
144     {
145       Moment m = now_durations_[i].info_.music_cause ()->get_length ();
146       if (m.to_bool ())
147         {
148           starter = starter <? m;
149           playing_durations_.insert (now_durations_[i]);
150
151         }
152     }
153   now_durations_.clear ();
154   
155   shortest_playing = shortest_playing <? starter;
156   
157   Paper_column * sc
158     = dynamic_cast<Paper_column*> (unsmob_grob (get_property ("currentMusicalColumn")));
159
160   assert (starter.to_bool ());
161   SCM sh = shortest_playing.smobbed_copy ();
162   SCM st = starter.smobbed_copy ();
163
164   sc->set_property ("shortest-playing-duration", sh);  
165   sc->set_property ("shortest-starter-duration", st);
166 }
167
168 void
169 Spacing_engraver::start_translation_timestep ()
170 {
171   now_ = now_mom ();
172   stopped_durations_.clear ();
173   while (playing_durations_.size () && playing_durations_.front ().end_ < now_)
174     playing_durations_.delmin ();
175   while (playing_durations_.size () && playing_durations_.front ().end_ == now_)
176     stopped_durations_.push (playing_durations_.get ());
177 }
178
179
180
181
182 ENTER_DESCRIPTION (Spacing_engraver,
183 /* descr */       "make a SpacingSpanner and do bookkeeping of shortest starting and playing notes  ",
184 /* creats*/       "SpacingSpanner",
185 /* accepts */     "",
186 /* acks  */      "grob-interface",
187 /* reads */       "",
188 /* write */       "");