2 grace-engraver.cc -- implement Grace_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2004--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
13 class Grace_engraver : public Engraver
16 virtual void start_translation_timestep ();
17 virtual void derived_mark ();
19 TRANSLATOR_DECLARATIONS (Grace_engraver);
25 Grace_engraver::Grace_engraver ()
27 grace_settings_ = SCM_EOL;
31 Grace_engraver::derived_mark ()
33 scm_gc_mark (grace_settings_);
37 Grace_engraver::start_translation_timestep ()
39 Moment now = now_mom ();
40 if (last_moment_.grace_part_ && !now.grace_part_)
42 for (SCM s = grace_settings_; scm_is_pair (s); s = scm_cdr (s))
44 SCM context = scm_caar (s);
45 SCM entry = scm_cdar (s);
46 SCM grob = scm_cadr (entry);
47 SCM sym = scm_caddr (entry);
49 execute_pushpop_property (unsmob_context (context),
50 grob, sym, SCM_UNDEFINED);
53 grace_settings_ = SCM_EOL;
55 else if (!last_moment_.grace_part_ && now.grace_part_)
57 SCM settings = get_property ("graceSettings");
59 grace_settings_ = SCM_EOL;
60 for (SCM s = settings; scm_is_pair (s); s = scm_cdr (s))
62 SCM entry = scm_car (s);
63 SCM context_name = scm_car (entry);
64 SCM grob = scm_cadr (entry);
65 SCM sym = scm_caddr (entry);
66 SCM val = scm_cadr (scm_cddr (entry));
68 Context *c = context ();
70 && c->context_name_symbol () != context_name)
72 c = c->get_parent_context ();
77 execute_pushpop_property (c,
80 = scm_cons (scm_cons (c->self_scm (), entry), grace_settings_);
84 programming_error ("Cannot find context");
85 scm_display (context_name, scm_current_error_port ());
93 ADD_TRANSLATOR (Grace_engraver,
94 /* descr */ "Set font size and other properties for grace notes.",
98 /* reads */ "graceSettings",