;b05.win  windows out  particles from successive micrographs
;windows,  ramps, corrects respect histogram
;of noise file. for images from HiScan.
;Written by Montserrat Samso 7/6/98 updated 7/2000

;last particle number from previous series? 
x27=314
;?dimension of window files (side of square)?
x28=128
;x35= distance from center to side of  window
x35=(x28/2)-1

do lb2 x55=1,3
rr x53
173,174,175
;165,171

x73=x27

ud n,x74,x75
mar{***x53}

do lb1 x19=1,x74
x27=x19+x73
ud ic,x19,x21,x22
mar{***x53}
x50=x21-x35
x51=x22-x35
wi b
full{****x53}
_1
x28,x28
x50,x51
(4.3)
ra
_1
_3
ce fit
NOISE001
_3
MASK001
ima/ima{****x27}
lb1

x75=x27-x74+1
sd x53,x74,x75,x27
list_micr_part001

ud ice
mar{***x53}
lb2

sd e
list_micr_part001

as r
ima/ima****
(1-x27)
a
avgima001
varima001
en