zebra: Horizontal Zebra Scale

In GEOmap: Topographic and Geologic Mapping

Horizontal Zebra Scale

Description

Plot a zebra style horizontal scale on a projected map.

Usage

zebra(x, y, Dx, dx, dy, lab = "", pos=1, col = c("black", "white"),
cex = 1, textcol="black", xpd=TRUE, PMAT = NULL)

Arguments

x	x-coordinate of left corner
y	y-coordinate of left corner
Dx	distance in x, km
dx	distance for zebra stripes in x
dy	thickness in km
lab	labels
pos	position of text, 1=below, 3=above, as in par
col	2-vector of colors, for the alternating bars
cex	character expansion
textcol	color for the text
xpd	logical, graphic parameter for clipping (see par)
PMAT	3D projection matrix from persp

Details

Plots a zebra style kilometer scale on the current plot

Value

Graphical Side effect

Author(s)

Jonathan M. Lees<[e-mail]>

Examples

library(geomapdata)

data(USAmap)
USALL=list()
USALL$lat=c(24.72853,49.62741)
USALL$lon=c(229.29389,296.41803)
## set UTM projection
PROJ = setPROJ(type = 2, LAT0 =mean(USALL$lat), LON0 = mean(USALL$lon) )

####  plot with UTM  projection:
plotGEOmapXY(USAmap, LIM= c(USALL$lon[1], USALL$lat[1],
     USALL$lon[2], USALL$lat[2]    )  , PROJ=PROJ, add=FALSE, shiftlon=0)

zeb=list()
zeb$x=c(197.727896066)
zeb$y=c(-1155.81158234)

zebra(zeb$x[1],zeb$y[1], 1000, 100, 60, lab="Km", cex=.6)

GEOmap documentation built on Sept. 1, 2023, 5:09 p.m.