(fft1d) ( seq sign -- seq' )

Vocabulary

fftw.private

Inputs

seq	an object
sign	an object

Outputs

seq'

an object

Definition

USING: destructors fftw.ffi kernel sequences ;

IN: fftw.private

:: (fft1d) ( seq sign -- seq' )
    seq length :> n [
        n seq >fftw-array n <fftw-array> [
            sign FFTW_ESTIMATE fftw_plan_dft_1d
            [ fftw_execute ] [ fftw_destroy_plan ] bi
        ] keep fftw-array>
    ] with-destructors ;