; hipass : 
; high-pass filter an image

x21 = 0.001  ; passband (the smaller number, use -1 for default)
x22 = 0.05  ; stopband  (use -1 to compute default from pixelsize)

;  ----------- Input files --------------
FR L
[FILENUMS]../filenums   ; file numbers

FR L
[params]../params     ; parameters

FR L
[in]/g/cryo/sp/spider/spire/micrographs/mic{****x11}    ; ; large input images

; ----------- Output files --------------
FR L
[out]hpf{****x11}  ; small output files

; -------------------- END BATCH HEADER ----------------------------

; apply a highpass Butterworth filter - default filter settings.
; good values for micrographs: 
;    2872 A for low band (1st number),
;     718 A for higher band (2nd number)
UD 5,x77   ; pixel size
[params]

IF (x21.LT.0) x21 = x77 / 2872.0
IF (x22.LT.0) x22 = x77 / 718.0

UD N,x20
[FILENUMS] 

DO LB1 x12 = 1,x20

UD x12,x11
[FILENUMS]     ; x11 is now the file number

FQ NP
[in]
[out]
(8)  ; Butterworth high pass
(x21,x22)

LB1

EN D