subroutine char SEGMENTS
 image erase
delete atom sele segm name #* NEW* end
key image sele .not all .or. skeleton end

key skel sele skel_orig .a .not active end

set col 
sele skeleton end = 200
sele active end = 220
exit


image sele active .or. skeleton end set bond
return