subroutine char SEGMENTS inte I_START inte I_END inte THE_MAP real SKEL_CUT

key skel_activ sele path I_START I_END .a segm name SEGMENTS end
set vari ITEST inte atom sele skel_activ end
if ( ITEST .le. 0 ) then
! print "auto_stuff_path.cmds> %error: path is empty" 
return
end_if
set vari ITEST inte atom sele skel_activ .a activ end
if ( ITEST .le. 0 ) then
! print "auto_stuff_path.cmds> %error: path is empty" 
return
end_if

< ?MAIN_UTILS:make_skeleton_around THE_MAP  SKEL_CUT

define skeleton activ sele path I_START I_END end 
!define skeleton activ sele active end 
define skeleton passive sele SKELETON end

ener skel on
mini any pos sele active end sele passive end writ 10 step 200
image over false
image col 95 pair
ener skel off
!delete atom sele SKELETON end

return