prange.sc

Psoftclip : FilterPattern {
  var <>lo, <>hi;
  *new { arg pattern,lo,hi;
    ^super.new(pattern).lo_(lo).hi_(hi)
  }

  storeArgs { ^[pattern,lo,hi] }

  embedInStream { arg event;
    var next;
    var stream = pattern.asStream;
    var loStr = lo.asStream;
    var hiStr = hi.asStream;
    var loVal, hiVal;
    while({
      loVal = loStr.next(event);
      hiVal = hiStr.next(event);
      next = stream.next(event);
      next.notNil and: { loVal.notNil } and: { hiVal.notNil }
    },{
      event = next.softclip(loVal, hiVal).yield
    });
    ^event;
  }
}