subroutine char SEGMENTS

dele atom sele atom name H* .a active end
!show vari WORK_SEGM
!show vari SEGMENTS
 key OXT sele atom name OXT .a segm name SEGMENTS end
 <MAIN_UTILS:break_residues.com OXT

key old sele all end

build
  sele segm name SEGMENTS .and. by resid active end
  fill
  sele segm name SEGMENTS .and. by resid active end
  dihed
exit
calc coor append sele segm name SEGMENTS .and. by resid active end

calc bond disu sele by resid segm name SEGMENTS end segment
 key OXT sele atom name OXT .a segm name SEGMENTS end
 <MAIN_UTILS:join_residues.com OXT

!return


 < DEF_ALL SEGMENTS

 mini any pos sele .n old end sele all end
 key old drop

< ?MAIN_CMDS:re_image.cmds SEGMENTS
return