new function cutpat

A function “cutpat” which returns a pattern containing only events
within the specified part of a cycle.  I find this useful for applying
functions to parts of patterns; a shortcut example for this is the
function “within”.
Update Pattern.hs
Merge pull request #38 from bgold-cosmos/patch-1

new function cutpat