subroutine char SEGMENTS
delete atom select segment name #* end

set vari CA_SPHERE real = 60

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

key old select all end
symm select segment name MOLA .a atom name CA end around \ 
     center atom $1 dist CA_SPHERE neigh 2
key SYMM_M sele .not old end
image select SYMM_M end col 105 bond

key old select all end
symm select segment name MOLB .a atom name CA end around \ 
     center atom $1 dist CA_SPHERE neigh 2
key SYMM_M sele .not old end
image select SYMM_M end col 110 bond

key old select all end
symm select segment name IA .a atom name CA end around \ 
     center atom $1 dist CA_SPHERE neigh 2
key SYMM_M sele .not old end
image select SYMM_M end col 115 bond

key old select all end
symm select segment name IB .a atom name CA end around \ 
     center atom $1 dist CA_SPHERE neigh 2
key SYMM_M sele .not old end
image select SYMM_M end col 120 bond


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