2 plet-engraver.cc -- implement Tuplet_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1998--2003 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_mus_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 SCM v
= get_property ("tupletInvisible");
72 for (int i
= 0; i
< time_scaled_musics_
.size (); i
++)
74 if (i
< started_spanners_
.size () && started_spanners_
[i
])
77 Spanner
* glep
= new Spanner (get_property ("TupletBracket"));
79 if (i
>= started_spanners_
.size ())
80 started_spanners_
.push (glep
);
82 started_spanners_
[i
] = glep
;
85 SCM proc
= get_property ("tupletNumberFormatFunction");
86 if (gh_procedure_p (proc
))
88 SCM t
= gh_apply (proc
, scm_list_n (time_scaled_musics_
[i
]->self_scm (), SCM_UNDEFINED
));
89 glep
->set_grob_property ("text", t
);
92 announce_grob(glep
, time_scaled_musics_
[i
]->self_scm());
97 Tuplet_engraver::acknowledge_grob (Grob_info i
)
99 if (Note_column::has_interface (i
.grob_
))
101 for (int j
=0; j
<started_spanners_
.size (); j
++)
102 if (started_spanners_
[j
])
103 Tuplet_bracket::add_column (started_spanners_
[j
], dynamic_cast<Item
*> (i
.grob_
));
108 Tuplet_engraver::start_translation_timestep ()
110 Moment now
= now_mom ();
113 SCM s
= get_property ("tupletSpannerDuration");
114 if (unsmob_moment (s
))
115 tsd
= unsmob_moment (s
)->main_part_
;
117 for (int i
= started_spanners_
.size (); i
--;)
119 if (now
.main_part_
>= span_stop_moments_
[i
])
121 if (started_spanners_
[i
])
123 typeset_grob (started_spanners_
[i
]);
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 tupletInvisible",