It was originally adapted from the older stgran Cmix instrument, also written by Mara.
/* STGRANR: sampling stochastic granular instrument p0=start_time p1=input start time p2=duration p3=amplitude p4=rate, p5-8 ratevar p9-12 duration p13-16 location p17-20 transposition p21 granlayers p22 seed assumes function table 1 is the amplitude envelope function table 2 is the synthesis waveform, function table 3 is grain amplitude envelope */Sample scorefile:
set_option("FULL_DUPLEX_ON")
rtsetparams(44100, 2)
load("STGRANR")
rtinput("AUDIO","MIC",2)
makegen(1, 7, 1000, 1, 950, 1, 50, 0)
makegen(2, 25, 1000, 1)
start = 0.0
/* p0start, p1inputstt, p2dur, p3amp */
STGRANR(start, 0, 13, 5000,
/* grain rate, ratevar values (must be positive,
% until next grain possible displacement): */
.1, 0.0, 0.1, 0.2, 1.0,
/* duration values: */
.1,.1,.1,2,
/* location values: */
0.0,0.5,1.0,10.0,
/* pitch values: */
0.0,0.00,0.07,2,
/* granlyrs, seed */
1,1)