; PURPOSE: Converts a series of scanned files to a SPIDER file.

; [dec] = decimation factor for 'DC S' command
;     0 = Get value from param file (key=16)
;     1 = Full sized image
;     2 = 1/2 size
;     4 = 1/4 size

[dec] = 0    ; Decimation factor (0 = get value from  params file)

;  ----------- Input files --------------
FR L
[in]../Micrographs/Rec{****[num]}.tif   ; Scanned image micrographs

FR L
[mic_sel]../sel_micrograph              ; Micrograph selection file

FR L
[params]../params                       ; Parameter file

; ----------- Output files --------------
FR L
[out]../Micrographs/Rec{****[num]}      ; SPIDER format output

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

UD N,[nmic]       ; Get number of micrographs
[mic_sel]         ; Selection file              (input)

DO  [i] = 1,[nmic]

   UD [i],[num]   ; Get micrograph number [num]
   [mic_sel]      ; Selection file              (input)

   @convert_p[[num],[dec]]
   [params]       ; Parameter file
   [in]           ; Rreads scanned file         (input)
   [out]          ; Writes SPIDER file          (output)

ENDDO

EN