#include "duration.hh"
#include "context.hh"
-/*
- TODO: documentme.
- */
class Auto_beam_engraver : public Engraver
{
TRANSLATOR_DECLARATIONS (Auto_beam_engraver);
void
Auto_beam_engraver::process_music ()
{
- if (gh_string_p (get_property ("whichBar")))
+ if (ly_c_string_p (get_property ("whichBar")))
{
consider_end (shortest_mom_);
junk_beam ();
}
/* second guess: property generic time exception */
- SCM m = scm_assoc (gh_append3 (function, wild, time), settings);
+ SCM m = scm_assoc (ly_append3 (function, wild, time), settings);
if (m != SCM_BOOL_F && unsmob_moment (ly_cdr (m)))
moment = * unsmob_moment (ly_cdr (m));
/* third guess: property time exception, specific for duration type */
- m = scm_assoc (gh_append3 (function, type, time), settings);
+ m = scm_assoc (ly_append3 (function, type, time), settings);
if (m != SCM_BOOL_F && unsmob_moment (ly_cdr (m)))
moment = * unsmob_moment (ly_cdr (m));
/* fourth guess [user override]: property plain generic */
- m = scm_assoc (gh_append3 (function, wild, wild), settings);
+ m = scm_assoc (ly_append3 (function, wild, wild), settings);
if (m != SCM_BOOL_F && unsmob_moment (ly_cdr (m)))
moment = * unsmob_moment (ly_cdr (m));
/* fifth guess [user override]: property plain, specific for duration type */
- m = scm_assoc (gh_append3 (function, type, wild), settings);
+ m = scm_assoc (ly_append3 (function, type, wild), settings);
if (m != SCM_BOOL_F && unsmob_moment (ly_cdr (m)))
moment = * unsmob_moment (ly_cdr (m));
Beam::add_stem (beam, (*stems_)[i]);
}
- announce_grob (beam, SCM_EOL);
+ announce_grob (beam, (*stems_)[0]->self_scm ());
return beam;
}
stems_ = new Link_array<Item>;
grouping_ = new Beaming_info_list;
- beam_settings_ = updated_grob_properties (daddy_context_, ly_symbol2scm ("Beam"));
+ beam_settings_ = updated_grob_properties (context (), ly_symbol2scm ("Beam"));
beam_start_moment_ = now_mom ();
beam_start_location_ = *unsmob_moment (get_property ("measurePosition"));
- subdivide_beams_ = gh_scm2bool (get_property ("subdivideBeams"));
+ subdivide_beams_ = ly_scm2bool (get_property ("subdivideBeams"));
beat_length_ = *unsmob_moment (get_property ("beatLength"));
}
{
finished_grouping_->beamify (beat_length_, subdivide_beams_);
Beam::set_beaming (finished_beam_, finished_grouping_);
- typeset_grob (finished_beam_);
finished_beam_ = 0;
delete finished_grouping_;