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/Effects/pvsEffects.csd

171 lines
7.4KB
Raw Blame History 

  1. <Cabbage>

  2. form caption("FFT Effects") size(450, 640), pluginID("pvfx")

  3. 

  4. ; PVSFREEZE

  5. groupbox bounds(0,  0, 450, 100), colour(  0,200,100,100) text("Freeze"), fontcolour("white"), plant("pvsfreeze"){

  6. checkbox bounds(35, 30, 30, 30), channel("freeze_onoff"), fontcolour("black"), colour("red"), shape("rounded")

  7. label   bounds( 30, 68, 60, 12), text("On/Off"), FontColour("white")

  8. checkbox bounds(100, 30, 180, 25), channel("freezb"), text("Freeze Both"), fontcolour("white"), shape("rounded"), colour("red")

  9. checkbox bounds(215, 30, 180, 25), channel("freeza"), text("Freeze Amplitudes"), fontcolour("white"), shape("rounded"), colour("yellow")

  10. checkbox bounds(215, 65, 180, 25), channel("freezf"), text("Freeze Frequencies"), fontcolour("white"), shape("rounded"), colour("orange")

  11. rslider bounds(370, 25, 70, 70), text("Mix"), channel("freeze_mix"), fontcolour("white"), range(0, 1.00, 1), colour(  0,200,100,150)

  12. }

  13. 

  14. ; PVSCALE

  15. groupbox bounds(0,100, 225, 100), colour(250,250,  0,200) text("Freq. Scale"), fontcolour("white"), plant("pvscale"){

  16. checkbox bounds(25, 30, 30, 30), channel("pvscale_onoff"), fontcolour("black"), colour("red"), shape("rounded")

  17. label   bounds( 20, 68, 60, 12), text("On/Off"), FontColour("white")

  18. rslider bounds( 70, 25, 70, 70), text("Ratio"), channel("pvscale_scal"), fontcolour("white"), range(0.25, 4.00, 1, 0.5, 0.01), colour(250,250,  0,150)

  19. rslider bounds(140, 25, 70, 70), text("Mix"), channel("pvscale_mix"), fontcolour("white"), range(0, 1.00, 1), colour(250,250,  0,150)

  20. }

  21. 

  22. ; PVSHIFT

  23. groupbox bounds(225,100, 225, 100), colour(  0,250,250,200) text("Freq. Shift"), fontcolour("white"), plant("pvshift"){

  24. checkbox bounds(25, 30, 30, 30), channel("pvshift_onoff"), fontcolour("black"), colour("red"), shape("rounded")

  25. label   bounds( 20, 68, 60, 12), text("On/Off"), FontColour("white")

  26. rslider bounds( 70, 25, 70, 70), text("Freq."), channel("pvshift_freq"), fontcolour("white"), range(-4000, 4000, 0), colour(  0,250,250,150)

  27. rslider bounds(140, 25, 70, 70), text("Mix"), channel("pvshift_mix"), fontcolour("white"), range(0, 1.00, 1), colour(  0,250,250,150)

  28. }

  29. 

  30. ; PVSBLUR

  31. groupbox bounds(0,200, 225, 100), colour( 50,250,  0,200) text("Blur"), fontcolour("white"), plant("pvsblur"){

  32. checkbox bounds(25, 30, 30, 30), channel("pvsblur_onoff"), fontcolour("black"), colour("red"), shape("rounded")

  33. label   bounds( 20, 68, 60, 12), text("On/Off"), FontColour("white")

  34. rslider bounds( 70, 25, 70, 70), text("Ratio"), channel("pvsblur_scal"), fontcolour("white"), range(0.25, 4.00, 1, 0.5, 0.01), colour( 50,250,  0,150)

  35. rslider bounds(140, 25, 70, 70), text("Mix"), channel("pvsblur_mix"), fontcolour("white"), range(0, 1.00, 1), colour( 50,250,  0,150)

  36. }

  37. 

  38. ; PVSMOOTH

  39. groupbox bounds(225,200, 225, 100), colour(100,250,100,200) text("Smooth"), fontcolour("white"), plant("pvsmooth"){

  40. checkbox bounds(25, 30, 30, 30), channel("pvsmooth_onoff"), fontcolour("black"), colour("red"), shape("rounded")

  41. label   bounds( 20, 68, 60, 12), text("On/Off"), FontColour("white")

  42. rslider bounds( 70, 25, 70, 70), text("Freq."), channel("pvsmooth_freq"), fontcolour("white"), range(-4000, 4000, 0), colour(100,250,100,160)

  43. rslider bounds(140, 25, 70, 70), text("Mix"), channel("pvsmooth_mix"), fontcolour("white"), range(0, 1.00, 1), colour(100,250,100,150)

  44. }

  45. 

  46. ; PVSWARP

  47. 

  48. ; PVSBANDP / PVSBANDR

  49. 

  50. ; PVSADSYN

  51. groupbox bounds(0, 300, 450, 100), colour(150, 40,  40,250) text("Additive Resynthesizer"), fontcolour("white"), plant("pvsadsyn"){

  52. checkbox bounds(35, 30, 30, 30), channel("pvsadsyn_onoff"), fontcolour("black"), colour("red"), shape("rounded")

  53. label   bounds( 30, 68, 60, 12), text("On/Off"), FontColour("white")

  54. rslider bounds( 90, 25, 70, 70), text("Freq.Mod."), channel("pvsadsyn_fmod"), range(0.25, 4, 1), fontcolour("white"), colour(110,  0,   0,200)

  55. rslider bounds(160, 25, 70, 70), text("Num.Osc.s"), channel("pvsadsyn_noscs"), range(1, 1024, 256,1,1), fontcolour("white"), colour(110,  0,   0,200)

  56. rslider bounds(230, 25, 70, 70), text("Bin Offset"), channel("pvsadsyn_binoffset"), range(0, 256, 1,1,1), fontcolour("white"), colour(110,  0,   0,200)

  57. rslider bounds(300, 25, 70, 70), text("Bin Incr."), channel("pvsadsyn_binincr"), range(1, 32, 1,1,1), fontcolour("white"), colour(110,  0,   0,200)

  58. rslider bounds(370, 25, 70, 70), text("Mix"), channel("pvsadsyn_mix"), range(0, 1, 1), fontcolour("white"), colour(110,  0,   0,200)

  59. }

  60. 

  61. ; OUTPUT

  62. groupbox bounds(0, 400, 450, 100), colour(  0,250,250,100) text("Output"), fontcolour("white"), plant("output"){

  63. rslider bounds( 10, 25, 70, 70), text("Level"), channel("level"), range(0, 1.00, 0), fontcolour("white"), colour(  0,250,250,150)

  64. }

  65. 

  66. </Cabbage>

  67. 

  68. <CsoundSynthesizer>

  69. <CsOptions>

  70. -d -n

  71. </CsOptions>

  72. <CsInstruments>

  73. 

  74. sr 		= 	44100

  75. ksmps 		= 	32

  76. nchnls 		= 	2

  77. 0dbfs		=	1	;MAXIMUM AMPLITUDE

  78. 

  79. ;Author: Iain McCurdy (2013)

  80. ;http://iainmccurdy.org/csound.html

  81. 

  82. instr	1

  83. 	/* AUDIO INPUT */

  84. 	aL,aR	ins

  85. 	;aL,aR	diskin2	"SynthPad.wav",1,0,1

  86. 	

  87. 	/* FFT PARAMETERS */

  88. 	iFFTsize	=	1024

  89. 	ioverlap	=	256

  90. 	iwinsize	=	1024

  91. 	iwintype	=	1

  92. 

  93. 	/* ANALYSE AUDIO SIGNAL */

  94. 	f_sigL  	pvsanal	aL, iFFTsize, ioverlap, iwinsize, iwintype	;ANALYSE AUDIO INPUT SIGNAL AND OUTPUT AN FSIG

  95. 	f_sigR  	pvsanal	aR, iFFTsize, ioverlap, iwinsize, iwintype

  96. 	

  97. 	/* PVSFREEZE */

  98. 	kfreeze_onoff	chnget	"freeze_onoff"

  99. 	kfreeze_mix		chnget	"freeze_mix"

  100. 	kfreeza		chnget	"freeza"

  101. 	kfreezf		chnget	"freezf"

  102. 	kfreezb		chnget	"freezb"

  103. 	if(kfreeze_onoff==1) then

  104. 	 ; triggering of 'Freeze All' mode

  105. 	 kon		=	1

  106. 	 koff		=	0

  107. 	 ktrigon		trigger	kfreezb,0.5,0

  108. 	 ktrigoff	trigger	kfreezb,0.5,1

  109. 	 if(ktrigon==1) then

  110. 	  chnset		kon,"freeza"

  111. 	  chnset		kon,"freezf"

  112. 	 elseif(ktrigoff==1) then

  113. 	  chnset		koff,"freeza"

  114. 	  chnset		koff,"freezf"

  115. 	 endif

  116. 	 f_freezeL	pvsfreeze f_sigL, kfreeza, kfreezf	

  117. 	 f_freezeR	pvsfreeze f_sigR, kfreeza, kfreezf

  118. 	 f_drymixL	pvsgain	f_sigL, 1-kfreeze_mix           ;WET/DRY MIX

  119. 	 f_drymixR	pvsgain	f_sigR, 1-kfreeze_mix           ;

  120. 	 f_wetmixL	pvsgain	f_freezeL, kfreeze_mix          ;

  121. 	 f_wetmixR	pvsgain	f_freezeR, kfreeze_mix          ;

  122. 	 f_sigL		pvsmix	f_drymixL, f_wetmixL            ;

  123. 	 f_sigR		pvsmix	f_drymixR, f_wetmixR            ;

  124. 	endif

  125. 

  126. 

  127. 

  128. 	/* PVSADSYN */

  129. 	kpvsadsyn_onoff		chnget	"pvsadsyn_onoff"						;READ IN WIDGETS

  130. 	if(kpvsadsyn_onoff==1) then

  131. 	 kpvsadsyn_mix		chnget	"pvsadsyn_mix"							;READ IN WIDGETS

  132.  	 kpvsadsyn_fmod		chnget	"pvsadsyn_fmod"

  133. 	 kpvsadsyn_noscs	chnget	"pvsadsyn_noscs"

  134. 	 kpvsadsyn_binoffset	chnget	"pvsadsyn_binoffset"

  135. 	 kpvsadsyn_binincr	chnget	"pvsadsyn_binincr"

  136. 	 kpvsadsyn_lev		chnget	"pvsadsyn_lev"

  137. 	 knossc	init	256

  138. 	 ktrig		changed	kpvsadsyn_noscs,kpvsadsyn_binoffset,kpvsadsyn_binincr			;GENERATE TRIGGER FOR I-RATE PARAMETERS

  139. 	 if ktrig==1 then

  140. 	  reinit	UPDATE

  141. 	 endif

  142. 	 UPDATE:

  143. 	 inoscs	init	i(kpvsadsyn_noscs)	

  144.  	 ibinoffset	init	i(kpvsadsyn_binoffset)

  145. 	 ibinincr	init	i(kpvsadsyn_binincr)

  146. 	 inoscs	limit	inoscs, 1, (((iFFTsize*0.5)+1)-ibinoffset)/ibinincr				;LIMIT NUMBER OF OSCILLATORS USED TO PREVENT CRASHES

  147. 	 aresynL		pvsadsyn f_sigL, inoscs, kpvsadsyn_fmod , ibinoffset, ibinincr		;RESYNTHESIZE FROM THE fsig USING pvsadsyn

  148. 	 aresynR		pvsadsyn f_sigR, inoscs, kpvsadsyn_fmod , ibinoffset, ibinincr

  149. 	 rireturn

  150. 	 aresynL	ntrpol		aL, aresynL, kpvsadsyn_mix					;CREATE DRY/WET MIX

  151. 	 aresynR	ntrpol		aR, aresynR, kpvsadsyn_mix

  152. 	else

  153. 	

  154. 	/* PVSYNTH */

  155.   	 aresynL	pvsynth	f_sigL		;RESYNTHESIZE THE f-SIGNAL AS AN AUDIO SIGNAL

  156.   	 aresynR	pvsynth	f_sigR		;RESYNTHESIZE THE f-SIGNAL AS AN AUDIO SIGNAL

  157. 	endif

  158. 	

  159. 	/* AUDIO OUTPUT */

  160. 	klevel		chnget	"level"							;READ IN WIDGETS

  161. 			outs		aresynL*klevel, aresynR*klevel

  162. 

  163. endin

  164. 

  165. </CsInstruments>

  166. 

  167. <CsScore>

  168. i 1 0 [60*60*24*7]

  169. </CsScore>

  170. 

  171. </CsoundSynthesizer>