subroutine char SEGMENTS
make zt  from ct init sele segm name SEGMENTS end
calc inte
make pair rama sele segm name SEGMENTS end sele segm name SEGMENTS  end

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