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/gbuzz_synth.csd

486 lines
23KB
Raw Blame History 

  1. 

  2. <Cabbage>

  3. form caption("gbuzz Synth") size(875, 375), pluginID("GBuz")

  4. image   bounds(  0,  0,875,295), colour("DarkSlateGrey"), outline("MediumSlateBlue"), line(3)	; main panel colouration    

  5. 

  6. ;MAIN

  7. image    bounds( 10,  6,495, 90), colour("DarkSlateGrey"), outline("white"), line(2), shape("sharp"),plant("main"){	;main

  8. label    bounds(180,  5,100, 15), text("Main"), fontcolour(white)

  9. rslider  bounds(  0, 23, 62, 62), text("Level"),  colour(SlateGrey) channel("level"),range(0,20, 10,0.5,0.001), fontcolour(white)

  10. rslider  bounds( 60, 23, 62, 62), text("Power"),  colour(SlateGrey) channel("mul"), range(0, 0.97, 0.1), fontcolour(white)

  11. rslider  bounds(120, 23, 62, 62), text("Lowest"), colour(SlateGrey)  channel("lh"), range(1, 40, 3,1,1), fontcolour(white)

  12. rslider  bounds(180, 23, 62, 62), text("Number"), colour(SlateGrey)  channel("nh"), range(1,200,10,1,1), fontcolour(white)

  13. rslider  bounds(240, 23, 62, 62), text("Jitter"), colour(SlateGrey) channel("jitter"),range(0, 1, 0.4), fontcolour(white)

  14. rslider  bounds(300, 23, 62, 62), text("Pan"),    colour(SlateGrey) channel("pan"),range(0, 1, 0.5), fontcolour(white)

  15. label    bounds(368, 19, 90, 11), text("Waveform"), fontcolour(white)

  16. combobox bounds(365, 30, 60, 18), channel("waveform"), value(3), text("cosine", "sine", "user")

  17. label    bounds(368, 52, 90, 11), text("User Matrix"), fontcolour(white)

  18. checkbox bounds(368, 63, 10, 10), channel("part1"), FontColour(white), colour("lime"), value(1)

  19. checkbox bounds(378, 63, 10, 10), channel("part2"), FontColour(white), colour("lime"), value(0)

  20. checkbox bounds(388, 63, 10, 10), channel("part3"), FontColour(white), colour("lime"), value(1)

  21. checkbox bounds(398, 63, 10, 10), channel("part4"), FontColour(white), colour("lime"), value(0)

  22. checkbox bounds(408, 63, 10, 10), channel("part5"), FontColour(white), colour("lime"), value(0)

  23. checkbox bounds(418, 63, 10, 10), channel("part6"), FontColour(white), colour("lime"), value(0)

  24. checkbox bounds(368, 73, 10, 10), channel("part7"), FontColour(white), colour("lime"), value(1)

  25. checkbox bounds(378, 73, 10, 10), channel("part8"), FontColour(white), colour("lime"), value(0)

  26. checkbox bounds(388, 73, 10, 10), channel("part9"), FontColour(white), colour("lime"), value(0)

  27. checkbox bounds(398, 73, 10, 10), channel("part10"), FontColour(white), colour("lime"), value(1)

  28. checkbox bounds(408, 73, 10, 10), channel("part11"), FontColour(white), colour("lime"), value(1)

  29. checkbox bounds(418, 73, 10, 10), channel("part12"), FontColour(white), colour("lime"), value(0)

  30. rslider  bounds(430, 23, 62, 62), text("Octave"),    colour(SlateGrey) channel("octave"),range(-8, 8, -4,1,1), fontcolour(white)

  31. }              

  32. 

  33. ;POLYPHONY

  34. image    bounds(510,  6,170, 90), colour("DarkSlateGrey"), outline("white"), line(2), shape("sharp"), plant("polyphony"){	;polyphony

  35. label    bounds( 35,  5,100, 15), text("Polyphony"), fontcolour(white)

  36. button   bounds( 10, 24, 70, 25), text("mono", "poly"), channel("monopoly"), value(1), fontcolour("lime") 

  37. rslider  bounds(110, 26, 60, 60), text("Leg.Time"), channel("LegTim"), range(0.01, 15, 0.05, 0.25, 0.00001), fontcolour(white) colour(SlateGrey)

  38. label    bounds( 37, 54, 90, 11), text("Mode"), fontcolour(white)

  39. combobox bounds( 10, 65, 90, 18), channel("PortMode"), value(1), text("Fixed", "Proportional")

  40. }

  41. 

  42. ;REVERB              

  43. image   bounds(710,101,120, 90), colour("DarkSlateGrey"), outline("white"), line(2), shape("sharp"), plant("reverb"){	;reverb

  44. label   bounds( 35,  5,100, 15), text("Reverb"), fontcolour(white)

  45. rslider bounds(  0, 23, 60, 60), text("Mix"), channel("RvbMix"), range(0, 1, 0.3), fontcolour(white) colour(SlateGrey)

  46. rslider bounds( 60, 23, 60, 60), text("Size"), channel("RvbSize"), range(0.3, 1, 0.7), fontcolour(white) colour(SlateGrey)

  47. }                       

  48. 

  49. ;PITCH BEND

  50. image   bounds(685,  6,185, 90), colour("DarkSlateGrey"), outline("white"), line(2), shape("sharp"), plant("pitchbend"){	;pitch bend

  51. label   bounds( 52,  5,100, 15), text("Pitch Bend"), fontcolour(white)

  52. rslider  bounds(  0, 23, 60, 60), fontcolour("white"), text("< Bend"),    channel("BendDown"),    range(-1,0, 0, 1,0.001), colour(SlateGrey)

  53. rslider  bounds( 60, 23, 60, 60), fontcolour("white"), text("Bend >"),    channel("BendUp"),      range(0, 1, 0, 1,0.001), colour(SlateGrey)

  54. rslider  bounds(120, 23, 60, 60), fontcolour("white"), text("Bend Rng."), channel("BendRange"),   range(1, 24, 12, 1,1),   colour(SlateGrey)

  55. }

  56. 

  57. ;MULTIPLIER ENVELOPE

  58. image    bounds( 10,101,305, 90), colour("DarkSlateGrey"), outline("white"), line(2), shape("sharp"), plant("multiplierenvelope"){	;multiplier envelope

  59. label    bounds( 83,  5,160, 15), text("Multiplier Envelope"), fontcolour(white)

  60. rslider  bounds(  0, 23, 62, 62), text("Att"),  colour(SlateGrey) channel("MAtt"),range(0, 8.000, 0.01, 0.375,0.0001), fontcolour(white)

  61. rslider  bounds( 60, 23, 62, 62), text("Lev"),  colour(SlateGrey) channel("MLev"),range(0, 1.000, 0.6), fontcolour(white)

  62. rslider  bounds(120, 23, 62, 62), text("Dec"),  colour(SlateGrey) channel("MDec"),range(0, 8.000, 3,  0.375,0.0001), fontcolour(white)

  63. rslider  bounds(180, 23, 62, 62), text("Sus"),  colour(SlateGrey) channel("MSus"),range(0, 1.000, 0), fontcolour(white)

  64. rslider  bounds(240, 23, 62, 62), text("Rel"),  colour(SlateGrey) channel("MRel"),range(0, 8.000, 0.1,  0.375,0.0001), fontcolour(white)

  65. }

  66. 

  67. ;LOW CUT                                                                  

  68. image    bounds(320,101,125, 90), colour("DarkSlateGrey"), outline("white"), line(2), shape("sharp"), plant("lowcut"){	;Low Cut

  69. checkbox bounds( 30,  6, 70, 12), text("Low Cut") channel("LowCutOnOff"), FontColour(white), colour("lime")

  70. rslider  bounds(  0, 23, 62, 62), text("Low Cut"),  colour(SlateGrey) channel("LowCut"),range(0, 30.00, 0,1,0.0011), fontcolour(white)

  71. rslider  bounds( 60, 23, 62, 62), text("Lo Poles"),  colour(SlateGrey) channel("LowPoles"),range(2, 30, 2,1,1), fontcolour(white)

  72. }

  73. 

  74. ;HIGH CUT

  75. image    bounds(450,101,125, 90), colour("DarkSlateGrey"), outline("white"), line(2), shape("sharp"), plant("highcut"){	;High Cut

  76. checkbox bounds( 28,  6, 70, 12), text("High Cut") channel("HighCutOnOff"), FontColour(white), colour("lime"), value(1)

  77. rslider  bounds(  2, 23, 62, 62), text("High Cut"),  colour(SlateGrey) channel("HighCut"),range(1, 100.00, 7,0.25,0.0001), fontcolour(white)

  78. rslider  bounds( 62, 23, 62, 62), text("Hi Poles"),  colour(SlateGrey) channel("HighPoles"),range(2, 30, 8,1,1), fontcolour(white)

  79. }

  80. 

  81. ;AMPLITUDE ENVELOPE

  82. image    bounds( 10,196,305, 90), colour("DarkSlateGrey"), outline("white"), line(2), shape("sharp"), plant("amplitudeenvelope"){	;amplitude envelope

  83. label    bounds( 83,  5,160, 15), text("Amplitude Envelope"), fontcolour(white)

  84. rslider  bounds(  0, 23, 62, 62), text("Att"),  colour(SlateGrey) channel("AAtt"),range(0, 8.000, 0, 0.375,0.0001), fontcolour(white)

  85. rslider  bounds( 60, 23, 62, 62), text("Lev"),  colour(SlateGrey) channel("ALev"),range(0, 1.000, 1), fontcolour(white)

  86. rslider  bounds(120, 23, 62, 62), text("Dec"),  colour(SlateGrey) channel("ADec"),range(0, 8.000, 3,  0.375,0.0001), fontcolour(white)

  87. rslider  bounds(180, 23, 62, 62), text("Sus"),  colour(SlateGrey) channel("ASus"),range(0, 1.000, 0), fontcolour(white)

  88. rslider  bounds(240, 23, 62, 62), text("Rel"),  colour(SlateGrey) channel("ARel"),range(0, 8.000, 0.05, 0.375,0.0001), fontcolour(white)

  89. }

  90. 

  91. ;MODULATION

  92. image   bounds(320,196,485, 90), colour("DarkSlateGrey"), outline("white"), line(2), shape("sharp"), plant("modulation"){	;MODULATION

  93. label   bounds(203,  5,100, 15), text("Modulation"), fontcolour(white)

  94. rslider bounds(  2, 23, 62, 62), text("Mod.Depth"),     colour(SlateGrey) channel("mod"),    range(0, 1.00, 0.7), fontcolour(white)

  95. rslider bounds( 62, 23, 62, 62), text("Delay"),     colour(SlateGrey) channel("VDel"),   range(0, 4.00, 0), fontcolour(white)

  96. rslider bounds(122, 23, 62, 62), text("Rise"),      colour(SlateGrey) channel("VRis"),   range(0, 5.00, 1.5), fontcolour(white)

  97. rslider bounds(182, 23, 62, 62), text("Rate"),      colour(SlateGrey) channel("VRate"),  range(0,30.00, 2.7), fontcolour(white)

  98. rslider bounds(242, 23, 62, 62), text("Rate Rnd."), colour(SlateGrey) channel("VRatRnd"),range(0, 2.00, 0.5), fontcolour(white)

  99. rslider bounds(302, 23, 62, 62), text("Vib.Dep."), colour(SlateGrey) channel("VibDep"),range(0, 1.00, 0.2), fontcolour(white)

  100. rslider bounds(362, 23, 62, 62), text("Trem.Dep."), colour(SlateGrey) channel("TremDep"),range(0, 0.5, 0.3), fontcolour(white)

  101. rslider bounds(422, 23, 62, 62), text("Tone Dep."), colour(SlateGrey) channel("ToneDep"),range(0, 4.00, 0), fontcolour(white)

  102. }

  103. 

  104. ;NOISE

  105. image   bounds(580,101,125, 90), colour("DarkSlateGrey"), outline("white"), line(2), shape("sharp"), plant("noise"){	;NOISE

  106. label   bounds( 40,  5,100, 15), text("Noise"), fontcolour(white)

  107. rslider bounds(  2, 23, 62, 62), text("Depth"),  colour(SlateGrey) channel("NoiseAmp"),range(0,300.00, 0, 1, 0.0001), fontcolour(white)

  108. rslider bounds( 62, 23, 62, 62), text("Damp"),  colour(SlateGrey) channel("NoiseDamp"),range(15, 10000, 1000, 0.5, 0.01), fontcolour(white)

  109. }                 

  110. 

  111. 

  112. keyboard pos(0, 295), size(875, 80)

  113. 

  114. </Cabbage>

  115. 

  116. <CsoundSynthesizer>

  117. 

  118. <CsOptions>

  119. -dm0 -n -+rtmidi=null -M0                                              

  120. </CsOptions>

  121. 

  122. <CsInstruments>

  123. 

  124. sr 		= 	44100

  125. ksmps 		= 	16

  126. nchnls 		= 	2

  127. 0dbfs		=	1	;MAXIMUM AMPLITUDE

  128. seed	0

  129. massign	0,2

  130. 

  131. ;Author: Iain McCurdy (2012)

  132. 

  133. gicos	ftgen	0,0,131072,9,1,1,90		;FUNCTION TABLE THAT STORES A SINGLE CYCLE OF A COSINE WAVE

  134. gisine	ftgen	0,0,131072,10,1			;A SINE WAVE. USED BY THE LFOs.

  135. giwave	ftgen	999,0,131073,10,1,0,1		;USER WAVEFORM

  136. 

  137. gasendL,gasendR	init	0

  138. 

  139. ;FUNCTION TABLE USED TO RE-MAP THE RELATIONSHIP BETWEEN VELOCITY AND ATTACK TIME 

  140. giattscl	ftgen	0,0,128,-16,2,128,-10,0.005

  141. giNAttScl	ftgen	0,0,128,-16,8,128,-4,0.25

  142. 

  143. gkactive	init	0	; Will contain number of active instances of instr 3 when legato mode is chosen. NB. notes in release stage will not be regarded as active. 

  144. 

  145. opcode	FreqShifter,a,aki

  146. 	ain,kfshift,ifn	xin					;READ IN INPUT ARGUMENTS

  147. 	areal, aimag hilbert ain				;HILBERT OPCODE OUTPUTS TWO PHASE SHIFTED SIGNALS, EACH 90 OUT OF PHASE WITH EACH OTHER

  148. 	asin 	oscili       1,    kfshift,     ifn,          0

  149. 	acos 	oscili       1,    kfshift,     ifn,          0.25	

  150. 	;RING MODULATE EACH SIGNAL USING THE QUADRATURE OSCILLATORS AS MODULATORS

  151. 	amod1	=		areal * acos

  152. 	amod2	=		aimag * asin	

  153. 	;UPSHIFTING OUTPUT

  154. 	aFS	= (amod1 - amod2)

  155. 		xout	aFS				;SEND AUDIO BACK TO CALLER INSTRUMENT

  156. endop

  157. 

  158. opcode	SsplinePort,k,KkkO												;DEFINE OPCODE

  159. 	knum,kporttime,kcurve,iopt	xin										;READ IN INPUT ARGUMENTS

  160. 	kout	init	i(knum)												;INITIALISE TO OUTPUT VALUE (PORTAMENTO APPLIED VALUE)

  161. 	ktrig	changed	knum												;...GENERATE A TRIGGER IS A NEW NOTE NUMBER IS GENERATED (FROM INSTR. 1)

  162. 	 if ktrig=1 then												;IF A NEW (LEGATO) NOTE HAS BEEN PRESSED 

  163. 	  reinit	S_CURVE												;BEGIN A REINITIALISATION PASS FROM LABEL

  164. 	 endif														;END OF CONDITIONAL BRANCH

  165. 	 S_CURVE:													;A LABEL. REINITIALISATION BEGINS FROM HERE.

  166. 	if iopt!=0 then													;IF ABSOLUTE/PROPORTIONAL SWITCH IS ON... (I.E. PROPORTIONAL)

  167. 	 idiff	=	1+abs(i(knum)-i(kout))									;ABSOLUTE DIFFERENCE BETWEEN OLD NOTE AND NEW NOTE IN STEPS (+ 1)

  168. 	 kporttime	=	kporttime*idiff										;SCALE PORTAMENTO TIME ACCORDING TO THE NOTE GAP

  169. 	endif														;END OF CONDITIONAL BRANCH

  170. 	imid	=	i(kout)+((i(knum)-i(kout))/2)								;SPLINE MID POINT VALUE

  171. 	isspline	ftgentmp	0,0,4096,-16,i(kout),4096*0.5,i(kcurve),imid,(4096/2)-1,-i(kcurve),i(knum)	;GENERATE 'S' SPLINE

  172. 	kspd	=	i(kporttime)/kporttime										;POINTER SPEED AS A RATIO (WITH REFERENCE TO THE ORIGINAL DURATION)

  173. 	kptr	init	0												;POINTER INITIAL VALUE	

  174. 	kout	tablei	kptr,isspline											;READ VALUE FROM TABLE

  175. 	kptr	limit	kptr+((ftlen(isspline)/(i(kporttime)*kr))*kspd), 0, ftlen(isspline)-1				;INCREMENT THE POINTER BY THE REQUIRED NUMBER OF TABLE POINTS IN ONE CONTROL CYCLE AND LIMIT IT BETWEEN FIRST AND LAST TABLE POINT - FINAL VALUE WILL BE HELD IF POINTER ATTEMPTS TO EXCEED TABLE DURATION

  176. 	rireturn													;RETURN FROM REINITIALISATION PASS

  177. 	 		xout	kout                                                                                    ;SEND PORTAMENTOED VALUES BACK TO CALLER INSTRUMENT

  178. endop

  179. 

  180. instr	1	; read in widgets

  181. 	kporttime	linseg	0,0.001,0.05

  182. 

  183. 	gkmul		chnget	"mul"

  184. 	gklh		chnget	"lh"

  185. 	gknh		chnget	"nh"

  186. 	gkjitter	chnget		"jitter"

  187. 	gkwaveform	chnget	"waveform"

  188. 	gkoctave	chnget	"octave"

  189. 	gkpart1		chnget	"part1"

  190. 	gkpart2		chnget	"part2"

  191. 	gkpart3		chnget	"part3"

  192. 	gkpart4		chnget	"part4"

  193. 	gkpart5		chnget	"part5"

  194. 	gkpart6		chnget	"part6"

  195. 	gkpart7		chnget	"part7"

  196. 	gkpart8		chnget	"part8"

  197. 	gkpart9		chnget	"part9"

  198. 	gkpart10	chnget	"part10"

  199. 	gkpart11	chnget	"part11"

  200. 	gkpart12	chnget	"part12"

  201. 	ktrig	changed	gkpart1,gkpart2,gkpart3,gkpart4,gkpart5,gkpart6,gkpart7,gkpart8,gkpart9,gkpart10,gkpart11,gkpart12

  202. 	if ktrig==1 then

  203. 	reinit USER_WAVEFORM

  204. 	 endif

  205. 	USER_WAVEFORM:

  206. 	 giwave	ftgen	999,0,131073,10,i(gkpart1),i(gkpart2),i(gkpart3),i(gkpart4),i(gkpart5),i(gkpart6),i(gkpart7),i(gkpart8),i(gkpart9),i(gkpart10),i(gkpart11),i(gkpart12)		;USER WAVEFORM

  207. 	rireturn

  208. 	

  209. 	gkmonopoly	chnget	"monopoly"

  210. 	printk2	gkmonopoly

  211. 	gkLegTim	chnget	"LegTim"

  212. 	gkPortMode	chnget	"PortMode"

  213. 	

  214. 	gkpan		chnget	"pan"

  215. 	gklevel		chnget	"level"

  216. 	gkRvbMix	chnget	"RvbMix"

  217. 	gkRvbSize	chnget	"RvbSize"

  218. 

  219. 	gkMAtt	chnget	"MAtt"		; multiplier envelope

  220. 	gkMLev	chnget	"MLev"

  221. 	gkMDec	chnget	"MDec"

  222. 	gkMSus	chnget	"MSus"

  223. 	gkMRel	chnget	"MRel"

  224. 

  225. 	gkAAtt	chnget	"AAtt"		; amplitude envelope

  226. 	gkALev	chnget	"ALev"

  227. 	gkADec	chnget	"ADec"

  228. 	gkASus	chnget	"ASus"

  229. 	gkARel	chnget	"ARel"

  230. 

  231. 	gkLowCutOnOff	chnget	"LowCutOnOff"

  232. 	gkLowCut	chnget	"LowCut"

  233. 	gkLowPoles	chnget	"LowPoles"

  234. 	gkHighCutOnOff	chnget	"HighCutOnOff"

  235. 	gkHighCut	chnget	"HighCut"

  236. 	gkHighPoles	chnget	"HighPoles"

  237. 	

  238. 	gkmod		chnget	"mod"		; modulation

  239. 	gkVDel		chnget	"VDel"

  240. 	gkVRis		chnget	"VRis"

  241. 	gkVRate		chnget	"VRate"

  242. 	gkVRatRnd	chnget	"VRatRnd"

  243. 	gkVibDep	chnget	"VibDep"

  244. 	gkTremDep	chnget	"TremDep"

  245. 	gkToneDep	chnget	"ToneDep"

  246. 

  247. 	gkNoiseAmp	chnget	"NoiseAmp"	; noise

  248. 	gkNoiseDamp	chnget	"NoiseDamp"

  249. 	

  250. 	gkBendDown	chnget	"BendDown"

  251. 	gkBendUp	chnget	"BendUp"

  252. 	gkBendRange	chnget	"BendRange"

  253. 	gkPchBend	portk	(gkBendDown+gkBendUp)*gkBendRange, kporttime

  254. endin

  255. 

  256. instr	2	;triggered via MIDI

  257. 	gkNoteTrig	init	1				;at the beginning of a new note set note trigger flag to '1'

  258. 	inum		notnum					;read in midi note number

  259. 	givel		veloc	0,1				;read in midi note velocity

  260. 	gknum	=	inum					;update a global krate variable for note pitch

  261. 

  262.                                                                                              

  263. 	;============================================================================================================================================================

  264. 	if i(gkmonopoly)==0 then				; if we are *not* in legato mode...

  265. 	 

  266. 	 ; METHOD 1: calling sub-instruments using event_1, fractional p1s and turnoff2s. (problematic on windows)   

  267. 	 ;	event_i	"i",p1+1+(inum*0.001),0,-1,inum		; call sound producing instr

  268. 	 ;krel	release						; release flag (1 when note is released, 0 otherwise)

  269. 	 ;if krel==1 then					; when note is released...

  270. 	 ; turnoff2	p1+1+(inum*0.001),4,1			; turn off the called instrument

  271. 	 ;endif							; end of conditional

  272. 	 

  273. 	 ; METHOD 2: using subinstr (problematic on windows and mac) 

  274. 	 ;a1,a2	subinstr	3,inum

  275. 	 ;	outs		a1,a2

  276. 

  277. 	 ; METHOD 3: all instr code within the same instrument (the safest option on windows and mac, if rather inelegant)

  278. 	 kporttime	linseg	0,0.001,1		;portamento time function rises quickly from zero to a held value

  279. 	 kglisstime	=	kporttime*gkLegTim	;scale portamento time function with value from GUI knob widget

  280.          

  281. 	 /* MODULATION */

  282. 	krate	randomi	gkVRate-gkVRatRnd,gkVRate+gkVRatRnd,1,1

  283. 	kModRise	linseg	0,i(gkVDel)+0.0001, 0, i(gkVRis)+0.0001, 1

  284. 	kmod	lfo	gkmod*kModRise,krate,0

  285. 	 

  286. 	 kporttime	linseg		0,0.001,1		;CREATE A FUNCTION  THAT RISES RAPIDLY FROM ZERO TO A FIXED VALUE THAT WILL BE USED FOR PORTAMENTO TIME 

  287. 	 

  288. 	 ;------------------------------------------------------------------------------------------------------------

  289. 	 ;PITCH JITTER (THIS WILL BE USED TO ADD HUMAN-PLAYER REALISM)

  290. 	 ;------------------------------------------------------------------------------------------------------------

  291. 	 ;				AMP | MIN_FREQ. | MAX_FREQ

  292. 	 kPitchJit	jitter		0.05*gkjitter*4,     1,         20

  293.          

  294. 	 ;------------------------------------------------------------------------------------------------------------

  295. 	 ;AMPLITUDE JITTER (THIS WILL BE USED TO ADD HUMAN-PLAYER REALISM)

  296. 	 ;------------------------------------------------------------------------------------------------------------

  297. 	 ;				AMP | MIN_FREQ. | MAX_FREQ

  298. 	 kAmpJit		jitter		0.1*gkjitter*4,     0.2,        1

  299. 	 kAmpJit		=		kAmpJit+1			;OFFSET SO IT MODULATES ABOUT '1' INSTEAD OF ABOUT ZERO

  300. 	 

  301. 	 knum		=		inum+kPitchJit			;DERIVE K-RATE NOTE NUMBER VALUE INCORPORATING PITCH BEND, VIBRATO, AND PITCH JITTER	

  302.          

  303. 	 /* OSCILLATOR */

  304. 	 kmul		portk		gkmul, kporttime*0.1

  305. 	 ;kMulEnv		linsegr		0, i(gkMAtt)+0.0001, i(gkMLev), i(gkMDec)+0.0001, i(gkMSus), i(gkMRel)+0.0001, 0

  306. 	 kMulEnv		expsegr		0.001, i(gkMAtt)+0.0001, i(gkMLev)+0.001, i(gkMDec)+0.0001, i(gkMSus)+0.001, i(gkMRel)+0.0001, 0.001

  307. 	 kMulEnv		=		kMulEnv + 0.001		; offset

  308. 	 kmul		=		kmul+kMulEnv+(kmod*gkToneDep)

  309. 	 kmul		limit		kmul,0,0.9

  310. 	 knum	=	knum + gkPchBend + (kmod*gkVibDep)

  311. 	 ifn	=	( i(gkwaveform) < 3 ? (gicos+i(gkwaveform)-1) : giwave)

  312. 	 knum	=	knum+(gkoctave*12)

  313. 	 asig		gbuzz		(kAmpJit*0.1)*(1+(kmod*gkTremDep*0.9)), cpsmidinn(knum), gknh, gklh, kmul, ifn;gicos+i(gkwaveform)-1

  314. 	                                                                                                                

  315. 	 /* NOISE */

  316. 	 kNoiseAmp	expcurve	kmul,40

  317. 	 kNoiseAmp	scale		kNoiseAmp,2,0.1

  318. 	 anoise		gauss		kNoiseAmp*gkNoiseAmp

  319. 	 anoise		butlp		anoise,gkNoiseDamp

  320. 	 asig		=		asig * (1+anoise)

  321. 

  322. 	 /* LOW CUT / HIGH CUT FILTERS */

  323. 	 ;FILTER

  324. 	 if gkLowCutOnOff=1 then

  325. 	  kLowCut	portk	gkLowCut,kporttime*0.1

  326. 	  kLowCut	limit	cpsmidinn(knum)*kLowCut,20,sr/2

  327. 	  ktrig		changed	gkLowPoles

  328. 	  if ktrig=1 then

  329. 	   reinit	RESTART_LOWCUT

  330. 	  endif

  331. 	  RESTART_LOWCUT:                                    

  332. 	  asig		clfilt	asig,kLowCut,1,i(gkLowPoles)

  333. 	  rireturn

  334. 	 endif

  335. 	 if gkHighCutOnOff=1 then

  336. 	  kHighCut	portk	gkHighCut,kporttime*0.1

  337. 	  kHighCut	limit	cpsmidinn(knum)*kHighCut,20,sr/2

  338. 	  ktrig		changed	gkHighPoles                                         

  339. 	  if ktrig=1 then              

  340. 	   reinit	RESTART_HIGHCUT

  341. 	  endif

  342. 	  RESTART_HIGHCUT:

  343. 	  asig		clfilt	asig,kHighCut,0,i(gkHighPoles)

  344. 	  rireturn

  345. 	 endif

  346. 

  347. 	 aenv		linsegr		0,i(gkAAtt)+0.0001,i(gkALev),i(gkADec),i(gkASus),i(gkARel),0			;AMPLITUDE ENVELOPE

  348. 	 asig		=		asig * aenv

  349. 	 klevel		portk		gklevel,kporttime*0.1

  350. 	 kpan		portk		gkpan,kporttime*0.1

  351. 	 kRvbMix	portk		gkRvbMix,kporttime*0.1

  352. 	 aL,aR		pan2		asig*klevel,kpan		;scale amplitude level and create stereo panned signal

  353. 	 		outs		aL*(1-gkRvbSize), aR*(1-gkRvbSize)		;SEND AUDIO TO THE OUTPUTS

  354. 	 gasendL		=		gasendL+aL*kRvbMix

  355. 	 gasendR		=		gasendR+aR*kRvbMix

  356. 	;============================================================================================================================================================

  357. 

  358. 	

  359. 	

  360. 	 

  361. 	 

  362. 	else							;otherwise... (i.e. legato mode)

  363. 	 ;iactive	active p1+1				;check to see if there is already a note active...

  364. 	 iactive	=	i(gkactive)			;number of active notes of instr 3 (note in release are disregarded)

  365. 	 if iactive==0 then					;...if no notes are active

  366. 	  event_i	"i",p1+1,0,-1				;...start a new held note

  367. 	 endif

  368. 	endif

  369. endin

  370. 

  371. instr	3	;gbuzz instrument. MIDI notes are directed here.

  372. 	kporttime	linseg	0,0.001,1		;portamento time function rises quickly from zero to a held value

  373. 	kglisstime	=	kporttime*gkLegTim	;scale portamento time function with value from GUI knob widget

  374. 

  375. 	/* MODULATION */

  376. 	krate	randomi	gkVRate-gkVRatRnd,gkVRate+gkVRatRnd,1,1

  377. 	if gkNoteTrig==1 then

  378. 	 reinit RESTART_MOD_ENV

  379. 	endif

  380. 	RESTART_MOD_ENV:

  381. 	kModRise	linseg	0,i(gkVDel)+0.0001, 0, i(gkVRis)+0.0001, 1

  382. 	kmod	lfo	gkmod*kModRise,krate,0

  383. 	rireturn

  384. 	gkNoteTrig	=	0			;reset new-note trigger (in case it was '1')

  385. 	

  386. 	if i(gkmonopoly)==1 then			;if we are in legato mode...

  387. 	 krel	release					;sense when  note has been released

  388. 	 gkactive	=	1-krel			;if note is in release, gkactive=0, otherwise =1

  389. 	 knum	SsplinePort	gknum,kglisstime,1,i(gkPortMode)-1

  390. 	 kactive	active	p1-1			;...check number of active midi notes (previous instrument)

  391. 	 if kactive==0 then				;if no midi notes are active...

  392. 	  turnoff					;... turn this instrument off

  393. 	 endif

  394. 	else						;otherwise... (polyphonic / non-legato mode)

  395. 	 knum	=	p4		 		;pitch equal to the original note pitch

  396. 	endif

  397. 	ivel	init	givel

  398. 		

  399. 	;------------------------------------------------------------------------------------------------------------

  400. 	;PITCH JITTER (THIS WILL BE USED TO ADD HUMAN-PLAYER-LIKE INSTABILITY)

  401. 	;------------------------------------------------------------------------------------------------------------

  402. 	;				AMP | MIN_FREQ. | MAX_FREQ

  403. 	kPitchJit	jitter		0.05*gkjitter*4,     1,         20

  404. 

  405. 	;------------------------------------------------------------------------------------------------------------

  406. 	;AMPLITUDE JITTER (THIS WILL BE USED TO ADD HUMAN-PLAYER-LIKE INSTABILITY)

  407. 	;------------------------------------------------------------------------------------------------------------

  408. 	;				AMP | MIN_FREQ. | MAX_FREQ

  409. 	kAmpJit		jitter		0.1*gkjitter*4,     0.2,        1

  410. 	kAmpJit		=		kAmpJit+1			;OFFSET SO IT MODULATES ABOUT '1' INSTEAD OF ABOUT ZERO

  411. 	

  412. 	knum		=		knum+kPitchJit			;DERIVE K-RATE NOTE NUMBER VALUE INCORPORATING PITCH BEND, VIBRATO, AND PITCH JITTER	

  413. 

  414. 	/* OSCILLATOR */

  415. 	kmul		portk		gkmul, kporttime*0.1

  416. 	;kMulEnv		linsegr		0, i(gkMAtt)+0.0001, i(gkMLev), i(gkMDec)+0.0001, i(gkMSus), i(gkMRel)+0.0001, 0

  417. 	kMulEnv		expsegr		0.001, i(gkMAtt)+0.0001, i(gkMLev)+0.001, i(gkMDec)+0.0001, i(gkMSus)+0.001, i(gkMRel)+0.0001, 0.001

  418. 	kMulEnv		=		kMulEnv + 0.001		; offset

  419. 	kmul		=		kmul+kMulEnv+(kmod*gkToneDep)

  420. 	kmul		limit		kmul,0,0.9

  421. 	knum	=	knum + gkPchBend + (kmod*gkVibDep)

  422. 	ifn	=	( i(gkwaveform) < 3 ? (gicos+i(gkwaveform)-1) : giwave)

  423. 	asig		gbuzz		(kAmpJit*0.1)*(1+(kmod*gkTremDep*0.9)), cpsmidinn(knum+(gkoctave*12)), gknh, gklh, kmul, ifn;gicos+i(gkwaveform)-1

  424. 	

  425. 	/* NOISE */

  426. 	kNoiseAmp	expcurve	kmul,40

  427. 	kNoiseAmp	scale		kNoiseAmp,2,0.1

  428. 	anoise		gauss		kNoiseAmp*gkNoiseAmp                                                                      

  429. 	anoise		butlp		anoise,gkNoiseDamp

  430. 	asig		=		asig * (1+anoise)

  431. 	

  432. 	/* LOW CUT / HIGH CUT FILTERS */

  433. 	;FILTER

  434. 	if gkLowCutOnOff=1 then

  435. 	 kLowCut	portk	gkLowCut,kporttime*0.1

  436. 	 kLowCut	limit	cpsmidinn(knum)*kLowCut,20,sr/2

  437. 	 ktrig		changed	gkLowPoles

  438. 	 if ktrig=1 then

  439. 	  reinit	RESTART_LOWCUT

  440. 	 endif

  441. 	 RESTART_LOWCUT:

  442. 	 asig		clfilt	asig,kLowCut,1,i(gkLowPoles)

  443. 	endif

  444. 	if gkHighCutOnOff=1 then

  445. 	 kHighCut	portk	gkHighCut,kporttime*0.1

  446. 	 kHighCut	limit	cpsmidinn(knum)*kHighCut,20,sr/2

  447. 	 ktrig		changed	gkHighPoles

  448. 	 if ktrig=1 then              

  449. 	  reinit	RESTART_HIGHCUT

  450. 	 endif

  451. 	 RESTART_HIGHCUT:

  452. 	 asig		clfilt	asig,kHighCut,0,i(gkHighPoles)

  453. 	 rireturn

  454. 	endif

  455.             

  456. 	aenv		linsegr		0,i(gkAAtt)+0.0001,i(gkALev),i(gkADec),i(gkASus),i(gkARel),0			;AMPLITUDE ENVELOPE

  457. 	asig		=		asig * aenv

  458. 	klevel		portk		gklevel,kporttime*0.1

  459. 	kpan		portk		gkpan,kporttime*0.1

  460. 	kRvbMix	portk		gkRvbMix,kporttime*0.1

  461. 	aL,aR		pan2		asig*klevel,kpan		;scale amplitude level and create stereo panned signal

  462. 			outs		aL*(1-gkRvbSize), aR*(1-gkRvbSize)		;SEND AUDIO TO THE OUTPUTS

  463. 	gasendL		=		gasendL+aL*kRvbMix

  464. 	gasendR		=		gasendR+aR*kRvbMix

  465. endin

  466. 

  467. 

  468. 

  469. instr	5	;reverb

  470. 	if gkRvbMix==0 kgoto SKIP_REVERB

  471. 	aL,aR	reverbsc	gasendL,gasendR,gkRvbSize,12000

  472. 		outs		aL,aR

  473. 		clear		gasendL,gasendR

  474. 	SKIP_REVERB:

  475. endin

  476. 

  477. 

  478. </CsInstruments>

  479. 

  480. <CsScore>

  481. i 1 0 3600			; read widgets

  482. i 5 0 3600			; reverb

  483. f 0 3600

  484. </CsScore>

  485. 

  486. </CsoundSynthesizer>