subroutine char SEGMENTS
 delete atom select segment name #* NEW* end
! sh vari SEGMENTS
set vari DIST = 50.

set vari SEGMENTS = NEWX
symm select active end matr 1 tran 0 0 0
rena segm NEWX sele segm name #* end
set coor sele segm name NEWX end deortho
tran atom sele segm name NEWX end vect 0.5 0.5 0.2
set coor sele segm name NEWX end ortho


 key old select all end
 symm select active end around center atom $1 dist 40. neigh 2
 image select .not old  end col 105 bond ! atom cross

image col 160 sele segm name NEWX end bond
 key old select all end
 symm select segm name NEWX end around center atom $1 dist 40. neigh 2
 image select .not old  end col 125 bond ! atom cross


return