; b01.uwi windows out untilted particles for 3D
; 1786x35=(total size/2)-1; if dimensions 64^2 => x35=33
; x35= distance from center to side of  window;
;
;
; CHANGE X72  X73 x74 x75 EVERYTIME
; x72=ducx72 number
; x73=last particle number from previous micrograph
; x74 # particles in this micrograph
; x75=micrograph number (last 3 digits) 
;
;
x55=(0.0)
x35=(63)
x72=(605)
x73=(1785)
x74=(203)
x75=(605)
ud 999,x11
duc{***x72}
ud 124,x43,x44,x45
dcb{***x72}
do lb1 x19=1,x74
x27=x19+x73
ud ic,x19,x20,x21,x22,x23,x24,x25
dcu{***x72}
x50=x21-x35
x51=x22-x35
wi b
full101{***x75}
_1
(128,128)
x50,x51
(x11)
ar
_1
_2
((P1-x11)/x11)
rt sq
_2
proj1/ima/ima{****x27}
-x44
(0,0)
st
proj1/ima/ima{****x27}
a
(1)
x55,x43
x55
lb1
ud ice
dcu{***x72}
en