home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / pc / source / star.lzh / star.27 < prev    next >
Encoding:
Text File  |  1990-04-06  |  37.8 KB  |  1,348 lines
  1.  
  2. #! /bin/sh
  3. # This is a shell archive.  Remove anything before this line, then unpack
  4. # it by saving it into a file and typing "sh file".  To overwrite existing
  5. # files, type "sh file -c".  You can also feed this as standard input via
  6. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  7. # will see the following message at the end:
  8. #        "End of archive 27 (of 32)."
  9. # Contents:  starchart/startool.tt
  10. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  11. if test -f 'starchart/startool.tt' -a "${1}" != "-c" ; then 
  12.   echo shar: Will not clobber existing file \"'starchart/startool.tt'\"
  13. else
  14. echo shar: Extracting \"'starchart/startool.tt'\" \(36032 characters\)
  15. sed "s/^X//" >'starchart/startool.tt' <<'END_OF_FILE'
  16. X#define        TRUE        1
  17. X#define        FALSE        0
  18. X
  19. X/* you may deed to add a path, e.g. /usr/local/startool.sh,
  20. X    but everything beyond the icon shouldn't change */
  21. Xapplication "startool.sh"
  22. X   size 24 by 80 characters
  23. X   icon "startool.icon"
  24. X   label "<< StarChart >>"
  25. X   initialize {
  26. X     ra = "0";    ra_set = FALSE;
  27. X     dec = "0";    dec_set = FALSE;
  28. X     scale = "15";    scale_set = FALSE;
  29. X     constellation_name = "";    find_set = FALSE;
  30. X     constfile = "";
  31. X     namelim = "2";     namelim_set = FALSE; /* namelim == lbllim */
  32. X     gklim = "6";     gklim_set = FALSE;
  33. X     maglim = "9";     maglim_set = FALSE;
  34. X     title = "StarChart Sun";
  35. X     title_set = FALSE;
  36. X
  37. X     starfile = "";
  38. X     indexfile = "";
  39. X     nebfile = "";
  40. X     planetfile = "";
  41. X     boundfile = "";
  42. X     patternfile = "";
  43. X     constlnamefile = "";
  44. X
  45. X     write_mapwin_file = "";
  46. X     read_mapwin_file = "";
  47. X     projection_mode = "sansons";
  48. X     invert = FALSE;
  49. X     chart_type = "threepart";
  50. X     vrange_low = "";
  51. X     vrange_high = "";
  52. X     vrange_set = FALSE;
  53. X     vmags_mag = "";
  54. X     vmags_range = "";
  55. X     vmags_set = FALSE;
  56. X     nomaglbls = TRUE;
  57. X     grid_ra = "1";        grid_ra_set = FALSE;
  58. X     grid_dec = "5";        grid_dec_set = FALSE;
  59. X     grid_ra_start = "0";    grid_ra_start_set = FALSE;
  60. X     grid_dec_start = "0";    grid_dec_start_set = FALSE;
  61. X     nogrid_ra = TRUE;
  62. X     nogrid_dec = TRUE;
  63. X     special = "";
  64. X   }
  65. Xgadgets
  66. X   right
  67. X   font "/usr/lib/fonts/fixedwidthfonts/screen.b.14"
  68. X   label
  69. X      "Controls:" : "/usr/lib/fonts/fixedwidthfonts/cour.b.14"
  70. X   end_label
  71. X   button
  72. X     normal " Chart "
  73. X    display chart_dialog;
  74. X   end_button
  75. X   button
  76. X     normal " Type "
  77. X    display type_dialog;
  78. X   end_button
  79. X   button
  80. X     normal " Magnitudes "
  81. X    display mag_dialog;
  82. X   end_button
  83. X   button
  84. X     normal " Layers "
  85. X    display layer_dialog;
  86. X   end_button
  87. X   button
  88. X     normal " User Files "
  89. X    display sfiles_dialog;
  90. X   end_button
  91. X   button
  92. X     normal " Map Files "
  93. X    display files_dialog;
  94. X   end_button
  95. X   button
  96. X     normal " Projection mode "
  97. X    display proj_dialog;
  98. X   end_button
  99. X   button
  100. X     normal " Magnitude labels "
  101. X    display var_dialog;
  102. X   end_button
  103. X   button
  104. X     normal " Grid "
  105. X    display grid_dialog;
  106. X   end_button
  107. X   label
  108. X      "Actions:" : "/usr/lib/fonts/fixedwidthfonts/cour.b.14"
  109. X   end_label
  110. X   button
  111. X      normal    " Draw Chart "
  112. X    {
  113. X        if (ra_set) send format("ra = %s\n", ra);
  114. X        if (dec_set) send format("dec = %s\n", dec);
  115. X        if (scale_set) send format("scale = %s\n", scale);
  116. X        if (constfile != "") send format("constfile = %s\n",
  117. X                 constfile);
  118. X        if (find_set) send format("findconst = %s\n",
  119. X                 constellation_name);
  120. X        if (namelim_set) send format("namelim = %s\n", namelim);
  121. X        if (gklim_set) send format("gklim = %s\n", gklim);
  122. X            if (maglim_set) send format("maglim = %s\n", maglim);
  123. X
  124. X            if ((grid_ra_set)  ||  (grid_dec_set))
  125. X            send format("grid = %s %s\n", grid_ra, grid_dec);
  126. X            if ((grid_ra_start_set) || (grid_dec_start_set))
  127. X            send format("grid = %s %s %s %s\n",
  128. X            grid_ra, grid_dec,
  129. X            grid_ra_start, grid_dec_start);
  130. X        if (nogrid_ra) send "nogrid_ra=true\n";
  131. X        else send "nogrid_ra=false\n";
  132. X        if (nogrid_dec) send "nogrid_dec=true\n";
  133. X        else send "nogrid_dec=false\n";
  134. X
  135. X                if (title_set) send format("title = %s\n", title);
  136. X        send format("projection_mode = %s\n", projection_mode);
  137. X        send format("chart_type = %s\n", chart_type);
  138. X        if (invert) send "invert=true\n";
  139. X        else send "invert=false\n";
  140. X        if (vrange_set)
  141. X            send format("vrange %s %s\n", vrange_high, vrange_low);
  142. X        for (i = 0; i < 20; i++)
  143. X            if (layer[i] != "")
  144. X                          send format("layers %s\n", layer[i]);
  145. X        for (i = 0; i < 14; i++)
  146. X            if (mapfile[i] != "")
  147. X             send format("mapfile %s %s\n",
  148. X                mapfile[i], maptype[i]);
  149. X        if (starfile != "")
  150. X             send format("starfile %s %s\n", starfile, startype);
  151. X        if (indexfile != "")
  152. X             send format("indexfile %s %s\n", indexfile, indextype);
  153. X        if (nebfile != "")
  154. X             send format("nebfile %s %s\n", nebfile, nebtype);
  155. X        if (planetfile != "")
  156. X             send format("planetfile %s %s\n", planetfile, plantype);
  157. X        if (boundfile != "")
  158. X             send format("boundfile %s %s\n", boundfile, boundtype);
  159. X        if (patternfile != "")
  160. X             send format("patternfile %s %s\n", patternfile, patterntype);
  161. X        if (constlnamefile != "")
  162. X             send format("constlnamefile %s %s\n",
  163. X                constlnamefile, cnametype);
  164. X        for (i = 0; i < 10; i++)
  165. X            if (userfile[i] != "")
  166. X             send format("userfile %s %s\n",
  167. X                userfile[i], usertype[i]);
  168. X        if (out_fname != "")
  169. X            send format("write_rc_file %s\n", out_fname);
  170. X        if (write_mapwin_file != "")
  171. X            send format("write_mapwin_file %s\n",
  172. X                                     write_mapwin_file);
  173. X        if (read_mapwin_file != "")
  174. X            send format("read_mapwin_file %s\n",
  175. X                                     read_mapwin_file);
  176. X        send "end_input\n";
  177. X    }
  178. X   end_button
  179. X   button
  180. X      normal    " Save/Load file " display out_file_dialog;
  181. X   end_button
  182. X   button
  183. X      normal    " Close "    close;
  184. X      shift    " Quit "    exit;
  185. X   end_button
  186. Xend_gadgets
  187. X
  188. Xdialog chart_dialog
  189. X    gadgets
  190. X       left
  191. X       label
  192. X          "Specify Center:" : "/usr/lib/fonts/fixedwidthfonts/cour.b.14"
  193. X       end_label
  194. X       text ra
  195. X        label "Right Ascension:"
  196. X        display 20
  197. X        action {
  198. X            constellation_name = "";
  199. X            find_set = FALSE;
  200. X            ra_set = TRUE;
  201. X        }
  202. X       end_text
  203. X       text dec
  204. X        label "Dec.:"
  205. X        display 20
  206. X        action {
  207. X            constellation_name = "";
  208. X            find_set = FALSE;
  209. X            dec_set = TRUE;
  210. X        }
  211. X       end_text
  212. X       text scale
  213. X        label "Scale:"
  214. X        display 20
  215. X        action {
  216. X            constellation_name = "";
  217. X            find_set = FALSE;
  218. X            scale_set = TRUE;
  219. X        }
  220. X       end_text
  221. X       text title
  222. X          label "Title:"
  223. X          display 20
  224. X          action title_set = TRUE;
  225. X       end_text    
  226. X       label
  227. X          "Or specify constellation from file:" : "/usr/lib/fonts/fixedwidthfonts/cour.b.14"
  228. X       end_label
  229. X       text constellation_name
  230. X          label "Constellation:"
  231. X          display 20
  232. X          action {
  233. X        ra = "";
  234. X        dec = "";
  235. X        scale = "";
  236. X        ra_set = dec_set = scale_set = FALSE;
  237. X        find_set = TRUE;
  238. X          }
  239. X       end_text    
  240. X       text constfile
  241. X          label "Constellation lookup file:"
  242. X          display 20
  243. X       end_text    
  244. X       label
  245. X          ""
  246. X       end_label
  247. X       choice invert
  248. X        display cycle
  249. X        label "invert"
  250. X        "Normal"    nothing;    
  251. X        "Inverted"    nothing;    
  252. X       end_choice
  253. X       button
  254. X          normal    "done"    remove chart_dialog;
  255. X       end_button
  256. X/* would like "apply constellation, cancel and ok buttons */
  257. X    end_gadgets
  258. Xend_dialog
  259. X
  260. Xdialog type_dialog
  261. X    gadgets
  262. X       left
  263. X       ragged
  264. X       choice
  265. X        display vertical
  266. X            label "Chart Type"
  267. X        "Main Chart + Thumbnail"    chart_type = "threepart";
  268. X        "Full Page"    chart_type = "fullpage";
  269. X       end_choice
  270. X       button
  271. X          normal    "done"    remove type_dialog;
  272. X       end_button
  273. X    end_gadgets
  274. Xend_dialog
  275. X
  276. Xdialog mag_dialog
  277. X    gadgets
  278. X       left
  279. X       ragged
  280. X       text namelim
  281. X        label "Mag limit for object names:"
  282. X        display 20
  283. X        action {
  284. X            namelim_set = TRUE;
  285. X        }
  286. X       end_text
  287. X       text gklim
  288. X        label "Mag limit for bayer labels:"
  289. X        display 20
  290. X        action {
  291. X            gklim_set = TRUE;
  292. X        }
  293. X       end_text
  294. X       text maglim
  295. X        label "Mag limit for object visibility:"
  296. X        display 20
  297. X        action {
  298. X            maglim_set = TRUE;
  299. X        }
  300. X       end_text
  301. X       button
  302. X          normal    "done"    remove mag_dialog;
  303. X       end_button
  304. X    end_gadgets
  305. Xend_dialog
  306. X
  307. Xdialog layer_dialog
  308. X    gadgets
  309. X    left
  310. X    ragged
  311. X    choice
  312. X    display cycle
  313. X        "None"        layer[0] = "";
  314. X        "Outline"    layer[0] = "outline";
  315. X        "RA_Grid"    layer[0] = "ra_grid";
  316. X        "Dec_Grid"    layer[0] = "dec_grid";
  317. X        "Ecliptic"    layer[0] = "ecliptic";
  318. X        "Boundaries"    layer[0] = "boundaries";
  319. X        "Patterns"    layer[0] = "patterns";
  320. X        "Constlnames"    layer[0] = "constlnames";
  321. X        "Allfiles"    layer[0] = "allfiles";
  322. X        "Allglyphs"    layer[0] = "allglyphs";
  323. X        "Allnames"    layer[0] = "allnames";
  324. X        "Allmaglbls"    layer[0] = "allmaglbls";
  325. X        "Allvectors"    layer[0] = "allvectors";
  326. X        "Allareas"    layer[0] = "allareas";
  327. X        "Legends"    layer[0] = "legends";
  328. X       end_choice
  329. X    choice
  330. X    display cycle
  331. X        "None"        layer[1] = "";
  332. X        "Outline"    layer[1] = "outline";
  333. X        "RA_Grid"    layer[1] = "ra_grid";
  334. X        "Dec_Grid"    layer[1] = "dec_grid";
  335. X        "Ecliptic"    layer[1] = "ecliptic";
  336. X        "Boundaries"    layer[1] = "boundaries";
  337. X        "Patterns"    layer[1] = "patterns";
  338. X        "Constlnames"    layer[1] = "constlnames";
  339. X        "Allfiles"    layer[1] = "allfiles";
  340. X        "Allglyphs"    layer[1] = "allglyphs";
  341. X        "Allnames"    layer[1] = "allnames";
  342. X        "Allmaglbls"    layer[1] = "allmaglbls";
  343. X        "Allvectors"    layer[1] = "allvectors";
  344. X        "Allareas"    layer[1] = "allareas";
  345. X        "Legends"    layer[1] = "legends";
  346. X       end_choice
  347. X    choice
  348. X    display cycle
  349. X        "None"        layer[2] = "";
  350. X        "Outline"    layer[2] = "outline";
  351. X        "RA_Grid"    layer[2] = "ra_grid";
  352. X        "Dec_Grid"    layer[2] = "dec_grid";
  353. X        "Ecliptic"    layer[2] = "ecliptic";
  354. X        "Boundaries"    layer[2] = "boundaries";
  355. X        "Patterns"    layer[2] = "patterns";
  356. X        "Constlnames"    layer[2] = "constlnames";
  357. X        "Allfiles"    layer[2] = "allfiles";
  358. X        "Allglyphs"    layer[2] = "allglyphs";
  359. X        "Allnames"    layer[2] = "allnames";
  360. X        "Allmaglbls"    layer[2] = "allmaglbls";
  361. X        "Allvectors"    layer[2] = "allvectors";
  362. X        "Allareas"    layer[2] = "allareas";
  363. X        "Legends"    layer[2] = "legends";
  364. X       end_choice
  365. X    choice
  366. X    display cycle
  367. X        "None"        layer[3] = "";
  368. X        "Outline"    layer[3] = "outline";
  369. X        "RA_Grid"    layer[3] = "ra_grid";
  370. X        "Dec_Grid"    layer[3] = "dec_grid";
  371. X        "Ecliptic"    layer[3] = "ecliptic";
  372. X        "Boundaries"    layer[3] = "boundaries";
  373. X        "Patterns"    layer[3] = "patterns";
  374. X        "Constlnames"    layer[3] = "constlnames";
  375. X        "Allfiles"    layer[3] = "allfiles";
  376. X        "Allglyphs"    layer[3] = "allglyphs";
  377. X        "Allnames"    layer[3] = "allnames";
  378. X        "Allmaglbls"    layer[3] = "allmaglbls";
  379. X        "Allvectors"    layer[3] = "allvectors";
  380. X        "Allareas"    layer[3] = "allareas";
  381. X        "Legends"    layer[3] = "legends";
  382. X       end_choice
  383. X    choice
  384. X    display cycle
  385. X        "None"        layer[4] = "";
  386. X        "Outline"    layer[4] = "outline";
  387. X        "RA_Grid"    layer[4] = "ra_grid";
  388. X        "Dec_Grid"    layer[4] = "dec_grid";
  389. X        "Ecliptic"    layer[4] = "ecliptic";
  390. X        "Boundaries"    layer[4] = "boundaries";
  391. X        "Patterns"    layer[4] = "patterns";
  392. X        "Constlnames"    layer[4] = "constlnames";
  393. X        "Allfiles"    layer[4] = "allfiles";
  394. X        "Allglyphs"    layer[4] = "allglyphs";
  395. X        "Allnames"    layer[4] = "allnames";
  396. X        "Allmaglbls"    layer[4] = "allmaglbls";
  397. X        "Allvectors"    layer[4] = "allvectors";
  398. X        "Allareas"    layer[4] = "allareas";
  399. X        "Legends"    layer[4] = "legends";
  400. X       end_choice
  401. X    choice
  402. X    display cycle
  403. X        "None"        layer[5] = "";
  404. X        "Outline"    layer[5] = "outline";
  405. X        "RA_Grid"    layer[5] = "ra_grid";
  406. X        "Dec_Grid"    layer[5] = "dec_grid";
  407. X        "Ecliptic"    layer[5] = "ecliptic";
  408. X        "Boundaries"    layer[5] = "boundaries";
  409. X        "Patterns"    layer[5] = "patterns";
  410. X        "Constlnames"    layer[5] = "constlnames";
  411. X        "Allfiles"    layer[5] = "allfiles";
  412. X        "Allglyphs"    layer[5] = "allglyphs";
  413. X        "Allnames"    layer[5] = "allnames";
  414. X        "Allmaglbls"    layer[5] = "allmaglbls";
  415. X        "Allvectors"    layer[5] = "allvectors";
  416. X        "Allareas"    layer[5] = "allareas";
  417. X        "Legends"    layer[5] = "legends";
  418. X       end_choice
  419. X    choice
  420. X    display cycle
  421. X        "None"        layer[6] = "";
  422. X        "Outline"    layer[6] = "outline";
  423. X        "RA_Grid"    layer[6] = "ra_grid";
  424. X        "Dec_Grid"    layer[6] = "dec_grid";
  425. X        "Ecliptic"    layer[6] = "ecliptic";
  426. X        "Boundaries"    layer[6] = "boundaries";
  427. X        "Patterns"    layer[6] = "patterns";
  428. X        "Constlnames"    layer[6] = "constlnames";
  429. X        "Allfiles"    layer[6] = "allfiles";
  430. X        "Allglyphs"    layer[6] = "allglyphs";
  431. X        "Allnames"    layer[6] = "allnames";
  432. X        "Allmaglbls"    layer[6] = "allmaglbls";
  433. X        "Allvectors"    layer[6] = "allvectors";
  434. X        "Allareas"    layer[6] = "allareas";
  435. X        "Legends"    layer[6] = "legends";
  436. X       end_choice
  437. X    choice
  438. X    display cycle
  439. X        "None"        layer[7] = "";
  440. X        "Outline"    layer[7] = "outline";
  441. X        "RA_Grid"    layer[7] = "ra_grid";
  442. X        "Dec_Grid"    layer[7] = "dec_grid";
  443. X        "Ecliptic"    layer[7] = "ecliptic";
  444. X        "Boundaries"    layer[7] = "boundaries";
  445. X        "Patterns"    layer[7] = "patterns";
  446. X        "Constlnames"    layer[7] = "constlnames";
  447. X        "Allfiles"    layer[7] = "allfiles";
  448. X        "Allglyphs"    layer[7] = "allglyphs";
  449. X        "Allnames"    layer[7] = "allnames";
  450. X        "Allmaglbls"    layer[7] = "allmaglbls";
  451. X        "Allvectors"    layer[7] = "allvectors";
  452. X        "Allareas"    layer[7] = "allareas";
  453. X        "Legends"    layer[7] = "legends";
  454. X       end_choice
  455. X    choice
  456. X    display cycle
  457. X        "None"        layer[8] = "";
  458. X        "Outline"    layer[8] = "outline";
  459. X        "RA_Grid"    layer[8] = "ra_grid";
  460. X        "Dec_Grid"    layer[8] = "dec_grid";
  461. X        "Ecliptic"    layer[8] = "ecliptic";
  462. X        "Boundaries"    layer[8] = "boundaries";
  463. X        "Patterns"    layer[8] = "patterns";
  464. X        "Constlnames"    layer[8] = "constlnames";
  465. X        "Allfiles"    layer[8] = "allfiles";
  466. X        "Allglyphs"    layer[8] = "allglyphs";
  467. X        "Allnames"    layer[8] = "allnames";
  468. X        "Allmaglbls"    layer[8] = "allmaglbls";
  469. X        "Allvectors"    layer[8] = "allvectors";
  470. X        "Allareas"    layer[8] = "allareas";
  471. X        "Legends"    layer[8] = "legends";
  472. X       end_choice
  473. X    choice
  474. X    display cycle
  475. X        "None"        layer[9] = "";
  476. X        "Outline"    layer[9] = "outline";
  477. X        "RA_Grid"    layer[9] = "ra_grid";
  478. X        "Dec_Grid"    layer[9] = "dec_grid";
  479. X        "Ecliptic"    layer[9] = "ecliptic";
  480. X        "Boundaries"    layer[9] = "boundaries";
  481. X        "Patterns"    layer[9] = "patterns";
  482. X        "Constlnames"    layer[9] = "constlnames";
  483. X        "Allfiles"    layer[9] = "allfiles";
  484. X        "Allglyphs"    layer[9] = "allglyphs";
  485. X        "Allnames"    layer[9] = "allnames";
  486. X        "Allmaglbls"    layer[9] = "allmaglbls";
  487. X        "Allvectors"    layer[9] = "allvectors";
  488. X        "Allareas"    layer[9] = "allareas";
  489. X        "Legends"    layer[9] = "legends";
  490. X       end_choice
  491. X    choice
  492. X    display cycle
  493. X        "None"        layer[10] = "";
  494. X        "Outline"    layer[10] = "outline";
  495. X        "RA_Grid"    layer[10] = "ra_grid";
  496. X        "Dec_Grid"    layer[10] = "dec_grid";
  497. X        "Ecliptic"    layer[10] = "ecliptic";
  498. X        "Boundaries"    layer[10] = "boundaries";
  499. X        "Patterns"    layer[10] = "patterns";
  500. X        "Constlnames"    layer[10] = "constlnames";
  501. X        "Allfiles"    layer[10] = "allfiles";
  502. X        "Allglyphs"    layer[10] = "allglyphs";
  503. X        "Allnames"    layer[10] = "allnames";
  504. X        "Allmaglbls"    layer[10] = "allmaglbls";
  505. X        "Allvectors"    layer[10] = "allvectors";
  506. X        "Allareas"    layer[10] = "allareas";
  507. X        "Legends"    layer[10] = "legends";
  508. X       end_choice
  509. X    choice
  510. X    display cycle
  511. X        "None"        layer[11] = "";
  512. X        "Outline"    layer[11] = "outline";
  513. X        "RA_Grid"    layer[11] = "ra_grid";
  514. X        "Dec_Grid"    layer[11] = "dec_grid";
  515. X        "Ecliptic"    layer[11] = "ecliptic";
  516. X        "Boundaries"    layer[11] = "boundaries";
  517. X        "Patterns"    layer[11] = "patterns";
  518. X        "Constlnames"    layer[11] = "constlnames";
  519. X        "Allfiles"    layer[11] = "allfiles";
  520. X        "Allglyphs"    layer[11] = "allglyphs";
  521. X        "Allnames"    layer[11] = "allnames";
  522. X        "Allmaglbls"    layer[11] = "allmaglbls";
  523. X        "Allvectors"    layer[11] = "allvectors";
  524. X        "Allareas"    layer[11] = "allareas";
  525. X        "Legends"    layer[11] = "legends";
  526. X       end_choice
  527. X    choice
  528. X    display cycle
  529. X        "None"        layer[12] = "";
  530. X        "Outline"    layer[12] = "outline";
  531. X        "RA_Grid"    layer[12] = "ra_grid";
  532. X        "Dec_Grid"    layer[12] = "dec_grid";
  533. X        "Ecliptic"    layer[12] = "ecliptic";
  534. X        "Boundaries"    layer[12] = "boundaries";
  535. X        "Patterns"    layer[12] = "patterns";
  536. X        "Constlnames"    layer[12] = "constlnames";
  537. X        "Allfiles"    layer[12] = "allfiles";
  538. X        "Allglyphs"    layer[12] = "allglyphs";
  539. X        "Allnames"    layer[12] = "allnames";
  540. X        "Allmaglbls"    layer[12] = "allmaglbls";
  541. X        "Allvectors"    layer[12] = "allvectors";
  542. X        "Allareas"    layer[12] = "allareas";
  543. X        "Legends"    layer[12] = "legends";
  544. X       end_choice
  545. X    choice
  546. X    display cycle
  547. X        "None"        layer[13] = "";
  548. X        "Outline"    layer[13] = "outline";
  549. X        "RA_Grid"    layer[13] = "ra_grid";
  550. X        "Dec_Grid"    layer[13] = "dec_grid";
  551. X        "Ecliptic"    layer[13] = "ecliptic";
  552. X        "Boundaries"    layer[13] = "boundaries";
  553. X        "Patterns"    layer[13] = "patterns";
  554. X        "Constlnames"    layer[13] = "constlnames";
  555. X        "Allfiles"    layer[13] = "allfiles";
  556. X        "Allglyphs"    layer[13] = "allglyphs";
  557. X        "Allnames"    layer[13] = "allnames";
  558. X        "Allmaglbls"    layer[13] = "allmaglbls";
  559. X        "Allvectors"    layer[13] = "allvectors";
  560. X        "Allareas"    layer[13] = "allareas";
  561. X        "Legends"    layer[13] = "legends";
  562. X       end_choice
  563. X    choice
  564. X    display cycle
  565. X        "None"        layer[14] = "";
  566. X        "Outline"    layer[14] = "outline";
  567. X        "RA_Grid"    layer[14] = "ra_grid";
  568. X        "Dec_Grid"    layer[14] = "dec_grid";
  569. X        "Ecliptic"    layer[14] = "ecliptic";
  570. X        "Boundaries"    layer[14] = "boundaries";
  571. X        "Patterns"    layer[14] = "patterns";
  572. X        "Constlnames"    layer[14] = "constlnames";
  573. X        "Allfiles"    layer[14] = "allfiles";
  574. X        "Allglyphs"    layer[14] = "allglyphs";
  575. X        "Allnames"    layer[14] = "allnames";
  576. X        "Allmaglbls"    layer[14] = "allmaglbls";
  577. X        "Allvectors"    layer[14] = "allvectors";
  578. X        "Allareas"    layer[14] = "allareas";
  579. X        "Legends"    layer[14] = "legends";
  580. X       end_choice
  581. X    choice
  582. X    display cycle
  583. X        "None"        layer[15] = "";
  584. X        "Outline"    layer[15] = "outline";
  585. X        "RA_Grid"    layer[15] = "ra_grid";
  586. X        "Dec_Grid"    layer[15] = "dec_grid";
  587. X        "Ecliptic"    layer[15] = "ecliptic";
  588. X        "Boundaries"    layer[15] = "boundaries";
  589. X        "Patterns"    layer[15] = "patterns";
  590. X        "Constlnames"    layer[15] = "constlnames";
  591. X        "Allfiles"    layer[15] = "allfiles";
  592. X        "Allglyphs"    layer[15] = "allglyphs";
  593. X        "Allnames"    layer[15] = "allnames";
  594. X        "Allmaglbls"    layer[15] = "allmaglbls";
  595. X        "Allvectors"    layer[15] = "allvectors";
  596. X        "Allareas"    layer[15] = "allareas";
  597. X        "Legends"    layer[15] = "legends";
  598. X       end_choice
  599. X    choice
  600. X    display cycle
  601. X        "None"        layer[16] = "";
  602. X        "Outline"    layer[16] = "outline";
  603. X        "RA_Grid"    layer[16] = "ra_grid";
  604. X        "Dec_Grid"    layer[16] = "dec_grid";
  605. X        "Ecliptic"    layer[16] = "ecliptic";
  606. X        "Boundaries"    layer[16] = "boundaries";
  607. X        "Patterns"    layer[16] = "patterns";
  608. X        "Constlnames"    layer[16] = "constlnames";
  609. X        "Allfiles"    layer[16] = "allfiles";
  610. X        "Allglyphs"    layer[16] = "allglyphs";
  611. X        "Allnames"    layer[16] = "allnames";
  612. X        "Allmaglbls"    layer[16] = "allmaglbls";
  613. X        "Allvectors"    layer[16] = "allvectors";
  614. X        "Allareas"    layer[16] = "allareas";
  615. X        "Legends"    layer[16] = "legends";
  616. X       end_choice
  617. X    choice
  618. X    display cycle
  619. X        "None"        layer[17] = "";
  620. X        "Outline"    layer[17] = "outline";
  621. X        "RA_Grid"    layer[17] = "ra_grid";
  622. X        "Dec_Grid"    layer[17] = "dec_grid";
  623. X        "Ecliptic"    layer[17] = "ecliptic";
  624. X        "Boundaries"    layer[17] = "boundaries";
  625. X        "Patterns"    layer[17] = "patterns";
  626. X        "Constlnames"    layer[17] = "constlnames";
  627. X        "Allfiles"    layer[17] = "allfiles";
  628. X        "Allglyphs"    layer[17] = "allglyphs";
  629. X        "Allnames"    layer[17] = "allnames";
  630. X        "Allmaglbls"    layer[17] = "allmaglbls";
  631. X        "Allvectors"    layer[17] = "allvectors";
  632. X        "Allareas"    layer[17] = "allareas";
  633. X        "Legends"    layer[17] = "legends";
  634. X       end_choice
  635. X    choice
  636. X    display cycle
  637. X        "None"        layer[18] = "";
  638. X        "Outline"    layer[18] = "outline";
  639. X        "RA_Grid"    layer[18] = "ra_grid";
  640. X        "Dec_Grid"    layer[18] = "dec_grid";
  641. X        "Ecliptic"    layer[18] = "ecliptic";
  642. X        "Boundaries"    layer[18] = "boundaries";
  643. X        "Patterns"    layer[18] = "patterns";
  644. X        "Constlnames"    layer[18] = "constlnames";
  645. X        "Allfiles"    layer[18] = "allfiles";
  646. X        "Allglyphs"    layer[18] = "allglyphs";
  647. X        "Allnames"    layer[18] = "allnames";
  648. X        "Allmaglbls"    layer[18] = "allmaglbls";
  649. X        "Allvectors"    layer[18] = "allvectors";
  650. X        "Allareas"    layer[18] = "allareas";
  651. X        "Legends"    layer[18] = "legends";
  652. X       end_choice
  653. X    choice
  654. X    display cycle
  655. X        "None"        layer[19] = "";
  656. X        "Outline"    layer[19] = "outline";
  657. X        "RA_Grid"    layer[19] = "ra_grid";
  658. X        "Dec_Grid"    layer[19] = "dec_grid";
  659. X        "Ecliptic"    layer[19] = "ecliptic";
  660. X        "Boundaries"    layer[19] = "boundaries";
  661. X        "Patterns"    layer[19] = "patterns";
  662. X        "Constlnames"    layer[19] = "constlnames";
  663. X        "Allfiles"    layer[19] = "allfiles";
  664. X        "Allglyphs"    layer[19] = "allglyphs";
  665. X        "Allnames"    layer[19] = "allnames";
  666. X        "Allmaglbls"    layer[19] = "allmaglbls";
  667. X        "Allvectors"    layer[19] = "allvectors";
  668. X        "Allareas"    layer[19] = "allareas";
  669. X        "Legends"    layer[19] = "legends";
  670. X       end_choice
  671. X    choice
  672. X    display cycle
  673. X        "None"        layer[20] = "";
  674. X        "Outline"    layer[20] = "outline";
  675. X        "RA_Grid"    layer[20] = "ra_grid";
  676. X        "Dec_Grid"    layer[20] = "dec_grid";
  677. X        "Ecliptic"    layer[20] = "ecliptic";
  678. X        "Boundaries"    layer[20] = "boundaries";
  679. X        "Patterns"    layer[20] = "patterns";
  680. X        "Constlnames"    layer[20] = "constlnames";
  681. X        "Allfiles"    layer[20] = "allfiles";
  682. X        "Allglyphs"    layer[20] = "allglyphs";
  683. X        "Allnames"    layer[20] = "allnames";
  684. X        "Allmaglbls"    layer[20] = "allmaglbls";
  685. X        "Allvectors"    layer[20] = "allvectors";
  686. X        "Allareas"    layer[20] = "allareas";
  687. X        "Legends"    layer[20] = "legends";
  688. X       end_choice
  689. X       button
  690. X          normal    "done"    remove layer_dialog;
  691. X       end_button
  692. X    end_gadgets
  693. Xend_dialog
  694. X
  695. Xdialog proj_dialog
  696. X    gadgets
  697. X       ragged
  698. X       choice proj_choice
  699. X        display vertical
  700. X        label "Projection Mode"
  701. X        "Sansons"    projection_mode = "sansons";
  702. X        "Stereographic"    projection_mode = "Stereographic";
  703. X        "Orthographic"    projection_mode = "Orthographic";
  704. X        "Gnomonic"    projection_mode = "Gnomonic";
  705. X       end_choice
  706. X       button
  707. X          normal    "done"    remove proj_dialog;
  708. X       end_button
  709. X    end_gadgets
  710. Xend_dialog
  711. X
  712. Xdialog sfiles_dialog
  713. X    size 24 by 90 characters
  714. X    gadgets
  715. X       align center
  716. X           ragged
  717. X       text starfile
  718. X        label "Star File:"
  719. X        display 38
  720. X       end_text
  721. X       choice
  722. X        display cycle
  723. X        label "Type"
  724. X        "Default"    startype =  "";
  725. X        "Index"        startype =  "INDEXTYPE";
  726. X        "Full Binary format"    startype =  "BINFULL";
  727. X        "Object only Binary format"    startype =  "BINOBJ";
  728. X        "Star only Binary format"    startype =  "BINSTAR";
  729. X        "SAO format"    startype =  "SAOFORMAT";
  730. X       end_choice        
  731. X       text indexfile
  732. X        label "Index File:"
  733. X        display 37
  734. X       end_text
  735. X       choice
  736. X        display cycle
  737. X        label "Type"
  738. X        "Index"        indextype =  "INDEXTYPE";
  739. X        "Full Binary format"    indextype =  "BINFULL";
  740. X        "Object only Binary format"    indextype =  "BINOBJ";
  741. X        "Star only Binary format"    indextype =  "BINSTAR";
  742. X        "SAO format"    indextype =  "SAOFORMAT";
  743. X        "Default"    indextype =  "";
  744. X       end_choice        
  745. X       text nebfile
  746. X        label "Nebula File:"
  747. X        display 36
  748. X       end_text
  749. X       choice
  750. X        display cycle
  751. X        label "Type"
  752. X        "Default"    nebtype =  "";
  753. X        "Index"        nebtype =  "INDEXTYPE";
  754. X        "Full Binary format"    nebtype =  "BINFULL";
  755. X        "Object only Binary format"    nebtype =  "BINOBJ";
  756. X        "Star only Binary format"    nebtype =  "BINSTAR";
  757. X        "SAO format"    nebtype =  "SAOFORMAT";
  758. X       end_choice        
  759. X       text planetfile
  760. X        label "Planet File:"
  761. X        display 36
  762. X       end_text
  763. X       choice
  764. X        display cycle
  765. X        label "Type"
  766. X        "Default"    plantype =  "";
  767. X        "Index"        plantype =  "INDEXTYPE";
  768. X        "Full Binary format"    plantype =  "BINFULL";
  769. X        "Object only Binary format"    plantype =  "BINOBJ";
  770. X        "Star only Binary format"    plantype =  "BINSTAR";
  771. X        "SAO format"    plantype =  "SAOFORMAT";
  772. X       end_choice        
  773. X       text boundfile
  774. X        label "Constellation Boundary File:"
  775. X        display 20
  776. X       end_text
  777. X       choice
  778. X        display cycle
  779. X        label "Type"
  780. X        "Default"    boundtype =  "";
  781. X        "Index"        boundtype =  "INDEXTYPE";
  782. X        "Full Binary format"    boundtype =  "BINFULL";
  783. X        "Object only Binary format"    boundtype =  "BINOBJ";
  784. X        "Star only Binary format"    boundtype =  "BINSTAR";
  785. X        "SAO format"    boundtype =  "SAOFORMAT";
  786. X       end_choice        
  787. X       text patternfile
  788. X        label "Constellation Pattern File:"
  789. X        display 21
  790. X       end_text
  791. X       choice
  792. X        display cycle
  793. X        label "Type"
  794. X        "Default"    patterntype =  "";
  795. X        "Index"        patterntype =  "INDEXTYPE";
  796. X        "Full Binary format"    patterntype =  "BINFULL";
  797. X        "Object only Binary format"    patterntype =  "BINOBJ";
  798. X        "Star only Binary format"    patterntype =  "BINSTAR";
  799. X        "SAO format"    patterntype =  "SAOFORMAT";
  800. X       end_choice        
  801. X       text constlnamefile
  802. X        label "Constellation Name File:"
  803. X        display 24
  804. X       end_text
  805. X       choice
  806. X        display cycle
  807. X        label "Type"
  808. X        "Default"    cnametype =  "";
  809. X        "Index"        cnametype =  "INDEXTYPE";
  810. X        "Full Binary format"    cnametype =  "BINFULL";
  811. X        "Object only Binary format"    cnametype =  "BINOBJ";
  812. X        "Star only Binary format"    cnametype =  "BINSTAR";
  813. X        "SAO format"    cnametype =  "SAOFORMAT";
  814. X       end_choice        
  815. X       text userfile0
  816. X        label "User File:"
  817. X        display 38
  818. X        action userfile[0] = userfile0;
  819. X       end_text
  820. X       choice
  821. X        display cycle
  822. X        label "Type"
  823. X        "Default"    usertype[0] =  "";
  824. X        "Index"        usertype[0] =  "INDEXTYPE";
  825. X        "Full Binary format"    usertype[0] =  "BINFULL";
  826. X        "Object only Binary format"    usertype[0] =  "BINOBJ";
  827. X        "Star only Binary format"    usertype[0] =  "BINSTAR";
  828. X        "SAO format"    usertype[0] =  "SAOFORMAT";
  829. X       end_choice        
  830. X       text userfile1
  831. X        label "User File:"
  832. X        display 38
  833. X        action userfile[1] = userfile1;
  834. X       end_text
  835. X       choice
  836. X        display cycle
  837. X        label "Type"
  838. X        "Default"    usertype[1] =  "";
  839. X        "Index"        usertype[1] =  "INDEXTYPE";
  840. X        "Full Binary format"    usertype[1] =  "BINFULL";
  841. X        "Object only Binary format"    usertype[1] =  "BINOBJ";
  842. X        "Star only Binary format"    usertype[1] =  "BINSTAR";
  843. X        "SAO format"    usertype[1] =  "SAOFORMAT";
  844. X       end_choice        
  845. X       text userfile2
  846. X        label "User File:"
  847. X        display 38
  848. X        action userfile[2] = userfile2;
  849. X       end_text
  850. X       choice
  851. X        display cycle
  852. X        label "Type"
  853. X        "Default"    usertype[2] =  "";
  854. X        "Index"        usertype[2] =  "INDEXTYPE";
  855. X        "Full Binary format"    usertype[2] =  "BINFULL";
  856. X        "Object only Binary format"    usertype[2] =  "BINOBJ";
  857. X        "Star only Binary format"    usertype[2] =  "BINSTAR";
  858. X        "SAO format"    usertype[2] =  "SAOFORMAT";
  859. X       end_choice        
  860. X       text userfile3
  861. X        label "User File:"
  862. X        display 38
  863. X        action userfile[3] = userfile3;
  864. X       end_text
  865. X       choice
  866. X        display cycle
  867. X        label "Type"
  868. X        "Default"    usertype[3] =  "";
  869. X        "Index"        usertype[3] =  "INDEXTYPE";
  870. X        "Full Binary format"    usertype[3] =  "BINFULL";
  871. X        "Object only Binary format"    usertype[3] =  "BINOBJ";
  872. X        "Star only Binary format"    usertype[3] =  "BINSTAR";
  873. X        "SAO format"    usertype[3] =  "SAOFORMAT";
  874. X       end_choice        
  875. X       text userfile4
  876. X        label "User File:"
  877. X        display 38
  878. X        action userfile[4] = userfile4;
  879. X       end_text
  880. X       choice
  881. X        display cycle
  882. X        label "Type"
  883. X        "Default"    usertype[4] =  "";
  884. X        "Index"        usertype[4] =  "INDEXTYPE";
  885. X        "Full Binary format"    usertype[4] =  "BINFULL";
  886. X        "Object only Binary format"    usertype[4] =  "BINOBJ";
  887. X        "Star only Binary format"    usertype[4] =  "BINSTAR";
  888. X        "SAO format"    usertype[4] =  "SAOFORMAT";
  889. X       end_choice        
  890. X       text userfile5
  891. X        label "User File:"
  892. X        display 38
  893. X        action userfile[5] = userfile5;
  894. X       end_text
  895. X       choice
  896. X        display cycle
  897. X        label "Type"
  898. X        "Default"    usertype[5] =  "";
  899. X        "Index"        usertype[5] =  "INDEXTYPE";
  900. X        "Full Binary format"    usertype[5] =  "BINFULL";
  901. X        "Object only Binary format"    usertype[5] =  "BINOBJ";
  902. X        "Star only Binary format"    usertype[5] =  "BINSTAR";
  903. X        "SAO format"    usertype[5] =  "SAOFORMAT";
  904. X       end_choice        
  905. X       text userfile6
  906. X        label "User File:"
  907. X        display 38
  908. X        action userfile[6] = userfile6;
  909. X       end_text
  910. X       choice
  911. X        display cycle
  912. X        label "Type"
  913. X        "Default"    usertype[6] =  "";
  914. X        "Index"        usertype[6] =  "INDEXTYPE";
  915. X        "Full Binary format"    usertype[6] =  "BINFULL";
  916. X        "Object only Binary format"    usertype[6] =  "BINOBJ";
  917. X        "Star only Binary format"    usertype[6] =  "BINSTAR";
  918. X        "SAO format"    usertype[6] =  "SAOFORMAT";
  919. X       end_choice        
  920. X       text userfile7
  921. X        label "User File:"
  922. X        display 38
  923. X        action userfile[7] = userfile7;
  924. X       end_text
  925. X       choice
  926. X        display cycle
  927. X        label "Type"
  928. X        "Default"    usertype[7] =  "";
  929. X        "Index"        usertype[7] =  "INDEXTYPE";
  930. X        "Full Binary format"    usertype[7] =  "BINFULL";
  931. X        "Object only Binary format"    usertype[7] =  "BINOBJ";
  932. X        "Star only Binary format"    usertype[7] =  "BINSTAR";
  933. X        "SAO format"    usertype[7] =  "SAOFORMAT";
  934. X       end_choice        
  935. X       text userfile8
  936. X        label "User File:"
  937. X        display 38
  938. X        action userfile[8] = userfile8;
  939. X       end_text
  940. X       choice
  941. X        display cycle
  942. X        label "Type"
  943. X        "Default"    usertype[8] =  "";
  944. X        "Index"        usertype[8] =  "INDEXTYPE";
  945. X        "Full Binary format"    usertype[8] =  "BINFULL";
  946. X        "Object only Binary format"    usertype[8] =  "BINOBJ";
  947. X        "Star only Binary format"    usertype[8] =  "BINSTAR";
  948. X        "SAO format"    usertype[8] =  "SAOFORMAT";
  949. X       end_choice        
  950. X       text userfile9
  951. X        label "User File:"
  952. X        display 38
  953. X        action userfile[9] = userfile9;
  954. X       end_text
  955. X       choice
  956. X        display cycle
  957. X        label "Type"
  958. X        "Default"    usertype[9] =  "";
  959. X        "Index"        usertype[9] =  "INDEXTYPE";
  960. X        "Full Binary format"    usertype[9] =  "BINFULL";
  961. X        "Object only Binary format"    usertype[9] =  "BINOBJ";
  962. X        "Star only Binary format"    usertype[9] =  "BINSTAR";
  963. X        "SAO format"    usertype[9] =  "SAOFORMAT";
  964. X       end_choice        
  965. X       button
  966. X          normal    "done"    remove sfiles_dialog;
  967. X       end_button
  968. X    end_gadgets
  969. Xend_dialog
  970. X
  971. Xdialog files_dialog
  972. X    gadgets
  973. X       ragged
  974. X       text mapfile0
  975. X        label "File:"
  976. X        display 20
  977. X        action mapfile[0] = mapfile0;
  978. X       end_text
  979. X       choice
  980. X        display cycle
  981. X        label "Type"
  982. X        "Default"    maptype[0] =  "";
  983. X        "Index"        maptype[0] =  "INDEXTYPE";
  984. X        "Full Binary format"    maptype[0] =  "BINFULL";
  985. X        "Object only Binary format"    maptype[0] =  "BINOBJ";
  986. X        "Star only Binary format"    maptype[0] =  "BINSTAR";
  987. X        "SAO format"    maptype[0] =  "SAOFORMAT";
  988. X       end_choice        
  989. X       text mapfile1
  990. X        label "File:"
  991. X        display 20
  992. X        action mapfile[1] = mapfile1;
  993. X       end_text
  994. X       choice
  995. X        display cycle
  996. X        label "Type"
  997. X        "Default"    maptype[1] =  "";
  998. X        "Index"        maptype[1] =  "INDEXTYPE";
  999. X        "Full Binary format"    maptype[1] =  "BINFULL";
  1000. X        "Object only Binary format"    maptype[1] =  "BINOBJ";
  1001. X        "Star only Binary format"    maptype[1] =  "BINSTAR";
  1002. X        "SAO format"    maptype[1] =  "SAOFORMAT";
  1003. X       end_choice        
  1004. X       text mapfile2
  1005. X        label "File:"
  1006. X        display 20
  1007. X        action mapfile[2] = mapfile2;
  1008. X       end_text
  1009. X       choice
  1010. X        display cycle
  1011. X        label "Type"
  1012. X        "Default"    maptype[2] =  "";
  1013. X        "Index"        maptype[2] =  "INDEXTYPE";
  1014. X        "Full Binary format"    maptype[2] =  "BINFULL";
  1015. X        "Object only Binary format"    maptype[2] =  "BINOBJ";
  1016. X        "Star only Binary format"    maptype[2] =  "BINSTAR";
  1017. X        "SAO format"    maptype[2] =  "SAOFORMAT";
  1018. X       end_choice        
  1019. X       text mapfile3
  1020. X        label "File:"
  1021. X        display 20
  1022. X        action mapfile[3] = mapfile3;
  1023. X       end_text
  1024. X       choice
  1025. X        display cycle
  1026. X        label "Type"
  1027. X        "Default"    maptype[3] =  "";
  1028. X        "Index"        maptype[3] =  "INDEXTYPE";
  1029. X        "Full Binary format"    maptype[3] =  "BINFULL";
  1030. X        "Object only Binary format"    maptype[3] =  "BINOBJ";
  1031. X        "Star only Binary format"    maptype[3] =  "BINSTAR";
  1032. X        "SAO format"    maptype[3] =  "SAOFORMAT";
  1033. X       end_choice        
  1034. X       text mapfile4
  1035. X        label "File:"
  1036. X        display 20
  1037. X        action mapfile[4] = mapfile4;
  1038. X       end_text
  1039. X       choice
  1040. X        display cycle
  1041. X        label "Type"
  1042. X        "Default"    maptype[4] =  "";
  1043. X        "Index"        maptype[4] =  "INDEXTYPE";
  1044. X        "Full Binary format"    maptype[4] =  "BINFULL";
  1045. X        "Object only Binary format"    maptype[4] =  "BINOBJ";
  1046. X        "Star only Binary format"    maptype[4] =  "BINSTAR";
  1047. X        "SAO format"    maptype[4] =  "SAOFORMAT";
  1048. X       end_choice        
  1049. X       text mapfile5
  1050. X        label "File:"
  1051. X        display 20
  1052. X        action mapfile[5] = mapfile5;
  1053. X       end_text
  1054. X       choice
  1055. X        display cycle
  1056. X        label "Type"
  1057. X        "Default"    maptype[5] =  "";
  1058. X        "Index"        maptype[5] =  "INDEXTYPE";
  1059. X        "Full Binary format"    maptype[5] =  "BINFULL";
  1060. X        "Object only Binary format"    maptype[5] =  "BINOBJ";
  1061. X        "Star only Binary format"    maptype[5] =  "BINSTAR";
  1062. X        "SAO format"    maptype[5] =  "SAOFORMAT";
  1063. X       end_choice        
  1064. X       text mapfile6
  1065. X        label "File:"
  1066. X        display 20
  1067. X        action mapfile[6] = mapfile6;
  1068. X       end_text
  1069. X       choice
  1070. X        display cycle
  1071. X        label "Type"
  1072. X        "Default"    maptype[6] =  "";
  1073. X        "Index"        maptype[6] =  "INDEXTYPE";
  1074. X        "Full Binary format"    maptype[6] =  "BINFULL";
  1075. X        "Object only Binary format"    maptype[6] =  "BINOBJ";
  1076. X        "Star only Binary format"    maptype[6] =  "BINSTAR";
  1077. X        "SAO format"    maptype[6] =  "SAOFORMAT";
  1078. X       end_choice        
  1079. X       text mapfile7
  1080. X        label "File:"
  1081. X        display 20
  1082. X        action mapfile[7] = mapfile7;
  1083. X       end_text
  1084. X       choice
  1085. X        display cycle
  1086. X        label "Type"
  1087. X        "Default"    maptype[7] =  "";
  1088. X        "Index"        maptype[7] =  "INDEXTYPE";
  1089. X        "Full Binary format"    maptype[7] =  "BINFULL";
  1090. X        "Object only Binary format"    maptype[7] =  "BINOBJ";
  1091. X        "Star only Binary format"    maptype[7] =  "BINSTAR";
  1092. X        "SAO format"    maptype[7] =  "SAOFORMAT";
  1093. X       end_choice        
  1094. X       text mapfile8
  1095. X        label "File:"
  1096. X        display 20
  1097. X        action mapfile[8] = mapfile8;
  1098. X       end_text
  1099. X       choice
  1100. X        display cycle
  1101. X        label "Type"
  1102. X        "Default"    maptype[8] =  "";
  1103. X        "Index"        maptype[8] =  "INDEXTYPE";
  1104. X        "Full Binary format"    maptype[8] =  "BINFULL";
  1105. X        "Object only Binary format"    maptype[8] =  "BINOBJ";
  1106. X        "Star only Binary format"    maptype[8] =  "BINSTAR";
  1107. X        "SAO format"    maptype[8] =  "SAOFORMAT";
  1108. X       end_choice        
  1109. X       text mapfile9
  1110. X        label "File:"
  1111. X        display 20
  1112. X        action mapfile[9] = mapfile9;
  1113. X       end_text
  1114. X       choice
  1115. X        display cycle
  1116. X        label "Type"
  1117. X        "Default"    maptype[9] =  "";
  1118. X        "Index"        maptype[9] =  "INDEXTYPE";
  1119. X        "Full Binary format"    maptype[9] =  "BINFULL";
  1120. X        "Object only Binary format"    maptype[9] =  "BINOBJ";
  1121. X        "Star only Binary format"    maptype[9] =  "BINSTAR";
  1122. X        "SAO format"    maptype[9] =  "SAOFORMAT";
  1123. X       end_choice        
  1124. X       text mapfile10
  1125. X        label "File:"
  1126. X        display 20
  1127. X        action mapfile[10] = mapfile10;
  1128. X       end_text
  1129. X       choice
  1130. X        display cycle
  1131. X        label "Type"
  1132. X        "Default"    maptype[10] =  "";
  1133. X        "Index"        maptype[10] =  "INDEXTYPE";
  1134. X        "Full Binary format"    maptype[10] =  "BINFULL";
  1135. X        "Object only Binary format"    maptype[10] =  "BINOBJ";
  1136. X        "Star only Binary format"    maptype[10] =  "BINSTAR";
  1137. X        "SAO format"    maptype[10] =  "SAOFORMAT";
  1138. X       end_choice        
  1139. X       text mapfile11
  1140. X        label "File:"
  1141. X        display 20
  1142. X        action mapfile[11] = mapfile11;
  1143. X       end_text
  1144. X       choice
  1145. X        display cycle
  1146. X        label "Type"
  1147. X        "Default"    maptype[11] =  "";
  1148. X        "Index"        maptype[11] =  "INDEXTYPE";
  1149. X        "Full Binary format"    maptype[11] =  "BINFULL";
  1150. X        "Object only Binary format"    maptype[11] =  "BINOBJ";
  1151. X        "Star only Binary format"    maptype[11] =  "BINSTAR";
  1152. X        "SAO format"    maptype[11] =  "SAOFORMAT";
  1153. X       end_choice        
  1154. X       text mapfile12
  1155. X        label "File:"
  1156. X        display 20
  1157. X        action mapfile[12] = mapfile12;
  1158. X       end_text
  1159. X       choice
  1160. X        display cycle
  1161. X        label "Type"
  1162. X        "Default"    maptype[12] =  "";
  1163. X        "Index"        maptype[12] =  "INDEXTYPE";
  1164. X        "Full Binary format"    maptype[12] =  "BINFULL";
  1165. X        "Object only Binary format"    maptype[12] =  "BINOBJ";
  1166. X        "Star only Binary format"    maptype[12] =  "BINSTAR";
  1167. X        "SAO format"    maptype[12] =  "SAOFORMAT";
  1168. X       end_choice        
  1169. X       text mapfile13
  1170. X        label "File:"
  1171. X        display 20
  1172. X        action mapfile[13] = mapfile13;
  1173. X       end_text
  1174. X       choice
  1175. X        display cycle
  1176. X        label "Type"
  1177. X        "Default"    maptype[13] =  "";
  1178. X        "Index"        maptype[13] =  "INDEXTYPE";
  1179. X        "Full Binary format"    maptype[13] =  "BINFULL";
  1180. X        "Object only Binary format"    maptype[13] =  "BINOBJ";
  1181. X        "Star only Binary format"    maptype[13] =  "BINSTAR";
  1182. X        "SAO format"    maptype[13] =  "SAOFORMAT";
  1183. X       end_choice        
  1184. X       text mapfile14
  1185. X        label "File:"
  1186. X        display 20
  1187. X        action mapfile[14] = mapfile14;
  1188. X       end_text
  1189. X       choice
  1190. X        display cycle
  1191. X        label "Type"
  1192. X        "Default"    maptype[14] =  "";
  1193. X        "Index"        maptype[14] =  "INDEXTYPE";
  1194. X        "Full Binary format"    maptype[14] =  "BINFULL";
  1195. X        "Object only Binary format"    maptype[14] =  "BINOBJ";
  1196. X        "Star only Binary format"    maptype[14] =  "BINSTAR";
  1197. X        "SAO format"    maptype[14] =  "SAOFORMAT";
  1198. X       end_choice        
  1199. X       button
  1200. X          normal    "done"    remove files_dialog;
  1201. X       end_button
  1202. X    end_gadgets
  1203. Xend_dialog
  1204. X
  1205. Xdialog var_dialog
  1206. X    gadgets
  1207. X       text vrange_high
  1208. X        label "Higher (brighter) Magnitude lable limit:"
  1209. X        display 20
  1210. X        action {
  1211. X            vrange_set = TRUE;
  1212. X            if (vrange_low == "") vrange_low = vrange_high;
  1213. X            vmag_mag = (vrange_low + vrange_high) / 2;
  1214. X            vmag_range = vrange_high - vmag_mag;
  1215. X        }
  1216. X       end_text
  1217. X       text vrange_low
  1218. X        label "Lower (fainter) Magnitude lable limit:"
  1219. X        display 20
  1220. X        action {
  1221. X            vrange_set = TRUE;
  1222. X            if (vrange_high == "") vrange_high = vrange_low;
  1223. X            vmag_mag = (vrange_low + vrange_high) / 2;
  1224. X            vmag_range = vrange_low - vmag_mag;
  1225. X        }
  1226. X       end_text
  1227. X       text vmag_mag
  1228. X        label "Center magnitude:"
  1229. X        display 20
  1230. X        action {
  1231. X            vrange_set = TRUE;
  1232. X            if (vmag_range == "") vmag_range = 0;
  1233. X            vrange_low = vmag_mag + vmag_range;
  1234. X            vrange_high = vmag_mag - vmag_range;
  1235. X        }
  1236. X       end_text
  1237. X       text vmag_range
  1238. X        label "Magnitude range:"
  1239. X        display 20
  1240. X        action {
  1241. X            vrange_set = TRUE;
  1242. X            if (vmag_mag == "") vmag_mag = 0;
  1243. X            vrange_low = vmag_mag + vmag_range;
  1244. X            vrange_high = vmag_mag - vmag_range;
  1245. X        }
  1246. X       end_text
  1247. X       button
  1248. X          normal    "done"    remove var_dialog;
  1249. X       end_button
  1250. X    end_gadgets
  1251. Xend_dialog
  1252. X
  1253. Xdialog grid_dialog
  1254. X    gadgets
  1255. X       left
  1256. X       align left
  1257. X       text grid_ra
  1258. X        label "R.A. grid step:"
  1259. X        display 20
  1260. X        action {
  1261. X            grid_ra_set = TRUE;
  1262. X        }
  1263. X       end_text
  1264. X       text grid_dec
  1265. X        label "Dec. grid step:"
  1266. X        display 20
  1267. X        action {
  1268. X            grid_dec_set = TRUE;
  1269. X        }
  1270. X       end_text
  1271. X       text grid_ra_start
  1272. X        label "R.A. grid start:"
  1273. X        display 20
  1274. X        action {
  1275. X            grid_ra_start_set = TRUE;
  1276. X        }
  1277. X       end_text
  1278. X       text grid_dec_start
  1279. X        label "Dec. grid start:"
  1280. X        display 20
  1281. X        action {
  1282. X            grid_dec_start_set = TRUE;
  1283. X        }
  1284. X       end_text
  1285. X       choice
  1286. X        display cycle
  1287. X            label "RA"
  1288. X        "invisible"    nogrid_ra = TRUE;
  1289. X        "visible"    nogrid_ra = FALSE;
  1290. X       end_choice
  1291. X       choice
  1292. X        display cycle
  1293. X            label "Dec"
  1294. X        "invisible"    nogrid_dec = TRUE;
  1295. X        "visible"    nogrid_dec = FALSE;
  1296. X       end_choice
  1297. X       button
  1298. X          normal    "done"    remove grid_dialog;
  1299. X       end_button
  1300. X    end_gadgets
  1301. Xend_dialog
  1302. X
  1303. Xdialog out_file_dialog
  1304. X    gadgets
  1305. X    text out_fname
  1306. X        label "write .starrc file: "
  1307. X        display 20
  1308. X    end_text
  1309. X    text write_mapwin_file
  1310. X        label "write mapwin file: "
  1311. X        display 20
  1312. X    end_text
  1313. X    text read_mapwin_file
  1314. X        label "read mapwin file: "
  1315. X        display 20
  1316. X    end_text
  1317. X       button
  1318. X          normal    "done"    remove out_file_dialog;
  1319. X       end_button
  1320. X    end_gadgets
  1321. Xend_dialog
  1322. X    
  1323. END_OF_FILE
  1324. if test 36032 -ne `wc -c <'starchart/startool.tt'`; then
  1325.     echo shar: \"'starchart/startool.tt'\" unpacked with wrong size!
  1326. fi
  1327. # end of 'starchart/startool.tt'
  1328. fi
  1329. echo shar: End of archive 27 \(of 32\).
  1330. cp /dev/null ark27isdone
  1331. MISSING=""
  1332. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 ; do
  1333.     if test ! -f ark${I}isdone ; then
  1334.     MISSING="${MISSING} ${I}"
  1335.     fi
  1336. done
  1337. if test "${MISSING}" = "" ; then
  1338.     echo You have unpacked all 32 archives.
  1339.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1340. else
  1341.     echo You still need to unpack the following archives:
  1342.     echo "        " ${MISSING}
  1343. fi
  1344. ##  End of shell archive.
  1345. exit 0
  1346.  
  1347.  
  1348.