> (read-image "signal/signal1.pgm") #<image: rows = 256 cols = 256> > > (read-image "noise/noise1.pgm") #<image: rows = 128 cols = 128> > > wiener-filter #<image: rows = 128 cols = 128> > > (define test (read-image "test.pgm")) > test #<image: rows = 128 cols = 128> > > (real-part (ifft (* (fft test) wiener-filter))) #<image: rows = 128 cols = 128> >