- /*
- urg, code duplication:: staff_performer
- */
- SCM s = get_property ("midiInstrument");
-
- if (!scm_is_string (s))
- s = get_property ("instrument");
-
- if (!scm_is_string (s))
- s = scm_makfrom0str ("piano");
-
-
- SCM eq = get_property ("instrumentEqualizer");
- if (ly_c_procedure_p (eq))
- {
- s = scm_call_1 (eq, s);
- }