2 midi-def.cc -- implement Midi_def
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2002 Jan Nieuwenhuizen <janneke@gnu.org>
11 #include "midi-def.hh"
12 #include "performance.hh"
14 #include "scm-hash.hh"
19 set_tempo (Moment (Rational (1, 4)), 60);
23 Midi_def::get_tempo (Moment one_beat_mom
)
25 SCM wis
= ly_symbol2scm ("whole-in-seconds");
26 Moment
*w
= unsmob_moment (variable_tab_
->get (wis
));
28 Moment wholes_per_min
= Moment (60);
31 programming_error ("wholes-in-seconds not set.");
39 int beats_per_min
= int ((wholes_per_min
/ one_beat_mom
).main_part_
);
40 return int (beats_per_min
);
44 Midi_def::set_tempo (Moment one_beat_mom
, int beats_per_minute_i
)
46 Moment beats_per_second
= Moment (beats_per_minute_i
) / Moment (60);
48 Moment m
= Moment (1)/Moment (beats_per_second
* one_beat_mom
);
49 variable_tab_
->set (ly_symbol2scm ("whole-in-seconds"), m
.smobbed_copy ());
53 int Midi_def::score_count_
=0;
56 Midi_def::get_next_score_count () const
58 return score_count_
++;
62 Midi_def::reset_score_count ()