]> git.donarmstrong.com Git - lilypond.git/blob - lily/repeat-tie-engraver.cc
Merge branch 'master' of git://git.sv.gnu.org/lilypond
[lilypond.git] / lily / repeat-tie-engraver.cc
1 /*
2   repeat-tie-engraver.cc -- implement Repeat_tie_engraver
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 2005--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
7
8 */
9
10
11 #include "engraver.hh"
12 #include "item.hh"
13 #include "pointer-group-interface.hh"
14 #include "stream-event.hh"
15
16 #include "translator.icc"
17
18 class Repeat_tie_engraver : public Engraver
19 {
20   Stream_event *event_;
21   Grob *semi_tie_column_;
22   vector<Grob*> semi_ties_;
23   
24   void stop_translation_timestep (); 
25   DECLARE_ACKNOWLEDGER (note_head);
26   DECLARE_TRANSLATOR_LISTENER (repeat_tie);
27   
28 public:
29   TRANSLATOR_DECLARATIONS (Repeat_tie_engraver);
30 };
31
32 Repeat_tie_engraver::Repeat_tie_engraver ()
33 {
34   event_ = 0;
35   semi_tie_column_ = 0;
36 }
37
38 void
39 Repeat_tie_engraver::stop_translation_timestep ()
40 {
41   event_ = 0;
42   semi_tie_column_ = 0;
43   semi_ties_.clear ();
44 }
45
46 IMPLEMENT_TRANSLATOR_LISTENER (Repeat_tie_engraver, repeat_tie);
47 void
48 Repeat_tie_engraver::listen_repeat_tie (Stream_event *ev)
49 {
50   ASSIGN_EVENT_ONCE (event_, ev);
51 }
52
53 void
54 Repeat_tie_engraver::acknowledge_note_head (Grob_info inf)
55 {
56   if (!event_)
57     return;
58
59   if (!semi_tie_column_)
60     {
61       semi_tie_column_ = make_item ("RepeatTieColumn", event_->self_scm ());
62     }
63
64   SCM cause = event_->self_scm ();
65   Grob *semi_tie = make_item ("RepeatTie", cause);
66   semi_tie->set_object ("note-head", inf.grob ()->self_scm ());
67   
68   Pointer_group_interface::add_grob (semi_tie_column_, ly_symbol2scm ("ties"),
69                                      semi_tie);
70   semi_tie->set_parent (semi_tie_column_, Y_AXIS);
71   semi_ties_.push_back (semi_tie);
72
73
74   if (is_direction (unsmob_stream_event (cause)->get_property ("direction")))
75     {
76       Direction d = to_dir (unsmob_stream_event (cause)->get_property ("direction"));
77       semi_tie->set_property ("direction", scm_from_int (d)); 
78     }
79
80 }
81
82 ADD_ACKNOWLEDGER (Repeat_tie_engraver, note_head);
83 ADD_TRANSLATOR (Repeat_tie_engraver, 
84                 /* doc */ "Create repeat ties.",
85                 
86                 /* create */
87                 "RepeatTie "
88                 "RepeatTieColumn ",
89                 /* read */ "",
90                 /* write */ "");