key XX_KEY sele segm name NEW end
dele atom sele segm name NEW .a weigh -10.0 0.1 end

dele atom sele segm name WORK_SEGM .a around key XX_KEY dist 1.5 end

set weight sele segm name NEW end = 1.0
rena segm HELP sele segm name NEW end
set vari WORK_SEGM char global = HELP

<MAIN_CMDS:re_image.cmds WORK_SEGM

return

image from 
ima era

!  make bond sele segm name NEW end from topo
!  key 5 sele seq %%%5 .a segm name NEW end
!  key 6 sele seq %%%6 .a segm name NEW end
!  dele bond sele 5 end sele 6 end

<?MAIN_CMDS:anal_group.cmds RESIDUE 
<?MAIN_CMDS:anal_temp.cmds WORK_SEGM ANAL_GRP 
<?MAIN_CMDS:anal_3d_image.cmds WORK_SEGM ANAL_GRP 
!ima rem 12 24
ima cent atom ITEST
key image sele segm name WORK_SEGM .a atom name N CA C end
image sele neigh ITEST -1 end col 110 bond stick

return