+
+ SCM tab_notes = ly_cxx_vector_to_list (note_events_);
+ SCM tab_strings = SCM_EOL;
+ if (string_events.size ())
+ tab_strings = ly_cxx_vector_to_list (string_events);
+ SCM proc = get_property ("noteToFretFunction");
+ SCM string_fret_finger = SCM_EOL;
+ if (ly_is_procedure (proc))
+ string_fret_finger = scm_call_3 (proc,
+ context ()->self_scm (),
+ tab_notes,
+ tab_strings);
+ SCM note_entry = SCM_EOL;
+ SCM string_number = SCM_EOL;
+ SCM fret = SCM_EOL;
+ SCM fret_label = SCM_EOL;
+ SCM fret_procedure = get_property ("tablatureFormat");
+ SCM staff_line_procedure = get_property ("tabStaffLineLayoutFunction");
+ SCM staff_position = SCM_EOL;
+ vsize fret_count = (vsize) scm_ilength (string_fret_finger);
+ bool length_changed = (note_events_.size () != fret_count);
+ vsize index;
+
+ if (string_fret_finger != SCM_EOL)
+ for (vsize i=0; i < fret_count; i++)
+ {
+ note_entry = scm_list_ref (string_fret_finger, scm_from_int (i));
+ string_number = scm_car (note_entry);
+ fret = scm_cadr (note_entry);
+ fret_label = scm_call_3 (fret_procedure,
+ context ()->self_scm (),
+ string_number,
+ fret);
+ index = length_changed ? 0 : i;
+ Item *note = make_item ("TabNoteHead", note_events_[index]->self_scm ());
+ note->set_property ("text", fret_label);
+ staff_position = scm_call_2 (staff_line_procedure,
+ context ()->self_scm (),
+ string_number);
+ note->set_property ("staff-position", staff_position);
+ notes_.push_back (note);
+ }