src/pocket39.c implementing pitch shift (pending pitch bend)