Csound Csound-dev Csound-tekno Search About

[Csnd] specfilt doc

Date2011-05-13 12:11
Fromebmtranceboy
Subject[Csnd] specfilt doc
Hi all csounders,
this is my first post on this list (so please be nice )

I'm looking for documentation on the spectral opcode specfilt  since
canonical reference doesn't seem very clear to me. For example, from
"
Syntax
wsig specfilt wsigin, ifhtim
 
Initialization
ifhtim -- half-time constant.
"
and the following explanation of ifhtim, I don't understand why the constant
have to be provided as a table, I don't know if the length of the table is
relevant and I don't understand the example ("wsig3    specfilt        
wsig2, 2 ; absorb slowly") since table 2 is not displayed.

Actually, I'm trying to test Vercoe's instrument 2101 (beat tracker) from
chapter 21 of the Csound Book and the provided orc and sco doesn't work with
my csound 5.10 so if you  have a working instrument, please let me know.

Thanks.

--
View this message in context: http://csound.1045644.n5.nabble.com/specfilt-doc-tp4392827p4392827.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"

Date2011-05-14 16:42
Fromluis jure
SubjectRe: [Csnd] specfilt doc
on 2011-05-13 at 04:11 ebmtranceboy wrote:

>Hi all csounders,
>this is my first post on this list (so please be nice )

we always are... :-)

perhaps there's no-one around that could answer your questions? i
certainly can't...

welcome anyway.




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"

Date2011-05-14 17:12
Frompeiman khosravi
SubjectRe: [Csnd] specfilt doc
I don't think many people do use these opcodes anymore. For spectral 
stuff the pvs family of opcodes are much more widely used these days.

Best,

Peiman

On 14/05/2011 16:42, luis jure wrote:
> on 2011-05-13 at 04:11 ebmtranceboy wrote:
>
>> Hi all csounders,
>> this is my first post on this list (so please be nice )
> we always are... :-)
>
> perhaps there's no-one around that could answer your questions? i
> certainly can't...
>
> welcome anyway.
>
>
>
>
> 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"

Date2011-05-14 17:18
FromVictor Lazzarini
SubjectRe: [Csnd] specfilt doc
My idea is that the table covers the entire spectrum from 0 to  
Nyquist. So the different positions along the table will determine
the various halftime values. The size of the table might just matter  
if you want a precise curve of halftime values.

Victor

On 13 May 2011, at 12:11, ebmtranceboy wrote:

> Hi all csounders,
> this is my first post on this list (so please be nice )
>
> I'm looking for documentation on the spectral opcode specfilt  since
> canonical reference doesn't seem very clear to me. For example, from
> "
> Syntax
> wsig specfilt wsigin, ifhtim
>
> Initialization
> ifhtim -- half-time constant.
> "
> and the following explanation of ifhtim, I don't understand why the  
> constant
> have to be provided as a table, I don't know if the length of the  
> table is
> relevant and I don't understand the example ("wsig3    specfilt
> wsig2, 2 ; absorb slowly") since table 2 is not displayed.
>
> Actually, I'm trying to test Vercoe's instrument 2101 (beat tracker)  
> from
> chapter 21 of the Csound Book and the provided orc and sco doesn't  
> work with
> my csound 5.10 so if you  have a working instrument, please let me  
> know.
>
> Thanks.
>
> --
> View this message in context: http://csound.1045644.n5.nabble.com/specfilt-doc-tp4392827p4392827.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"
>

Dr Victor Lazzarini
Senior Lecturer
Dept. of Music
NUI Maynooth Ireland
tel.: +353 1 708 3545
Victor dot Lazzarini AT nuim dot ie





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"

Date2011-05-14 17:23
FromVictor Lazzarini
SubjectRe: [Csnd] specfilt doc
They still work though (but they're not designed for spectral  
transformations). I like the spectral display with

w1 spectrum ain,.02,6,6
specdisp w1, .1

On 14 May 2011, at 17:12, peiman khosravi wrote:

> I don't think many people do use these opcodes anymore. For spectral  
> stuff the pvs family of opcodes are much more widely used these days.
>
> Best,
>
> Peiman
>
> On 14/05/2011 16:42, luis jure wrote:
>> on 2011-05-13 at 04:11 ebmtranceboy wrote:
>>
>>> Hi all csounders,
>>> this is my first post on this list (so please be nice )
>> we always are... :-)
>>
>> perhaps there's no-one around that could answer your questions? i
>> certainly can't...
>>
>> welcome anyway.
>>
>>
>>
>>
>> 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"
>

Dr Victor Lazzarini
Senior Lecturer
Dept. of Music
NUI Maynooth Ireland
tel.: +353 1 708 3545
Victor dot Lazzarini AT nuim dot ie





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"

Date2011-05-15 12:33
Fromebmtranceboy
Subject[Csnd] Re: specfilt doc
luis jure wrote:
> 
> welcome anyway.
> 

thank you, luis jure.

--
View this message in context: http://csound.1045644.n5.nabble.com/specfilt-doc-tp4392827p4397505.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"

Date2011-05-15 12:38
Fromebmtranceboy
Subject[Csnd] Re: specfilt doc
peiman wrote:
> 
> For spectral 
> stuff the pvs family of opcodes are much more widely used these days.
> 

In the case of 

          instr     2101
          asig      in                       ; GET MICROPHONE INPUT
                                             ; FORM A SPECTRAL DATA TYPE
wsig1     spectrum  asig, .01, 8, 12, 8, 0, 1, 0
wsig2     specscal  wsig1, 1,2             ; FLETCHER-MUNSON SCALING
wsig3     specdiff  wsig2                    ; POSITIVE DIFFERENCE SPECTRUM
wsig4     specfilt  wsig3, 5                 ; INJECT INTO INTEGRATING
FILTERS
ksum4     specsum   wsig4, 1
                                             ; GET TEMPO...
