subroutine char SEGMENTS
delete atom sele segment name #* end
key old sele all end

make bond  sele segm name SEGMENTS end from residue = CA
delet bond select bond range 4.4 1000. end

symmetry sele atom name CA .a segm name SEGMENTS end -
            around center atom $1 dist 50. neigh 2
key symm_ sele .not old end
image sele symm_ end col 105 bond

delete bond sele atom name CA .a segm name SEGMENTS end
return