DISTRHO
/
DISTRHO-Ports
mirror of https://github.com/DISTRHO/DISTRHO-Ports
1
0
Fork 0
Code Releases 5 Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2 Commits
6 Branches
135MB
Tree: 49edfaaa68
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '49edfaaa68'
${ noResults }
DISTRHO-Ports/bin/cabbage-todo/Synths/Risset.csd

380 lines
9.9KB
Raw Blame History 

  1. <Cabbage>

  2. form caption("Jean Claude Risset collection") size(552, 330), colour("black"),pluginID("jea1") 

  3. rslider bounds(15, 10, 100, 100) channel("spread"), range(0,1,.5), caption("Spread"), colour("tomato"), midictrl(1, 1)

  4. rslider bounds(120, 10, 100, 100) channel("semi"), range(-24,12,-12), caption("Coarse"), colour("tomato")

  5. rslider bounds(225, 10, 100, 100) channel("detune"), range(-2,2,0), caption("Detune"), colour("tomato")

  6. rslider bounds(330, 10, 100, 100) channel("vibamp"), range(0,20,0), caption("Vib Amp"), colour("tomato")

  7. rslider bounds(435, 10, 100, 100) channel("vibrate"), range(0,20,0), caption("Vib rate"), colour("tomato")

  8. 

  9. groupbox bounds(15, 120, 240, 100), text("ADSR amplitude"), plant("ADSR"){ 

  10. rslider bounds(.0, .3, .6, .6), text("A"), colour("orange"), channel("att"), range(0.01,3, .5)

  11. rslider bounds(.25, .3, .6, .6), text("D"), colour("orange"), channel("dec"), range(0,1, .5)

  12. rslider bounds(.5, .3, .6, .6), text("S"), colour("orange"), channel("sus"), range(0,1,.8)

  13. rslider bounds(.75, .3, .6, .6), text("R"), colour("orange"), channel("rel"), range(0.01,3, .2)

  14. }

  15. ;RissClar RissDrum RissFlute RissHarmon RissNoise RissOctave RissRing

  16. combobox bounds(280,120, 160, 20), channel("select"), value(1), text("clar","snare", "flute","harmon","noise","octave","ring")

  17. rslider bounds(280,150, 60, 60), text("Rev level"), colour("tomato"), channel("level"), range(0,1,.8)

  18. rslider bounds(350, 150, 60, 60), text("Rev size"), colour("tomato"), channel("size"), range(.1,.99,.7)

  19. checkbox  bounds(420,150, 160, 30),channel("onoff"), text("Reverb On/Off"), value(0)

  20. 

  21. keyboard pos(1, 240), size(550, 60)

  22. 

  23. </Cabbage>

  24. <CsoundSynthesizer>

  25. <CsOptions>

  26. -d -n -+rtmidi=null -M0 -b1024  -m0d

  27. </CsOptions>

  28. <CsInstruments>

  29. 

  30. sr = 44100

  31. ksmps = 16

  32. nchnls = 2

  33. 0dbfs = 1

  34. 

  35. ;Author: Giorgio Zucco (2012)

  36. 

  37. ga1	init	0

  38. ga2	init	0

  39. 

  40. 

  41. 

  42. 

  43. ;Risset opcodes 

  44. 

  45. ;**************************************************

  46. opcode RissClar,a,kk

  47. 

  48. gisine1  ftgen 0 ,0 ,512, 7, -1, 200, -.5, 112, .5 ,200, 1

  49. gisine3  ftgen 0 ,  0, 512, 9, 1, 1, 0

  50. 

  51. kveloc,knote  xin

  52. 

  53. 

  54. kgate         linenr         kveloc,0,.2,.01

  55. a1            linen          255,.085,.75,100

  56. a1            poscil         a1,knote,gisine3

  57. a1            table          a1+256,gisine1

  58. xout           a1*kgate

  59. endop

  60. 

  61. ;**************************************************

  62. opcode RissDrum,a,kk

  63. 

  64. gitemp1  ftgen 0 , 0 ,512, 9 ,1, 1, 0

  65. gitemp2  ftgen 0 , 0, 512, 5 ,4096 ,512, 1

  66. gitemp3  ftgen 0 , 0, 512, 9 ,10 ,1 ,0, 16, 1.5, 0 ,22, 2 ,0, 23 ,1.5, 0

  67. gitemp4  ftgen 0 , 0, 512, 9, 1, 1, 0

  68. gitemp5  ftgen 0 , 0, 512, 5, 256, 512, 1

  69. 

  70. kveloc,knote  xin

  71. 

  72. 

  73. kgate     linenr    kveloc/2, 0, .2, .01

  74. i1        =         6000*.3

  75. i2        =         500*.1

  76. i3        =         1

  77. i4        =         6000*.8

  78. i5        =         500

  79. a1     randi     6000,4000

  80. a1     poscil     a1,i3,gitemp2

  81. a1     poscil     a1,3000,gitemp1

  82. a2     poscil     i1,i3,gitemp2

  83. a2     poscil     a2,knote*.01,gitemp3

  84. a3     poscil     i4,i3,gitemp5

  85. a3     poscil     a3,knote,gitemp4

  86. aout = (a1+a2+a3)*.0001

  87. xout       aout*kgate

  88.  

  89. endop

  90. 

  91. ;**************************************************

  92. opcode RissGliss,a,ik

  93. 

  94. gitemp1  ftgen 0 ,0,	8192,	10,	1

  95. 

  96. iamp,kfreq  xin

  97. 

  98. irise = .5

  99. kenv1 expseg .01, irise, iamp*1200,1000-irise,1

  100. k1 randi kfreq*.05, 1, .2/(1000)

  101. k2 randi kfreq*.25, .1, .3/(1000)

  102. a1 poscil kenv1, kfreq+k1+k2, gitemp1

  103. kenv11 expseg .01, irise, iamp*.83*1200,1000-irise,1

  104. k11 randi kfreq*.05*1.154, 1, .2/(1000)

  105. k12 randi kfreq*.25*1.154, .1, .3/(1000)

  106. a11 poscil kenv11, kfreq*1.154+k11+k12, gitemp1

  107. kenv21 expseg .01, irise, iamp*.33*1200,1000-irise,1

  108. k21 randi kfreq*.051*.417, 1, .2/(1000)

  109. k22 randi kfreq*.25*1.417, .1, .3/(1000)

  110. a21 poscil kenv21, kfreq*1.417+k21+k22, gitemp1

  111. kenv31 expseg .01, irise, iamp*.67*1200,1000-irise,1

  112. k31 randi kfreq*.05*1.604, 1, .2/(1000)

  113. k32 randi kfreq*.25*1.604, .1, .3/(1000)

  114. a31 poscil kenv31, kfreq*1.604+k31+k32, gitemp1

  115. kenv41 expseg .01, irise, iamp*1200,1000-irise,1

  116. k41 randi kfreq*.05*2.521, 1, .2/(1000)

  117. k42 randi kfreq*.25*2.521, .1, .3/(1000)

  118. a41 poscil kenv41, kfreq*2.521+k41+k42, gitemp1

  119. kenv51 expseg .01, irise, iamp*.33*1200,1000-irise,1

  120. k51 randi kfreq*.05*2.792, 1, .2/(1000)

  121. k52 randi kfreq*.25*2.792, .1, .3/(1000)

  122. a51 poscil kenv51, kfreq*2.792+k51+k52, gitemp1

  123. kenv61 expseg .01, irise, iamp*.33*1200,1000-irise,1

  124. k61 randi kfreq*.05*3.383, 1, .2/(1000)

  125. k62 randi kfreq*.25*3.383, .1, .3/(1000)

  126. a61 poscil kenv61, kfreq*3.383+k61+k62,gitemp1

  127. a1=(a1+a11+a21+a31+a41+a51+a61)*.01

  128. 

  129. ;kenv71 expseg .01, irise, 1, 100*.5, 1, 100*.5-irise, 1

  130. 

  131. ;kdeclick linsegr  0,.1,1,.3,.5,0.001,.01

  132. kdeclick  linsegr  0.01, 0.01, 1, 0.33*1, 0

  133. 

  134. xout ((a1)*kdeclick)*.02       ; write output

  135. 

  136.        endop

  137. 

  138. 

  139. ;**************************************************

  140. opcode RissFlute,a,kk

  141. 

  142. gitemp1  ftgen 0 ,0, 512, 9 ,1 ,.26,0

  143. gitemp2  ftgen 0 , 0, 512, 10, 1, .4, .2, .1, .1, .05     

  144. 

  145. kamp,kfreq  xin

  146. 

  147. 

  148. k1        randi     (kamp*.01),5

  149. k1        =         k1 + kamp

  150. k2        poscil    k1,1/.24,gitemp1

  151. k2        =         k2 + .74

  152. a1        poscil    k2,kfreq,gitemp2

  153. kdeclick  linsegr  0.1, 0.01, 1, 0.33*1, 0

  154.       xout      a1*kdeclick

  155.           endop

  156. 

  157. ;**************************************************

  158. opcode RissHarmon,a,kk

  159. gisine  ftgen 0 , 0, 1024, 10, 1 ,0, 0 ,0 , .7, .7, .7, .7 ,.7, .7 

  160. 

  161. kveloc,knote  xin

  162. 

  163. kgate          linenr    kveloc,1,2,.01

  164. i1             =         .03

  165. i2             =         2*.03

  166. i3             =         3*.03

  167. i4             =         4*.03

  168. ampenv         linenr    9,.01,1,.01      

  169. a1             poscil    ampenv,knote,gisine       

  170. a2             poscil    ampenv,knote+i1,gisine    

  171. a3             poscil    ampenv,knote+i2,gisine    

  172. a4             poscil    ampenv,knote+i3,gisine 

  173. a5             poscil    ampenv,knote+i4,gisine 

  174. a6             poscil    ampenv,knote-i1,gisine 

  175. a7             poscil    ampenv,knote-i2,gisine 

  176. a8             poscil    ampenv,knote-i3,gisine 

  177. a9             poscil    ampenv,knote-i4,gisine 

  178. aout =      ((a1+a2+a3+a4+a5+a6+a7+a8+a9)*kgate)*.05

  179. xout aout

  180. endop

  181. 

  182. 

  183. ;**************************************************

  184. opcode RissNoise,a,ik

  185. 

  186. 

  187. gitemp1  ftgen 0 ,0,	8192,	10,	1

  188. gitemp2  ftgen 0 ,0,	8192,	7,	-1,	8192,	1

  189. gitemp3  ftgen 0 ,0,	8192,	7,	1,	4096,	1,	0,	-1,	4096,	-1

  190. gitemp4  ftgen 0 ,0,	8192,	21,	1

  191. 

  192. iveloc,knote  xin

  193. 

  194. kenv	linsegr	0,.01,iveloc, 1, iveloc,2,iveloc*.2,.25, 0

  195. aosc	poscil	kenv, 440, gitemp4

  196. kenv	expon	2, 1, .01

  197. aosc2	butterbp	aosc, knote, knote * kenv

  198. aosc2	butterbp	aosc2, knote, knote * kenv

  199. aosc	balance	aosc2, aosc

  200. aosc	=	aosc * .7

  201. xout	aosc

  202. 

  203. endop

  204. 

  205. ;**************************************************

  206. opcode RissOctave,a,kk

  207. 

  208. 

  209. gitemp2  ftgen 0 ,0, 128, 8, 0, .5, 0, 63.5, 1, 63.5, 0, .5 ,0

  210. gisine  ftgen 0 ,0, 4096,10,1

  211. 

  212. kamp,kfreq  xin

  213. 

  214. krate = .1

  215. 

  216. 

  217. iphsoff   =         (65/5)*.01

  218. 

  219. ka1       =         kamp

  220. iph1      =         0

  221. kamp1     poscil    ka1,krate,gitemp2,iph1

  222. kfreq1    =         kfreq

  223. asig1     poscil    kamp1,kfreq1,gisine

  224. 

  225. ka2       =         kamp

  226. iph2      =         iph1+iphsoff

  227. kamp2     poscil    ka2,krate,gitemp2,iph2

  228. kfreq2    =         kfreq*2

  229. asig2     poscil    kamp2,kfreq2,gisine

  230. 

  231. ka3       =         kamp

  232. iph3      =         iph2+iphsoff

  233. kamp3     poscil    ka3,krate,gitemp2,iph3

  234. kfreq3    =         kfreq*3

  235. asig3     poscil    kamp3,kfreq3,gisine

  236. 

  237. ka4       =         kamp

  238. iph4      =         iph3+iphsoff

  239. kamp4     poscil    ka4,krate,gitemp2,iph4

  240. kfreq4    =         kfreq*4

  241. asig4     poscil    kamp4,kfreq4,gisine

  242. 

  243. ka5       =         kamp

  244. iph5      =         iph4+iphsoff

  245. kamp5     poscil    ka5,krate,gitemp2,iph5

  246. kfreq5    =         kfreq*5

  247. asig5     poscil    kamp5,kfreq5,gisine

  248. 

  249. add       =         asig1+asig2+asig3+asig4+asig5

  250. ;kenv      linseg    0,p3/2,1,p3/2,0

  251. aout      =         add

  252. kdeclick  linsegr  0.01, 0.01, 1, 0.33*1, 0

  253. xout      (aout*.5)*kdeclick

  254.    endop

  255. 

  256. 

  257. 

  258. ;**************************************************

  259. opcode RissRing,a,kk

  260. 

  261. 

  262. gitemp2  ftgen 0 ,0, 512, 7, 0, 43, 1, 171, 1, 84, -1, 171, -1, 43, 0

  263. gitemp3  ftgen 0 ,0, 512, 9, 1, 1, 0

  264. 

  265. 

  266. kveloc,knote  xin

  267. kgate     linenr         kveloc/2, 0, .2, .01

  268. a1        expseg         .2,2.3,1,1-.01,.001

  269. a1        poscil         a1,knote,gitemp3

  270. a2        poscil         10000,1500,gitemp2

  271. aout = (a1*a2)*.001

  272. xout       aout*kgate

  273. 

  274. endop

  275. 

  276. 

  277. ;**************************************************

  278. 

  279. 

  280. 

  281. instr	1

  282. 

  283. ;kselect	init	1

  284. ;channel

  285. ;kmodfreq	chnget	"mod"

  286. ksemi1	chnget	"semi"

  287. kdetune	chnget	"detune"

  288. kspread chnget "spread"

  289. iatt	chnget	"att"

  290. idec	chnget	"dec"

  291. isus	chnget	"sus"

  292. irel	chnget	"rel"

  293. klfoamp	chnget	"vibamp"

  294. klforate	chnget	"vibrate"

  295. kselect	chnget	"select"

  296. 

  297. ;midi

  298. imidinn notnum

  299. iamp	ampmidi	1

  300. kbend	pchbend 0,2  ;pitch bend

  301. ;lfo

  302. klfo	lfo	klfoamp,klforate,2

  303. kfreq1 =	cpsmidinn(imidinn+kbend+int(ksemi1)) ;controllo midi

  304. kfreq2 =	cpsmidinn(imidinn+kbend+kdetune+int(ksemi1))

  305. 

  306. 

  307. 

  308. if	kselect	=	1	then

  309. ariss1	RissClar	iamp,kfreq1+klfo			

  310. ariss2	RissClar	iamp,kfreq2+klfo

  311. elseif	kselect	=	2	then

  312. ariss1	RissDrum	iamp,kfreq1+klfo			

  313. ariss2	RissDrum	iamp,kfreq2+klfo

  314. elseif	kselect	=	3	then

  315. ariss1	RissFlute	iamp,kfreq1+klfo			

  316. ariss2	RissFlute	iamp,kfreq2+klfo

  317. elseif	kselect	=	4	then

  318. ariss1	RissHarmon	iamp,kfreq1+klfo			

  319. ariss2	RissHarmon	iamp,kfreq2+klfo

  320. elseif	kselect	=	5	then

  321. ariss1	RissNoise	iamp,kfreq1+klfo			

  322. ariss2	RissNoise	iamp,kfreq2+klfo

  323. elseif	kselect	=	6	then

  324. ariss1	RissOctave	iamp,kfreq1+klfo			

  325. ariss2	RissOctave	iamp,kfreq2+klfo

  326. elseif	kselect	=	7	then

  327. ariss1	RissRing	iamp,kfreq1+klfo			

  328. ariss2	RissRing	iamp,kfreq2+klfo

  329. endif

  330. 

  331. ktrig	changed	kselect

  332. if	ktrig	=	1	then

  333. reinit	play

  334. endif

  335. play:

  336. 

  337. ;master

  338. aL	clip	ariss1,0,0dbfs

  339. aR	clip	ariss2,0,0dbfs

  340. 

  341. 

  342. aoutL = ((aL * kspread) + (aR * (1 - kspread))) *.5  

  343. aoutR = ((aL * (1-kspread)) + (aR * kspread))   *.5

  344. 

  345. kadsr	mxadsr	iatt,idec,isus,irel

  346. 

  347. outs	(aoutL*kadsr),(aoutR*kadsr)

  348. vincr	ga1,aoutL*kadsr

  349. vincr	ga2,aoutR*kadsr

  350. endin

  351. 

  352. instr	10	;reverb

  353. ktrig	chnget	"onoff"

  354. klevel	chnget	"level"

  355. ksize	chnget	"size"

  356. if	ktrig	=	1	then

  357. 	

  358. al,ar	reverbsc	ga1,ga2,ksize,16000,sr,0

  359. asum1	dcblock2	al

  360. asum2	dcblock2	ar

  361. else

  362. asum1	=	0

  363. asum2	=	0

  364. endif

  365. 

  366. outs	asum1*klevel,asum2*klevel

  367. clear	ga1,ga2

  368. endin

  369. 

  370. 

  371. </CsInstruments>

  372. <CsScore>

  373. f1	0	16384	10	1

  374. 

  375. ;f0 3600

  376. i1	0	36000

  377. i10	0	36000

  378. </CsScore>

  379. </CsoundSynthesizer>