2 beam-performer.cc -- implement Beam_performer
4 source file of the GNU LilyPond music typesetter
6 (c) 1996--2004 Jan Nieuwenhuizen <janneke@gnu.org>
9 #include "performer.hh"
11 #include "audio-item.hh"
12 #include "audio-column.hh"
13 #include "global-context.hh"
16 class Beam_performer
: public Performer
{
18 TRANSLATOR_DECLARATIONS (Beam_performer
);
21 virtual bool try_music (Music
*ev
) ;
22 virtual void start_translation_timestep ();
23 virtual void process_music ();
24 void set_melisma (bool);
31 Beam_performer::Beam_performer ()
39 Beam_performer::process_music ()
56 Beam_performer::set_melisma (bool ml
)
58 SCM b
= get_property ("autoBeaming");
60 daddy_context_
->set_property ("beamMelismaBusy", ml
? SCM_BOOL_T
:SCM_BOOL_F
);
64 Beam_performer::start_translation_timestep ()
71 Beam_performer::try_music (Music
*m
)
73 if (m
->is_mus_type ("beam-event"))
75 Direction d
= to_dir (m
->get_property ("span-direction"));
90 ENTER_DESCRIPTION (Beam_performer
,"","",
91 "beam-event","","","");