Csound Csound-dev Csound-tekno Search About

[Csnd] Segfault on Windows for ftsavek Cound 6.00.1

Date2013-12-10 15:15
FromRoger Kelly
Subject[Csnd] Segfault on Windows for ftsavek Cound 6.00.1

ftsavek segfaults on Windows for Csound 6.00.1



I have not tried later versions.


<CsoundSynthesizer>

<CsOptions>

-o test2.wav

</CsOptions>

<CsInstruments>


instr 1


ifftsize = 1024

ioverlap = ifftsize / 4

iwinsize = ifftsize

iwinshape = 1 ; von-Hann window


inbins = 512

ifn ftgen 0,0,inbins,10,1 ; make ftable

ifn2 ftgen 0,0,inbins,10,1 ; make ftable


alin, arin soundin "C:\\temp\\C5_1.wav"


fftinl pvsanal alin, ifftsize, ioverlap, iwinsize, iwinshape

aout pvsynth fftinl


kflag pvsftw fftinl,ifn, ifn2

if ( kflag == 1 ) then

ftsavek "pvs.txt",kflag, 1, ifn2

endif

kamp=0

if kflag==0 kgoto contin ; only proc when frame is ready

tablew kamp,1,ifn2 ; kill lowest bins, for obvious effect

tablew kamp,2,ifn2

tablew kamp,3,ifn2

tablew kamp,4,ifn2

; read modified data back to fsrc

pvsftr fftinl,ifn

contin:

; and resynth

aout pvsynth fftinl

; pvsfwrite fftinl, "C:\\temp\\piano.pvx"

outs aout,aout


endin

</CsInstruments>

<CsScore>

i 1 0 5

</CsScore>

</CsoundSynthesizer>