]> git.donarmstrong.com Git - lilypond.git/blob - lily/drum-note-performer.cc
Merge branch 'translation'
[lilypond.git] / lily / drum-note-performer.cc
1 /*
2   This file is part of LilyPond, the GNU music typesetter.
3
4   Copyright (C) 1996--2012 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 #include "performer.hh"
21 #include "audio-item.hh"
22 #include "audio-column.hh"
23 #include "global-context.hh"
24 #include "stream-event.hh"
25 #include "translator.icc"
26 #include "warn.hh"
27
28 class Drum_note_performer : public Performer
29 {
30 public:
31   TRANSLATOR_DECLARATIONS (Drum_note_performer);
32
33 protected:
34   void stop_translation_timestep ();
35   void process_music ();
36   DECLARE_TRANSLATOR_LISTENER (note);
37 private:
38   vector<Stream_event *> note_evs_;
39 };
40
41 Drum_note_performer::Drum_note_performer ()
42 {
43 }
44
45 void
46 Drum_note_performer::process_music ()
47 {
48   SCM tab = get_property ("drumPitchTable");
49
50   while (note_evs_.size ())
51     {
52       Stream_event *n = note_evs_.back ();
53       note_evs_.pop_back ();
54       SCM sym = n->get_property ("drum-type");
55       SCM defn = SCM_EOL;
56
57       if (scm_is_symbol (sym)
58           && (scm_hash_table_p (tab) == SCM_BOOL_T))
59         defn = scm_hashq_ref (tab, sym, SCM_EOL);
60
61       if (Pitch *pit = unsmob_pitch (defn))
62         {
63           SCM articulations = n->get_property ("articulations");
64           Stream_event *tie_event = 0;
65           Moment len = get_event_length (n, now_mom ());
66           int velocity = 0;
67           for (SCM s = articulations; scm_is_pair (s); s = scm_cdr (s))
68             {
69               Stream_event *ev = unsmob_stream_event (scm_car (s));
70               if (!ev)
71                 continue;
72
73               if (ev->in_event_class ("tie-event"))
74                 tie_event = ev;
75               SCM f = ev->get_property ("midi-length");
76               if (ly_is_procedure (f))
77                 len = robust_scm2moment (scm_call_2 (f, len.smobbed_copy (),
78                                                      context ()->self_scm ()),
79                                          len);
80               velocity += robust_scm2int (ev->get_property ("midi-extra-velocity"), 0);
81             }
82
83           Audio_note *p = new Audio_note (*pit, len,
84                                           tie_event, Pitch (0, 0, 0), velocity);
85           Audio_element_info info (p, n);
86           announce_element (info);
87         }
88     }
89
90   note_evs_.clear ();
91 }
92
93 void
94 Drum_note_performer::stop_translation_timestep ()
95 {
96   note_evs_.clear ();
97 }
98
99 IMPLEMENT_TRANSLATOR_LISTENER (Drum_note_performer, note);
100 void
101 Drum_note_performer::listen_note (Stream_event *ev)
102 {
103   note_evs_.push_back (ev);
104 }
105
106 ADD_TRANSLATOR (Drum_note_performer,
107                 /* doc */
108                 "Play drum notes.",
109
110                 /* create */
111                 "",
112
113                 /* read */
114                 "",
115
116                 /* write */
117                 ""
118                );