;                   kIN    iPRD iMINDUR  iMEMDUR  iHP  iTHRESH iHTIM 
iXFDBAK iSTARTEMPO iFN  iDISPRD
ktempo    tempest   ksum4, .01,   .1,     3,       1,   30,    .005,    .04,     
90,     6,     1
          tempo     ktempo, 60               ; ... AND CONTROL THE
PERFORMANCE
out asig
          endin

how would you translate specdiff with the pvs family of opcodes ?


--
View this message in context: http://csound.1045644.n5.nabble.com/specfilt-doc-tp4392827p4397507.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"

Date2011-05-15 13:19
Frompeiman khosravi
SubjectRe: [Csnd] Re: specfilt doc

Mhh actually that would be a little complicated and require a UDO or something.

You would probably use pvsftw to write the spectral data to table and then compare it with another table taken from the previous frame.

I have never tried this but I think one should be able to use the kflag output of pvsftw to count the frames and somehow delay a signal by just one frame.
 
Peiman 

On 15/05/2011 12:38, ebmtranceboy wrote:
peiman wrote:
For spectral 
stuff the pvs family of opcodes are much more widely used these days.

In the case of 

          instr     2101
          asig      in                       ; GET MICROPHONE INPUT
                                             ; FORM A SPECTRAL DATA TYPE
wsig1     spectrum  asig, .01, 8, 12, 8, 0, 1, 0
wsig2     specscal  wsig1, 1,2             ; FLETCHER-MUNSON SCALING
wsig3     specdiff  wsig2                    ; POSITIVE DIFFERENCE SPECTRUM
wsig4     specfilt  wsig3, 5                 ; INJECT INTO INTEGRATING
FILTERS
ksum4     specsum   wsig4, 1
                                             ; GET TEMPO...
;                   kIN    iPRD iMINDUR  iMEMDUR  iHP  iTHRESH iHTIM 
iXFDBAK iSTARTEMPO iFN  iDISPRD
ktempo    tempest   ksum4, .01,   .1,     3,       1,   30,    .005,    .04,     
90,     6,     1
          tempo     ktempo, 60               ; ... AND CONTROL THE
PERFORMANCE
out asig
          endin

how would you translate specdiff with the pvs family of opcodes ?


--
View this message in context: http://csound.1045644.n5.nabble.com/specfilt-doc-tp4392827p4397507.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"



Date2011-05-15 13:46
Frompeiman khosravi
SubjectRe: [Csnd] Re: specfilt doc
So here is the proof of concept. Actually it works nicely. This can also 
be used to pull frames out of the stream and do all sorts of 
Wishard-like spectro-granular processes.

Best,

Peiman






-odac -d




sr     = 96000
ksmps  = 100
nchnls = 1
0dbfs  = 1


instr 1
ain    in
fsrc    pvsanal       ain, 2048, 512, 2048, 1
ifn     ftgen      0,0,1025,10,1        ; make ftable
kflag   pvsftw     fsrc,ifn          ; export  amps to table,

kcount init 1

if      kflag==1  then

     kcount = kcount+1    ;+1 each time new frame is ready
     if kcount>2 then    ;set the count max to 2 so that it wraps around
     kcount = 1
     endif

         pvsftr      fsrc,ifn
endif

; and resynth
aout    pvsynth    fsrc


printk2 kcount ;print the count


endin




instr 2
ain    in
fsrc    pvsanal       ain, 2048, 512, 2048, 1
ifn     ftgen      0,0,1025,10,1        ; make ftable
kflag   pvsftw     fsrc,ifn          ; export  amps to table,

kcount init 1

if      kflag==1  then

     kcount = kcount+1    ;+1 each time new frame is ready

         pvsftr      fsrc,ifn
endif

; and resynth
aout    pvsynth    fsrc


printk2 kcount ;print the count


endin





i1 0 5    ;count frame with the maximum count of 2
i2 6 5  ;count frame with no limi









On 15/05/2011 12:38, ebmtranceboy wrote:
> peiman wrote:
>> For spectral
>> stuff the pvs family of opcodes are much more widely used these days.
>>
> In the case of
>
>            instr     2101
>            asig      in                       ; GET MICROPHONE INPUT
>                                               ; FORM A SPECTRAL DATA TYPE
> wsig1     spectrum  asig, .01, 8, 12, 8, 0, 1, 0
> wsig2     specscal  wsig1, 1,2             ; FLETCHER-MUNSON SCALING
> wsig3     specdiff  wsig2                    ; POSITIVE DIFFERENCE SPECTRUM
> wsig4     specfilt  wsig3, 5                 ; INJECT INTO INTEGRATING
> FILTERS
> ksum4     specsum   wsig4, 1
>                                               ; GET TEMPO...
> ;                   kIN    iPRD iMINDUR  iMEMDUR  iHP  iTHRESH iHTIM
> iXFDBAK iSTARTEMPO iFN  iDISPRD
> ktempo    tempest   ksum4, .01,   .1,     3,       1,   30,    .005,    .04,
> 90,     6,     1
>            tempo     ktempo, 60               ; ... AND CONTROL THE
> PERFORMANCE
> out asig
>            endin
>
> how would you translate specdiff with the pvs family of opcodes ?
>
>
> --
> View this message in context: http://csound.1045644.n5.nabble.com/specfilt-doc-tp4392827p4397507.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"

Date2011-05-15 15:13
Frompeiman khosravi
Subject[Csnd] pvs granular madness [was: specfilt doc]
Here is an ad hoc example of pvs-based granular synthesis using 
"beats.wav".




-odac -d




sr     = 96000
ksmps  = 100
nchnls = 2
0dbfs  = 1




