Csound Csound-dev Csound-tekno Search About

[Csnd] graphic_equalizer

Date2010-03-09 18:14
FromEnrico Francioni
Subject[Csnd] graphic_equalizer
Hi csounders!

I want to do a graphic equalizer with csound.
I want to vary each frequency band independently
(on the same signal) as shown:

http://old.nabble.com/file/p27839674/Immagine%2B3.png 

I have to use to force the family pvs opcodes?

... I could not use the opcodes pareq or rbjeq or eqfil?
... You have something in mind?


thank you

e
Date2010-03-09 18:20
FromVictor Lazzarini
Subject[Csnd] Re: graphic_equalizer
eqfil would do the job. You can use as many as you need, in series.

Victor
On 9 Mar 2010, at 18:14, Enrico Francioni wrote:

>
> Hi csounders!
>
> I want to do a graphic equalizer with csound.
> I want to vary each frequency band independently
> (on the same signal) as shown:
>
> http://old.nabble.com/file/p27839674/Immagine%2B3.png
>
> I have to use to force the family pvs opcodes?
>
> ... I could not use the opcodes pareq or rbjeq or eqfil?
> ... You have something in mind?
>
>
> thank you
>
> e
> --  
> View this message in context: http://old.nabble.com/graphic_equalizer-tp27839674p27839674.html
> Sent from the Csound - General mailing list archive at Nabble.com.
>
>
>
> Send bugs reports to the Sourceforge bug tracker
>            https://sourceforge.net/tracker/?group_id=81968&atid=564599
> Discussions of bugs and features can be posted here
> To unsubscribe, send email sympa@lists.bath.ac.uk with body  
> "unsubscribe csound"
>



Send bugs reports to the Sourceforge bug tracker
            https://sourceforge.net/tracker/?group_id=81968&atid=564599
Discussions of bugs and features can be posted here
To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"
Date2010-03-09 18:30
FromPeiman Khosravi
Subject[Csnd] Re: graphic_equalizer
I have a graphic EQ (31 logarithmic bands) UDO using pvs opcodes. It  
might help.

Let me know if it doesn't make sense as my commenting skills are not  
so good :-)

Best,

Peiman

;inumbins should be 8192 for a 31 band EQ
;iampin is the input amplitude table (use pvsftw to read the pvs  
signal amplitudes to a table)
;aimpout is the output table which should be later multiplied with the  
amplitude of the original pvs signal (I use pvsfilter)
;iamptable is the input table containing an EQ function it should  
contain 32 indexes (e.g. "giamptable	 ftgen 103,0,32,-7,1,32, 1").

  opcode eq, 0, iiii
inumbins, iampin, iampout, iamptable xin
iclear ftgen 0, 0, inumbins, 2, 0
tablecopy iampout, iclear
kindex = 0
kcount = 0
kcount2 = kcount+1
loop:
;read eq tabe data for 3 consecutive bins at a time
kmult	 table kindex, iamptable
kmult1	 table kindex+1, iamptable
kmult2	 table kindex+2, iamptable
;Denormalization issue!
kmult = kmult+0.00000000001
kmult1= kmult1+0.00000000001
kmult2= kmult2+0.00000000001
;if less value is less than 0.0011 then set it to zero
if (kmult < 0.001) then
kmult = 0.00000000001
endif
if (kmult1 < 0.001) then
kmult1 = 0.00000000001
endif
if (kmult2 < 0.001) then
kmult2 = 0.00000000001
endif
;Write the values to the output table
vadd iampout, kmult, kcount2, kcount
vadd iampout, kmult1, kcount2, kcount+kcount2
vadd iampout, kmult2, kcount2, kcount+(kcount2*2)
kmax = kcount+(kcount2*2)
kindex = kindex+3
kcount = kcount+kcount2*3
kcount2 = kcount2 * 2
if (kmax < inumbins) kgoto loop
endop

On 9 Mar 2010, at 18:14, Enrico Francioni wrote:

>
> Hi csounders!
>
> I want to do a graphic equalizer with csound.
> I want to vary each frequency band independently
> (on the same signal) as shown:
>
> http://old.nabble.com/file/p27839674/Immagine%2B3.png
>
> I have to use to force the family pvs opcodes?
>
> ... I could not use the opcodes pareq or rbjeq or eqfil?
> ... You have something in mind?
>
>
> thank you
>
> e
> -- 
> View this message in context: http://old.nabble.com/graphic_equalizer-tp27839674p27839674.html
> Sent from the Csound - General mailing list archive at Nabble.com.
>
>
>
> Send bugs reports to the Sourceforge bug tracker
>            https://sourceforge.net/tracker/?group_id=81968&atid=564599
> Discussions of bugs and features can be posted here
> To unsubscribe, send email sympa@lists.bath.ac.uk with body  
> "unsubscribe csound"
>



Send bugs reports to the Sourceforge bug tracker
            https://sourceforge.net/tracker/?group_id=81968&atid=564599
Discussions of bugs and features can be posted here
To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"
Date2010-03-09 20:18
FromEnrico Francioni
Subject[Csnd] Re: graphic_equalizer

ok Peiman…
thanks,

...have you a CSD file for this?

best
e



