2 plet-engraver.cc -- implement Tuplet_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1998--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
12 #include "tuplet-bracket.hh"
13 #include "note-column.hh"
14 #include "time-scaled-music.hh"
16 #include "music-list.hh"
17 #include "engraver.hh"
20 class Tuplet_engraver
: public Engraver
23 TRANSLATOR_DECLARATIONS (Tuplet_engraver
);
26 Link_array
<Music
> time_scaled_musics_
;
27 /// when does the scaled music stop? Array order is synced with time_scaled_musics_
28 Array
<Rational
> stop_moments_
;
29 /// when does the current spanner stop? Array order is synced with time_scaled_musics_
30 Array
<Rational
> span_stop_moments_
;
32 /// The spanners. Array order is synced with time_scaled_musics_
33 Link_array
<Spanner
> started_spanners_
;
35 virtual void finalize ();
36 virtual void acknowledge_grob (Grob_info
);
37 virtual bool try_music (Music
*r
);
38 virtual void start_translation_timestep ();
39 virtual void process_acknowledged_grobs ();
43 Tuplet_engraver::try_music (Music
*c
)
45 if (c
->is_mus_type ("time-scaled-music"))
47 Music
*el
= unsmob_music (c
->get_property ("element"));
48 if (el
&& !el
->is_mus_type ("event-chord"))
50 time_scaled_musics_
.push (c
);
51 Rational m
= now_mom ().main_part_
+ c
->get_length ().main_part_
;
52 stop_moments_
.push (m
);
54 SCM s
= get_property ("tupletSpannerDuration");
55 if (unsmob_moment (s
))
56 m
= m
<? (now_mom () + *unsmob_moment (s
)).main_part_
;
58 span_stop_moments_
.push (m
);
66 Tuplet_engraver::process_acknowledged_grobs ()
68 for (int i
= 0; i
< time_scaled_musics_
.size (); i
++)
70 if (i
< started_spanners_
.size () && started_spanners_
[i
])
73 Spanner
* glep
= make_spanner ("TupletBracket");
75 if (i
>= started_spanners_
.size ())
76 started_spanners_
.push (glep
);
78 started_spanners_
[i
] = glep
;
81 SCM proc
= get_property ("tupletNumberFormatFunction");
82 if (gh_procedure_p (proc
))
84 SCM t
= gh_apply (proc
, scm_list_n (time_scaled_musics_
[i
]->self_scm (), SCM_UNDEFINED
));
85 glep
->set_property ("text", t
);
88 announce_grob (glep
, time_scaled_musics_
[i
]->self_scm ());
93 Tuplet_engraver::acknowledge_grob (Grob_info i
)
95 if (Note_column::has_interface (i
.grob_
))
97 for (int j
=0; j
<started_spanners_
.size (); j
++)
98 if (started_spanners_
[j
])
99 Tuplet_bracket::add_column (started_spanners_
[j
], dynamic_cast<Item
*> (i
.grob_
));
104 Tuplet_engraver::start_translation_timestep ()
106 Moment now
= now_mom ();
109 SCM s
= get_property ("tupletSpannerDuration");
110 if (unsmob_moment (s
))
111 tsd
= unsmob_moment (s
)->main_part_
;
113 for (int i
= started_spanners_
.size (); i
--;)
115 if (now
.main_part_
>= span_stop_moments_
[i
])
117 if (Spanner
*sp
= started_spanners_
[i
])
119 if (!sp
->get_bound (RIGHT
))
120 sp
->set_bound (RIGHT
, sp
->get_bound (LEFT
));
124 started_spanners_
[i
] =0;
128 span_stop_moments_
[i
] += tsd
.main_part_
;
131 if (now
.main_part_
>= stop_moments_
[i
])
133 started_spanners_
.del (i
);
134 stop_moments_
.del (i
);
135 span_stop_moments_
.del (i
);
136 time_scaled_musics_
.del (i
);
142 Tuplet_engraver::finalize ()
144 for (int i
=0; i
< started_spanners_
.size (); i
++)
146 if (started_spanners_
[i
])
147 typeset_grob (started_spanners_
[i
]);
153 Tuplet_engraver::Tuplet_engraver (){}
155 ENTER_DESCRIPTION (Tuplet_engraver
,
156 /* descr */ "Catch Time_scaled_music and generate appropriate bracket ",
157 /* creats*/ "TupletBracket",
158 /* accepts */ "time-scaled-music",
159 /* acks */ "note-column-interface",
160 /* reads */ "tupletNumberFormatFunction tupletSpannerDuration",