instr 1
ain    diskin2       "beats.wav", 1, 0, 1
ain = ain*.2
ain dcblock ain
fsrcanal    pvsanal       ain, 4096, 1024, 4096*4, 0


kline    line    500, p3, 1

kfreq    random    1, kline


koscil oscil    kfreq, .5, 1
koscil =  (koscil+1)*.5

koscil1 oscil    kfreq, .5, 1, .5
koscil1 =  (koscil1+1)*.5


fsrc    pvscale fsrcanal, (koscil+.1)*6
fsrc1    pvscale fsrcanal, (koscil1+.1)*6


kmax    random    1, kline

kmaxCount random 1, kmax

ifn1     ftgen   0,0,2049,10,1        ; make ftable
ifn2     ftgen   0,0,2049,10,1        ; make ftable

iclear     ftgen     0, 0, 2049, 2, 0


kcount init 1

kflag1   pvsftw     fsrc,ifn1          ; export  amps to table,

if      kflag1==1  then

     kcount = kcount+1    ;+1 each time new frame is ready
     if kcount>kmaxCount then    ;set the count max to 2 so that it 
wraps around
     kcount = 1
     endif

     if kcount==1 then
         pvsftr      fsrc,ifn1
     else
         pvsftr      fsrc,iclear
     endif

endif

kcount2 init 1

kflag2   pvsftw     fsrc1,ifn2          ; export  amps to table,
if      kflag2==1  then

     kcount2 = kcount2+1    ;+1 each time new frame is ready
     if kcount2>kmaxCount+1 then    ;set the count max to 2 so that it 
wraps around
     kcount2 = 1
     endif

     if kcount2==1 then
         pvsftr      fsrc1,ifn2
     else
         pvsftr      fsrc1,iclear
     endif

endif


; and resynth
aout1    pvsynth    fsrc
aout2    pvsynth    fsrc1


out    aout1, aout2



endin









f1 0 4096 -10 1
i1 0 10    ;count frame with the maximum count of 2







On 15/05/2011 12:38, ebmtranceboy wrote:
> peiman wrote:
>> For spectral
>> stuff the pvs family of opcodes are much more widely used these days.
>>
> In the case of
>
>            instr     2101
>            asig      in                       ; GET MICROPHONE INPUT
>                                               ; FORM A SPECTRAL DATA TYPE
> wsig1     spectrum  asig, .01, 8, 12, 8, 0, 1, 0
> wsig2     specscal  wsig1, 1,2             ; FLETCHER-MUNSON SCALING
> wsig3     specdiff  wsig2                    ; POSITIVE DIFFERENCE SPECTRUM
> wsig4     specfilt  wsig3, 5                 ; INJECT INTO INTEGRATING
> FILTERS
> ksum4     specsum   wsig4, 1
>                                               ; GET TEMPO...
> ;                   kIN    iPRD iMINDUR  iMEMDUR  iHP  iTHRESH iHTIM
> iXFDBAK iSTARTEMPO iFN  iDISPRD
> ktempo    tempest   ksum4, .01,   .1,     3,       1,   30,    .005,    .04,
> 90,     6,     1
>            tempo     ktempo, 60               ; ... AND CONTROL THE
> PERFORMANCE
> out asig
>            endin
>
> how would you translate specdiff with the pvs family of opcodes ?
>
>
> --
> View this message in context: http://csound.1045644.n5.nabble.com/specfilt-doc-tp4392827p4397507.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"

Date2011-05-15 15:18
FromRory Walsh
SubjectRe: [Csnd] pvs granular madness [was: specfilt doc]
Nice stuff. I'll have to study the .csd more closely when I get a chance..

On 15 May 2011 15:13, peiman khosravi  wrote:
> Here is an ad hoc example of pvs-based granular synthesis using "beats.wav".
>
> 
>
> 
> -odac -d
> 
>
>
> 
> sr     = 96000
> ksmps  = 100
> nchnls = 2
> 0dbfs  = 1
>
>
>
>
> instr 1
> ain    diskin2       "beats.wav", 1, 0, 1
> ain = ain*.2
> ain dcblock ain
> fsrcanal    pvsanal       ain, 4096, 1024, 4096*4, 0
>
>
> kline    line    500, p3, 1
>
> kfreq    random    1, kline
>
>
> koscil oscil    kfreq, .5, 1
> koscil =  (koscil+1)*.5
>
> koscil1 oscil    kfreq, .5, 1, .5
> koscil1 =  (koscil1+1)*.5
>
>
> fsrc    pvscale fsrcanal, (koscil+.1)*6
> fsrc1    pvscale fsrcanal, (koscil1+.1)*6
>
>
> kmax    random    1, kline
>
> kmaxCount random 1, kmax
>
> ifn1     ftgen   0,0,2049,10,1        ; make ftable
> ifn2     ftgen   0,0,2049,10,1        ; make ftable
>
> iclear     ftgen     0, 0, 2049, 2, 0
>
>
> kcount init 1
>
> kflag1   pvsftw     fsrc,ifn1          ; export  amps to table,
>
> if      kflag1==1  then
>
>    kcount = kcount+1    ;+1 each time new frame is ready
>    if kcount>kmaxCount then    ;set the count max to 2 so that it wraps
> around
>    kcount = 1
>    endif
>
>    if kcount==1 then
>        pvsftr      fsrc,ifn1
>    else
>        pvsftr      fsrc,iclear
>    endif
>
> endif
>
> kcount2 init 1
>
> kflag2   pvsftw     fsrc1,ifn2          ; export  amps to table,
> if      kflag2==1  then
>
>    kcount2 = kcount2+1    ;+1 each time new frame is ready
>    if kcount2>kmaxCount+1 then    ;set the count max to 2 so that it wraps
> around
>    kcount2 = 1
>    endif
>
>    if kcount2==1 then
>        pvsftr      fsrc1,ifn2
>    else
>        pvsftr      fsrc1,iclear
>    endif
>
> endif
>
>
> ; and resynth
> aout1    pvsynth    fsrc
> aout2    pvsynth    fsrc1
>
>
> out    aout1, aout2
>
>
>
> endin
>
>
>
>
>
> 
>
>
> 
> f1 0 4096 -10 1
> i1 0 10    ;count frame with the maximum count of 2
>
> 
>
>
> 
>
>
> On 15/05/2011 12:38, ebmtranceboy wrote:
>>
>> peiman wrote:
>>>
>>> For spectral
>>> stuff the pvs family of opcodes are much more widely used these days.
>>>
>> In the case of
>>
>>           instr     2101
>>           asig      in                       ; GET MICROPHONE INPUT
>>                                              ; FORM A SPECTRAL DATA TYPE
>> wsig1     spectrum  asig, .01, 8, 12, 8, 0, 1, 0
>> wsig2     specscal  wsig1, 1,2             ; FLETCHER-MUNSON SCALING
>> wsig3     specdiff  wsig2                    ; POSITIVE DIFFERENCE
>> SPECTRUM
>> wsig4     specfilt  wsig3, 5                 ; INJECT INTO INTEGRATING
>> FILTERS
>> ksum4     specsum   wsig4, 1
>>                                              ; GET TEMPO...
>> ;                   kIN    iPRD iMINDUR  iMEMDUR  iHP  iTHRESH iHTIM
>> iXFDBAK iSTARTEMPO iFN  iDISPRD
>> ktempo    tempest   ksum4, .01,   .1,     3,       1,   30,    .005,
>>  .04,
>> 90,     6,     1
>>           tempo     ktempo, 60               ; ... AND CONTROL THE
>> PERFORMANCE
>> out asig
>>           endin
>>
>> how would you translate specdiff with the pvs family of opcodes ?
>>
>>
>> --
>> View this message in context:
>> http://csound.1045644.n5.nabble.com/specfilt-doc-tp4392827p4397507.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"
>
>


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"