peiman wrote:
> 
> I have a graphic EQ (31 logarithmic bands) UDO using pvs opcodes. It  
> might help.
> 
> Let me know if it doesn't make sense as my commenting skills are not  
> so good :-)
> 
> Best,
> 
> Peiman
> 
> ;inumbins should be 8192 for a 31 band EQ
> ;iampin is the input amplitude table (use pvsftw to read the pvs  
> signal amplitudes to a table)
> ;aimpout is the output table which should be later multiplied with the  
> amplitude of the original pvs signal (I use pvsfilter)
> ;iamptable is the input table containing an EQ function it should  
> contain 32 indexes (e.g. "giamptable	 ftgen 103,0,32,-7,1,32, 1").
> 
>   opcode eq, 0, iiii
> inumbins, iampin, iampout, iamptable xin
> iclear ftgen 0, 0, inumbins, 2, 0
> tablecopy iampout, iclear
> kindex = 0
> kcount = 0
> kcount2 = kcount+1
> loop:
> ;read eq tabe data for 3 consecutive bins at a time
> kmult	 table kindex, iamptable
> kmult1	 table kindex+1, iamptable
> kmult2	 table kindex+2, iamptable
> ;Denormalization issue!
> kmult = kmult+0.00000000001
> kmult1= kmult1+0.00000000001
> kmult2= kmult2+0.00000000001
> ;if less value is less than 0.0011 then set it to zero
> if (kmult < 0.001) then
> kmult = 0.00000000001
> endif
> if (kmult1 < 0.001) then
> kmult1 = 0.00000000001
> endif
> if (kmult2 < 0.001) then
> kmult2 = 0.00000000001
> endif
> ;Write the values to the output table
> vadd iampout, kmult, kcount2, kcount
> vadd iampout, kmult1, kcount2, kcount+kcount2
> vadd iampout, kmult2, kcount2, kcount+(kcount2*2)
> kmax = kcount+(kcount2*2)
> kindex = kindex+3
> kcount = kcount+kcount2*3
> kcount2 = kcount2 * 2
> if (kmax < inumbins) kgoto loop
> endop
> 
> On 9 Mar 2010, at 18:14, Enrico Francioni wrote:
> 
>>
>> Hi csounders!
>>
>> I want to do a graphic equalizer with csound.
>> I want to vary each frequency band independently
>> (on the same signal) as shown:
>>
>> http://old.nabble.com/file/p27839674/Immagine%2B3.png
>>
>> I have to use to force the family pvs opcodes?
>>
>> ... I could not use the opcodes pareq or rbjeq or eqfil?
>> ... You have something in mind?
>>
>>
>> thank you
>>
>> e
>> -- 
>> View this message in context:
>> http://old.nabble.com/graphic_equalizer-tp27839674p27839674.html
>> Sent from the Csound - General mailing list archive at Nabble.com.
>>
>>
>>
>> Send bugs reports to the Sourceforge bug tracker
>>            https://sourceforge.net/tracker/?group_id=81968&atid=564599
>> Discussions of bugs and features can be posted here
>> To unsubscribe, send email sympa@lists.bath.ac.uk with body  
>> "unsubscribe csound"
>>
> 
> 
> 
> Send bugs reports to the Sourceforge bug tracker
>             https://sourceforge.net/tracker/?group_id=81968&atid=564599
> Discussions of bugs and features can be posted here
> To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe
> csound"
> 
> 
> 

-- 
View this message in context: http://old.nabble.com/graphic_equalizer-tp27839674p27841350.html
Sent from the Csound - General mailing list archive at Nabble.com.



Send bugs reports to the Sourceforge bug tracker
            https://sourceforge.net/tracker/?group_id=81968&atid=564599
Discussions of bugs and features can be posted here
To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"
Date2010-03-09 20:24
FromPeiman Khosravi
Subject[Csnd] Re: Re: graphic_equalizer
Yes here it is. I'm controlling it with max (were I've built the GUI)  
but the CSD is I think self explanatory. Note that the CSD includes  
another UDO that's for displaying the output table content (you  
shouldn't have to worry about that one as it's just cosmetic).

Best
P





