[x11,x12,x40]
; sizeplus.siz
; procedures to adjust size of image relative to reference
; create output file with largest ccf-coefficient.
; written by m.radermacher updated to new spider by m.samso 8/2000

;	x11= 10= how many 2 pixel steps
;	x12 =1 = start where (how many steps above 0)
;	x40 = 55= mask size

fr
?reference image? <1>
fi
?image to be adjusted? <2>
x21=x1
fr
?document file for crosscor. coeff.? <3>
fr
?output file? <4>
mo
_1
x21,x21
c
x40

x50=0
x13=x11+x12
do lb1 x55=x12,x13
x14=x55*2
x15=x21+x14
x16=((x15-x21)/2)+1
ip
<2>
_2
x15,x15
wi
_2
_3
x21,x21
x16,x16
cc c x31,x32,x33,x34
_3
<1>
_1
if(x31.lt.x50) goto lb2
cp
_3
<4>
x50=x31
lb2
sd x0,x15,x31,x40,x32,x33,x34
<3>
lb1 
sd e
<3>
re