- /* FIXME: Experimental kludge for automatic relative music
- This will change or go away.
-
- How to introduce: [\notes]\relative 'c { } in an
- implicit or otherwise intuitive way? */
- | language Music_list {
- SCM lst = $2;
- Music *m = MY_MAKE_MUSIC ("SequentialMusic");
- m->set_property ("elements", ly_car (lst));
- m->set_spot (THIS->here_input ());
-
- Pitch middle_c;
- $$ = MY_MAKE_MUSIC ("RelativeOctaveMusic");
- $$->set_property ("element", m->self_scm ());
-
- Pitch last = m->to_relative_octave (middle_c);
- if (lily_1_8_relative)
- $$->set_property ("last-pitch", last.smobbed_copy ());
-
- scm_gc_unprotect_object (m->self_scm ());
- }