sr=96000
ksmps=100
nchnls=2
0dbfs = 1
giamptable	 ftgen 103,0,32,-7,1,32, 1
giamptable2	ftgen 104,0,32,-7,1,32, 1
giampin2 ftgen 0,0,8192,2,0
giampout2 ftgen 1001,0,8192,2,0
giampin22 ftgen 0,0,8192,2,0
giampout22 ftgen 1002,0,8192,2,0
giampin3	ftgen 0,0,8192,7,1,8192, 1
giampin33	ftgen 0,0,8192,7,1,8192, 1
giampout100	ftgen 200,0,64,-7,1,64, 1
giampout101	ftgen 201,0,64,-7,1,64, 1
opcode eq, 0, iiii
inumbins, iampin, iampout, iamptable xin
iclear ftgen 0, 0, inumbins, 2, 0
tablecopy iampout, iclear
kindex = 0
kcount = 0
kcount2 = kcount+1
loop:
;read eq tabe data for 3 consecutive bins at a time
kmult	 table kindex, iamptable
kmult1	 table kindex+1, iamptable
kmult2	 table kindex+2, iamptable
;Denormalization issue!
kmult = kmult+0.00000000001
kmult1= kmult1+0.00000000001
kmult2= kmult2+0.00000000001
;if less value is less than 0.0011 then set it to zero
if (kmult < 0.001) then
kmult = 0.00000000001
endif
if (kmult1 < 0.001) then
kmult1 = 0.00000000001
endif
if (kmult2 < 0.001) then
kmult2 = 0.00000000001
endif
;Write the values to the output table
vadd iampout, kmult, kcount2, kcount
vadd iampout, kmult1, kcount2, kcount+kcount2
vadd iampout, kmult2, kcount2, kcount+(kcount2*2)
kmax = kcount+(kcount2*2)
kindex = kindex+3
kcount = kcount+kcount2*3
kcount2 = kcount2 * 2
if (kmax < inumbins) kgoto loop
endop
opcode disp, 0, iiii
inumbins, iampin, iampout, ioffset xin
iclear ftgen 0, 0, inumbins, 2, 0
tablecopy iampout, iclear
kcount3 = ioffset
ktest = 0
kvalinit = 0
kcount = 0
kcount2 = 1
kcountband = 0
loop:
kval	 table kcount, iampin
kvalinit = kval+kvalinit
kcount = kcount + 1
kcountband = kcountband + 1
if (kcountband == kcount2) kgoto contin
kgoto loop
contin:
kcountband = 0
ktest = ktest + 1
kvalinit = kvalinit
tablew kvalinit, kcount3, iampout
kvalinit = 0
kcount3 = kcount3+1
if (ktest < 3) kgoto loop
kgoto mult
mult:
ktest = 0
kcount2 = kcount2*2
if (kcount < inumbins) kgoto loop
endop
instr 1
kdepth	chnget "depth"
kdepth	port kdepth, 0.01
ain1, ain2	ins
ifftsize = p4
iol = p5
iNumBins = (ifftsize/2) + 1
ihop = ifftsize/iol
iwindow = ifftsize*p6
fsig1 pvsanal ain1, ifftsize, ihop, iwindow, p7
fsig2 pvsanal ain2, ifftsize, ihop, iwindow, p7
fsdummy pvsinit ifftsize, ihop, iwindow, p7
fsig7 pvsmix fsig1,fsdummy
fsig8 pvsmix fsig2,fsdummy
kflag2 pvsftw fsig1, giampin2
if (kflag2 > 0) then ; only proc when frame is ready
eq iNumBins, giampin2, giampout2, giamptable
; read modified data back to fsrc
pvsftr fsig1, giampout2
endif
kflag22 pvsftw fsig2, giampin22
if (kflag22 > 0) then ; only proc when frame is ready
eq iNumBins, giampin22, giampout22, giamptable2
; read modified data back to fsrc
pvsftr fsig2, giampout22
endif
fsig5 pvsfilter fsig7, fsig1, kdepth
fsig6 pvsfilter fsig8, fsig2, kdepth
kflag pvsftw fsig5, giampin3
if (kflag > 0) then ; only proc when frame is ready
disp iNumBins, giampin3, giampout100, 0
endif
kflag1 pvsftw fsig6, giampin33
if (kflag1 > 0) then ; only proc when frame is ready
disp iNumBins, giampin33, giampout101, 31
endif
aout1 pvsynth fsig5
aout2 pvsynth fsig6
outs aout1, aout2
endin
instr 2
ftsave "./EQLog/EQ1.ftsave", 1, 1001
ftsave "./EQLog/EQ2.ftsave", 1, 1002
endin


; Table #1, a sine wave.
;f 1 0 16384 10 1
f0 86400
;i1 0 2 2048 2 2 0
e




On 9 Mar 2010, at 20:18, Enrico Francioni wrote:

>
>
> ok Peiman…
> thanks,
>
> ...have you a CSD file for this?
>
> best
> e
>
>
>
> peiman wrote:
>>
>> I have a graphic EQ (31 logarithmic bands) UDO using pvs opcodes. It
>> might help.
>>
>> Let me know if it doesn't make sense as my commenting skills are not
>> so good :-)
>>
>> Best,
>>
>> Peiman
>>
>> ;inumbins should be 8192 for a 31 band EQ
>> ;iampin is the input amplitude table (use pvsftw to read the pvs
>> signal amplitudes to a table)
>> ;aimpout is the output table which should be later multiplied with  
>> the
>> amplitude of the original pvs signal (I use pvsfilter)
>> ;iamptable is the input table containing an EQ function it should
>> contain 32 indexes (e.g. "giamptable	 ftgen 103,0,32,-7,1,32, 1").
>>
>>  opcode eq, 0, iiii
>> inumbins, iampin, iampout, iamptable xin
>> iclear ftgen 0, 0, inumbins, 2, 0
>> tablecopy iampout, iclear
>> kindex = 0
>> kcount = 0
>> kcount2 = kcount+1
>> loop:
>> ;read eq tabe data for 3 consecutive bins at a time
>> kmult	 table kindex, iamptable
>> kmult1	 table kindex+1, iamptable
>> kmult2	 table kindex+2, iamptable
>> ;Denormalization issue!
>> kmult = kmult+0.00000000001
>> kmult1= kmult1+0.00000000001
>> kmult2= kmult2+0.00000000001
>> ;if less value is less than 0.0011 then set it to zero
>> if (kmult < 0.001) then
>> kmult = 0.00000000001
>> endif
>> if (kmult1 < 0.001) then
>> kmult1 = 0.00000000001
>> endif
>> if (kmult2 < 0.001) then
>> kmult2 = 0.00000000001
>> endif
>> ;Write the values to the output table
>> vadd iampout, kmult, kcount2, kcount
>> vadd iampout, kmult1, kcount2, kcount+kcount2
>> vadd iampout, kmult2, kcount2, kcount+(kcount2*2)
>> kmax = kcount+(kcount2*2)
>> kindex = kindex+3
>> kcount = kcount+kcount2*3
>> kcount2 = kcount2 * 2
>> if (kmax < inumbins) kgoto loop
>> endop
>>
>> On 9 Mar 2010, at 18:14, Enrico Francioni wrote:
>>
>>>
>>> Hi csounders!
>>>
>>> I want to do a graphic equalizer with csound.
>>> I want to vary each frequency band independently
>>> (on the same signal) as shown:
>>>
>>> http://old.nabble.com/file/p27839674/Immagine%2B3.png
>>>
>>> I have to use to force the family pvs opcodes?
>>>
>>> ... I could not use the opcodes pareq or rbjeq or eqfil?
>>> ... You have something in mind?
>>>
>>>
>>> thank you
>>>
>>> e
>>> -- 
>>> View this message in context:
>>> http://old.nabble.com/graphic_equalizer-tp27839674p27839674.html
>>> Sent from the Csound - General mailing list archive at Nabble.com.
>>>
>>>
>>>
>>> Send bugs reports to the Sourceforge bug tracker
>>>           https://sourceforge.net/tracker/? 
>>> group_id=81968&atid=564599
>>> Discussions of bugs and features can be posted here
>>> To unsubscribe, send email sympa@lists.bath.ac.uk with body
>>> "unsubscribe csound"
>>>
>>
>>
>>
>> Send bugs reports to the Sourceforge bug tracker
>>            https://sourceforge.net/tracker/? 
>> group_id=81968&atid=564599
>> Discussions of bugs and features can be posted here
>> To unsubscribe, send email sympa@lists.bath.ac.uk with body  
>> "unsubscribe
>> csound"
>>
>>
>>
>
> -- 
> View this message in context: http://old.nabble.com/graphic_equalizer-tp27839674p27841350.html
> Sent from the Csound - General mailing list archive at Nabble.com.
>
>
>
> Send bugs reports to the Sourceforge bug tracker
>            https://sourceforge.net/tracker/?group_id=81968&atid=564599
> Discussions of bugs and features can be posted here
> To unsubscribe, send email sympa@lists.bath.ac.uk with body  
> "unsubscribe csound"
>



