|
|
下記サイトより世界地図の座標データ
「world_10m.txt」「world_50m.txt」「world_110m.txt」のいずれかを
ダウンロードしてください。
gnuplot用のデータファイルですが、読み出しできます。
(参考)
データファイルを読み出し、単純にプロット
!'SET BITMAP SIZE 800,400
!'SET WINDOW -180,180,-90,90 !'世界(全体)
SET BITMAP SIZE 800,640
SET WINDOW 125,150,29,49 !'日本
!''''SET BITMAP SIZE 600,600
!''''SET WINDOW 129.5,132.5,31,34
OPEN #1:NAME "world_50m.txt" !'「world_10m.txt」「world_50m.txt」「world_110m.txt」のいずれか。パスを指定。
SET #1: ENDOFLINE CHR$(10)
DO
INPUT #1,IF MISSING THEN EXIT DO:A$
IF A$<>"" THEN
LET Z=POS(A$," ")
LET X=VAL(A$(1:Z))
LET Y=VAL(A$(Z+1:LEN(A$)))
PLOT LINES:X,Y;
ELSE
PLOT LINES
END IF
LOOP
CLOSE #1
END
|
|