2 midi-def.cc -- implement Midi_def
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2003 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 (lookup_variable (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 set_variable (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 ()