Send bugs reports to the Sourceforge bug tracker
            https://sourceforge.net/tracker/?group_id=81968&atid=564599
Discussions of bugs and features can be posted here
To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"
Date2010-03-09 20:36
FromEnrico Francioni
Subject[Csnd] Re: graphic_equalizer

ok Peiman!
...reminds me a lot of this .csd (examples) to Ingalls:
e





sr		=	44100
ksmps	=	100
nchnls	=	2

gkgain	init	1


; an opcode that calls itself recursively to update the graphs
opcode updateGraphs, 0, iii

	istartCh, ioffset, ifn xin

	if (istartCh < 24) then
		kamp	init	0
		ksig table istartCh, ifn
		kamp port	ksig/gkgain, .02

		outvalue istartCh+ioffset, kamp
		updateGraphs istartCh + 1, ioffset, ifn
	endif

endop

instr 1	
	inbins	=	128
	ifftsize	=	256

	; make ftables
	iampfl	ftgen	0,0,inbins, 2, 0        
	iampfr	ftgen	0,0,inbins, 2, 0
	ifiltfl	ftgen	0,0,inbins, 7, .5, inbins, .5
	ifiltfr	ftgen	0,0,inbins, 7, .5, inbins, .5

;	a1, a2	ins
a1,	a2	soundin	"/Users/enrico/Desktop/original_test.wav"

	; read the eq params
	keq	invalue "eq1"
		tablew	keq, 3, ifiltfl



	; analyse and write to ftables
	fsigl 	pvsanal a1, ifftsize, ifftsize/2, ifftsize, 0
	kflagl 	pvsftw fsigl, iampfl	
	
	fsigr 	pvsanal a2, ifftsize, ifftsize/2, ifftsize, 0
	kflagr 	pvsftw fsigr, iampfr


	if (kflagl != 0) then
		; apply eq
		keq 	invalue 	"eql1"
		kval 	table 0, 	iampfl
			tablew	keq*kval,0,iampfl
		kval 	table 1, 	iampfl
			tablew	keq*kval,1,iampfl
		kval 	table 2, 	iampfl
			tablew	keq*kval,2,iampfl
		kval 	table 3, 	iampfl
			tablew	keq*kval,3,iampfl

		keq 	invalue 	"eql2"
		kval 	table 4, 	iampfl
			tablew	keq*kval,4,iampfl
		kval 	table 5, 	iampfl
			tablew	keq*kval,5,iampfl
		kval 	table 6, 	iampfl
			tablew	keq*kval,6,iampfl
		kval 	table 7, 	iampfl
			tablew	keq*kval,7,iampfl

		keq 	invalue 	"eql3"
		kval 	table 8, 	iampfl
			tablew	keq*kval,8,iampfl
		kval 	table 9, 	iampfl
			tablew	keq*kval,9,iampfl
		kval 	table 10, 	iampfl
			tablew	keq*kval,10,iampfl
		kval 	table 11, 	iampfl
			tablew	keq*kval,11,iampfl

		keq 	invalue 	"eql4"
		kval 	table 12, 	iampfl
			tablew	keq*kval,12,iampfl
		kval 	table 13, 	iampfl
			tablew	keq*kval,13,iampfl
		kval 	table 14, 	iampfl
			tablew	keq*kval,14,iampfl
		kval 	table 15, 	iampfl
			tablew	keq*kval,15,iampfl

		keq 	invalue 	"eql5"
		kval 	table 16, 	iampfl
			tablew	keq*kval,16,iampfl
		kval 	table 17, 	iampfl
			tablew	keq*kval,17,iampfl
		kval 	table 18, 	iampfl
			tablew	keq*kval,18,iampfl
		kval 	table 19, 	iampfl
			tablew	keq*kval,19,iampfl

		keq 	invalue 	"eql6"
		kval 	table 20, 	iampfl
			tablew	keq*kval,20,iampfl
		kval 	table 21, 	iampfl
			tablew	keq*kval,21,iampfl
		kval 	table 22, 	iampfl
			tablew	keq*kval,22,iampfl
		kval 	table 23, 	iampfl
			tablew	keq*kval,23,iampfl

		; update graphs
		gkgain	invalue "gain"
		updateGraphs 0, 0, iampfl


		; resynthesize		
		pvsftr      fsigl, iampfl
	endif

	if (kflagr != 0) then
		; apply eq
		keq 	invalue 	"eqr1"
		kval 	table 0, 	iampfr
			tablew	keq*kval,0,iampfr
		kval 	table 1, 	iampfr
			tablew	keq*kval,1,iampfr
		kval 	table 2, 	iampfr
			tablew	keq*kval,2,iampfr
		kval 	table 3, 	iampfr
			tablew	keq*kval,3,iampfr

		keq 	invalue 	"eqr2"
		kval 	table 4, 	iampfr
			tablew	keq*kval,4,iampfr
		kval 	table 5, 	iampfr
			tablew	keq*kval,5,iampfr
		kval 	table 6, 	iampfr
			tablew	keq*kval,6,iampfr
		kval 	table 7, 	iampfr
			tablew	keq*kval,7,iampfr

		keq 	invalue 	"eqr3"
		kval 	table 8, 	iampfr
			tablew	keq*kval,8,iampfr
		kval 	table 9, 	iampfr
			tablew	keq*kval,9,iampfr
		kval 	table 10, 	iampfr
			tablew	keq*kval,10,iampfr
		kval 	table 11, 	iampfr
			tablew	keq*kval,11,iampfr

		keq 	invalue 	"eqr4"
		kval 	table 12, 	iampfr
			tablew	keq*kval,12,iampfr
		kval 	table 13, 	iampfr
			tablew	keq*kval,13,iampfr
		kval 	table 14, 	iampfr
			tablew	keq*kval,14,iampfr
		kval 	table 15, 	iampfr
			tablew	keq*kval,15,iampfr

		keq 	invalue 	"eqr5"
		kval 	table 16, 	iampfr
			tablew	keq*kval,16,iampfr
		kval 	table 17, 	iampfr
			tablew	keq*kval,17,iampfr
		kval 	table 18, 	iampfr
			tablew	keq*kval,18,iampfr
		kval 	table 19, 	iampfr
			tablew	keq*kval,19,iampfr

		keq 	invalue 	"eqr6"
		kval 	table 20, 	iampfr
			tablew	keq*kval,20,iampfr
		kval 	table 21, 	iampfr
			tablew	keq*kval,21,iampfr
		kval 	table 22, 	iampfr
			tablew	keq*kval,22,iampfr
		kval 	table 23, 	iampfr
			tablew	keq*kval,23,iampfr

		; update graphs
		updateGraphs 0, 24, iampfr

		; resynthesize		
		pvsftr      fsigr, iampfr
	endif


	aoutl  pvsynth   fsigl
	aoutr  pvsynth   fsigr
	outs aoutr, aoutr
