; rcal1pre 2/20/87. initilize direct align 128x128, no padding
; (for use before rcal1 and after rcucent)
; for secret, the questions regarding tilt axis are already 
; contemplated in the windowing procedure. 
; author:m.radermacher updated to new spider d.bubeck & m.samso 7/2/97
;                                         mask the ref. picture
fi
?reference image?
;--------------------------------------------------------------p1
;  calculate center coord. for mask
x20=x1                            
x21=x2
x22=x20/2+1
x23=x21/2+1
ma
<1>
ref999
?mask radius?
g
a
x22,x23
3.5
;                            high- and low-pass filter ref. picture       
ft 
ref999
_1
ff
_1
_2
5
?low pass radius?
0.02
ff
_2
_3
6
?high pass radius?
0.02 
ft 
_3
ref999
;                          file duplication for use in qcal1 (for cc comand)
cp
ref999
org999
;
re