/*
- time-signature.cc -- implement Time_signature
+ time-signature.cc -- implement Time_signature
source file of the GNU LilyPond music typesetter
- (c) 1996--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1996--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "warn.hh"
#include "staff-symbol-referencer.hh"
+
+/*
+ TODO:
+
+ this file should go ; The formatting can completely be done with
+ markups.
+
+ */
+
MAKE_SCHEME_CALLBACK (Time_signature, brew_molecule, 1);
-/* TODO: make different functions for special and normal timesigs. */
SCM
Time_signature::brew_molecule (SCM smob)
{
me->set_grob_property ("font-family", ly_symbol2scm ("music"));
Molecule out = Font_interface::get_default_font (me)
->find_by_name ("timesig-" + char_name);
- if (!out.empty_b ())
+ if (!out.is_empty ())
return out;
/* If there is no such symbol, we default to the numbered style.
me->set_grob_property ("font-family", ly_symbol2scm ("number"));
SCM sn =
- Text_item::interpret_markup (me->self_scm(), chain,
+ Text_item::interpret_markup (me->get_paper ()->self_scm(), chain,
scm_makfrom0str (to_string (num).to_str0 ()));
SCM sd =
- Text_item::interpret_markup (me->self_scm(), chain,
+ Text_item::interpret_markup (me->get_paper ()->self_scm(), chain,
scm_makfrom0str (to_string (den).to_str0 ()));
Molecule n = *unsmob_molecule (sn);