endin


f1 0 512 10 1
i1	0	9999




Version: 3
Render: Real
Ask: Yes
Functions: None
Listing: Window
WindowBounds: 2 46 1438 954
CurrentView: orc
IOViewEdit: Off
Options: -b256 -A -s -m167 -R 


ioView background {18385, 18385, 18385}
ioText {459, 128} {281, 193} label 0.000000 0.001000 "" center "Lucida
Grande" 10 {0, 0, 0} {11565, 10353, 11262} background border 
ioText {114, 128} {287, 194} label 0.000000 0.001000 "" center "Lucida
Grande" 10 {0, 0, 0} {11565, 10353, 11262} background border 
ioMeter {165, 140} {18, 169} {44563, 53738, 65535} "4" 1.686466 "4" 1.686466
fill 1 0 notrack
ioMeter {132, 140} {18, 169} {44563, 53738, 65535} "1" 3.770600 "1" 3.770600
fill 1 0 notrack
ioMeter {154, 140} {18, 169} {44563, 53738, 65535} "3" 3.170637 "3" 3.170637
fill 1 0 notrack
ioMeter {143, 140} {18, 169} {44563, 53738, 65535} "2" 5.179554 "2" 5.179554
fill 1 0 notrack
ioMeter {176, 140} {18, 169} {44563, 53738, 65535} "5" 1.326008 "5" 1.326008
fill 1 0 notrack
ioMeter {187, 140} {18, 169} {44563, 53738, 65535} "6" 0.554654 "6" 0.554654
fill 1 0 notrack
ioMeter {253, 140} {18, 169} {44563, 53738, 65535} "12" 0.356693 "12"
0.356693 fill 1 0 notrack
ioMeter {231, 140} {18, 169} {44563, 53738, 65535} "10" 0.646967 "10"
0.646967 fill 1 0 notrack
ioMeter {242, 140} {18, 169} {44563, 53738, 65535} "11" 0.804420 "11"
0.804420 fill 1 0 notrack
ioMeter {220, 140} {18, 169} {44563, 53738, 65535} "9" 0.975366 "9" 0.975366
fill 1 0 notrack
ioMeter {198, 140} {18, 169} {44563, 53738, 65535} "7" 0.552458 "7" 0.552458
fill 1 0 notrack
ioMeter {209, 140} {18, 169} {44563, 53738, 65535} "8" 0.645465 "8" 0.645465
fill 1 0 notrack
ioSlider {413, 129} {34, 192} 2000.000000 50.000000 2000.000000 gain
ioMeter {121, 140} {18, 169} {44563, 53738, 65535} "0" 1.611575 "0" 1.611575
fill 1 0 notrack
ioMeter {363, 140} {18, 169} {44563, 53738, 65535} "22" 0.539638 "22"
0.539638 fill 1 0 notrack
ioMeter {374, 140} {18, 169} {44563, 53738, 65535} "23" 0.563197 "23"
0.563197 fill 1 0 notrack
ioMeter {352, 140} {18, 169} {44563, 53738, 65535} "21" 0.257284 "21"
0.257284 fill 1 0 notrack
ioMeter {341, 140} {18, 169} {44563, 53738, 65535} "20" 0.281900 "20"
0.281900 fill 1 0 notrack
ioMeter {319, 140} {18, 169} {44563, 53738, 65535} "18" 0.779181 "18"
0.779181 fill 1 0 notrack
ioMeter {330, 140} {18, 169} {44563, 53738, 65535} "19" 0.259022 "19"
0.259022 fill 1 0 notrack
ioMeter {297, 140} {18, 169} {44563, 53738, 65535} "16" 1.256599 "16"
1.256599 fill 1 0 notrack
ioMeter {308, 140} {18, 169} {44563, 53738, 65535} "17" 0.517030 "17"
0.517030 fill 1 0 notrack
ioMeter {286, 140} {18, 169} {44563, 53738, 65535} "15" 1.104429 "15"
1.104429 fill 1 0 notrack
ioMeter {275, 140} {18, 169} {44563, 53738, 65535} "14" 0.452940 "14"
0.452940 fill 1 0 notrack
ioMeter {264, 140} {18, 169} {44563, 53738, 65535} "13" 0.509867 "13"
0.509867 fill 1 0 notrack
ioMeter {717, 141} {18, 169} {44563, 53738, 65535} "47" 0.126801 "47"
0.126801 fill 1 0 notrack
ioMeter {706, 141} {18, 169} {44563, 53738, 65535} "46" 0.229890 "46"
0.229890 fill 1 0 notrack
ioMeter {695, 141} {18, 169} {44563, 53738, 65535} "45" 0.416281 "45"
0.416281 fill 1 0 notrack
ioMeter {684, 141} {18, 169} {44563, 53738, 65535} "44" 0.448816 "44"
0.448816 fill 1 0 notrack
ioMeter {673, 141} {18, 169} {44563, 53738, 65535} "43" 0.189115 "43"
0.189115 fill 1 0 notrack
ioMeter {651, 141} {18, 169} {44563, 53738, 65535} "41" 0.589724 "41"
0.589724 fill 1 0 notrack
ioMeter {662, 141} {18, 169} {44563, 53738, 65535} "42" 0.128532 "42"
0.128532 fill 1 0 notrack
ioMeter {629, 141} {18, 169} {44563, 53738, 65535} "39" 0.827556 "39"
0.827556 fill 1 0 notrack
ioMeter {640, 141} {18, 169} {44563, 53738, 65535} "40" 1.240141 "40"
1.240141 fill 1 0 notrack
ioMeter {618, 141} {18, 169} {44563, 53738, 65535} "38" 0.657224 "38"
0.657224 fill 1 0 notrack
ioMeter {585, 141} {18, 169} {44563, 53738, 65535} "35" 0.829597 "35"
0.829597 fill 1 0 notrack
ioMeter {563, 141} {18, 169} {44563, 53738, 65535} "33" 0.844676 "33"
0.844676 fill 1 0 notrack
ioMeter {574, 141} {18, 169} {44563, 53738, 65535} "34" 0.768161 "34"
0.768161 fill 1 0 notrack
ioMeter {607, 141} {18, 169} {44563, 53738, 65535} "37" 0.613079 "37"
0.613079 fill 1 0 notrack
ioMeter {596, 141} {18, 169} {44563, 53738, 65535} "36" 0.444865 "36"
0.444865 fill 1 0 notrack
ioMeter {508, 141} {18, 169} {44563, 53738, 65535} "28" 0.925915 "28"
0.925915 fill 1 0 notrack
ioMeter {519, 141} {18, 169} {44563, 53738, 65535} "29" 0.754115 "29"
0.754115 fill 1 0 notrack
ioMeter {552, 141} {18, 169} {44563, 53738, 65535} "32" 0.589787 "32"
0.589787 fill 1 0 notrack
ioMeter {530, 141} {18, 169} {44563, 53738, 65535} "30" 0.160768 "30"
0.160768 fill 1 0 notrack
ioMeter {541, 141} {18, 169} {44563, 53738, 65535} "31" 0.342196 "31"
0.342196 fill 1 0 notrack
ioMeter {497, 141} {18, 169} {44563, 53738, 65535} "27" 0.389064 "27"
0.389064 fill 1 0 notrack
ioMeter {486, 141} {18, 169} {44563, 53738, 65535} "26" 0.347008 "26"
0.347008 fill 1 0 notrack
ioMeter {475, 141} {18, 169} {44563, 53738, 65535} "25" 0.179151 "25"
0.179151 fill 1 0 notrack
ioMeter {464, 141} {18, 169} {44563, 53738, 65535} "24" 0.089917 "24"
0.089917 fill 1 0 notrack
ioKnob {300, 323} {48, 48} 0.000000 10.000000 0.100000 5.199999 eql5
ioKnob {347, 323} {48, 48} 0.000000 10.000000 0.100000 5.199999 eql6
ioKnob {253, 323} {48, 48} 0.000000 10.000000 0.100000 5.200001 eql4
ioKnob {206, 323} {48, 48} 0.000000 10.000000 0.100000 4.899999 eql3
ioKnob {159, 323} {48, 48} 0.000000 10.000000 0.100000 5.099998 eql2
ioKnob {112, 323} {48, 48} 0.000000 10.000000 0.100000 5.099998 eql1
ioKnob {642, 321} {48, 48} 0.000000 10.000000 0.100000 4.899999 eqr5
ioKnob {689, 321} {48, 48} 0.000000 10.000000 0.100000 5.299998 eqr6
ioKnob {595, 321} {48, 48} 0.000000 10.000000 0.100000 5.099998 eqr4
ioKnob {548, 321} {48, 48} 0.000000 10.000000 0.100000 5.099998 eqr3
ioKnob {501, 321} {48, 48} 0.000000 10.000000 0.100000 4.900000 eqr2
ioKnob {454, 321} {48, 48} 0.000000 10.000000 0.100000 5.099999 eqr1



