subroutine char SEGMENTS
show vari SEGMENTS
write over file xx.pdb sele active end coor pdb reorder
delete atom sele active end
key OLD sele all end
read file xx.pdb coor pdb 
key active sele .n OLD end
make ct init sele active end
make bond from topo sele active end
dele bond sele bond range 3.4 1000 .a active end
calc bond disu sele active end 

! to make chain and the first letter of sequence IDs the same 
 make chain sele active end
 rena seq "" sele active 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


subroutine char SEGMENTS
show vari 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  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