|
|
サンソン図法で投影します
SET BITMAP SIZE 800,400
SET WINDOW -180,180,-90,90
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 KEIDO=VAL(A$(1:Z))
LET IDO=VAL(A$(Z+1:LEN(A$)))
LET X=KEIDO*COS(RAD(IDO))
LET Y=IDO
PLOT LINES:X,Y;
ELSE
PLOT LINES
END IF
LOOP
CLOSE #1
SET LINE STYLE 3
FOR KEIDO=-180 TO 180 STEP 30
FOR IDO=-90 TO 90 STEP 15
LET X=KEIDO*COS(RAD(IDO))
LET Y=IDO
PLOT LINES:X,Y;
NEXT IDO
PLOT LINES
NEXT KEIDO
FOR IDO=-90 TO 90 STEP 15
FOR KEIDO=-180 TO 180 STEP 30
LET X=KEIDO*COS(RAD(IDO))
LET Y=IDO
PLOT LINES:X,Y;
NEXT KEIDO
PLOT LINES
NEXT IDO
END
|
|