<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-2022-jp" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18939">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT size=2 face="MS UI Gothic">OSGeo$B$N3'MM(B</FONT></DIV>
<DIV><FONT size=2 face="MS UI Gothic">Bravo
Astro$B$G$9!#(BQGIS1.5$B$r;HMQ$7$F$$$^$9!#(B</FONT></DIV>
<DIV><FONT size=2 face="MS UI Gothic">$B=iJbE*<ALd$G?=$7Lu$"$j$^$;$s!#(B</FONT></DIV>
<DIV><FONT size=2 face="MS UI Gothic"></FONT> </DIV>
<DIV><FONT size=2 face="MS UI Gothic">$BF|K\B,CO7O%7%'!<%W%U%!%$%k$+$i(BWGS
84$B%7%e!<%W%U%!%$%k$X$NJQ49J}K!$r65$($F$/$@$5$$!#(B</FONT></DIV>
<DIV><FONT size=2 face="MS UI Gothic">$B$3$3%.%3$5$s$N(BHP</FONT></DIV>
<DIV><FONT size=2 face="MS UI Gothic"><SPAN
style="FONT-FAMILY: Century; FONT-SIZE: 10.5pt; mso-fareast-font-family: '$B#M#S(B $BL@D+(B'; mso-bidi-font-family: Century; mso-font-kerning: .5pt; mso-ansi-language: EN-US; mso-fareast-language: JA; mso-bidi-language: AR-SA; mso-bidi-font-size: 12.0pt"
lang=EN-US><A
href="http://kokogiko.net/m/archives/002049.html">http://kokogiko.net/m/archives/002049.html</A></SPAN></FONT></DIV>
<DIV><FONT size=2
face="MS UI Gothic">$B$K$h$j$^$9$H!"C1$KBJ1_BN$r%Y%C%;%k$+$i(BWGS84$B$KJQ49$9$@$1$G$OIT==J,$G(B</FONT></DIV>
<DIV><FONT size=2 face="MS UI Gothic">$BBJ1_BN=E?4$N%*%U%;%C%H(B</FONT></DIV>
<DIV><SPAN
style="FONT-FAMILY: 'Trebuchet MS'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: '$B#M#S(B $BL@D+(B'; mso-bidi-font-family: Century; mso-font-kerning: .5pt; mso-ansi-language: EN-US; mso-fareast-language: JA; mso-bidi-language: AR-SA"
lang=EN-US>+towgs84=-146.336,506.832,680.254</SPAN></DIV>
<DIV><SPAN
style="FONT-FAMILY: 'Trebuchet MS'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: '$B#M#S(B $BL@D+(B'; mso-bidi-font-family: Century; mso-font-kerning: .5pt; mso-ansi-language: EN-US; mso-fareast-language: JA; mso-bidi-language: AR-SA"
lang=EN-US>$B$b9MN8$9$kI,MW$,$"$k$H$$$&$3$H$G$9!#(B</SPAN></DIV>
<DIV><SPAN
style="FONT-FAMILY: 'Trebuchet MS'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: '$B#M#S(B $BL@D+(B'; mso-bidi-font-family: Century; mso-font-kerning: .5pt; mso-ansi-language: EN-US; mso-fareast-language: JA; mso-bidi-language: AR-SA"
lang=EN-US>$B$3$N(B<SPAN
style="FONT-FAMILY: 'Trebuchet MS'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: '$B#M#S(B $BL@D+(B'; mso-bidi-font-family: Century; mso-font-kerning: .5pt; mso-ansi-language: EN-US; mso-fareast-language: JA; mso-bidi-language: AR-SA"
lang=EN-US>+towgs84$B$r(BQGIS$B$N$I$3$G@_Dj$9$l$P$h$$$N$+$o$+$j$^$;$s!#(B</SPAN></SPAN></DIV>
<DIV><SPAN
style="FONT-FAMILY: 'Trebuchet MS'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: '$B#M#S(B $BL@D+(B'; mso-bidi-font-family: Century; mso-font-kerning: .5pt; mso-ansi-language: EN-US; mso-fareast-language: JA; mso-bidi-language: AR-SA"
lang=EN-US><SPAN
style="FONT-FAMILY: 'Trebuchet MS'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: '$B#M#S(B $BL@D+(B'; mso-bidi-font-family: Century; mso-font-kerning: .5pt; mso-ansi-language: EN-US; mso-fareast-language: JA; mso-bidi-language: AR-SA"
lang=EN-US>$B$A$J$_$K!"(BR$B$G$NJQ49$O<!$N$h$&$K$7$F$$$^$9!#!J(Bshift$B!!(BJIS$B$N%7%'!<%W%U%!%$%k$r;HMQ!K(B</SPAN></SPAN></DIV>
<DIV><SPAN
style="FONT-FAMILY: 'Trebuchet MS'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: '$B#M#S(B $BL@D+(B'; mso-bidi-font-family: Century; mso-font-kerning: .5pt; mso-ansi-language: EN-US; mso-fareast-language: JA; mso-bidi-language: AR-SA"
lang=EN-US><SPAN
style="FONT-FAMILY: 'Trebuchet MS'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: '$B#M#S(B $BL@D+(B'; mso-bidi-font-family: Century; mso-font-kerning: .5pt; mso-ansi-language: EN-US; mso-fareast-language: JA; mso-bidi-language: AR-SA"
lang=EN-US>
<P style="MARGIN: 0mm 0mm 0pt" class=MsoNormal><SPAN
style="FONT-FAMILY: 'Trebuchet MS'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-language: JA"
lang=EN-US>library(maptools)<?xml:namespace prefix = o ns =
"urn:schemas-microsoft-com:office:office" /><o:p></o:p></SPAN></P>
<P style="MARGIN: 0mm 0mm 0pt" class=MsoNormal><SPAN
style="FONT-FAMILY: 'Trebuchet MS'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-language: JA"
lang=EN-US>library(rgdal)<o:p></o:p></SPAN></P>
<P style="MARGIN: 0mm 0mm 0pt" class=MsoNormal><SPAN
style="FONT-FAMILY: 'Trebuchet MS'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-language: JA"
lang=EN-US>pj<-CRS("+proj=longlat +ellps=bessel
+towgs84=-146.336,506.832,680.254 +no_defs")<o:p></o:p></SPAN></P>
<P style="MARGIN: 0mm 0mm 0pt" class=MsoNormal><SPAN
style="FONT-FAMILY: 'Trebuchet MS'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-language: JA"
lang=EN-US>map<-readShapePoly("kanagawa_murakami.shp",proj4string=pj)#</SPAN><SPAN
style="FONT-FAMILY: '$B#M#S(B $BL@D+(B'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-language: JA; mso-ascii-font-family: 'Trebuchet MS'; mso-hansi-font-family: 'Trebuchet MS'">$B%7%'!<%W%U%!%$%k$rF|K\B,CO7O$GFI$_9~$`(B</SPAN></P><SPAN
style="FONT-FAMILY: '$B#M#S(B $BL@D+(B'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-language: JA; mso-ascii-font-family: 'Trebuchet MS'; mso-hansi-font-family: 'Trebuchet MS'"></SPAN><SPAN
style="FONT-FAMILY: 'Trebuchet MS'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-language: JA"
lang=EN-US><o:p>
<P style="MARGIN: 0mm 0mm 0pt" class=MsoNormal><SPAN
style="FONT-FAMILY: 'Trebuchet MS'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-language: JA"
lang=EN-US>pj3<-CRS("+proj=longlat +ellps=WGS84 +no_defs")#WGS84</SPAN><SPAN
style="FONT-FAMILY: '$B#M#S(B $BL@D+(B'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-language: JA; mso-ascii-font-family: 'Trebuchet MS'; mso-hansi-font-family: 'Trebuchet MS'">$B$rDj5A$9$k!#(B</SPAN><SPAN
style="FONT-FAMILY: 'Trebuchet MS'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-language: JA"
lang=EN-US><o:p></o:p></SPAN></P>
<P style="MARGIN: 0mm 0mm 0pt" class=MsoNormal><SPAN
style="FONT-FAMILY: 'Trebuchet MS'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-language: JA"
lang=EN-US>map3<-spTransform(map,pj3)# WGS84</SPAN><SPAN
style="FONT-FAMILY: '$B#M#S(B $BL@D+(B'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-language: JA; mso-ascii-font-family: 'Trebuchet MS'; mso-hansi-font-family: 'Trebuchet MS'">$B$XJQ49(B</SPAN><SPAN
style="FONT-FAMILY: 'Trebuchet MS'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-language: JA"
lang=EN-US><o:p></o:p></SPAN></P>
<P style="MARGIN: 0mm 0mm 0pt" class=MsoNormal><SPAN
style="FONT-FAMILY: 'Trebuchet MS'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-language: JA"
lang=EN-US>writePolyShape(map3,"kanagawa_murakami_wgs84.shp")#</SPAN><SPAN
style="FONT-FAMILY: '$B#M#S(B $BL@D+(B'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-language: JA; mso-ascii-font-family: 'Trebuchet MS'; mso-hansi-font-family: 'Trebuchet MS'">$B%7%'!<%W%U%!%$%k=PNO(B</SPAN></P>
<P style="MARGIN: 0mm 0mm 0pt" class=MsoNormal><SPAN
style="FONT-FAMILY: '$B#M#S(B $BL@D+(B'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-language: JA; mso-ascii-font-family: 'Trebuchet MS'; mso-hansi-font-family: 'Trebuchet MS'">$B8m$j$,$"$l$P!"$4;XE&$/$@$5$$!#(B</SPAN></P>
<P style="MARGIN: 0mm 0mm 0pt" class=MsoNormal><SPAN
style="FONT-FAMILY: '$B#M#S(B $BL@D+(B'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-language: JA; mso-ascii-font-family: 'Trebuchet MS'; mso-hansi-font-family: 'Trebuchet MS'">$B$h$m$7$/$*4j$$$7$^$9!#(B</SPAN><SPAN
style="FONT-FAMILY: 'Trebuchet MS'; COLOR: black; FONT-SIZE: 10pt; mso-fareast-language: JA"
lang=EN-US><o:p></o:p></SPAN></P>
<P style="MARGIN: 0mm 0mm 0pt" class=MsoNormal><FONT
face="MS UI Gothic"></FONT></o:p></SPAN> </P></SPAN></SPAN></DIV></BODY></HTML>