! subroutine char SEGMENTS
make zt  from ct init sele active end
calc inte
make pair init rama sele active end sele active  end 

graph
col 220 
rama sele resi name GLY .a active end cell \
     sele resi name GLY .a active end seq  
col 110 
rama sele .not resi name GLY .a active end cros \
     sele .not resi name GLY .a active end seq  
exit
return