STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354112
	ESBR
	SORD	2
		PVAL	1	/o,-100,100,0,100;max gain (%)
		PVAL	0	/o,-100,100,0,100;min gain (%)
		PORD	1	/o,1,10;exponent
	ESBR
	SORD	8	input/output
		LVAL	0	input
		LVAL	0	output
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354115
	ESBR
	SGLB	SignalP/Input	/3v7,-100,100,-100,100;Input (%)
		CMNT	 	Expects:  É ¥ inst/arg/É
		CALL	354113	É ¥ inst/arg/É
		PRIM	Stack/Second to aux	É/arg ¥ inst/É
		LITO	0	É/arg ¥ 0/inst/É
		LITO	2	É/arg ¥ 2/0/inst/É
		PRIM	S_tree/Read	É/arg ¥ list/inst/É
		PRIM	List/Remove	É/arg ¥ list'/Gmax/inst/É
		PRIM	List/Remove	É/arg ¥ list''/Gmin/Gmax/inst/É
		PRIM	List/List to item	É/arg ¥ N/Gmin/Gmax/inst/É
		PRIM	Stack/Dup from aux	É/arg ¥ arg/N/Gmin/Gmax/inst/É
		LCAL	exp	É ¥ exp/Gmin/Gmax/inst/É
		LVAL	1	É ¥ 1/exp/Gmin/Gmax/inst/É
		PRIM	Stack/Xover	É ¥ Gmin/1/exp/Gmin/Gmax/inst/É
		PRIM	Value/Subtract	É ¥ 1-Gmin/exp/Gmin/Gmax/inst/É
		PRIM	Value/Multiply	É ¥ exp*(1-Gmin)/Gmin/Gmax/inst/É
		PRIM	Value/Add	É ¥ exp*(1-Gmin)+Gmin/Gmax/inst/É
		PRIM	Value/Multiply	É ¥ output/inst/É
		CALL	354114	É ¥ É
	ESBR
	SGLB	SignalP/Max Gain	/3v8,-100,100,0,100;Max Gain (0% to 100%)
		LITO	1
		CALL	354073
	ESBR
	SGLB	SignalP/Min Gain	/3v8,-100,100,0,100;Min Gain (0% to 100%)
		LITO	2
		CALL	354073
	ESBR
	SGLB	SignalP/Exponent	/3u3,0,10;Exponent (1-10)
		LITO	3
		CALL	354073
	ESBR
	SGLB	SignalP/Get Max Gain	/2v6,-100,100;%3.2f%%
		LITO	1
		CALL	354072
	ESBR
	SGLB	SignalP/Get Min Gain	/2v6,-100,100;%3.2f%%
		LITO	2
		CALL	354072
	ESBR
	SGLB	SignalP/Get Exponent	/2u2
		LITO	3
		CALL	354072
	ESBR
ESTR
LDEF	exp
	CMNT	 	Input:  É/arg ¥ exp/N/É
	CMNT	 	Output:  É ¥ exp/É
	PRIM	Stack/Swap	É/arg ¥ N/exp/É
	PRIM	Ordinal/Decrement	É/arg ¥ N-1/exp/É
	PRIM	Stack/Dup down	É/arg ¥ N-1/exp/N-1/É
	BRFL	 	branch if done
		PRIM	Stack/Drop from aux	É ¥ exp/N-1/É
		PRIM	Stack/Xdrop	É ¥ exp/É
	BRTR
	PRIM	Stack/Dup from aux	É/arg ¥ arg/exp/N-1/É
	PRIM	Value/Multiply	É/arg ¥ exp'/N-1/É
	LCAL	exp
EDEF