#ifndef UDO_SCSS_MIXER_EFFECTS
#define UDO_SCSS_MIXER_EFFECTS ##

#include "/frequency_tools.udo"
#include "/wavetables.udo"

opcode _fxi_control, Sk, ii
	ichannelindex, ieffectindex xin
	SchanAppend = sprintf("_%d_%d", ichannelindex, ieffectindex)
	kon = chnget:k(strcat("fxi_on", SchanAppend))
	xout SchanAppend, kon
endop

opcode fxi_param, k, SS
	SchanAppend, Sname xin
	xout chnget:k(strcat(strcat("fxi_", Sname), SchanAppend))
endop

opcode fxi_param, i, SS
	SchanAppend, Sname xin
	xout chnget:i(strcat(strcat("fxi_", Sname), SchanAppend))
endop

gSeffectDefs = {{
	{
		"effects": [
			{
				"name": "Reverb",
				"opcode": "fxi_reverb",
				"parameters": [
					{"name": "roomsize", "description": "Room size", "default": 0.3, "max": 1, "min": 0},
					{"name": "hfdamp", "description": "High frequency damping", "default": 0.5, "max": 1, "min": 0}
				]
			},
			{
				"name": "Frequency shifter 1",
				"opcode": "fxi_freqshift1",
				"parameters": [
					{"name": "shift", "description": "Shift frequency", "default": 0, "max": 2000, "min": -2000}
				]
			},
			{
				"name": "Frequency shifter 2",
				"opcode": "fxi_freqshift2",
				"parameters": [
					{"name": "shift", "description": "Shift frequency", "default": 0, "max": 2000, "min": -2000}
				]
			},
			{
				"name": "Ring modulator",
				"opcode": "fxi_ringmod",
				"parameters": [
					{"name": "freq", "description": "Frequency", "default": 440, "max": 10000, "min": 20}
				]
				
			},
			{
				"name": "Bit crusher",
				"opcode": "fxi_bitcrush",
				"parameters": [
					{"name": "crush", "description": "Bits", "default": 8, "max": 64, "min": 2, "type": "int"}
				]
			},
			{
				"name": "Delay tuner",
				"opcode": "fxi_delaytuner",
				"parameters": [
					{"name": "freq", "description": "Frequency", "default": 110, "max": 4000, "min": 50},
					{"name": "feedback", "description": "Feedback", "default": 0.4, "max": 0.9, "min": 0}
				]
			},
			{
				"name": "Low pass filter",
				"opcode": "fxi_lowpass",
				"parameters": [
					{"name": "freq", "description": "Frequency", "default": 10000, "max": 20000, "min": 20}
				]
			},
			{
				"name": "Highpass filter",
				"opcode": "fxi_highpass",
				"parameters": [
					{"name": "freq", "description": "Frequency", "default": 1000, "max": 20000, "min": 20}
				]
			},
			{
				"name": "Simple chorus",
				"opcode": "fxi_simplechorus",
				"parameters": [
					{"name": "rateL", "description": "Rate (Left)", "default": 0.01, "max": 0.1, "min": 0.001},
					{"name": "rateR", "description": "Rate (Right)", "default": 0.01, "max": 0.1, "min": 0.001}
				]
			},
			{
				"name": "Simple delay",
				"opcode": "fxi_simpledelay",
				"parameters": [
					{"name": "time", "description": "Delay time", "default": 1000, "max": 4000, "min": 1}
				]
			},
			{
				"name": "Waveshaping distortion",
				"opcode": "fxi_distort",
				"parameters": [
					{"name": "distortion", "description": "Amount", "default": 0.1, "max": 2, "min": 0.001},
					{"name": "wave", "description": "Wave shape", "options": [
						{"name": "Sine", "value": 0},
						{"name": "Square", "value": 1},
						{"name": "Saw", "value": 2}
					]}
				]
			}
		]
	}
}}
giJinsertDefs = jsonloads(gSeffectDefs)



opcode fxi_reverb, aa, aaii
	aL, aR, ichannelindex, ieffectindex xin
	SchanAppend, kon _fxi_control ichannelindex, ieffectindex
	if (kon == 1) then
		kroomsize = fxi_param:k(SchanAppend, "roomsize")
		khfdamp = fxi_param:k(SchanAppend, "hfdamp")
		aL, aR freeverb aL, aR, kroomsize, khfdamp
	endif
	xout aL, aR
