Source

VoiceTouch / res / raw / multitouch_xy.csd

Diff from to

File res/raw/multitouch_xy.csd

 a4 butbp asig*db(kamp4), kform4, kbw4
 a5 butbp asig*db(kamp5), kform5, kbw5
 
-asig	=	a1+a2+a3+a4+a5
+asig	sum a1, a2, a3, a4, a5
+
+
 
 	xout	asig
 
 
 	endop
+	
+	opcode chorus,aa,aak
+
+ain1, ain2, kwet xin
+
+setksmps 1
+
+; CHORUS
+
+isin		ftgentmp	0, 0, 65536, 10, 1
+
+ilevl		=		0.3		; Output level
+idelay		=		0.01		; Delay in ms
+idpth		=		0.002		; Depth in ms
+imax		=		0.25		; Maximum LFO rate
+imin		=		0.5		; Minimum LFO rate
+iwave		=		isin		; LFO waveform
+
+ain             =               ain1 + ain2 * .5
+ain             =               ain * ilevl
+
+i01             =               rnd(imax)
+i02             =               rnd(imax)
+i03             =               rnd(imax)
+i04             =               rnd(imax)
+i05             =               rnd(imax)
+i06             =               rnd(imax)
+i07             =               rnd(imax)
+i08             =               rnd(imax)
+i09             =               rnd(imax)
+i10             =               rnd(imax)
+i11             =               rnd(imax)
+i12             =               rnd(imax)
+
+alfo01          oscil           idpth, i01 + imin, iwave
+alfo02          oscil           idpth, i02 + imin, iwave, .08
+alfo03          oscil           idpth, i03 + imin, iwave, .17
+alfo04          oscil           idpth, i04 + imin, iwave, .25
+alfo05          oscil           idpth, i05 + imin, iwave, .33
+alfo06          oscil           idpth, i06 + imin, iwave, .42
+alfo07          oscil           idpth, i07 + imin, iwave, .50
+alfo08          oscil           idpth, i08 + imin, iwave, .58
+alfo09          oscil           idpth, i09 + imin, iwave, .67
+alfo10          oscil           idpth, i10 + imin, iwave, .75
+alfo11          oscil           idpth, i11 + imin, iwave, .83
+alfo12          oscil           idpth, i12 + imin, iwave, .92
+
+atemp           delayr          idelay + idpth +.1
+a01             deltapi         idelay + alfo01
+a02             deltapi         idelay + alfo02
+a03             deltapi         idelay + alfo03
+a04             deltapi         idelay + alfo04
+a05             deltapi         idelay + alfo05
+a06             deltapi         idelay + alfo06
+a07             deltapi         idelay + alfo07
+a08             deltapi         idelay + alfo08
+a09             deltapi         idelay + alfo09
+a10             deltapi         idelay + alfo10
+a11             deltapi         idelay + alfo11
+a12             deltapi         idelay + alfo12
+                delayw          ain
+
+achorusl        sum		a01, a02, a03, a04, a05, a06
+achorusr        sum             a07, a08, a09, a10, a11, a12
+
+aout1		=		ain1 * (1-kwet) + achorusl * kwet
+aout2		=		ain2 * (1-kwet) + achorusr * kwet
+
+xout	aout1, aout2
+
+	endop
 
 instr 1
 itie tival
 kx chnget S_xName
 ky chnget S_yName
 
-kenv linsegr 0, .001, 1, .1, 1, .25, 0
-;a1 vco2 ky * .5 * kenv, 60 + (log(1 - kx) * 3000), 0
-a1 vco2 ky * .5 * kenv, 60 + (log(1 - kx) * 1500), 0
+ky limit ky, 0, 1
+kx limit kx, 0, 1
+
+kenv linsegr 0, .01, 1, .1, 1, .25, 0
+;a1 vco2 ky^2 * .5 * kenv, 60 + (log(1 - kx) * 3000), 0
+a1 vco2 ky^2 * kenv, 200 + (log(1 - kx) * 1500), 0
 
 ga1 = ga1 + a1
 
 
 kmorf chnget "morph"
 kvoice_type chnget "voiceType"
+kchorus chnget "chorus"
+kreverb chnget "reverb"
 
 reset:
 
 
 rireturn
 
-aout = aout * 2
+;aout = aout * 2
 
 ;a1 moogladder ga1, kcutoff, kresonance
 
-aL, aR reverbsc aout, aout, .72, 5000
+printk2 kchorus
+
+aL, aR chorus aout, aout, kchorus
+aL, aR reverbsc aL, aR, kreverb, 5000
 
 outs aL, aR