]> git.donarmstrong.com Git - lilypond.git/blob - lily/lyric-grav.cc
a10cf614b2b3baf93c6ab8b8b701c85f7e507bc7
[lilypond.git] / lily / lyric-grav.cc
1 /*
2   lyric-engraver.cc -- implement Lyric_engraver
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
7 */
8
9 #include "lyric-engraver.hh"
10 #include "musical-request.hh"
11 #include "text-item.hh"
12 #include "paper-def.hh"
13 #include "lookup.hh"
14 #include "paper-def.hh"
15
16 Lyric_engraver::Lyric_engraver()
17 {
18   lreq_l_ =0;
19   lyric_item_p_ =0;
20 }
21
22 bool
23 Lyric_engraver::do_try_request (Request*r)
24 {
25   Musical_req * m =r->musical();
26   if (!m || ! m->lreq_l()) 
27         return false;
28   lreq_l_ = m->lreq_l();
29
30   return true;
31 }
32
33 void
34 Lyric_engraver::do_process_requests()
35 {
36   if (lreq_l_) 
37     {
38         lyric_item_p_ =  new Text_item (lreq_l_->tdef_p_);
39
40         lyric_item_p_->translate (paper()->note_width ()/2 , X_AXIS);
41         lyric_item_p_->dir_ = DOWN;
42         lyric_item_p_->fat_b_ = true;
43         announce_element (Score_elem_info (lyric_item_p_, lreq_l_));
44     }
45 }
46
47 void
48 Lyric_engraver::do_post_move_processing()
49 {
50   lreq_l_ =0;
51 }
52
53 void
54 Lyric_engraver::do_pre_move_processing()
55 {
56   if (lyric_item_p_)
57     {
58         typeset_element (lyric_item_p_);
59         lyric_item_p_ =0;
60     }
61 }
62
63
64 IMPLEMENT_IS_TYPE_B1(Lyric_engraver,Engraver);
65 ADD_THIS_ENGRAVER(Lyric_engraver);