[R-sig-Geo] Contour plot for point process

[ASANTOS]

Dear list members,
  
	I'm trying to create a contour plot in gray scale and convert in pixel format for represent a interpolation of
     point process, my short script:
     require(spatstat)
     A<-316## Size of square area
     # Create points
     xypois=rMatClust(0.005,7,8,owin(c(0,A),c(0,A)))
     xd=xypois$x
     yd=xypois$y
     plot(xd,yd,xlim=c(0,A),ylim=c(0,A),pch=19,cex=0.5)#Draw
     #
              I ask, if there are any function for make this?
     Thanks
     --
     Alexandre dos Santos
     Forest entomology
     IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso