Create savoy_taper-mk

Revised code thanks to Marcus Kintel - using new scale parameter