+
+LY_DEFINE(ly_music_transpose,
+ "ly:music-transpose", 2,0,0, (SCM m, SCM p),
+ "Transpose @var{m} such that central C is mapped to @var{p}. "
+"Return @var{m}.")
+{
+ Music * sc = unsmob_music (m);
+ Pitch * sp = unsmob_pitch (p);
+ SCM_ASSERT_TYPE(sc, m, SCM_ARG1, __FUNCTION__, "music");
+ SCM_ASSERT_TYPE(sp, p, SCM_ARG2, __FUNCTION__, "pitch");
+
+ sc->transpose (*sp);
+ return sc->self_scm(); // SCM_UNDEFINED ?
+}
+
+
+SCM make_music_proc;
+
+
+Music*
+make_music_by_name (SCM sym)
+{
+ if (!make_music_proc)
+ make_music_proc = scm_primitive_eval (ly_symbol2scm ("make-music-by-name"));
+
+ SCM rv = scm_call_1 (make_music_proc, sym);
+
+ /*
+ UGH.
+ */
+ scm_gc_protect_object (rv);
+ return unsmob_music (rv);
+}
+