DISTRHO
/
DISTRHO-Ports-Extra
mirror of https://github.com/DISTRHO/DISTRHO-Ports-Extra
1
0
Fork 0
Code Releases 0 Activity
Extra "ports" of juce-based plugins using the distrho build system
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
1 Branch
28MB
Tree: d45623e876
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'd45623e876'
${ noResults }
DISTRHO-Ports-Extra/bin/cabbage-extra/Synths/Chowning.csd

529 lines
15KB
Raw Blame History 

  1. <Cabbage>

  2. form caption("John Chowning collection") size(562, 340), colour("black"),pluginID("cho1") 

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

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

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

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

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

  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. 

  16. combobox bounds(280,120, 160, 20), channel("select"), value(1), text("clar","glass", "loop","perc","piano","rebell","soprano","string","trumpet","vibr")

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

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

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

  20. keyboard pos(10, 240), size(540, 60)

  21. 

  22. </Cabbage>

  23. <CsoundSynthesizer>

  24. <CsOptions>

  25. -d -n -+rtmidi=null -M0 -b1024 

  26. </CsOptions>

  27. <CsInstruments>

  28. 

  29. sr = 44100

  30. ksmps = 32

  31. nchnls = 2

  32. 0dbfs = 1

  33. 

  34. ;Author: Giorgio Zucco (2012)

  35. 

  36. ga1	init	0

  37. ga2	init	0

  38. 

  39. 

  40. ;Chowning opcodes

  41. ;********************************************

  42. opcode CHOWNClar,a,kk

  43. 

  44. gitemp1 ftgen  0,0, 8192, -12, 8

  45. gitemp2 ftgen  0,0, 8192, 9,   1, 1, 0

  46. gitemp3 ftgen  0,0, 8192, 9,   1, 1, 90

  47. 

  48. 

  49. kamp,knote  xin

  50. ;setksmps 10

  51. ;inote          cpsmidib

  52. 

  53. ;iveloc         ampmidi 1

  54. 

  55. kgate          linenr    kamp,0,1,.01

  56. 

  57. kenv           linseg    0,0.1,1,2-0.3,1,0.2,0

  58. 

  59. kramp          linseg    0,2/2,4,2/2,0

  60. 

  61. k1             =         kramp * (.8 - 1/.8)/2

  62. 

  63. k2a            =         kramp * (.8 + 1/.8)/2

  64. 

  65. k2b            =         200 * k2a

  66. 

  67. k3a            table     k1*2,gitemp1,0,0,0

  68. 

  69. k3b            =         k3a * (-1/2)

  70. 

  71. a1             poscil     k2b,knote*2,gitemp3

  72. 

  73. a2             poscil     k1,knote*2,gitemp3

  74. 

  75. a3             =         kenv* exp(a2+k3b)

  76. 

  77. asig           poscil     a3,knote+a1,gitemp2

  78. 

  79.    xout asig*kgate

  80. 

  81. endop

  82. 

  83. ;**************************************************

  84. opcode CHOWNglass,a,kki

  85. 

  86. kamp,knote,ifunc xin

  87. 

  88. kgate         linenr    kamp, 0, .2, .01

  89. imfreq        =         1.4 * 200

  90. immax         =         10 * imfreq

  91. kmenv         linseg    1, 5/6, 0, 5 - (5/6), 0

  92. koenv         expseg    0.8, 5/6, 1, 5 - (5/6) , .01

  93. amod          poscil    kmenv * immax, 1.414*knote, ifunc

  94. aout          poscil    koenv * 1, knote + amod, ifunc

  95.  

  96. xout aout*kgate         

  97. 

  98.        endop

  99. 

  100. 

  101. ;**************************************************

  102. 

  103. opcode CHOWNLoop,a,kki                                 

  104. 

  105. gitemp1 ftgen  0,  0,  513, 5,   .7,  16,      .8,48, 1 ,    64,      .8, 128,.2, 256, .001

  106. 

  107. gitemp2 ftgen  0,  0,  513, 7,  0 ,   12,      1,  52, 0,    460,     0

  108. 

  109. 

  110. kamp,kfreq,ifunc  xin

  111.     

  112. kgate     linenr    kamp, 0, .2, .01

  113. i1        =         1/.2

  114. idev1     =         0 * 110

  115. idev2     =         (25-0) * 110

  116. ampcar    poscil    1, i1, gitemp1

  117. ampmod    poscil    idev2, i1,gitemp2

  118. amod      poscil    ampmod+idev1, kfreq*1,ifunc

  119. asig      poscil    ampcar, kfreq+amod,ifunc

  120. 

  121. xout      asig*kgate 

  122. 

  123.   endop

  124. ;**************************************************

  125. opcode CHOWNPerc,a,kki

  126. 

  127. 

  128. kamp,kcps,ifunc xin

  129. 

  130. 

  131. keg       expseg    .001, .01, 1, .1, .8, 999, .001

  132. keg       linenr    keg * kamp, .01, .333, .05

  133. kmeg      expseg    .001, .01,12000/1000, .25, .2, 999, .001

  134. a1        foscili   keg, kcps, 1, 1.4, kmeg, 1

  135.          

  136. xout a1        

  137. 

  138.        endop

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

  140. 

  141. opcode CHOWNPiano,a,kki

  142. 

  143. kamp,kcps,ifunc xin

  144. 

  145. ;gitemp100  ftgen 0,0 ,128 ,7, 0, 128 , 1

  146. 

  147. kndx	expon	1,	.3,	.01

  148. 

  149. a1	foscili	kamp,	kcps,	1,	12,	kndx,	ifunc

  150. a2	foscili	kamp,	kcps + .1,	1,	12,	kndx,	ifunc

  151. a3	foscili	kamp,	kcps - .1,	1,	12,	kndx,	ifunc

  152. 

  153. aosc	=	a1 + a2 + a3

  154. kenv	mxadsr	.01,	.1,	.8,	.1

  155. aosc	=	aosc * .5

  156. 

  157. aout =	aosc*kenv

  158.        

  159. xout aout         

  160. 

  161.        endop

  162. ;**************************************************

  163. opcode CHOWNrebell,a,kki

  164. 

  165. 

  166. gifc2 ftgen 0,0.0 ,512 ,7 ,1 ,512 ,1

  167. gifc3 ftgen 0,0.0, 512, 7 ,.5 ,512, .5

  168. gifc4 ftgen 0,0.0 ,513 ,7 ,1 ,512, 0, 1, 0

  169. gifc5 ftgen 0,0.0, 513 ,7 ,0 ,512, 1, 1, 1

  170. gifc6 ftgen 0,0.0 ,513, 7, 1, 256, 0, 256, 1 ,1, 1

  171. 

  172. 

  173. kamp,knote,ifunc xin

  174. 

  175. kgate          linenr    kamp,0,1.5,.01

  176. kpitch1        =         knote       

  177. kpitch2        =         kpitch1 * 1.001     

  178. kpitch3        =         kpitch1 * 0.998     

  179. imodbase       =         (19 <= 5 ? 19 : 5)      

  180. imodmax        =         (19 <= 5 ? 5 : 19)       

  181. indxbase       =         (1 <= 2 ? 1 : 2)        

  182. indxmax        =         (1 <= 2 ? 2 : 1)        

  183. kmodchg        oscil1i   0.00,imodmax - imodbase,p3,gifc4       

  184. kmod           =         imodbase + kmodchg      

  185. kndxchg        oscil1i   0.00,indxmax - indxbase,5,gifc5       

  186. kndx           =         indxbase + kndxchg      

  187. afm1           foscili   1*.45,kpitch1,1,kmod,kndx,ifunc       

  188. afm2           foscili   1*.35,kpitch2,1,kmod,kndx,ifunc        

  189. afm3           foscili   1*.32,kpitch3,1,kmod,kndx,ifunc       

  190. afmttl         =         afm1+afm2+afm3      

  191. aosc1          poscil     1 *.45,kpitch1,ifunc      

  192. aosc2          poscil     1 *.35,kpitch2,ifunc       

  193. aosc3          poscil     1 *.32,kpitch3,ifunc      

  194. aoscttl        =         aosc1+aosc2+aosc3       

  195. afm            =         afmttl - aoscttl;                   

  196. icfbase        =         (3000 <= 12000 ? 3000 : 12000)      

  197. icfmax         =         (3000 <= 12000 ? 12000 : 3000)      

  198. kcfchg         oscil1i   0.00,(icfmax - icfbase),5,gifc6      

  199. kcf            =         icfbase + kcfchg        

  200. ibwbase        =         (100 <= 400 ? 100 : 400)        

  201. ibwmax         =         (100 <= 400 ? 400 : 100)        

  202. kbwchg         oscil1i   0.00,ibwmax - ibwbase,5,gifc6      

  203. kbw            =         ibwbase + kbwchg        

  204. aflt1          reson     afm,kcf,kbw,1       

  205. aflt2          reson     afm,kcf*.9, kbw*1.11,1       

  206. abal           balance   aflt1+aflt2,afm       

  207. 

  208. asig           envlpx    abal,.2, gifc5, gifc5*.39, gifc5, 1                       

  209. 

  210. xout asig*kgate         

  211. 

  212.        endop

  213. 

  214. 

  215. ;**************************************************

  216. opcode CHOWNSoprano,a,kki

  217. 

  218. kveloc,knote,ifunc xin

  219. 

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

  221.         k7     =         knote

  222.         k2     =         7000

  223.         k2     =         (k2/k7)+.5

  224.         k2     =         int(k2)

  225.         k3     =         .04

  226.         k4     =         .25

  227.         k5     =         5*.4

  228.         k6     =         5

  229.         k8     =         k5/k4

  230.         k9     =         exp(1.5*log(7000/32767))

  231.         k10    =         .00311*log(k7)

  232.         k11    =         sqrt(7000/32767)

  233.         k12    =         (1-k3)*k11

  234.         k13    =         k4*k7

  235.         k14    =         k9*k3

  236. a1             linen     k12,.1,3,.08

  237. a2             poscil     k13,k7,ifunc

  238. a8             =         k7+a2

  239. a4             linenr    k10,.6,3,.1

  240. a4             poscil     a4,k6,ifunc

  241. a5             randi     k10,16

  242. a6             linseg    -.03,.07,.03,.03,0,3-.1,0

  243. a6             =         a4+a5+a6+1.

  244. a1             poscil    a1,(a8+a2)*a6,ifunc

  245. a7             =         (a2*k8)+k2

  246. a3             linseg    0,.07,.1,.03,1.,3-.18,1,.02,.1,.06,0

  247. a3             =         a3*(k9*k3)

  248. a3             poscil    a3,a7*a6,ifunc

  249. 

  250. aout    =  (a1+a3)*kgate

  251. 

  252. 

  253. xout aout         

  254. 

  255. endop

  256. 

  257. ;**************************************************

  258. opcode CHOWNString,a,kki

  259. 

  260. kamp,knote,ifunc xin

  261. ;setksmps 10

  262. iveloc         ampmidi   1

  263. 

  264. kgate          linenr    1, 0, .2, .01

  265. ifc            =         cpspch(5.00)

  266. ifm1           =         ifc

  267. ifm2           =         ifc*3

  268. ifm3           =         ifc*4

  269. indx1          =         7.5/log(ifc)                  ;RANGE FROM CA 2 TO 1

  270. indx2          =         15/sqrt(ifc)                  ;RANGE FROM CA 2.6 TO .5

  271. indx3          =         1.25/sqrt(ifc)                ;RANGE FROM CA .2 TO .038

  272. kvib           init      0               

  273. timout    0,.75,transient

  274. 

  275. kvbctl         linen     1,.5,2-.75,.1

  276. krnd           randi     .0075,15                      ;RANDOM DEVIATION IN VIB WIDTH        

  277. kvib           poscil   kvbctl*.03+krnd,5.5*kvbctl,ifunc

  278. 

  279. transient:

  280. timout    .2,2,continue

  281. 

  282. ktrans         linseg    1,.2,0,1,0     ;TRANSIENT ENVELOPE

  283. anoise         randi     ktrans,.2*ifc         ;NOISE... 

  284. attack         poscil    anoise,knote,ifunc

  285.  

  286. continue:      

  287. 

  288. amod1          poscil   ifm1*(indx1+ktrans),knote,ifunc

  289. amod2          poscil    ifm2*(indx2+ktrans),knote*3,ifunc

  290. amod3          poscil    ifm3*(indx3+ktrans),knote*4,ifunc

  291. asig           poscil    kamp,(amod1+amod2+amod3)*(1+kvib),ifunc

  292. asig           linen     asig+attack,.2,2,.2

  293. 

  294. xout  asig *kgate      

  295.        endop

  296. 

  297. 

  298. ;**************************************************

  299. opcode CHOWNTrumpet,a,kki

  300. 

  301. gitemp2 ftgen 0,0,129,9,.35,1,0

  302. gitemp3 ftgen 0,0,129,9,.4,1,0

  303. gitemp4 ftgen 0,0,129,9,.25,1,0

  304. gitemp5 ftgen 0,0,129,9,.3875,1.4142,0

  305.  

  306. kamp,knote,ifunc xin

  307. 

  308. ;setksmps 10

  309. 

  310. kgate          linenr         kamp/2, 0, .2, .01

  311. irandev        =              .007

  312. ifreqrand      =              125

  313. ivibatt        =              .6

  314. ivibdec        =              .2

  315. ivibwth        =              .007

  316. ivibrate       =              7

  317. iportdev       =              .03

  318. iportatt       =              .06

  319. iportdec       =              .01

  320. iampfac        =              .833

  321. iafrmfac       =              1-iampfac

  322. imax           =              2.66

  323. iratio         =              1.8/imax

  324. ifundatt       =              .03

  325. ifunddec       =              .15

  326. ifrmatt        =              .03

  327. ifrmdec        =              .3

  328. imodatt        =              .03

  329. imoddec        =              .01

  330. 

  331. kphs           linen          ivibwth, ivibatt, 1, ivibdec

  332. kvfac          table          kphs, gitemp4, ifunc

  333. kvibgate       =              kvfac*ivibwth 

  334. kport          envlpx         iportdev, iportatt, 1, iportdec, gitemp5, 1, .01

  335. krand          randi          irandev, ifreqrand, -1

  336. kosc           poscil          kvibgate, ivibrate, ifunc

  337. kvib           =              (krand+1)*(kosc+1)*(kport+1)

  338.        

  339. kgatemod       envlpx         imax*knote, imodatt, 1, imoddec, gitemp3, 1.2, .01, .2

  340. kgatefd        envlpx         iampfac, ifundatt, 1, ifunddec, gitemp2, 1, .01

  341. kgatefrm       envlpx         iafrmfac, ifrmatt, 1, ifrmdec, gitemp2, 1, .01

  342. amod           poscil         kgatemod, knote*kvib, ifunc

  343. afund          poscil         kgatefd, knote*kvib+amod, ifunc

  344. afrm           poscil         kgatefrm, (int(1500/knote+.5)*knote)*kvib+amod*iratio, ifunc

  345. xout            (afund+afrm)*kgate

  346.  endop

  347. ;**************************************************

  348. opcode CHOWNVibr,a,kki

  349. 

  350. kamp,kifc,ifunc xin

  351. 

  352. gitemp100  ftgen 0,0 ,128 ,7, 0, 128 , 1

  353.        

  354.         kifm1        =         kifc

  355. 

  356.         kifm2        =         kifc*3

  357. 

  358.         kifm3        =         kifc*4

  359. 

  360.         kindx1       =         7.5/log(kifc)        ;RANGE FROM CA 2 TO 1

  361. 

  362.         kindx2       =         15/sqrt(kifc)        ;RANGE FROM CA 2.6 TO .5

  363. 

  364.         kindx3       =         1.25/sqrt(kifc)      ;RANGE FROM CA .2 TO .038

  365. 

  366.         kvib        init      0               

  367.  

  368. 

  369.                     timout    0,0.75,transient               ;DELAYS VIBRATO FOR P8 SECONDS

  370. 

  371.         kvbctl      linen     1,.5,10,.1                    ;VIBRATO CONTROL ENVELOPE

  372. 

  373.         krnd        randi     .0075,15                      ;RANDOM DEVIATION IN VIB WIDTH        

  374. 

  375.         kvib        poscil    kvbctl*.03+krnd,5.5*kvbctl,ifunc  ;VIBRATO GENERATOR

  376. 

  377.         

  378. 

  379. transient:

  380. 

  381.                     timout    .2,10,continue                ;EXECUTE FOR .2 SECS ONLY

  382. 

  383.         ktrans      linseg    1,.2,0,1,0                    ;TRANSIENT ENVELOPE 

  384. 

  385.         anoise      randi     ktrans,.2*kifc                 ;NOISE... 

  386. 

  387.         attack      poscil     anoise,2000,ifunc                  ;...CENTERED AROUND 2KHZ

  388.  

  389. 

  390. continue:      

  391. 

  392.         amod1       poscil    kifm1*(kindx1+ktrans),kifm1,ifunc 

  393. 

  394.         amod2       poscil    kifm2*(kindx2+ktrans),kifm2,ifunc 

  395. 

  396.         amod3       poscil    kifm3*(kindx3+ktrans),kifm3,ifunc 

  397. 

  398.         asig        poscil    kamp,(kifc+amod1+amod2+amod3)*(1+kvib),ifunc

  399. 

  400.         asig        linen     asig+attack,.26,10,.2

  401. 

  402.         imax        ampmidi   1, gitemp100

  403. 

  404.         kgate       linenr    imax, 0, 1, .01

  405. 

  406.                     aout   =    asig * kgate

  407. 

  408. 

  409. xout aout         

  410. 

  411.        endop

  412. 

  413. 

  414. 

  415. 

  416. ;**************************************************

  417. 

  418. instr	1

  419. 

  420. ;kselect	init	1

  421. ;channel

  422. ;kmodfreq	chnget	"mod"

  423. ksemi1	chnget	"semi"

  424. kdetune	chnget	"detune"

  425. kspread chnget "spread"

  426. iatt	chnget	"att"

  427. idec	chnget	"dec"

  428. isus	chnget	"sus"

  429. irel	chnget	"rel"

  430. klfoamp	chnget	"vibamp"

  431. klforate	chnget	"vibrate"

  432. kselect	chnget	"select"

  433. 

  434. ;midi

  435. imidinn notnum

  436. iamp	ampmidi	1

  437. kbend	pchbend 0,2  ;pitch bend

  438. ;lfo

  439. klfo	lfo	klfoamp,klforate,2

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

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

  442. 

  443. 

  444. ;CHOWNClar,CHOWNglass,CHOWNLoop,CHOWNPerc,CHOWNPiano,CHOWNrebell,CHOWNSoprano,CHOWNString,CHOWNTrumpet,CHOWNVibr

  445. if	kselect	=	1	then

  446. acho1	CHOWNClar	iamp,kfreq1+klfo,1	

  447. acho2	CHOWNClar	iamp,kfreq2+klfo,1	

  448. elseif	kselect	=	2	then

  449. acho1	CHOWNglass	iamp,kfreq1+klfo,1	

  450. acho2	CHOWNglass	iamp,kfreq2+klfo,1

  451. elseif	kselect	=	3	then

  452. acho1	CHOWNLoop	iamp,kfreq1+klfo,1	

  453. acho2	CHOWNLoop	iamp,kfreq2+klfo,1

  454. elseif	kselect	=	4	then

  455. acho1	CHOWNPerc	iamp,kfreq1+klfo,1	

  456. acho2	CHOWNPerc	iamp,kfreq2+klfo,1

  457. elseif	kselect	=	5	then

  458. acho1	CHOWNPiano	iamp,kfreq1+klfo,1	

  459. acho2	CHOWNPiano	iamp,kfreq2+klfo,1

  460. elseif	kselect	=	6	then

  461. acho1	CHOWNrebell	iamp,kfreq1+klfo,1	

  462. acho2	CHOWNrebell	iamp,kfreq2+klfo,1

  463. elseif	kselect	=	7	then

  464. acho1	CHOWNSoprano	iamp,kfreq1,1	

  465. acho2	CHOWNSoprano	iamp,kfreq2,1

  466. elseif	kselect	=	8	then

  467. acho1	CHOWNString	iamp,kfreq1+klfo,1	

  468. acho2	CHOWNString	iamp,kfreq2+klfo,1

  469. elseif	kselect	=	9	then

  470. acho1	CHOWNTrumpet	iamp,kfreq1+klfo,1	

  471. acho2	CHOWNTrumpet	iamp,kfreq2+klfo,1

  472. elseif	kselect	=	10	then

  473. acho1	CHOWNVibr	iamp,kfreq1,1	

  474. acho2	CHOWNVibr	iamp,kfreq2,1

  475. 

  476. 

  477. 

  478. endif

  479. 

  480. ktrig	changed	kselect

  481. if	ktrig	=	1	then

  482. reinit	play

  483. endif

  484. play:

  485. 

  486. ;master

  487. aL	clip	acho1,0,0dbfs

  488. aR	clip	acho2,0,0dbfs

  489. 

  490. 

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

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

  493. 

  494. kadsr	mxadsr	iatt,idec,isus,irel

  495. 

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

  497. vincr	ga1,aoutL*kadsr

  498. vincr	ga2,aoutR*kadsr

  499. endin

  500. 

  501. instr	10	;reverb

  502. ktrig	chnget	"onoff"

  503. klevel	chnget	"level"

  504. ksize	chnget	"size"

  505. if	ktrig	=	1	then

  506. 	

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

  508. asum1	dcblock2	al

  509. asum2	dcblock2	ar

  510. else

  511. asum1	=	0

  512. asum2	=	0

  513. endif

  514. 

  515. outs	asum1*klevel,asum2*klevel

  516. clear	ga1,ga2

  517. endin

  518. 

  519. 

  520. </CsInstruments>

  521. <CsScore>

  522. f1	0	16384	10	1

  523. 

  524. ;f0 3600

  525. i1	0	36000

  526. i10	0	36000

  527. </CsScore>

  528. </CsoundSynthesizer>