R/plot_nogrid.R

Defines functions plot_nogrid

Documented in plot_nogrid

plot_nogrid <-
function(o, xgr, ygr, col)
{
	frame <- list(x = c(o$x[1], o$x[2], o$x[2], o$x[1], o$x[1]), y = c(
		o$y[1], o$y[1], o$y[2], o$y[2], o$y[1]))
	dx <- (o$x[2] - o$x[1])/100
	ly <- length(ygr)
	lx <- length(xgr)
	lengd <- ly * 2 + lx * 2
	o1 <- o$x[1]
	ind <- c(1:ly)
	my <- mx <- matrix(NA, lengd, 3)
	mx[ind, 1] <- o1
	mx[ind, 2] <- o1 + dx
	my[ind, 1] <- my[ind, 2] <- ygr
	o1 <- o$x[2]
	ind <- c((ly + 1):(ly * 2))
	mx[ind, 1] <- o1 - dx
	mx[ind, 2] <- o1
	my[ind, 1] <- my[ind, 2] <- ygr
	o1 <- o$y[1]
	ind <- c((ly * 2 + 1):(ly * 2 + lx))
	my[ind, 1] <- o1
	my[ind, 2] <- o1 + dx
	mx[ind, 1] <- mx[ind, 2] <- xgr
	o1 <- o$y[2]
	ind <- c((ly * 2 + lx + 1):(ly * 2 + lx * 2))
	my[ind, 1] <- o1 - dx
	my[ind, 2] <- o1
	mx[ind, 1] <- mx[ind, 2] <- xgr
	lines(t(mx), t(my), col = col)
	lines(frame, col = col)
	return(invisible())
}

Try the geo package in your browser

Any scripts or data that you put into this service are public.

geo documentation built on May 2, 2019, 5:22 p.m.