Date2011-05-15 17:15
FromVictor Lazzarini
SubjectRe: [Csnd] pvs granular madness [was: specfilt doc]
Sounds like you've got a production-line for English-GRM-style music.

On 15 May 2011, at 15:13, peiman khosravi wrote:

> Here is an ad hoc example of pvs-based granular synthesis using  
> "beats.wav".
>
> 
>
> 
> -odac -d
> 
>
>
> 
> sr     = 96000
> ksmps  = 100
> nchnls = 2
> 0dbfs  = 1
>
>
>
>
> instr 1
> ain    diskin2       "beats.wav", 1, 0, 1
> ain = ain*.2
> ain dcblock ain
> fsrcanal    pvsanal       ain, 4096, 1024, 4096*4, 0
>
>
> kline    line    500, p3, 1
>
> kfreq    random    1, kline
>
>
> koscil oscil    kfreq, .5, 1
> koscil =  (koscil+1)*.5
>
> koscil1 oscil    kfreq, .5, 1, .5
> koscil1 =  (koscil1+1)*.5
>
>
> fsrc    pvscale fsrcanal, (koscil+.1)*6
> fsrc1    pvscale fsrcanal, (koscil1+.1)*6
>
>
> kmax    random    1, kline
>
> kmaxCount random 1, kmax
>
> ifn1     ftgen   0,0,2049,10,1        ; make ftable
> ifn2     ftgen   0,0,2049,10,1        ; make ftable
>
> iclear     ftgen     0, 0, 2049, 2, 0
>
>
> kcount init 1
>
> kflag1   pvsftw     fsrc,ifn1          ; export  amps to table,
>
> if      kflag1==1  then
>
>    kcount = kcount+1    ;+1 each time new frame is ready
>    if kcount>kmaxCount then    ;set the count max to 2 so that it  
> wraps around
>    kcount = 1
>    endif
>
>    if kcount==1 then
>        pvsftr      fsrc,ifn1
>    else
>        pvsftr      fsrc,iclear
>    endif
>
> endif
>
> kcount2 init 1
>
> kflag2   pvsftw     fsrc1,ifn2          ; export  amps to table,
> if      kflag2==1  then
>
>    kcount2 = kcount2+1    ;+1 each time new frame is ready
>    if kcount2>kmaxCount+1 then    ;set the count max to 2 so that it  
> wraps around
>    kcount2 = 1
>    endif
>
>    if kcount2==1 then
>        pvsftr      fsrc1,ifn2
>    else
>        pvsftr      fsrc1,iclear
>    endif
>
> endif
>
>
> ; and resynth
> aout1    pvsynth    fsrc
> aout2    pvsynth    fsrc1
>
>
> out    aout1, aout2
>
>
>
> endin
>
>
>
>
>
> 
>
>
> 
> f1 0 4096 -10 1
> i1 0 10    ;count frame with the maximum count of 2
>
> 
>
>
> 
>
>
> On 15/05/2011 12:38, ebmtranceboy wrote:
>> peiman wrote:
>>> For spectral
>>> stuff the pvs family of opcodes are much more widely used these  
>>> days.
>>>
>> In the case of
>>
>>           instr     2101
>>           asig      in                       ; GET MICROPHONE INPUT
>>                                              ; FORM A SPECTRAL DATA  
>> TYPE
>> wsig1     spectrum  asig, .01, 8, 12, 8, 0, 1, 0
>> wsig2     specscal  wsig1, 1,2             ; FLETCHER-MUNSON SCALING
>> wsig3     specdiff  wsig2                    ; POSITIVE DIFFERENCE  
>> SPECTRUM
>> wsig4     specfilt  wsig3, 5                 ; INJECT INTO  
>> INTEGRATING
>> FILTERS
>> ksum4     specsum   wsig4, 1
>>                                              ; GET TEMPO...
>> ;                   kIN    iPRD iMINDUR  iMEMDUR  iHP  iTHRESH iHTIM
>> iXFDBAK iSTARTEMPO iFN  iDISPRD
>> ktempo    tempest   ksum4, .01,   .1,     3,       1,   30,    . 
>> 005,    .04,
>> 90,     6,     1
>>           tempo     ktempo, 60               ; ... AND CONTROL THE
>> PERFORMANCE
>> out asig
>>           endin
>>
>> how would you translate specdiff with the pvs family of opcodes ?
>>
>>
>> --
>> View this message in context: http://csound.1045644.n5.nabble.com/specfilt-doc-tp4392827p4397507.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"
>

