subroutine char SEGMENTS int COLOR
 image erase
delete atom sele segm name #* end
key image sele .not all end

if ( COLOR .lt. 0 ) image set
if ( COLOR .ge. 0 ) image col COLOR
image sele segment name SEGMENTS end bond
image sele segment name SEGMENTS .a .not by bond all end atom cros
image sele segment name SEGMENTS end col 85 hbond
return