;rclabel2mod.ori 
;leaves theta and introduces phi and psi in header . this is because
;i'm using several micrographs so they have several theta angles
;enters angles into the label of the tilt images and of the 0 degree images
;in a tilt pair. (after 0 deg alignment)
;author:m.radermacher
;converted to new spider by M. Samso 5/20/97
x88=0.0
rr x31
?first key?
;-----------------------------------p1
rr x32
?last key?
;-----------------------------------p2
;put label into tilt images
fr
?shift rotation docfile?
;----------------------------------p3
fr
?original tilted images?
;----------------------------------p4
fr
?0-degree images?
;----------------------------------p5
do lb1 i=x31,x32
ud ic x0,x20
<3> 
st
<4>00i
b
15,17
x20,x88
st
<5>00i
b
15,17
x20,x88
lb1
ud ice 
<3>
re