; window2da.win  windows out  particles 
; from successive micrographs
;windows, inverts contrast, ramps, corrects respect histogram
;       of noise file
; Written by Montserrat Samso 4/6/98
; see file:/net/ithaca/usr1/spider/docs/techs/recon/mr.html p_pick.aps
; for ce fit, ra
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,x20,x21,x22,x23,x24,x25
<2>
x50=x21-x35
x51=x22-x35
;---------------------------------------------p7
wi
?micrograph file name? <7>
_1
x28,x28
x50,x51
ar
_1
_2
P1*(-1)
;---------------------------------------------p8
fr
?noise file? <8>
;---------------------------------------------p9
fr
?mask file? <9>
ra
_2
_3
ce fit
<8>
_3
<9>
<5>x27
lb1
ud ice
<2>
re