2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 1997--2010 Jan Nieuwenhuizen <janneke@gnu.org>
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.
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.
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/>.
20 #include "performer.hh"
22 #include "audio-item.hh"
23 #include "duration.hh"
24 #include "stream-event.hh"
26 #include "translator.icc"
28 class Tempo_performer
: public Performer
31 TRANSLATOR_DECLARATIONS (Tempo_performer
);
36 virtual void derived_mark () const;
37 void stop_translation_timestep ();
38 void process_music ();
45 Tempo_performer::derived_mark () const
47 scm_gc_mark (last_tempo_
);
50 Tempo_performer::Tempo_performer ()
52 last_tempo_
= SCM_EOL
;
56 Tempo_performer::~Tempo_performer ()
61 Tempo_performer::process_music ()
63 SCM w
= get_property ("tempoWholesPerMinute");
65 && !ly_is_equal (w
, last_tempo_
))
67 Rational r
= unsmob_moment (w
)->main_part_
;
70 audio_
= new Audio_tempo (r
.to_int ());
72 Audio_element_info
info (audio_
, 0);
73 announce_element (info
);
80 Tempo_performer::stop_translation_timestep ()
88 ADD_TRANSLATOR (Tempo_performer
,
96 "tempoWholesPerMinute ",