Enrico Francioni wrote:
> 
> 
> ok Peiman…
> thanks,
> 
> ...have you a CSD file for this?
> 
> best
> e
> 
> 
> 
> peiman wrote:
>> 
>> I have a graphic EQ (31 logarithmic bands) UDO using pvs opcodes. It  
>> might help.
>> 
>> Let me know if it doesn't make sense as my commenting skills are not  
>> so good :-)
>> 
>> Best,
>> 
>> Peiman
>> 
>> ;inumbins should be 8192 for a 31 band EQ
>> ;iampin is the input amplitude table (use pvsftw to read the pvs  
>> signal amplitudes to a table)
>> ;aimpout is the output table which should be later multiplied with the  
>> amplitude of the original pvs signal (I use pvsfilter)
>> ;iamptable is the input table containing an EQ function it should  
>> contain 32 indexes (e.g. "giamptable	 ftgen 103,0,32,-7,1,32, 1").
>> 
>>   opcode eq, 0, iiii
>> inumbins, iampin, iampout, iamptable xin
>> iclear ftgen 0, 0, inumbins, 2, 0
>> tablecopy iampout, iclear
>> kindex = 0
>> kcount = 0
>> kcount2 = kcount+1
>> loop:
>> ;read eq tabe data for 3 consecutive bins at a time
>> kmult	 table kindex, iamptable
>> kmult1	 table kindex+1, iamptable
>> kmult2	 table kindex+2, iamptable
>> ;Denormalization issue!
>> kmult = kmult+0.00000000001
>> kmult1= kmult1+0.00000000001
>> kmult2= kmult2+0.00000000001
>> ;if less value is less than 0.0011 then set it to zero
>> if (kmult < 0.001) then
>> kmult = 0.00000000001
>> endif
>> if (kmult1 < 0.001) then
>> kmult1 = 0.00000000001
>> endif
>> if (kmult2 < 0.001) then
>> kmult2 = 0.00000000001
>> endif
>> ;Write the values to the output table
>> vadd iampout, kmult, kcount2, kcount
>> vadd iampout, kmult1, kcount2, kcount+kcount2
>> vadd iampout, kmult2, kcount2, kcount+(kcount2*2)
>> kmax = kcount+(kcount2*2)
>> kindex = kindex+3
>> kcount = kcount+kcount2*3
>> kcount2 = kcount2 * 2
>> if (kmax < inumbins) kgoto loop
>> endop
>> 
>> On 9 Mar 2010, at 18:14, Enrico Francioni wrote:
>> 
>>>
>>> Hi csounders!
>>>
>>> I want to do a graphic equalizer with csound.
>>> I want to vary each frequency band independently
>>> (on the same signal) as shown:
>>>
>>> http://old.nabble.com/file/p27839674/Immagine%2B3.png
>>>
>>> I have to use to force the family pvs opcodes?
>>>
>>> ... I could not use the opcodes pareq or rbjeq or eqfil?
>>> ... You have something in mind?
>>>
>>>
>>> thank you
>>>
>>> e
>>> -- 
>>> View this message in context:
>>> http://old.nabble.com/graphic_equalizer-tp27839674p27839674.html
>>> Sent from the Csound - General mailing list archive at Nabble.com.
>>>
>>>
>>>
>>> Send bugs reports to the Sourceforge bug tracker
>>>            https://sourceforge.net/tracker/?group_id=81968&atid=564599
>>> Discussions of bugs and features can be posted here
>>> To unsubscribe, send email sympa@lists.bath.ac.uk with body  
>>> "unsubscribe csound"
>>>
>> 
>> 
>> 
>> Send bugs reports to the Sourceforge bug tracker
>>             https://sourceforge.net/tracker/?group_id=81968&atid=564599
>> Discussions of bugs and features can be posted here
>> To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe
>> csound"
>> 
>> 
>> 
> 
> 

