[x73,x28]
; windowf.win  simple windowing from micrograph
; Written by Montserrat Samso 9/28/00
fr
?micrograph file name? <1>
fr
?document with particle positions? <2>
fr
?windowed files? <3>

;x35= distance from center to side of  window
x35=(x28/2)-1

ud n,x74,x75
<2>

do lb1 x19=1,x74
x27=x19+x73
ud ic,x19,x21,x22
<2>
x50=x21-x35
x51=x22-x35

wi
<1>
<3>{***x27}
x28,x28
x50,x51
lb1
ud ice
<2>
re