endop


opcode fxi_simpledelay, aa, aaii ; TODO have beats delay option
	aL, aR, ichannelindex, ieffectindex xin
	SchanAppend, kon _fxi_control ichannelindex, ieffectindex
	if (kon == 1) then
		ktime = fxi_param:k(SchanAppend, "time")
		aL vdelay aL, ktime, 4000
		aR vdelay aR, ktime, 4000
	endif
	xout aL, aR
endop

opcode fxi_distort, aa, aaii
	aL, aR, ichannelindex, ieffectindex xin
	SchanAppend, kon _fxi_control ichannelindex, ieffectindex
	if (kon == 1) then
		kdist = fxi_param:k(SchanAppend, "distortion")
		kwave = fxi_param:k(SchanAppend, "wave") ; TODO k to i... reinit??
		aL distort aL, kdist, gifnSine ;ifn
		aR distort aR, kdist, gifnSine ;ifn
	endif
	xout aL, aR
endop


opcode fxi_freqshift1, aa, aaii
	aL, aR, ichannelindex, ieffectindex xin
	SchanAppend, kon _fxi_control ichannelindex, ieffectindex
	if (kon == 1) then
		kshift = fxi_param:k(SchanAppend, "shift")
		aL, aR freqshift1 aL, aR, kshift
	endif
	xout aL, aR
endop


opcode fxi_freqshift2, aa, aaii
	aL, aR, ichannelindex, ieffectindex xin
	SchanAppend, kon _fxi_control ichannelindex, ieffectindex
	if (kon == 1) then
		kshift = fxi_param:k(SchanAppend, "shift")
		aL, aR freqshift2 aL, aR, kshift
	endif
	xout aL, aR
endop


opcode fxi_ringmod, aa, aaii
	aL, aR, ichannelindex, ieffectindex xin
	SchanAppend, kon _fxi_control ichannelindex, ieffectindex
	if (kon == 1) then
		kfreq = fxi_param:k(SchanAppend, "freq")
		aL, aR ringmod1 aL, aR, kfreq
	endif
	xout aL, aR
endop


opcode fxi_bitcrush, aa, aaii
	aL, aR, ichannelindex, ieffectindex xin
	SchanAppend, kon _fxi_control ichannelindex, ieffectindex
	if (kon == 1) then
		kcrush = fxi_param:k(SchanAppend, "crush")
		aL, aR bitcrush aL, aR, kcrush
	endif
	xout aL, aR
endop


opcode fxi_delaytuner, aa, aaii
	aL, aR, ichannelindex, ieffectindex xin
	SchanAppend, kon _fxi_control ichannelindex, ieffectindex
	if (kon == 1) then
		kfreq = fxi_param:k(SchanAppend, "freq")
		kfeedback = fxi_param:k(SchanAppend, "feedback")
		aL, aR delaytuner aL, aR, kfreq, kfeedback

	endif
	xout aL, aR
endop


opcode fxi_lowpass, aa, aaii
	aL, aR, ichannelindex, ieffectindex xin
	SchanAppend, kon _fxi_control ichannelindex, ieffectindex
	if (kon == 1) then
		kfreq = fxi_param:k(SchanAppend, "freq")
		aL butterlp aL, kfreq
		aR butterlp aR, kfreq
	endif
	xout aL, aR
endop


opcode fxi_highpass, aa, aaii
	aL, aR, ichannelindex, ieffectindex xin
	SchanAppend, kon _fxi_control ichannelindex, ieffectindex
	if (kon == 1) then
		kfreq = fxi_param:k(SchanAppend, "freq")
		aL butterhp aL, kfreq
		aR butterhp aR, kfreq
	endif
	xout aL, aR
endop

opcode fxi_simplechorus, aa, aaii
	aL, aR, ichannelindex, ieffectindex xin
	SchanAppend, kon _fxi_control ichannelindex, ieffectindex
	if (kon == 1) then
		krateL = fxi_param:k(SchanAppend, "rateL")
		krateR = fxi_param:k(SchanAppend, "rateR")
		aL, aR simplechorus aL, aR, krateL, krateR
	endif
	xout aL, aR
endop

#end