sound_type snd_make_shape(sound_type sin, sound_type fn, double origin);
sound_type snd_shape(sound_type sin, sound_type fn, double origin);
    /* LISP: (snd-shape SOUND SOUND ANYNUM) */