TITLE(jpn @@ Plot Japan's Coast Line and Prefectures)
USAGE(
jpn(region, xlim = c(128, 147), ylim = c(29.6, 47), pref = T, 
    coast = T, add = F, okinawa = T, ar = 4/5, eps = 0.25, ...)
)
ARGUMENTS(
ARG(region @@ region which should be drawn.  A list containing
components named LANG(x) and LANG(y) or a list of such objects.  If
missing, LANG(xlim) and LANG(ylim) are used.)
ARG(xlim @@ optional limits for the x-axis (longitude).  The longitude
for Okinawa is different from the real one.  See argument LANG(okinawa).)
ARG(ylim @@ optional limits for the y-axis (latitude).  The latitude for
Okinawa is different from the real one.  See argument LANG(okinawa).)
ARG(pref @@ logical flag to control whether prefecture boundaries are
plotted or not.)
ARG(coast @@ logical flag to control whether coast-line is plotted or
not.)
ARG(add @@ logical flag. If TRUE, plot is superimposed on existing plot.
Otherwise, a new plot is generated.)
ARG(okinawa @@ logical flag.  Okinawa is drawn in the box placed on the
Japan sea.  To put points or draw texts around Okinawa, shift longitude
by +3.7767(degrees) and latitude by +13.05505(degrees).)
ARG(ar @@ aspect ratio of LANG(longitude) to LANG(latitude).)
ARG(eps @@ If LANG(region) is given, it is enlarged four ways by this
amout(degrees).)
ARG(... @@ optional arguments which will be passed through LANG(lines).)
Graphical parameters (see LANG(par())) may also be supplied as arguments
to this function.
)
EXAMPLES(
## Region which includes Aomori and Osaka
jpn(list(jcity$aomori, jcity$osaka), eps = 0.7)
## Around Fukuoka
jpn(jcity$fukuoka, eps = 1)
## Shikoku Island
jpn(xlim = c(132, 135), ylim = c(32.5, 34.5))
)
