1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
// allows to reproduce enclosed randomized pattern
// by setting the random seed of the resulting routine
Pseed : FilterPattern {
var <>randSeed;
*new { arg randSeed, pattern;
^super.new(pattern).randSeed_(randSeed)
}
storeArgs { ^[randSeed,pattern] }
embedInStream { arg inval;
var seedStream;
var seed, thread;
seedStream = randSeed.asStream;
while {
seed = seedStream.next(inval);
seed.notNil
}{
thread = pattern.asStream;
thread.randSeed = seed;
inval = thread.embedInStream(inval);
};
^inval
}
}
|
