+
+ Context *parent = lyrics;
+ Context *voice = 0;
+ while (parent && !voice)
+ {
+ voice = find_context_below (parent, ly_symbol2scm ("Voice"), nm);
+ parent = parent->get_parent_context ();
+ }
+
+ if (voice)
+ return voice;
+
+ parent = lyrics;
+ voice = 0;
+ while (parent && !voice)
+ {
+ voice = find_context_below (parent, ly_symbol2scm ("Voice"), "");
+ parent = parent->get_parent_context ();
+ }
+
+ return voice;
+}
+
+Grob *
+get_current_note_head (Context *voice)
+{
+ Moment now = voice->now_mom ();
+ for (SCM s = voice->get_property ("busyGrobs");
+ scm_is_pair (s); s = scm_cdr (s))
+ {
+ Grob *g = unsmob_grob (scm_cdar (s));;
+ Moment *end_mom = unsmob_moment (scm_caar (s));
+ if (!end_mom || !g)
+ {
+ programming_error ("busyGrobs invalid");
+ continue;
+ }
+
+ if (end_mom->main_part_ > now.main_part_
+ && dynamic_cast<Item *> (g)
+ && Note_head::has_interface (g))
+ return g;
+ }
+
+ return 0;