key XX_KEY sele segm name NEW end

dele atom sele segm name NEW .a .n weigh 0.1 1.1 end

dele atom sele segm name HELP .a around key XX_KEY dist 1.3 end

dele atom sele segm name HELP .a ( .n by bond all .o atom name H* ) end


rena segm HELP sele segm name NEW end

calc bond sele segm name HELP end 

set weight sele segm name HELP end = 1.0
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