R/polymap.S

In splancs: Spatial and Space-Time Point Pattern Analysis

# Copyright Barry Rowlingson <b.rowlingson@lancaster.ac.uk> and 
# Peter Diggle (c) 1991-3; http://www.maths.lancs.ac.uk/~rowlings/Splancs/
# R port: copyright 1998-2000 by Roger S. Bivand

polymap <- function(poly,add=FALSE,xlab="",ylab="",axes=TRUE,asp=1,...)
{
	if(!add){
		plot(poly,type="n",axes=axes,xlab=xlab,
		ylab=ylab,asp=asp)
	}
	polygon(poly,...)
}