-- 
View this message in context: http://old.nabble.com/graphic_equalizer-tp27839674p27841551.html
Sent from the Csound - General mailing list archive at Nabble.com.



Send bugs reports to the Sourceforge bug tracker
            https://sourceforge.net/tracker/?group_id=81968&atid=564599
Discussions of bugs and features can be posted here
To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"
Date2010-03-09 20:47
FromEnrico Francioni
Subject[Csnd] Re: graphic_equalizer

ok…
thanks!
e


Victor Lazzarini wrote:
> 
> eqfil would do the job. You can use as many as you need, in series.
> 
> Victor
> On 9 Mar 2010, at 18:14, Enrico Francioni wrote:
> 
>>
>> Hi csounders!
>>
>> I want to do a graphic equalizer with csound.
>> I want to vary each frequency band independently
>> (on the same signal) as shown:
>>
>> http://old.nabble.com/file/p27839674/Immagine%2B3.png
>>
>> I have to use to force the family pvs opcodes?
>>
>> ... I could not use the opcodes pareq or rbjeq or eqfil?
>> ... You have something in mind?
>>
>>
>> thank you
>>
>> e
>> --  
>> View this message in context:
>> http://old.nabble.com/graphic_equalizer-tp27839674p27839674.html
>> Sent from the Csound - General mailing list archive at Nabble.com.
>>
>>
>>
>> Send bugs reports to the Sourceforge bug tracker
>>            https://sourceforge.net/tracker/?group_id=81968&atid=564599
>> Discussions of bugs and features can be posted here
>> To unsubscribe, send email sympa@lists.bath.ac.uk with body  
>> "unsubscribe csound"
>>
> 
> 
> 
> Send bugs reports to the Sourceforge bug tracker
>             https://sourceforge.net/tracker/?group_id=81968&atid=564599
> Discussions of bugs and features can be posted here
> To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe
> csound"
> 
> 
> 

