source file of the GNU LilyPond music typesetter
- (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ (c) 1997--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "engraver.hh"
class Script_engraver : public Engraver
{
vector<Script_tuple> scripts_;
- Spanner *slur_;
protected:
void stop_translation_timestep ();
void process_music ();
DECLARE_TRANSLATOR_LISTENER (articulation);
- DECLARE_ACKNOWLEDGER (slur);
DECLARE_ACKNOWLEDGER (rhythmic_head);
DECLARE_ACKNOWLEDGER (stem);
DECLARE_ACKNOWLEDGER (stem_tremolo);
Script_engraver::Script_engraver ()
{
- slur_ = 0;
}
IMPLEMENT_TRANSLATOR_LISTENER (Script_engraver, articulation);
{
SCM entry = scm_assoc (sym, alist);
if (scm_is_pair (entry))
- g->internal_set_property (sym, scm_cdr (entry));
+ g->set_property (sym, scm_cdr (entry));
}
}
if (art == SCM_BOOL_F)
{
/* FIXME: */
- warning (_ ("don't know how to interpret articulation: "));
+ warning (_ ("do not know how to interpret articulation: "));
warning (_ ("scheme encoding: "));
scm_write (art_type, scm_current_error_port ());
message ("");
SCM preset = p->get_property_data (sym);
if (val == SCM_EOL
|| scm_call_1 (type, preset) == SCM_BOOL_F)
- p->internal_set_property (sym, val);
+ p->set_property (sym, val);
}
if (!priority_found)
p->set_property ("script-priority",
scm_from_int (index));
}
-
- Side_position_interface::set_axis (p, Y_AXIS);
}
void
}
}
-void
-Script_engraver::acknowledge_slur (Grob_info info)
-{
- slur_ = info.spanner ();
-}
-
void
Script_engraver::stop_translation_timestep ()
{
scripts_.clear ();
}
-ADD_ACKNOWLEDGER (Script_engraver, slur);
ADD_ACKNOWLEDGER (Script_engraver, rhythmic_head);
ADD_ACKNOWLEDGER (Script_engraver, stem);
ADD_ACKNOWLEDGER (Script_engraver, note_column);
ADD_ACKNOWLEDGER (Script_engraver, stem_tremolo);
ADD_TRANSLATOR (Script_engraver,
- /* doc */ "Handles note scripted articulations.",
- /* create */ "Script",
- /* accept */ "script-event articulation-event",
- /* read */ "scriptDefinitions",
- /* write */ "");
+ /* doc */
+ "Handle note scripted articulations.",
+
+ /* create */
+ "Script ",
+
+ /* read */
+ "scriptDefinitions ",
+
+ /* write */
+ ""
+ );