1 /*
2 This file is part of LilyPond, the GNU music typesetter.
3
4 Copyright (C) 2000--2020 Jan Nieuwenhuizen <janneke@gnu.org>
5
6 LilyPond is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
10
11 LilyPond is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
18 */
19
20 /*
21 C&P from text-spanner.cc
22
23 - todo: ending should be detected automatically? a new note
24 automatically is the end of the trill?
25 */
26
27 #include "engraver.hh"
28
29 #include "international.hh"
30 #include "note-column.hh"
31 #include "pointer-group-interface.hh"
32 #include "side-position-interface.hh"
33 #include "stream-event.hh"
34 #include "spanner.hh"
35
36 #include "translator.icc"
37
38 class Trill_spanner_engraver : public Engraver
39 {
40 public:
41 TRANSLATOR_DECLARATIONS (Trill_spanner_engraver);
42 protected:
43 void finalize () override;
44 void listen_trill_span (Stream_event *);
45 void acknowledge_note_column (Grob_info);
46
47 void stop_translation_timestep ();
48 void process_music ();
49
50 private:
51 Spanner *span_;
52 Spanner *finished_;
53 Stream_event *current_event_;
54 Drul_array<Stream_event *> event_drul_;
55 void typeset_all ();
56 };
57
Trill_spanner_engraver(Context * c)58 Trill_spanner_engraver::Trill_spanner_engraver (Context *c)
59 : Engraver (c)
60 {
61 finished_ = 0;
62 current_event_ = 0;
63 span_ = 0;
64 event_drul_.set (0, 0);
65 }
66
67 void
listen_trill_span(Stream_event * ev)68 Trill_spanner_engraver::listen_trill_span (Stream_event *ev)
69 {
70 Direction d = from_scm<Direction> (get_property (ev, "span-direction"));
71 ASSIGN_EVENT_ONCE (event_drul_[d], ev);
72 }
73
74 void
acknowledge_note_column(Grob_info info)75 Trill_spanner_engraver::acknowledge_note_column (Grob_info info)
76 {
77 if (span_)
78 {
79 Pointer_group_interface::add_grob (span_,
80 ly_symbol2scm ("note-columns"),
81 info.grob ());
82 if (!span_->get_bound (LEFT))
83 add_bound_item (span_, info.grob ());
84 }
85 else if (finished_)
86 {
87 Pointer_group_interface::add_grob (finished_, ly_symbol2scm ("note-columns"),
88 info.grob ());
89 if (!finished_->get_bound (RIGHT))
90 add_bound_item (finished_, info.grob ());
91 }
92 }
93
94 void
process_music()95 Trill_spanner_engraver::process_music ()
96 {
97 if (span_
98 && (event_drul_[STOP] || event_drul_[START]))
99 {
100 Stream_event *ender = event_drul_[STOP];
101 if (!ender)
102 ender = event_drul_[START];
103 finished_ = span_;
104 announce_end_grob (finished_, ender->self_scm ());
105 span_ = 0;
106 current_event_ = 0;
107 }
108
109 if (event_drul_[START])
110 {
111 current_event_ = event_drul_[START];
112 span_ = make_spanner ("TrillSpanner", event_drul_[START]->self_scm ());
113 Side_position_interface::set_axis (span_, Y_AXIS);
114 }
115 }
116
117 void
typeset_all()118 Trill_spanner_engraver::typeset_all ()
119 {
120 if (finished_)
121 {
122 if (!finished_->get_bound (RIGHT))
123 {
124 Grob *e = unsmob<Grob> (get_property (this, "currentMusicalColumn"));
125 finished_->set_bound (RIGHT, e);
126 }
127 finished_ = 0;
128 }
129 }
130
131 void
stop_translation_timestep()132 Trill_spanner_engraver::stop_translation_timestep ()
133 {
134 if (span_ && !span_->get_bound (LEFT))
135 {
136 Grob *e = unsmob<Grob> (get_property (this, "currentMusicalColumn"));
137 span_->set_bound (LEFT, e);
138 }
139
140 typeset_all ();
141 event_drul_.set (0, 0);
142 }
143
144 void
finalize()145 Trill_spanner_engraver::finalize ()
146 {
147 typeset_all ();
148 if (span_)
149 {
150 Grob *e = unsmob<Grob> (get_property (this, "currentCommandColumn"));
151 span_->set_bound (RIGHT, e);
152 }
153 }
154
155 void
boot()156 Trill_spanner_engraver::boot ()
157 {
158 ADD_LISTENER (Trill_spanner_engraver, trill_span);
159 ADD_ACKNOWLEDGER (Trill_spanner_engraver, note_column);
160 }
161
162 ADD_TRANSLATOR (Trill_spanner_engraver,
163 /* doc */
164 "Create trill spanner from an event.",
165
166 /* create */
167 "TrillSpanner ",
168
169 /* read */
170 "currentCommandColumn "
171 "currentMusicalColumn ",
172
173 /* write */
174 ""
175 );
176