; window2d.win  windows out (untilted) particles for 2D
; from successive micrographs
; Written by Montserrat Samso 11/5/97
;
fr
?document with background values? <1>
;---------------------------------------------p1
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
;
ud 999,x11
<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 b
?micrograph file name? <7>
_1
x28,x28
x50,x51
(x11)
ar
_1
<5>x27
((P1-x11)/x11)
lb1
ud ice
<2>
re