Dr Victor Lazzarini
Senior Lecturer
Dept. of Music
NUI Maynooth Ireland
tel.: +353 1 708 3545
Victor dot Lazzarini AT nuim dot ie





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"

Date2011-05-15 17:26
Frompeiman khosravi
SubjectRe: [Csnd] pvs granular madness [was: specfilt doc]
Indeed :-)

Have you seen the new version of GRM Tools? Looks like they've run out 
of ideas, hardly cutting edge stuff and just sounds like stodgy FFT 
soup. http://www.inagrm.com/grinder

This stuff is already available for free in michael norris's AU plug-ins 
(for those that can't be bothered to use pvsblur) so I don't know why 
anyone would pay for it.



On 15/05/2011 17:15, Victor Lazzarini wrote:
> Sounds like you've got a production-line for English-GRM-style music.
>
> On 15 May 2011, at 15:13, peiman khosravi wrote:
>
>> Here is an ad hoc example of pvs-based granular synthesis using 
>> "beats.wav".
>>
>> 
>>
>> 
>> -odac -d
>> 
>>
>>
>> 
>> sr     = 96000
>> ksmps  = 100
>> nchnls = 2
>> 0dbfs  = 1
>>
>>
>>
>>
>> instr 1
>> ain    diskin2       "beats.wav", 1, 0, 1
>> ain = ain*.2
>> ain dcblock ain
>> fsrcanal    pvsanal       ain, 4096, 1024, 4096*4, 0
>>
>>
>> kline    line    500, p3, 1
>>
>> kfreq    random    1, kline
>>
>>
>> koscil oscil    kfreq, .5, 1
>> koscil =  (koscil+1)*.5
>>
>> koscil1 oscil    kfreq, .5, 1, .5
>> koscil1 =  (koscil1+1)*.5
>>
>>
>> fsrc    pvscale fsrcanal, (koscil+.1)*6
>> fsrc1    pvscale fsrcanal, (koscil1+.1)*6
>>
>>
>> kmax    random    1, kline
>>
>> kmaxCount random 1, kmax
>>
>> ifn1     ftgen   0,0,2049,10,1        ; make ftable
>> ifn2     ftgen   0,0,2049,10,1        ; make ftable
>>
>> iclear     ftgen     0, 0, 2049, 2, 0
>>
>>
>> kcount init 1
>>
>> kflag1   pvsftw     fsrc,ifn1          ; export  amps to table,
>>
>> if      kflag1==1  then
>>
>>    kcount = kcount+1    ;+1 each time new frame is ready
>>    if kcount>kmaxCount then    ;set the count max to 2 so that it 
>> wraps around
>>    kcount = 1
>>    endif
>>
>>    if kcount==1 then
>>        pvsftr      fsrc,ifn1
>>    else
>>        pvsftr      fsrc,iclear
>>    endif
>>
>> endif
>>
>> kcount2 init 1
>>
>> kflag2   pvsftw     fsrc1,ifn2          ; export  amps to table,
>> if      kflag2==1  then
>>
>>    kcount2 = kcount2+1    ;+1 each time new frame is ready
>>    if kcount2>kmaxCount+1 then    ;set the count max to 2 so that it 
>> wraps around
>>    kcount2 = 1
>>    endif
>>
>>    if kcount2==1 then
>>        pvsftr      fsrc1,ifn2
>>    else
>>        pvsftr      fsrc1,iclear
>>    endif
>>
>> endif
>>
>>
>> ; and resynth
>> aout1    pvsynth    fsrc
>> aout2    pvsynth    fsrc1
>>
>>
>> out    aout1, aout2
>>
>>
>>
>> endin
>>
>>
>>
>>
>>
>> 
>>
>>
>> 
>> f1 0 4096 -10 1
>> i1 0 10    ;count frame with the maximum count of 2
>>
>> 
>>
>>
>> 
>>
>>
>> On 15/05/2011 12:38, ebmtranceboy wrote:
>>> peiman wrote:
>>>> For spectral
>>>> stuff the pvs family of opcodes are much more widely used these days.
>>>>
>>> In the case of
>>>
>>>           instr     2101
>>>           asig      in                       ; GET MICROPHONE INPUT
>>>                                              ; FORM A SPECTRAL DATA 
>>> TYPE
>>> wsig1     spectrum  asig, .01, 8, 12, 8, 0, 1, 0
>>> wsig2     specscal  wsig1, 1,2             ; FLETCHER-MUNSON SCALING
>>> wsig3     specdiff  wsig2                    ; POSITIVE DIFFERENCE 
>>> SPECTRUM
>>> wsig4     specfilt  wsig3, 5                 ; INJECT INTO INTEGRATING
>>> FILTERS
>>> ksum4     specsum   wsig4, 1
>>>                                              ; GET TEMPO...
>>> ;                   kIN    iPRD iMINDUR  iMEMDUR  iHP  iTHRESH iHTIM
>>> iXFDBAK iSTARTEMPO iFN  iDISPRD
>>> ktempo    tempest   ksum4, .01,   .1,     3,       1,   30,    
>>> .005,    .04,
>>> 90,     6,     1
>>>           tempo     ktempo, 60               ; ... AND CONTROL THE
>>> PERFORMANCE
>>> out asig
>>>           endin
>>>
>>> how would you translate specdiff with the pvs family of opcodes ?
>>>
>>>
>>> -- 
>>> View this message in context: 
>>> http://csound.1045644.n5.nabble.com/specfilt-doc-tp4392827p4397507.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"
>>
>
> Dr Victor Lazzarini
> Senior Lecturer
> Dept. of Music
> NUI Maynooth Ireland
> tel.: +353 1 708 3545
> Victor dot Lazzarini AT nuim dot ie
>
>
>
>
>
> 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"

Date2011-05-15 17:36
Frompeiman khosravi
SubjectRe: [Csnd] pvs granular madness [was: specfilt doc]
p.s. I think it woul dbe cool to control the temporal density of the fft 
frames as well as the amount of energy in each frame. Not sure if it's 
possible but I'm looking into imposing a secondary envelope onto each 
frame. Will post whatever I come up with.

Peiman

On 15/05/2011 17:15, Victor Lazzarini wrote:
> Sounds like you've got a production-line for English-GRM-style music.
>
> On 15 May 2011, at 15:13, peiman khosravi wrote:
>
>> Here is an ad hoc example of pvs-based granular synthesis using 
>> "beats.wav".
>>
>> 
>>
>> 
>> -odac -d
>> 
>>
>>
>> 
>> sr     = 96000
>> ksmps  = 100
>> nchnls = 2
>> 0dbfs  = 1
>>
>>
>>
>>
>> instr 1
>> ain    diskin2       "beats.wav", 1, 0, 1
>> ain = ain*.2
>> ain dcblock ain
>> fsrcanal    pvsanal       ain, 4096, 1024, 4096*4, 0
>>
>>
>> kline    line    500, p3, 1
>>
>> kfreq    random    1, kline
>>
>>
>> koscil oscil    kfreq, .5, 1
>> koscil =  (koscil+1)*.5
>>
>> koscil1 oscil    kfreq, .5, 1, .5
>> koscil1 =  (koscil1+1)*.5
>>
>>
>> fsrc    pvscale fsrcanal, (koscil+.1)*6
>> fsrc1    pvscale fsrcanal, (koscil1+.1)*6
>>
>>
>> kmax    random    1, kline
>>
>> kmaxCount random 1, kmax
>>
>> ifn1     ftgen   0,0,2049,10,1        ; make ftable
>> ifn2     ftgen   0,0,2049,10,1        ; make ftable
>>
>> iclear     ftgen     0, 0, 2049, 2, 0
>>
>>
>> kcount init 1
>>
>> kflag1   pvsftw     fsrc,ifn1          ; export  amps to table,
>>
>> if      kflag1==1  then
>>
>>    kcount = kcount+1    ;+1 each time new frame is ready
>>    if kcount>kmaxCount then    ;set the count max to 2 so that it 
>> wraps around
>>    kcount = 1
>>    endif
>>
>>    if kcount==1 then
>>        pvsftr      fsrc,ifn1
>>    else
>>        pvsftr      fsrc,iclear
>>    endif
>>
>> endif
>>
>> kcount2 init 1
>>
>> kflag2   pvsftw     fsrc1,ifn2          ; export  amps to table,
>> if      kflag2==1  then
>>
>>    kcount2 = kcount2+1    ;+1 each time new frame is ready
>>    if kcount2>kmaxCount+1 then    ;set the count max to 2 so that it 
>> wraps around
>>    kcount2 = 1
>>    endif
>>
>>    if kcount2==1 then
>>        pvsftr      fsrc1,ifn2
>>    else
>>        pvsftr      fsrc1,iclear
>>    endif
>>
>> endif
>>
>>
>> ; and resynth
>> aout1    pvsynth    fsrc
>> aout2    pvsynth    fsrc1
>>
>>
>> out    aout1, aout2
>>
>>
>>
>> endin
>>
>>
>>
>>
>>
>> 
>>
>>
>> 
>> f1 0 4096 -10 1
>> i1 0 10    ;count frame with the maximum count of 2
>>
>> 
>>
>>
>> 
>>
>>
>> On 15/05/2011 12:38, ebmtranceboy wrote:
>>> peiman wrote:
>>>> For spectral
>>>> stuff the pvs family of opcodes are much more widely used these days.
>>>>
>>> In the case of
>>>
>>>           instr     2101
>>>           asig      in                       ; GET MICROPHONE INPUT
>>>                                              ; FORM A SPECTRAL DATA 
>>> TYPE
>>> wsig1     spectrum  asig, .01, 8, 12, 8, 0, 1, 0
>>> wsig2     specscal  wsig1, 1,2             ; FLETCHER-MUNSON SCALING
>>> wsig3     specdiff  wsig2                    ; POSITIVE DIFFERENCE 
>>> SPECTRUM
>>> wsig4     specfilt  wsig3, 5                 ; INJECT INTO INTEGRATING
>>> FILTERS
>>> ksum4     specsum   wsig4, 1
>>>                                              ; GET TEMPO...
>>> ;                   kIN    iPRD iMINDUR  iMEMDUR  iHP  iTHRESH iHTIM
>>> iXFDBAK iSTARTEMPO iFN  iDISPRD
>>> ktempo    tempest   ksum4, .01,   .1,     3,       1,   30,    
>>> .005,    .04,
>>> 90,     6,     1
>>>           tempo     ktempo, 60               ; ... AND CONTROL THE
>>> PERFORMANCE
>>> out asig
>>>           endin
>>>
>>> how would you translate specdiff with the pvs family of opcodes ?
>>>
>>>
>>> -- 
>>> View this message in context: 
>>> http://csound.1045644.n5.nabble.com/specfilt-doc-tp4392827p4397507.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"
>>
>
> Dr Victor Lazzarini
> Senior Lecturer
> Dept. of Music
> NUI Maynooth Ireland
> tel.: +353 1 708 3545
> Victor dot Lazzarini AT nuim dot ie
>
>
>
>
>
> 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"

Date2011-05-15 21:54
Fromluis jure
SubjectRe: [Csnd] pvs granular madness [was: specfilt doc]
on 2011-05-15 at 17:26 peiman khosravi wrote:

>
>Have you seen the new version of GRM Tools? 

no, for my part i haven't, but don't start me to talking about the french
"recherche" institutions...


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"

Date2011-05-15 22:03
FromVictor Lazzarini
SubjectRe: [Csnd] pvs granular madness [was: specfilt doc]
oh, please go on...
On 15 May 2011, at 21:54, luis jure wrote:

>
> on 2011-05-15 at 17:26 peiman khosravi wrote:
>
>>
>> Have you seen the new version of GRM Tools?
>
> no, for my part i haven't, but don't start me to talking about the  
> french
> "recherche" institutions...
>
>
> 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"
>

Dr Victor Lazzarini
Senior Lecturer
Dept. of Music
NUI Maynooth Ireland
tel.: +353 1 708 3545
Victor dot Lazzarini AT nuim dot ie





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"

Date2011-05-15 22:12
Frompeiman khosravi
SubjectRe: [Csnd] pvs granular madness [was: specfilt doc]
However, I should clarify that some amazing music has come out of the 
GRM: Bayle, Parmegiani, Zansi.

On 15/05/2011 21:54, luis jure wrote:
> on 2011-05-15 at 17:26 peiman khosravi wrote:
>
>> Have you seen the new version of GRM Tools?
> no, for my part i haven't, but don't start me to talking about the french
> "recherche" institutions...
>
>
> 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"

Date2011-05-16 07:37
FromOeyvind Brandtsegg
SubjectRe: [Csnd] pvs granular madness [was: specfilt doc]
hey, that's a nice sounding pvs-granulator.
Now you'd only need a flexible binsize(grainsize)... :-)
good
Oeyvind

2011/5/15 peiman khosravi :
> Here is an ad hoc example of pvs-based granular synthesis using "beats.wav".
>
> 
>
> 
> -odac -d
> 
>
>
> 
> sr     = 96000
> ksmps  = 100
> nchnls = 2
> 0dbfs  = 1
>
>
>
>
> instr 1
> ain    diskin2       "beats.wav", 1, 0, 1
> ain = ain*.2
> ain dcblock ain
> fsrcanal    pvsanal       ain, 4096, 1024, 4096*4, 0
>
>
> kline    line    500, p3, 1
>
> kfreq    random    1, kline
>
>
> koscil oscil    kfreq, .5, 1
> koscil =  (koscil+1)*.5
>
> koscil1 oscil    kfreq, .5, 1, .5
> koscil1 =  (koscil1+1)*.5
>
>
> fsrc    pvscale fsrcanal, (koscil+.1)*6
> fsrc1    pvscale fsrcanal, (koscil1+.1)*6
>
>
> kmax    random    1, kline
>
> kmaxCount random 1, kmax
>
> ifn1     ftgen   0,0,2049,10,1        ; make ftable
> ifn2     ftgen   0,0,2049,10,1        ; make ftable
>
> iclear     ftgen     0, 0, 2049, 2, 0
>
>
> kcount init 1
>
> kflag1   pvsftw     fsrc,ifn1          ; export  amps to table,
>
> if      kflag1==1  then
>
>    kcount = kcount+1    ;+1 each time new frame is ready
>    if kcount>kmaxCount then    ;set the count max to 2 so that it wraps
> around
>    kcount = 1
>    endif
>
>    if kcount==1 then
>        pvsftr      fsrc,ifn1
>    else
>        pvsftr      fsrc,iclear
>    endif
>
> endif
>
> kcount2 init 1
>
> kflag2   pvsftw     fsrc1,ifn2          ; export  amps to table,
> if      kflag2==1  then
>
>    kcount2 = kcount2+1    ;+1 each time new frame is ready
>    if kcount2>kmaxCount+1 then    ;set the count max to 2 so that it wraps
> around
>    kcount2 = 1
>    endif
>
>    if kcount2==1 then
>        pvsftr      fsrc1,ifn2
>    else
>        pvsftr      fsrc1,iclear
>    endif
>
> endif
>
>
> ; and resynth
> aout1    pvsynth    fsrc
> aout2    pvsynth    fsrc1
>
>
> out    aout1, aout2
>
>
>
> endin
>
>
>
>
>
> 
>
>
> 
> f1 0 4096 -10 1
> i1 0 10    ;count frame with the maximum count of 2
>
> 
>
>
> 
>
>
> On 15/05/2011 12:38, ebmtranceboy wrote:
>>
>> peiman wrote:
>>>
>>> For spectral
>>> stuff the pvs family of opcodes are much more widely used these days.
>>>
>> In the case of
>>
>>           instr     2101
>>           asig      in                       ; GET MICROPHONE INPUT
>>                                              ; FORM A SPECTRAL DATA TYPE
>> wsig1     spectrum  asig, .01, 8, 12, 8, 0, 1, 0
>> wsig2     specscal  wsig1, 1,2             ; FLETCHER-MUNSON SCALING
>> wsig3     specdiff  wsig2                    ; POSITIVE DIFFERENCE
>> SPECTRUM
>> wsig4     specfilt  wsig3, 5                 ; INJECT INTO INTEGRATING
>> FILTERS
>> ksum4     specsum   wsig4, 1
>>                                              ; GET TEMPO...
>> ;                   kIN    iPRD iMINDUR  iMEMDUR  iHP  iTHRESH iHTIM
>> iXFDBAK iSTARTEMPO iFN  iDISPRD
>> ktempo    tempest   ksum4, .01,   .1,     3,       1,   30,    .005,
>>  .04,
>> 90,     6,     1
>>           tempo     ktempo, 60               ; ... AND CONTROL THE
>> PERFORMANCE
>> out asig
>>           endin
>>
>> how would you translate specdiff with the pvs family of opcodes ?
>>
>>
>> --
>> View this message in context:
>> http://csound.1045644.n5.nabble.com/specfilt-doc-tp4392827p4397507.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"
>
>


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"


Date2011-05-16 07:50
Frompeiman khosravi
SubjectRe: [Csnd] pvs granular madness [was: specfilt doc]
Yes!! And some arbitrary windowing functions.

Over to Victor :-)

