home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / space / software / mac / magellan.app < prev    next >
Encoding:
Text File  |  1993-06-12  |  6.3 KB  |  158 lines
  1. $COMMAND
  2. MAGELLAN
  3. OPEN MGN
  4. set messages off; set error messages off
  5. set color backgrnd blue; set color foregrnd white
  6. set bell off; set var pick1 int
  7. LABEL STARTAPP
  8.   newpage
  9.   clear whval1 whval2 whval3 whval4
  10.   CHOOSE PICK1 FROM Main in magellan.apx
  11.   IF PICK1 = 0 THEN
  12.     goto ENDAPP
  13.   ENDIF
  14.   IF PICK1 = 1 THEN
  15.     set var whval1 double whval2 double
  16.     newpage; write " "
  17.     write "THIS OPTION FINDS IMAGES/CD-ROMS WHICH CONTAIN A SPECIFIC LAT/LONG."
  18.     write " "
  19.     fillin whval1 using "ENTER LATITUDE (90.0 to -90.0): "
  20.     fillin whval2 using "ENTER LONGITUDE (0.0 to 360.0): "
  21.     write " "
  22.     if whval1 < -90 or whval1 > 90 or whval2 < 0 or whval2 > 360 or +
  23.        whval1 fails or whval2 fails then
  24.          write "Value of latitude or longitude out of range."
  25.          write "Hit any key to continue."; pause; goto STARTAPP
  26.     endif
  27.     if whval2 = 360 then; set var whval2 = 0; endif
  28.     select midr type cdrom from midr +
  29.       where lowerlat <= .whval1 and upperlat >= .whval1 +
  30.       and farleft <= .whval2 and farright >= .whval2
  31.     write " "
  32.     if (.whval2 + 360) < 593.19 then
  33.       select midr type cdrom from midr +
  34.         where lowerlat <= .whval1 and upperlat >= .whval1 +
  35.         and farleft <= (.whval2 + 360) and farright >= (.whval2 + 360)
  36.     endif
  37.     write " ";write "Hit any key to continue.  (Shift-Print Screen to print)"
  38.     pause
  39.   ENDIF
  40.   IF PICK1 = 2 THEN
  41.     set var whval3 text
  42.     newpage; write " "
  43.     write "THIS OPTION FINDS NAMED FEATURE COORDINATES AND NAME ORIGINS."
  44.     write "FEATURES MAY HAVE A UNIQUE LATITUDE /LONGITUDE OR COVER A RANGE."
  45.     write " "
  46.     write "ENTER WHOLE OR PARTIAL NAMES; i.e."
  47.     write "APHRODITE TERRA or APHRODITE or APHRO or DITE or TERRA"
  48.     write " "
  49.     write "MORE THAN ONE FEATURE MAY BE FOUND (i.e. TERRA)"
  50.     write "VIEW THEM ONE BY ONE BY CHOOSING Next (F8) AND Previous (F7)."
  51.     write "STOP BY CHOOSING Quit OR HITTING Escape."
  52.     write " "
  53.     write "USE Shift-Print Screen TO PRINT."
  54.     write " "
  55.     fillin whval3 using "ENTER FEATURE NAME: "
  56.     if whval3 fails then; goto STARTAPP; endif
  57.     edit using names where name contains .whval3
  58.   ENDIF
  59.   IF PICK1 = 3 THEN
  60.     set var whval3 text whval4 text
  61.     newpage; write " "
  62.     write "THIS OPTION FINDS THE NAMED FEATURES ON A SPECIFIED MOSAIC."
  63.     write "FOR EXAMPLE, IF YOU WANT TO ANNOTATE THE FEATURES IN A PARTICULAR"
  64.     write "IMAGE, THIS OPTION CAN HELP."
  65.     write " "
  66.     write "ALL FEATURES WHICH OVERLAP OR LIE INSIDE THE SPECIFIED MOSAIC WILL"
  67.     write "BE FOUND.  SOME FEATURES MAY BE LARGER THAN THE MOSAIC, SO THEY WILL"
  68.     write "NOT BE COMPLETELY CONTAINED INSIDE."
  69.     write " "
  70.     fillin whval3 using "ENTER MOSAIC TYPE (i.e. F, C1, C2): "
  71.     fillin whval4 using "ENTER MOSAIC NAME (i.e. 75N351;1 or 75N351*): "
  72.     if whval3 fails or whval4 fails then; goto STARTAPP; endif
  73.     set pointer #3 point for midr where type=.whval3 and midr=.whval4
  74.     if point ne 0 then
  75.       newpage; write "The mosaic name and type you entered cannot be found."
  76.       write "Hit any key to continue."; pause; goto STARTAPP
  77.     endif
  78.     set var upperlat=upperlat lowerlat=lowerlat farleft=farleft +
  79.       farright=farright type=type midr=midr from #3
  80.     newpage; write .type; write .midr at 1,4; write " "
  81.     select feature name from names where +
  82.       lowerlat < .upperlat and upperlat > .lowerlat and +
  83.       farleft < .farright and farright > .farleft
  84.     if farright >= 360 then
  85.       write " "
  86.       select feature name from names where +
  87.         lowerlat < .upperlat and upperlat > .lowerlat and +
  88.         farleft < (.farright - 360) and farright > (.farleft - 360)
  89.     endif
  90.     if farleft <= 9.8 then
  91.       write " "
  92.       select feature name from names where +
  93.         lowerlat < .upperlat and upperlat > .lowerlat and +
  94.         farleft < (.farright + 360) and farright > (.farleft + 360)
  95.     endif
  96.     write " "; write "Hit any key to continue. (Shift-Print Screen to print)"
  97.     pause; clear upperlat, lowerlat, farleft, farright, type, midr, point
  98.     set pointer #3 off
  99.   ENDIF
  100.   IF PICK1 = 4 THEN
  101.     set var upperlat double lowerlat double farleft double farright double
  102.     newpage; write " "
  103.     write "THIS OPTION FINDS THE NAMED FEATURES INSIDE A SPECIFIED REGION."
  104.     write "IT CAN FIND WHETHER A FEATURE YOU HAVE LOCATED HAS A NAME."
  105.     write "THE REGION CAN BE A POINT (ONE LAT/LONG), OR IT CAN WRAP PAST 360."
  106.     write " "
  107.     write "ALL FEATURES WHICH OVERLAP OR LIE INSIDE THE SPECIFIED REGION WILL"
  108.     write "BE FOUND.  SOME FEATURES MAY BE LARGER THAN THE REGION, SO THEY WILL"
  109.     write "NOT BE COMPLETELY CONTAINED INSIDE."
  110.     write " "
  111.     fillin upperlat using "UPPER LATITUDE (90.0 to -90.0): "
  112.     fillin lowerlat using "LOWER LATITUDE (90.0 to -90.0): "
  113.     fillin farleft  using "ENTER LEFT LONGITUDE  (0.0 to 360.0): "
  114.     fillin farright using "ENTER RIGHT LONGITUDE (0.0 to .....): "
  115.     write " "
  116.     if upperlat > 90 or upperlat < -90 or lowerlat > 90 or lowerlat < -90 +
  117.       or farleft < 0 or farleft > 360 or farright < 0 +
  118.       or upperlat fails or lowerlat fails or farleft fails or farright fails +
  119.       or lowerlat > upperlat or farleft > farright then
  120.         write "Value of latitude or longitude out of range."
  121.         write "Hit any key to continue."; pause
  122.         clear upperlat lowerlat farleft farright; goto STARTAPP
  123.     endif
  124.     select feature name from names where +
  125.       lowerlat <= .upperlat and upperlat >= .lowerlat and +
  126.       farleft <= .farright and farright >= .farleft
  127.     if farright >= 360 then
  128.       write " "
  129.       select feature name from names where +
  130.         lowerlat <= .upperlat and upperlat >= .lowerlat and +
  131.         farleft <= (.farright - 360) and farright >= (.farleft - 360)
  132.     endif
  133.     if farleft <= 9.8 then
  134.       write " "
  135.       select feature name from names where +
  136.         lowerlat <= .upperlat and upperlat >= .lowerlat and +
  137.         farleft <= (.farright + 360) and farright >= (.farleft + 360)
  138.     endif
  139.     write " "; write "Hit any key to continue. (Shift-Print Screen to print)"
  140.     pause; clear upperlat lowerlat farleft farright
  141.   ENDIF
  142.   IF PICK1 = 5 THEN
  143.     goto ENDAPP
  144.   ENDIF
  145.   GOTO STARTAPP
  146. LABEL ENDAPP
  147. clear pick1; newpage
  148. set messages on; set error messages on
  149. return
  150. $MENU
  151. Main
  152. COLUMN MAGELLAN IMAGE LOCATIONS
  153. FIND IMAGES BY LATITUDE / LONGITUDE
  154. FIND LATITUDE / LONGITUDE / ORIGIN  OF A NAMED FEATURE
  155. FIND NAMED FEATURES IN A SPECIFIC IMAGE
  156. FIND NAMED FEATURES NEAR A SPECIFIC LATITUDE/LONGITUDE
  157. EXIT
  158.