; raval2d symeterizes a 2d image. The program rotates an image by 360/x.
; x being the # of symetries the image has. Then takes the average
; of these rotated images.
; author m.radermacher; updated to new spider d.bubeck, 7/2/97
; updated for newer spider m.samso, 7/11/2000
fi
?image to be rotationally averaged?
rr x20
?symmetry factor?
;from here on normal symmetry factors greater than one
cp
<1>
scrrav2drot001
fr
?rotationally averaged image?
do lb1 x87=2,x20
x30=360./x20
rt 
<1>
_1    
x30
cc n
_1
scrrav2drot001
_8
pk x11,x12,x13,x14,x15,x16
_8
(1,0)
sh 
_1
scrrav2drot{***x87}
-x15,-x16
lb1
as r
scrrav2drot***
1-x20
a
<3>
scrvar01
re