p-fields:
/* JGRAN - granular synthesis with FM grains
p0 = output start time
p1 = duration
p2 = amplitude multiplier
p3 = random seed (any integer; if 0, seed from system clock) [default: 0]
p4 = oscillator configuration (0: additive, 1: FM, 2: sampled) [default: 0]
p5 = randomize oscillator starting phase (0: no, 1: yes) [default: yes]
Function table (makegen) assignments:
1 overall amplitude envelope (or use setline)
2 grain envelope
3 grain waveform
4 modulator frequency multiplier (can skip if p4 is not 1)
5 index of modulation envelope (per grain) (can skip if p4 is not 1)
6 minimum grain frequency
7 maximum grain frequency
8 minumum grain speed
9 maximum grain speed
10 minumum grain intensity
11 maximum grain intensity
12 grain density
13 grain stereo location (can skip if output is mono)
14 grain stereo location randomization (can skip if output is mono)
NOTES:
1. Produces only one stream of non-overlapping grains. To get more
streams, call JGRAN more than once (maybe with different seeds).
2. Uses non-interpolating oscillators for efficiency, so make large
tables for the grain waveform and grain envelope.
3. For functions 5-11, either use gen18 or make the slot number negative,
to tell the gen routine not to rescale values to fit between 0 and 1.
4. Grains within one stream (note) never overlap. (Use sgran for this.)
5. Ability to use a sampled waveform is not implemented yet.
*/
Sample scorefile:
rtsetparams(44100, 2);
load("JGRAN")
bus_config("JGRAN", "out0-1")
dur = 16
amp = 1
/* overall amplitude envelope */
setline(0,0, 1,1, 2,1, 4,0)
/* grain envelope */
makegen(2, 25, 10000, 1) /* hanning window */
/* grain waveform */
makegen(3, 10, 10000, 1) /* sine wave */
/* modulation frequency multiplier */
makegen(4, 18, 1000, 0,2, 1,2.1) /* slightly increasing multiplier */
/* index of modulation envelope (per grain) */
makegen(5, 18, 1000, 0,0, 1,5) /* increasing index */
/* grain frequency */
makegen(6, 18, 1000, 0,500, 1,500) /* constant minimum */
makegen(7, 18, 1000, 0,500, 1,550) /* increasing maximum */
/* grain speed */
makegen(8, 18, 1000, 0,100, 1,10) /* decreasing minimum */
makegen(9, 18, 1000, 0,100, 1,100) /* constant maximum */
/* grain intensity (decibels above 0) */
makegen(10, 18, 1000, 0,80, 1,80) /* min */
makegen(11, 18, 1000, 0,80, 1,80) /* max */
/* grain density */
makegen(12, 18, 1000, 0,1, 1,1, 2,.8) /* slightly decreasing density */
/* grain stereo location */
makegen(13, 18, 1000, 0,.5, 1,.5) /* image centered in middle */
/* grain stereo location randomization */
makegen(14, 18, 1000, 0,0, 1,1) /* increasingly randomized */
JGRAN(start=0, dur, amp, seed=0, type=1, ranphase=1)
Another scorefile:
rtsetparams(44100, 2);
load("JGRAN")
bus_config("JGRAN", "out0-1")
dur = 10
amp = .5
/* overall amplitude envelope */
setline(0,0, 6,1, 9,1, 10,0)
/* grain envelope */
makegen(2, 18, 10000, 0,0, 1,1, 10,.2, 20,0)
makegen(2, 25, 10000, 1)
/* grain waveform */
makegen(3, 10, 10000, 1, .1, .05)
/* modulation frequency multiplier */
makegen(4, 18, 1000, 0,1.3, 1,1.7)
makegen(4, 20, 1000, 2)
/* index of modulation envelope (per grain) */
makegen(5, 18, 1000, 0,0, 1,6)
/* grain frequency */
makegen(6, 18, 1000, 0,500, 1,500) /* min */
makegen(7, 18, 1000, 0,500, 1,500) /* max */
/* grain speed */
makegen(8, 18, 1000, 0,20, 1,20) /* min */
makegen(9, 18, 1000, 0,90, 1,90) /* max */
/* grain intensity (decibels above 0) */
makegen(10, 18, 1000, 0,80, 1,80) /* min */
makegen(11, 18, 1000, 0,80, 1,80) /* max */
/* grain density */
makegen(12, 18, 1000, 0,1, 1,1)
/* grain stereo location */
makegen(13, 18, 1000, 0,.5, 1,.5)
/* grain stereo location randomization */
makegen(14, 18, 1000, 0,0, 1,1)
JGRAN(start=0, dur, amp, seed=0, type=1)
/* a second grain stream, with some different params */
setline(0,0, 1,1, 4,1, 10,0)
makegen(6, 18, 1000, 0,1000, 1,1000) /* min */
makegen(7, 18, 1000, 0,1100, 1,1100) /* max */
makegen(14, 18, 1000, 0,1, 1,0)
amp = 2
JGRAN(start=0, dur, amp, seed=1, type=0)
One more scorefile:
rtsetparams(44100, 2);
load("JGRAN")
load("REVERBIT")
bus_config("JGRAN", "aux 0-1 out")
bus_config("REVERBIT", "aux 0-1 in", "out 0-1")
masteramp = 1.0
dur = 16
/* overall amplitude envelope */
setline(0,0, 1,1, 2,1, 4,0)
/* grain envelope */
makegen(2, 25, 10000, 1) /* hanning window */
/* grain waveform */
makegen(3, 10, 10000, 1) /* sine wave */
/* modulation frequency multiplier */
makegen(4, 18, 1000, 0,2, 1,2.1) /* slightly increasing multiplier */
/* index of modulation envelope (per grain) */
makegen(5, 18, 1000, 0,0, 1,5) /* increasing index */
/* grain frequency */
makegen(6, 18, 1000, 0,500, 1,500) /* constant minimum */
makegen(7, 18, 1000, 0,500, 1,550) /* increasing maximum */
/* grain speed */
makegen(8, 18, 1000, 0,100, 1,10) /* decreasing minimum */
makegen(9, 18, 1000, 0,100, 1,100) /* constant maximum */
/* grain intensity (decibels above 0) */
makegen(10, 18, 1000, 0,65, 1,65) /* min */
makegen(11, 18, 1000, 0,80, 1,80) /* max */
/* grain density */
makegen(12, 18, 1000, 0,1, 1,1, 2,.8) /* slightly decreasing density */
/* grain stereo location */
makegen(13, 18, 1000, 0,.5, 1,.5) /* image centered in middle */
/* grain stereo location randomization */
makegen(14, 18, 1000, 0,0, 1,1) /* increasingly randomized */
JGRAN(start=0, dur, amp=.5, seed=0, type=1, ranphase=1)
makegen(3, 10, 10000, 1, .5, .3, .2, .1)
makegen(6, 18, 1000, 0,900, 1,840)
makegen(7, 18, 1000, 0,900, 1,1000)
makegen(14, 18, 1000, 0,1, 1,0)
JGRAN(start=0, dur, amp=1, seed=1, type=0, ranphase=1)
/* --------------------------------------------------------------- reverb --- */
amp = 1.0 * masteramp
revtime = 1.0
revpct = .8
rtchandel = .03
cf = 2000
setline(0,1, 1,1)
REVERBIT(st=0, insk=0, dur, amp, revtime, revpct, rtchandel, cf)