サンソン図法

 投稿者:しばっち  投稿日:2015年11月19日(木)22時39分44秒
  サンソン図法で投影します

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
 

戻る