#include "misc.hh"
/**
- generate time_signatures.
- */
+ generate time_signatures.
+*/
class Time_signature_engraver : public Engraver
{
Item *time_signature_;
TRANSLATOR_DECLARATIONS (Time_signature_engraver);
};
-
Time_signature_engraver::Time_signature_engraver ()
-{
+{
time_signature_ = 0;
last_time_fraction_ = SCM_BOOL_F;
}
Todo: should make typecheck?
OTOH, Tristan Keuris writes 8/20 in his Intermezzi.
- */
+ */
warning (_f ("Found strange time signature %d/%d.",
- den,
- scm_to_int (scm_car (fr))
- ));
+ den,
+ scm_to_int (scm_car (fr))));
}
-
-
- last_time_fraction_ = fr;
+
+ last_time_fraction_ = fr;
time_signature_ = make_item ("TimeSignature", SCM_EOL);
time_signature_->set_property ("fraction", fr);
}
{
time_signature_ = 0;
}
-
ADD_TRANSLATOR (Time_signature_engraver,
-/* descr */ "Create a TimeSignature whenever @code{timeSignatureFraction} changes",
-/* creats*/ "TimeSignature",
-/* accepts */ "",
-/* acks */ "",
-/* reads */ "",
-/* write */ "");
+ /* descr */ "Create a TimeSignature whenever @code{timeSignatureFraction} changes",
+ /* creats*/ "TimeSignature",
+ /* accepts */ "",
+ /* acks */ "",
+ /* reads */ "",
+ /* write */ "");