; window2dc.win  windows out  particles 
; from successive micrographs
;windows,  ramps, corrects respect histogram
;       of noise file. for images from new scanner.
; Written by Montserrat Samso 7/6/98
; 7/7/98 adapted for new scanner: doesn't invert contrast
;10/1/98 wi b with background value 1.2 added
fr
?document with particle positions? <2>
;---------------------------------------------p2
rr x74
?how many particles in the micrograph? <3>
;---------------------------------------------p3
rr x73
?last particle number from previous micrograph? <4>
;---------------------------------------------p4
fr
?windowed files? <5>
;---------------------------------------------p5
rr x28
?dimension of window files (side of square)? <6>
;---------------------------------------------p6
;x35= distance from center to side of  window
x35=(x28/2)-1
;
do lb1 x19=1,x74
x27=x19+x73
ud ic,x19,x21,x22
<2>
x50=x21-x35
x51=x22-x35
;---------------------------------------------p7
wi b
?micrograph file name? <7>
_1
x28,x28
x50,x51
(1.2)
;---------------------------------------------p8
fr
?noise file? <8>
;---------------------------------------------p9
fr
?mask file? <9>
ra
_1
_3
ce fit
<8>
_3
<9>
<5>x27
lb1
ud ice
<2>
re