;TIM-DEMO                0.5.2                   DFFT
;*****************************************************************************
#define DfrdFFT             1190
#define DfrdFFT1            1200
#define DfrdFFT2            1210
#define DfrdFFT3            1220
#define DfrdFFT4            1230
#define DfrdFFT5            1240
#define DfrdFFT6            1250

#include timdefs.h
parms
  int windis       ;display mode Windows images
  file timdemo
  int hmode
endparms

cls

dest p
show p
zoom 0
copy holo
*windispl h windis

help timdemo DfrdFFT1 2
fftr p f

help timdemo DfrdFFT2 2
ffto f

help timdemo DfrdFFT3 2
dest q
fftd f q 4 128
*windispl i (windis+NO_DITHER)

help timdemo DfrdFFT4 2
dest s
thre q 50         ;threshold the frequencies
lps 8              ;smoothen the object
lsk 8
ldi6 8 
bit 8
;unif 9
fftm s f           ;perform the filtering

help timdemo DfrdFFT5 2
fftb f
dest r

help timdemo DfrdFFT6 2
fftd f r 4 0     ;display modulus
*windispl i windis

stop
