subroutine char seg_ID inte I_POS inte N_COUNT real X_C real Y_C real Z_C
show vari seg_ID
show vari I_POS
show vari N_COUNT

key insert select all end 
build 
segment seg_ID
sequence ""
after natom
start 
center coord X_C Y_C Z_C
insert residue N_COUNT ALA
exit 
key insert select .not insert end 
calc coord append 
wr sele insert end res seq segm
rena sele insert end from_seq I_POS 

build
  sele by resid insert end
  fill
  sele by resid insert end
  dihed
exit
calc coor append sele by resid insert end

wr sele insert end res seq segm

set vari WORK_SEGM global char segm sele insert .o segm name WORK_SEGM end 
key insert drop

< ?MAIN_CMDS:re_image.cmds WORK_SEGM 
< DEF_ALL WORK_SEGM 


return