; TimeSlip.csd
; Written by Iain McCurdy, 2015
; Implements realtime time stretching by buffering the realtime audio stream and then triggering event grains reading from the buffer.
; Time Stretch - amount of time stretching.
; e.g.
; 1 = no time stretching
; 2 = half speed
; 4 = quarter speed etc...
; As soon as 'Time Stretch' returns to '1' a quick crossfade is made back to the live audio stream.
; Freeze - Activating this button if time stretching is already in progress will freeze time stretching completely (time stretch = infinity)
; Sliding Time Stretch all the way to the right will also trigger the freeze button.
; Density and grain size will be unaffected.
; Overlaps - Number of grains allowed to overlaps simultaneously. Normally set to 2.
; Density - Initial density when time stretching begins.
; Density also depends upon time stretching factor
; Density reduces as stretch increases while grain duration increases, therefore overlaps remains constant.
; Rand.When - Adds a random factor to when grains will start. This can be used to reduce or prevent artefacts produced through strict periodic production of grains.
; Rand.Where - Adds a random factor to from where in the buffer grains will be read. This can be used to reduce or prevent artefacts produced through strict periodic production of grains.
; Wet - Level control of the wet (time stretching) sound.
; This should be adjusted to set a good balance between the dry sound (time stretch=1) and when the time stretching begins (time stretch>1)
; Higher densities will result in higher amplitudes when stretching.
form caption("Time Slip"), size(700,210), pluginid("TmSl")
image bounds(0,0,700,210), colour( 40, 40, 60), shape("sharp")
groupbox bounds( 0, 0,700, 90), plant("SlowSlider"), text("Time Ratio"), colour(0,0,0,10) {
hslider bounds( 5, 15,690, 60), range(1,20,1,0.5,0.0001), channel("stretch"), trackercolour(140,140,160)
label bounds( 5, 65,690, 14), text("Time Stretch")
button bounds( 5, 65, 60, 18), fontcolour:0(50,50,50), fontcolour:1(205,255,205), colour:0(0,10,0), colour:1(150,250,150), text("Realtime","Realtime"),channel("realtime")
button bounds(630, 65, 60, 18), fontcolour:0(50,50,50), fontcolour:1(205,205,255), colour:0(0,0,10), colour:1(150,150,250), text("Freeze","Freeze"), channel("freeze")
}
button bounds( 60,145,90,18), fontcolour:0(50,50,50), fontcolour:1(255,205,205), colour:0(10,0,0), colour:1(250,150,150), text("Grain Scale","Grain Scale"), channel("GrainScale"), latched(1), value(1)
rslider bounds(170,100,80,95), range(1,50,4,1,1), channel("overlaps"), valuetextbox(1), textbox(1), trackercolour(140,140,160), text("Overlaps")
rslider bounds(250,100,80,95), range(1,50,8,1,1), channel("dens"), valuetextbox(1), textbox(1), trackercolour(140,140,160), text("Density")
rslider bounds(330,100,80,95), range(0,1,0.05,0.5,0.001), channel("RndWhen"), valuetextbox(1), textbox(1), trackercolour(140,140,160), text("Rand.When")
rslider bounds(410,100,80,95), range(0,1,0.05,0.5,0.001), channel("RndWhere"), valuetextbox(1), textbox(1), trackercolour(140,140,160), text("Rand.Where")
rslider bounds(490,100,80,95), range(0,1,0.5), channel("wet"), valuetextbox(1), textbox(1), trackercolour(140,140,160), text("Wet")
rslider bounds(570,100,80,95), range(0,1,1), channel("level"), valuetextbox(1), textbox(1), trackercolour(140,140,160), text("Level")
-dm0 -n
sr = 44100 ; SAMPLE RATE
ksmps = 32 ; NUMBER OF AUDIO SAMPLES IN EACH CONTROL CYCLE
nchnls = 2 ; NUMBER OF CHANNELS (1=MONO)
0dbfs = 1 ; MAXIMUM AMPLITUDE
giBuffL ftgen 1,0,(2^24)+1,2,0
giBuffR ftgen 2,0,(2^24)+1,2,0
gihanning ftgen 0, 0, 131073, 20, 2, 1 ; HANNING WINDOW
instr 1
kporttime linseg 0,0.01,0.1
gkstretch chnget "stretch"
gkstretchP portk gkstretch,kporttime
gkoverlaps chnget "overlaps"
gkdens chnget "dens"
gkRndWhen chnget "RndWhen"
gkRndWhere chnget "RndWhere"
gkwet chnget "wet"
gklevel chnget "level"
gkfreeze chnget "freeze"
gkrealtime chnget "realtime"
gkGrainScale chnget "GrainScale"
gkfreeze chnget "freeze"
gaInL,gaInR ins ; READ REALTIME AUDIO INPUT
gaWPhasor phasor sr/ftlen(giBuffL) ; WRITE PHASOR
kWPhasor downsamp gaWPhasor ; K RATE VERSION OF WRITE PHASOR
tablew gaInL,gaWPhasor,giBuffL,1 ; WRITE STEREO AUDIO TO TABLES
tablew gaInR,gaWPhasor,giBuffR,1 ;
if gkstretch==1&&active:k(2)==0 then ; IF TIME STRETCH SLIDER IS AT '1' AND 'REALTIME' MODE IS NOT YET ACTIVE, ACTIVATE IT
event "i",2,0,-1
kOn = 1 ; TURN ON REALTIME BUTTON
chnset kOn,"realtime"
elseif gkstretch>1&&active:k(3)==0 then ; IF TIME STRETCH SLIDER IS INCREASED BEYOND '1' AND 'TIME STRETCH' MODE IS NOT YET ACTIVE, ACTIVATE IT
kOff = 0
chnset kOff,"realtime" ; TURN OFF REALTIME BUTTON
event "i",3,0,-1,kWPhasor ; TURN ON TIME STRETCH INSTRUMENT AND SEND IT CURRENT WRITE PHASOR POSITION
endif
endin
instr 2 ; NORMAL PLAYBACK
if gkstretch>1 then ; IF TIME STRETCH SLIDER IS INCREASED BEYOND '1' (LEFT-MOST) TURN OFF THIS NOTE
turnoff
endif
aenv linsegr 0,0.1,1,4/i(gkdens),0 ; RELEASE ENVELOPE
outs gaInL*aenv*gklevel, gaInR*aenv*gklevel
endin
instr 3 ; SLOWED PLAYBACK (TRIGGER SOUND GRAINS)
gkRPhasor phasor (sr*(1-gkfreeze))/(ftlen(1)*gkstretchP),p4 ; READ START POINT PHASOR
if gkstretch==1 then ; IS TIME STRETCH SLIDER IS RETURNED TO '1' (LEFT-MOST), DEACTIVATE FREEZE BUTTON
kOff = 0
chnset kOff,"freeze"
turnoff
endif
if gkstretch==20&&gkfreeze==0 then ; TURN ON FREEZE BUTTON IF TIME STRETCH SLIDER IS MOVED ALL THE WAY TO THE RIGHT
kOn = 1
chnset kOn,"freeze"
elseif trigger:k(gkstretch,19.999,1)==1 then
chnset kOff,"freeze"
endif
if trigger:k(gkrealtime,0.5,0)==1&&gkstretch>1 then ; IF REALTIME BUTTON IS ACTIVATED RETURN TIME STRETCH SLIDER TO '1' (LEFT-MOST)
kReset = 1
chnset kReset,"stretch"
endif
ksize = gkGrainScale==1 ? (2*gkstretchP)/gkdens : 1/gkdens
kdens = gkGrainScale==1 ? (gkdens*gkoverlaps)/gkstretchP : (gkdens*gkoverlaps)/4
ktrig metro kdens ; METRONOME TO TRIGGER GRAINS
schedkwhen ktrig,0,0,4,random:k(0,gkRndWhen),ksize ; TRIGGER GRAINS
endin
instr 4 ; SOUND GRAINS
aenv poscil 1,1/p3,gihanning
aPtr line 0,p3,p3*sr
aPtr += (i(gkRPhasor)*ftlen(giBuffL)) + (random:i(-i(gkRndWhere),0) * sr)
aSigL tablei aPtr,giBuffL
aSigR tablei aPtr,giBuffR
if gkstretch==1 then ; RELEASE ENVELOPE - USED IF GRAINS ARE INTERRUPTED BY THE TIME STRETCH SLIDER IS RETURNED TO '1'/REALTIME EITHER BY DRAGGING THE SLIDER OR BY ACTIVATING THE REALTIME BUTTON
arel linsegr 1,0.2,0
aSigL *= arel
aSigR *= arel
turnoff
endif
outs aSigL*aenv*gklevel*gkwet, aSigR*aenv*gklevel*gkwet
endin
i 1 0 [3600*24*7]