diff --git a/wslib-classes/Main Features/Patterns/Ppostln.sc b/wslib-classes/Main Features/Patterns/Ppostln.sc new file mode 100644 index 0000000..87ae66d --- /dev/null +++ b/wslib-classes/Main Features/Patterns/Ppostln.sc @@ -0,0 +1,21 @@ +Ppostln : Pattern { + var <>pattern, <>prefix; + *new { |pattern, prefix| + ^super.newCopyArgs(pattern, prefix) + } + storeArgs { ^[pattern] } + embedInStream { arg inval; + var outval; + var stream = pattern.asStream; + loop { + prefix !? _.post; + outval = stream.next(inval).postln; + inval = outval.yield; + }; + } +} + ++ Pattern { + ppostln { ^Ppostln( this ) } + poll { |prefix| ^Ppostln( this, prefix ) } +} \ No newline at end of file