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