2 extender-engraver.cc -- implement Extender_engraver
4 (c) 1999 Glen Prideaux <glenprideaux@iname.com>,
5 Han-Wen Nienhuys, Jan Nieuwenhuizen.
9 #include "flower-proto.hh"
10 #include "musical-request.hh"
11 #include "lyric-extender.hh"
12 #include "paper-column.hh"
14 #include "engraver.hh"
15 #include "drul-array.hh"
16 #include "lyric-extender.hh"
21 Generate an centred extender. Should make a Extender_spanner that
22 typesets a nice centred extender of varying length depending on the
23 gap between syllables.
25 We remember the last Item that come across. When we get a
26 request, we create the spanner, and attach the left point to the
27 last lyrics, and the right point to any lyrics we receive by
29 class Extender_engraver
: public Engraver
36 TRANSLATOR_DECLARATIONS(Extender_engraver
);
39 virtual void acknowledge_grob (Grob_info
);
40 virtual void finalize ();
41 virtual bool try_music (Music
*);
42 virtual void stop_translation_timestep ();
43 virtual void start_translation_timestep ();
44 virtual void process_music ();
52 Extender_engraver::Extender_engraver ()
61 Extender_engraver::acknowledge_grob (Grob_info i
)
64 if (i
.grob_
->internal_has_interface (ly_symbol2scm ("lyric-syllable-interface")))
66 current_lyric_
= i
.grob_
;
68 && !extender_
->get_bound (RIGHT
)
71 Lyric_extender::set_textitem (extender_
, RIGHT
, dynamic_cast<Item
*> (i
.grob_
));
78 Extender_engraver::try_music (Music
* r
)
80 if (Extender_req
* p
= dynamic_cast <Extender_req
*> (r
))
92 Extender_engraver::finalize ()
96 req_
->origin ()->warning (_ ("unterminated extender"));
97 extender_
->set_bound (RIGHT
, unsmob_grob (get_property ("currentCommandColumn")));
102 Extender_engraver::process_music ()
104 if (req_
&& ! extender_
)
108 req_
->origin ()->warning (_ ("Nothing to connect extender to on the left. Ignoring extender request."));
112 extender_
= new Spanner (get_property ("LyricExtender"));
115 Lyric_extender::set_textitem (extender_
, LEFT
, last_lyric_
);
116 announce_grob(extender_
, req_
->self_scm());
122 Extender_engraver::stop_translation_timestep ()
126 typeset_grob (extender_
);
132 last_lyric_
= current_lyric_
;
138 Extender_engraver::start_translation_timestep ()
144 ENTER_DESCRIPTION(Extender_engraver
,
145 /* descr */ "Create lyric extenders",
146 /* creats*/ "LyricExtender",
147 /* acks */ "lyric-syllable-interface",