make map MAP_MASK from MAP_CELL init -9999  \
     around GRID_ARO sele KEY_MASK end  real
 make map MAP_MASK atom mask ATOM_RAD select KEY_MASK end

! fill the holes in envelope that have HOLE_SIZE grid points in diameter

 make map MAP_MASK + 1 from MAP_MASK init 9999 copy
 make map MAP_MASK from MAP_MASK + 1 fill HOLE_SIZE
write over file FILE_MASK map MAP_MASK xplor
return