- defn = scm_hashq_ref (tab, drum_type, SCM_EOL);
-
- if (gh_pair_p (defn))
- {
- SCM pos = gh_caddr (defn);
- SCM style =gh_car (defn);
- SCM script = gh_cadr (defn);
-
- if (scm_integer_p (pos) == SCM_BOOL_T)
- note->set_property ("staff-position", pos);
- if (gh_symbol_p (style))
- note->set_property ("style", style);
-
- if (gh_string_p (script))
- {
- Item *p = make_item ("Script");
- SCM desc = SCM_EOL;
- make_script_from_event (p, &desc,
- daddy_context_, script,
- 0);
-
- if (p->get_property ("follow-into-staff"))
- p->set_property ("staff-padding", SCM_EOL);
-
- announce_grob (p, ev->self_scm ());
-
- p->set_parent (note, Y_AXIS);
- Side_position_interface::add_support (p, note);
- scripts_.push (p);
- }
- }
-
-
-
- announce_grob (note,ev->self_scm());
- notes_.push (note);
+ defn = scm_hashq_ref (tab, drum_type, SCM_EOL);
+
+ if (scm_is_pair (defn))
+ {
+ SCM pos = scm_caddr (defn);
+ SCM style = scm_car (defn);
+ SCM script = scm_cadr (defn);
+
+ if (scm_integer_p (pos) == SCM_BOOL_T)
+ note->set_property ("staff-position", pos);
+ if (scm_is_symbol (style))
+ note->set_property ("style", style);
+
+ if (scm_is_string (script))
+ {
+ Item *p = make_item ("Script", ev->self_scm ());
+ make_script_from_event (p, context (), script,
+ 0);
+
+ p->set_parent (note, Y_AXIS);
+ Side_position_interface::add_support (p, note);
+ scripts_.push_back (p);
+ }
+ }