subroutine char SEGMENTS
 set rad sele segm name SEGMENTS end vdw
 poin surf all sele segm name SEGMENTS .a .not atom name H* end \
       sele segm name SEGMENTS .a .not atom name H* end dens 5. init
image col 160 poin surf all 
return