2 midi-def.cc -- implement midi output def functions
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2005 Jan Nieuwenhuizen <janneke@gnu.org>
12 #include "output-def.hh"
15 #include "scm-hash.hh"
18 get_tempo (Output_def *def,
21 SCM wis = ly_symbol2scm ("whole-in-seconds");
22 Moment *w = unsmob_moment (def->lookup_variable (wis));
24 Moment wholes_per_min = Moment (60);
27 programming_error ("wholes-in-seconds not set.");
35 int beats_per_min = int ((wholes_per_min / one_beat_mom).main_part_);
36 return int (beats_per_min);
40 set_tempo (Output_def *def,
42 int beats_per_minute_i)
44 Moment beats_per_second = Moment (beats_per_minute_i) / Moment (60);
46 Moment m = Moment (1) / Moment (beats_per_second * one_beat_mom);
47 def->set_variable (ly_symbol2scm ("whole-in-seconds"), m.smobbed_copy ());