Best,

Peiman

On 16/05/2011 07:37, Oeyvind Brandtsegg wrote:
> hey, that's a nice sounding pvs-granulator.
> Now you'd only need a flexible binsize(grainsize)... :-)
> good
> Oeyvind
>
> 2011/5/15 peiman khosravi:
>> Here is an ad hoc example of pvs-based granular synthesis using "beats.wav".
>>
>> 
>>
>> 
>> -odac -d
>> 
>>
>>
>> 
>> sr     = 96000
>> ksmps  = 100
>> nchnls = 2
>> 0dbfs  = 1
>>
>>
>>
>>
>> instr 1
>> ain    diskin2       "beats.wav", 1, 0, 1
>> ain = ain*.2
>> ain dcblock ain
>> fsrcanal    pvsanal       ain, 4096, 1024, 4096*4, 0
>>
>>
>> kline    line    500, p3, 1
>>
>> kfreq    random    1, kline
>>
>>
>> koscil oscil    kfreq, .5, 1
>> koscil =  (koscil+1)*.5
>>
>> koscil1 oscil    kfreq, .5, 1, .5
>> koscil1 =  (koscil1+1)*.5
>>
>>
>> fsrc    pvscale fsrcanal, (koscil+.1)*6
>> fsrc1    pvscale fsrcanal, (koscil1+.1)*6
>>
>>
>> kmax    random    1, kline
>>
>> kmaxCount random 1, kmax
>>
>> ifn1     ftgen   0,0,2049,10,1        ; make ftable
>> ifn2     ftgen   0,0,2049,10,1        ; make ftable
>>
>> iclear     ftgen     0, 0, 2049, 2, 0
>>
>>
>> kcount init 1
>>
>> kflag1   pvsftw     fsrc,ifn1          ; export  amps to table,
>>
>> if      kflag1==1  then
>>
>>     kcount = kcount+1    ;+1 each time new frame is ready
>>     if kcount>kmaxCount then    ;set the count max to 2 so that it wraps
>> around
>>     kcount = 1
>>     endif
>>
>>     if kcount==1 then
>>         pvsftr      fsrc,ifn1
>>     else
>>         pvsftr      fsrc,iclear
>>     endif
>>
>> endif
>>
>> kcount2 init 1
>>
>> kflag2   pvsftw     fsrc1,ifn2          ; export  amps to table,
>> if      kflag2==1  then
>>
>>     kcount2 = kcount2+1    ;+1 each time new frame is ready
>>     if kcount2>kmaxCount+1 then    ;set the count max to 2 so that it wraps
>> around
>>     kcount2 = 1
>>     endif
>>
>>     if kcount2==1 then
>>         pvsftr      fsrc1,ifn2
>>     else
>>         pvsftr      fsrc1,iclear
>>     endif
>>
>> endif
>>
>>
>> ; and resynth
>> aout1    pvsynth    fsrc
>> aout2    pvsynth    fsrc1
>>
>>
>> out    aout1, aout2
>>
>>
>>
>> endin
>>
>>
>>
>>
>>
>> 
>>
>>
>> 
>> f1 0 4096 -10 1
>> i1 0 10    ;count frame with the maximum count of 2
>>
>> 
>>
>>
>> 
>>
>>
>> On 15/05/2011 12:38, ebmtranceboy wrote:
>>> peiman wrote:
>>>> For spectral
>>>> stuff the pvs family of opcodes are much more widely used these days.
>>>>
>>> In the case of
>>>
>>>            instr     2101
>>>            asig      in                       ; GET MICROPHONE INPUT
>>>                                               ; FORM A SPECTRAL DATA TYPE
>>> wsig1     spectrum  asig, .01, 8, 12, 8, 0, 1, 0
>>> wsig2     specscal  wsig1, 1,2             ; FLETCHER-MUNSON SCALING
>>> wsig3     specdiff  wsig2                    ; POSITIVE DIFFERENCE
>>> SPECTRUM
>>> wsig4     specfilt  wsig3, 5                 ; INJECT INTO INTEGRATING
>>> FILTERS
>>> ksum4     specsum   wsig4, 1
>>>                                               ; GET TEMPO...
>>> ;                   kIN    iPRD iMINDUR  iMEMDUR  iHP  iTHRESH iHTIM
>>> iXFDBAK iSTARTEMPO iFN  iDISPRD
>>> ktempo    tempest   ksum4, .01,   .1,     3,       1,   30,    .005,
>>>   .04,
>>> 90,     6,     1
>>>            tempo     ktempo, 60               ; ... AND CONTROL THE
>>> PERFORMANCE
>>> out asig
>>>            endin
>>>
>>> how would you translate specdiff with the pvs family of opcodes ?
>>>
>>>
>>> --
>>> View this message in context:
>>> http://csound.1045644.n5.nabble.com/specfilt-doc-tp4392827p4397507.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"
>>
>>
>
> 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"