src/pocket39.c implementing velocity (after touch)