X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Ftuplet-iterator.cc;h=c43e630c4384e51f4c0acf44a158918fb5467df8;hb=97a0169312a260933246ab224e4f8b0969871dd5;hp=20d04e651b16c745557a4eab4cb4deb67cec1301;hpb=9fd81cd1fbc2935e1c69842ed9f41294af62f504;p=lilypond.git diff --git a/lily/tuplet-iterator.cc b/lily/tuplet-iterator.cc index 20d04e651b..c43e630c43 100644 --- a/lily/tuplet-iterator.cc +++ b/lily/tuplet-iterator.cc @@ -1,7 +1,7 @@ /* This file is part of LilyPond, the GNU music typesetter. - Copyright (C) 1998--2014 Han-Wen Nienhuys , + Copyright (C) 1998--2015 Han-Wen Nienhuys , Erik Sandberg LilyPond is free software: you can redistribute it and/or modify @@ -24,6 +24,7 @@ #include "music.hh" #include "music-wrapper-iterator.hh" #include "stream-event.hh" +#include "lily-imports.hh" /* Iterates \times, by sending TupletSpanEvents at the start/end of each @@ -62,13 +63,12 @@ private: Music * Tuplet_iterator::create_event (Direction d) { - SCM ev_scm = scm_call_2 (ly_lily_module_constant ("make-span-event"), - ly_symbol2scm ("TupletSpanEvent"), - scm_from_int (d)); + SCM ev_scm = Lily::make_span_event (ly_symbol2scm ("TupletSpanEvent"), + scm_from_int (d)); Music *mus = get_music (); - Music *ev = Music::unsmob (ev_scm); + Music *ev = unsmob (ev_scm); ev->set_spot (*mus->origin ()); if (d == START) { @@ -128,10 +128,10 @@ Tuplet_iterator::process (Moment m) void Tuplet_iterator::construct_children () { - if (Duration *d = Duration::unsmob (get_music ()->get_property ("duration"))) + if (Duration *d = unsmob (get_music ()->get_property ("duration"))) spanner_duration_ = d->get_length (); else if (Moment *mp - = Moment::unsmob (get_outlet ()->get_property ("tupletSpannerDuration"))) + = unsmob (get_outlet ()->get_property ("tupletSpannerDuration"))) spanner_duration_ = mp->main_part_; else spanner_duration_.set_infinite (1);