subroutine char SEGMENTS
write over file xx.pdb sele segm name SEGMENTS end coor pdb reorder
delete atom sele segm name SEGMENTS end
read file xx.pdb coor pdb 
make ct init sele segm name SEGMENTS end
make bond from topo sele segm name SEGMENTS end
dele bond sele bond range 3.4 1000 .a  sele segm name SEGMENTS end
calc bond disu sele segm name SEGMENTS end 

! to make chain and the first letter of sequence IDs the same 
 make chain sele segm name SEGMENTS end
 rena seq "" sele segm name SEGMENTS end auto 

key t_anchor sele .not all end
key anchor sele .not all end
< ?MAIN_CMDS:re_image.cmds SEGMENTS
< DEF_ALL SEGMENTS
return