-- 
View this message in context: http://old.nabble.com/graphic_equalizer-tp27839674p27841686.html
Sent from the Csound - General mailing list archive at Nabble.com.



Send bugs reports to the Sourceforge bug tracker
            https://sourceforge.net/tracker/?group_id=81968&atid=564599
Discussions of bugs and features can be posted here
To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"
Date2010-03-09 23:58
Frompeiman khosravi
Subject[Csnd] Re: Re: graphic_equalizer
Yes actually I based it on Ingalls' pitch shifting UDO!

P

On 9 March 2010 21:47, Enrico Francioni <francioni61021@libero.it> wrote:


ok…
thanks!
e


Victor Lazzarini wrote:
>
> eqfil would do the job. You can use as many as you need, in series.
>
> Victor
> On 9 Mar 2010, at 18:14, Enrico Francioni wrote:
>
>>
>> Hi csounders!
>>
>> I want to do a graphic equalizer with csound.
>> I want to vary each frequency band independently
>> (on the same signal) as shown:
>>
>> http://old.nabble.com/file/p27839674/Immagine%2B3.png
>>
>> I have to use to force the family pvs opcodes?
>>
>> ... I could not use the opcodes pareq or rbjeq or eqfil?
>> ... You have something in mind?
>>
>>
>> thank you
>>
>> e
>> --
>> View this message in context:
>> http://old.nabble.com/graphic_equalizer-tp27839674p27839674.html
>> Sent from the Csound - General mailing list archive at Nabble.com.
>>
>>
>>
>> Send bugs reports to the Sourceforge bug tracker
>>            https://sourceforge.net/tracker/?group_id=81968&atid=564599
>> Discussions of bugs and features can be posted here
>> To unsubscribe, send email sympa@lists.bath.ac.uk with body
>> "unsubscribe csound"
>>
>
>
>
> Send bugs reports to the Sourceforge bug tracker
>             https://sourceforge.net/tracker/?group_id=81968&atid=564599
> Discussions of bugs and features can be posted here
> To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe
> csound"
>
>
>

--
View this message in context: http://old.nabble.com/graphic_equalizer-tp27839674p27841686.html
Sent from the Csound - General mailing list archive at Nabble.com.



Send bugs reports to the Sourceforge bug tracker
           https://sourceforge.net/tracker/?group_id=81968&atid=564599
Discussions of bugs and features can be posted here
To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"


Date2010-03-21 16:17
FromEnrico Francioni
Subject[Csnd] Re: graphic_equalizer


http://www.cdbaby.com cdbaby
Date2010-03-21 16:21
FromEnrico Francioni
Subject[Csnd] Re: graphic_equalizer


http://www.cdbaby.com  http://old.nabble.com/file/p27976993/Immagine%2B1.jpg
Date2010-03-21 16:26
Fromjpff@cs.bath.ac.uk
Subject[Csnd] Re: Re: graphic_equalizer
I fail to see what thi smessage (or the other similar one) have to do with
graphics equalisers.  Are you juts sending spam?
==John ff

>
>
>
> http://www.cdbaby.com
> http://old.nabble.com/file/p27976993/Immagine%2B1.jpg
> --
> View this message in context:
> http://old.nabble.com/graphic_equalizer-tp27839674p27976993.html
> Sent from the Csound - General mailing list archive at Nabble.com.
>
>
>
> Send bugs reports to the Sourceforge bug tracker
>             https://sourceforge.net/tracker/?group_id=81968&atid=564599
> Discussions of bugs and features can be posted here
> To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe
> csound"
>
>
>
>




Send bugs reports to the Sourceforge bug tracker
            https://sourceforge.net/tracker/?group_id=81968&atid=564599
Discussions of bugs and features can be posted here
To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"
Date2010-03-22 08:15
FromEnrico Francioni
Subject[Csnd] Re: Re: graphic_equalizer
John ... quiet

I had done a test of formatting for image and link ...
do not worry ...

excuse

regards,

e 

;-)