home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / compstol / cmpsttl1.lha / CompositeTool / v1.1.dist / compositetool.c next >
Encoding:
C/C++ Source or Header  |  1990-05-08  |  340.1 KB  |  11,955 lines
  1. /*
  2. ******************************************************************************
  3. *                               NCSA CompositeTool 1.1
  4. *                           18 April 1990
  5. * 
  6. * NCSA CompositeTool 1.1 source code and documentation are in the public
  7. * domain.
  8. * Specifically, we give to the public domain all rights for future licensing
  9. * of the source code, all resale rights, and all publishing rights.
  10. * 
  11. * We ask, but do not require, that the following message be included in all
  12. * derived works:
  13. * 
  14. * Portions developed at the National Center for Supercomputing Applications at
  15. * the University of Illinois at Urbana-Champaign.
  16. * 
  17. * THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE
  18. * SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION,
  19. * WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE
  20. * 
  21. ******************************************************************************
  22. */
  23. /* cat > headers/all.h << "EOF" */
  24. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  25. /* all.h: common include files for CompositeTool    */
  26. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  27. /* SCCS information: %W%    %G% */
  28.  
  29. #include        <suntool/sunview.h>
  30. #include        <suntool/panel.h>
  31. #include        <suntool/canvas.h>
  32. #include        <suntool/walkmenu.h>
  33. #include        <sys/file.h>
  34. #include        <sys/dir.h>
  35. #include        <sys/stat.h>
  36. #include        <sys/types.h>
  37. #include        <math.h>
  38. #include        <stdio.h>
  39. /* #include        <usercore.h> */    /* Why? */
  40.  
  41. /* #include    "const.h" */
  42. /* #include    "struct.h" */
  43. /* #include    "ext.h" */
  44. /* EOF */
  45.  
  46. /* cat > headers/const.h << "EOF" */
  47. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  48. /* const.h: constants for CompositeTool            */
  49. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  50. /* SCCS information: %W%    %G% */
  51.  
  52. #define         N_image         20
  53. #define         N_vector        20
  54. #define         N_contour       20
  55. #define         N_text          40
  56. #define         N_frame         10
  57. #define         N_panel         10
  58. #define         N_pbutton       116
  59. #define         N_pslider       4
  60. #define         N_ptext         59
  61.     /* 4 messages for the base frame header. 1 message for the feature
  62.        frame */
  63. #define         N_pmessage      5
  64. #define         N_xscr          1152
  65. #define         N_yscr        900
  66. #define         N_hpix          1142
  67. #define         N_vpix          890
  68.     /* 1.1 addition */
  69. #define        MAXNAMELEN    255
  70. /* EOF */
  71.  
  72. /* cat > headers/struct.h << "EOF" */
  73. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  74. /* struct.h: structure declarations for CompositeTool    */
  75. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  76. /* SCCS information: %W%    %G% */
  77.  
  78. struct s_text
  79. {
  80.     int             holder;
  81.     int             sw;
  82.     char            body[80];
  83.     int             xpos;
  84.     char            prefont[60];
  85.     int             ypos;
  86.     char            postfont[20];
  87.     int             color;
  88. };
  89. struct s_contour
  90. {
  91.     int             holder;
  92.     int             sw;
  93.     char            fname[MAXNAMELEN + 1];    /* changed in 1.1 */
  94.     int             color;
  95.     int             first;
  96.     int             last;
  97.     int             interval;
  98.     int             dis;
  99.     int             xpos;
  100.     int             ypos;
  101.     int             xpts;
  102.     int             ypts;
  103. };
  104. struct s_feature
  105. {
  106.     int             holder;
  107.     int             xax_sw;
  108.     int             xax_thick;
  109.     int             xax_color;
  110.     int             xax_bot;
  111.     int             xax_top;
  112.     int             yax_sw;
  113.     int             yax_thick;
  114.     int             yax_color;
  115.     int             yax_left;
  116.     int             yax_right;
  117.     int             xgr_sw;
  118.     int             xgr_thick;
  119.     int             xgr_color;
  120.     int             xgr_space;
  121.     int             ygr_sw;
  122.     int             ygr_thick;
  123.     int             ygr_color;
  124.     int             ygr_space;
  125.     int             xt1_sw;
  126.     int             xt1_thick;
  127.     int             xt1_color;
  128.     int             xt1_bot;
  129.     int             xt1_top;
  130.     int             xt1_space;
  131.     int             xt1_len;
  132.     int             xt1_direc;
  133.     int             yt1_sw;
  134.     int             yt1_thick;
  135.     int             yt1_color;
  136.     int             yt1_left;
  137.     int             yt1_right;
  138.     int             yt1_space;
  139.     int             yt1_len;
  140.     int             yt1_direc;
  141.     int             xt2_sw;
  142.     int             xt2_thick;
  143.     int             xt2_color;
  144.     int             xt2_bot;
  145.     int             xt2_top;
  146.     int             xt2_space;
  147.     int             xt2_len;
  148.     int             xt2_direc;
  149.     int             yt2_sw;
  150.     int             yt2_thick;
  151.     int             yt2_color;
  152.     int             yt2_left;
  153.     int             yt2_right;
  154.     int             yt2_space;
  155.     int             yt2_len;
  156.     int             yt2_direc;
  157. };
  158. struct s_image
  159. {
  160.     int             holder;
  161.     int             sw;
  162.     char            fname[MAXNAMELEN + 1];    /* changed in 1.1 */
  163.     int             xpos;
  164.     int             ypos;
  165.     int             xpts;
  166.     int             ypts;
  167. };
  168. struct s_vector
  169. {
  170.     int             holder;
  171.     int             sw;
  172.     char            xname[MAXNAMELEN + 1];    /* changed in 1.1 */
  173.     int             xpos;
  174.     char            yname[MAXNAMELEN + 1];    /* changed in 1.1 */
  175.     int             ypos;
  176.     int             xpts;
  177.     int             ypts;
  178.     int             xstart;
  179.     int             xend;
  180.     int             xinterval;
  181.     int             ystart;
  182.     int             yend;
  183.     int             yinterval;
  184.     int             xdis;
  185.     int             ydis;
  186.     int             color;
  187.     int             maxlen;
  188.     int             xzero;
  189.     float           xscale;
  190.     int             yzero;
  191.     float           yscale;
  192. };
  193. struct s_grid
  194. {
  195.     int             holder;
  196.     int             sw;
  197.     int             xpix;
  198.     int             ypix;
  199.     int             color;
  200. };
  201. struct s_colorbar
  202. {
  203.     int             holder;
  204.     int             sw;
  205.     int             xpos;
  206.     int             ypos;
  207.     int             xpts;
  208.     int             ypts;
  209. };
  210. struct s_scrdump
  211. {
  212.     int             holder;
  213.     int             xstart;
  214.     int             ystart;
  215.     char            fname[MAXNAMELEN + 1];    /* changed in 1.1 */
  216.     int             xend;
  217.     int             yend;
  218. };
  219.  
  220. /* EOF */
  221. /* cat > headers/ext.h << "EOF" */
  222. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  223. /* ext.h: extern declarations for CompositeTool        */
  224. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  225. /* SCCS information: %W%    %G% */
  226.  
  227. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  228. extern
  229. int             tag_to_string(),        string_to_tag(),
  230.                 write_string(),         read_string();
  231. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  232. extern
  233. int        msg_draw(),        msg_move(),    x_start,    y_start;
  234. extern
  235. int                            x_end,        y_end;
  236. extern
  237. int                            x_interval,    y_interval;
  238. extern
  239. int        mouse_msg(),        kbyte_msg(),    draw_box();
  240. extern
  241. int        sw_flash,        sw_draw,        sw_move;
  242. extern
  243. int        odd_read();
  244. extern
  245. int        check_file(),        resetb_feature();
  246. extern
  247. int        event_dump(),        event_colorbar(),    event_image(),
  248.         event_contour(),    event_vector(),        event_text();
  249. extern
  250. int        reset_mcolorbar(),    reset_mcontour(),    reset_mimage(),
  251.         reset_mtext(),        reset_mvector();
  252. extern
  253. int        sw_palette,        confirm_palette(),    reset_palette(),
  254.         sw_grid,        confirm_grid(),        reset_grid(),
  255.         sw_colorbar,        confirm_colorbar(),    reset_colorbar(),
  256.         sw_image,    sw_i[5],confirm_image(),    reset_image(),
  257.         sw_contour,    sw_c[5],confirm_contour(),    reset_contour(),
  258.         sw_vector,    sw_v[5],confirm_vector(),    reset_vector(),
  259.         sw_text,    sw_t[5],confirm_text(),        reset_text();
  260. extern
  261. int                     draw_colorbar(),null_colorbar(),ok_colorbar(),
  262.                 nc,     draw_contour(), null_contour(), ok_contour(),
  263.                         draw_grid(),    null_grid(),    ok_grid(),
  264.                 nf,     draw_feature(),    null_feature(),    nosho_feature(),
  265.                 ni,     draw_image(),   null_image(),   ok_image(),
  266.                 nt,     draw_text(),    null_text(),    ok_text(),
  267.                 nv,     draw_vector(),  null_vector(),  ok_vector(),    draw_vector1();
  268. extern
  269. int             con_row(),con_col();
  270. extern
  271. int        info_msg(),    warn_msg(),    warn_msgt();
  272. extern
  273. int             bad_data(),     canvas_done(),  load_rgb(),     no_op();
  274. extern
  275. int             make_fr(),      make_pb(),      make_pm(),      make_pmnn(),
  276.                 make_pt(),    make_ps();
  277. extern
  278. int             my_ftoa(),      my_itoa(),      my_atof(),      my_isint(),
  279.                 my_isfloat(),   my_stripfn(),   my_otod();
  280. extern
  281. int             p0(),p1(),p2(),p3(),p4(),p5(),p6(),p7(),p8(),p9(),
  282.                 p10(),p11(),p12(),p13(),p14(),p15(),p16(),p17(),p18(),p19(),
  283.                 p20(),p21(),p22(),p23(),p24(),p25(),p26(),p27(),p28(),p29(),
  284.                 p30(),p31(),p32(),p33(),p34(),p35(),p36(),p37(),p38(),p39(),
  285.                 p40(),p41(),p42(),p43(),p44(),p45(),p46(),p47(),p48(),p49(),
  286.                 p50(),p51(),p52(),p53(),p54(),p55(),p56(),p57(),p58(),p59(),
  287.                 p60(),p61(),p62(),p63(),p64(),p65(),p66(),p67(),p68(),p69(),
  288.                 p70(),p71(),p72(),p73(),p74(),p75(),p76(),p77(),p78(),p79(),
  289.                 p80(),p81(),p82(),p83(),p84(),p85(),p86(),p87(),p88(),p89(),
  290.                 p90(),p91(),p92(),p93(),p94(),p95(),p96(),p97(),p98(),p99(),
  291.                 p100(),p101(),p102(),p103(),p104(),p105(),p106(),p107(),p108(),p109(),
  292.         p110(),p111(),p112(),p113(),p114(),p115();
  293. extern
  294. int             cpw_event(),    cpw_check();
  295. extern
  296. int     (*fdp[])();
  297. extern
  298. int     (*bnp[])();
  299. extern
  300. int        s0(),s1(),s2(),s3();
  301. extern
  302. int     (*snp[])();
  303. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  304. extern
  305. Frame           fr[N_frame],
  306.                 c_frame;
  307. extern
  308. Panel           pa[N_panel];
  309. extern
  310. Panel_item      pb[N_pbutton],
  311.                 pt[N_ptext],
  312.                 ps[N_pslider],
  313.                 pm[N_pmessage];
  314. extern
  315. Canvas          canvas;
  316. extern
  317. Pixwin          *cpw,*bpw;
  318. extern
  319. Pixrect        *x1_save,*x2_save,*y1_save,*y2_save;
  320. extern
  321. struct mpr_data *x1_ptr,*x2_ptr,*y1_ptr,*y2_ptr;
  322. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  323. extern
  324. int             clear_color,
  325.                 csw_dump,    csw_colorbar,    csw_text,
  326.         csw_image,    csw_contour,    csw_vector;
  327.         msg_no;
  328. extern
  329. short int    rw_toggle[N_image + N_contour + N_vector + N_text];
  330. extern
  331. char            c_cmsn[24],
  332.                 b_cmsn[24];
  333.  
  334. extern
  335. struct    stat    my_stat;
  336. extern
  337. struct  s_text  text[N_text+1];
  338. extern
  339. struct  s_contour con[N_contour+1];
  340. extern
  341. struct  s_feature feat[N_image + N_contour + N_vector];
  342. extern
  343. struct  s_image image[N_image+1];
  344. extern
  345. struct  s_vector vec[N_vector+1];
  346. extern
  347. struct  s_grid  grid,tgrid;
  348. extern
  349. struct  s_colorbar cbar,tcbar;
  350. extern
  351. struct  s_scrdump  sdump;
  352. /*      --------        */
  353. extern
  354. unsigned char   red[256],    green[256],    blue[256];
  355. extern
  356. char            pfn[256],    txt[256],       msg[256];
  357. extern
  358. char        compat_hdr[40];
  359. /* EOF */
  360.  
  361. /* cat > headers/define.h << "EOF" */
  362. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  363. /* define.h: definitions for CompositeTool        */
  364. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  365. /* SCCS information: %W%    %G% */
  366.  
  367. int        x_start,    y_start;
  368. int        x_end,        y_end;
  369. int        x_interval,    y_interval;
  370. int        sw_flash,        sw_draw,        sw_move;
  371. int        sw_palette,
  372.         sw_grid,
  373.         sw_colorbar,
  374.         sw_image,    sw_i[5],
  375.         sw_contour,    sw_c[5],
  376.         sw_vector,    sw_v[5],
  377.         sw_text,    sw_t[5];
  378. int                   
  379.                 nc,  
  380.                     
  381.                 nf,
  382.                 ni,
  383.                 nt,
  384.                 nv;
  385. int     (*fdp[])() =
  386.                 {
  387.                 no_op,  /* fr  0 */
  388.                 p13,    /* fr  1 */
  389.                 p16,    /* fr  2 */
  390.                 p22,    /* fr  3 */
  391.                 p30,    /* fr  4 */
  392.                 p41,    /* fr  5 */
  393.                 p46,    /* fr  6 */
  394.                 p58,    /* fr  7 */
  395.                 p70,    /* fr  8 */
  396.                 p88,    /* fr  9 */
  397.                 };
  398. int     (*bnp[])() =
  399.                 {
  400.                 p0,p1,p2,p3,p4,p5,p6,p7,p8,p9,
  401.                 p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,
  402.                 p20,p21,p22,p23,p24,p25,p26,p27,p28,p29,
  403.                 p30,p31,p32,p33,p34,p35,p36,p37,p38,p39,
  404.                 p40,p41,p42,p43,p44,p45,p46,p47,p48,p49,
  405.                 p50,p51,p52,p53,p54,p55,p56,p57,p58,p59,
  406.                 p60,p61,p62,p63,p64,p65,p66,p67,p68,p69,
  407.                 p70,p71,p72,p73,p74,p75,p76,p77,p78,p79,
  408.                 p80,p81,p82,p83,p84,p85,p86,p87,p88,p89,
  409.                 p90,p91,p92,p93,p94,p95,p96,p97,p98,p99,
  410.                 p100,p101,p102,p103,p104,p105,p106,p107,p108,p109,
  411.         p110,p111,p112,p113,p114,p115
  412.                 };
  413. int     (*snp[])() =
  414.                 {
  415.         s0,s1,s2,s3
  416.         };
  417. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  418. Frame           fr[N_frame],
  419.                 c_frame;
  420. Panel           pa[N_panel];
  421. Panel_item      pb[N_pbutton],
  422.                 pt[N_ptext],
  423.                 ps[N_pslider],
  424.                 pm[N_pmessage];
  425. Canvas          canvas;
  426. Pixwin          *cpw,*bpw;
  427. Pixrect        *x1_save,*x2_save,*y1_save,*y2_save;
  428. struct mpr_data *x1_ptr,*x2_ptr,*y1_ptr,*y2_ptr;
  429. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  430. int             clear_color,
  431.                 csw_dump,    csw_colorbar,    csw_text,
  432.         csw_image,    csw_contour,    csw_vector;
  433.         msg_no;
  434. short int    rw_toggle[N_image + N_contour + N_vector + N_text];
  435. char            c_cmsn[24],
  436.                 b_cmsn[24];
  437.  
  438. struct    stat    my_stat;
  439. struct  s_text  text[N_text+1];
  440. struct  s_contour con[N_contour+1];
  441. struct  s_feature feat[N_image + N_contour + N_vector];
  442. struct  s_image image[N_image+1];
  443. struct  s_vector vec[N_vector+1];
  444. struct  s_grid grid,tgrid;
  445. struct  s_colorbar cbar,tcbar;
  446. struct  s_scrdump  sdump;
  447. /*      --------        */
  448. unsigned char   red[256],    green[256],    blue[256];
  449. char            pfn[256],    txt[256],       msg[256];
  450. char        compat_hdr[40];
  451. /*      --------        */
  452.  
  453. Pixfont *font_panel_button, *font_panel;
  454. int base_frame_up;
  455.  
  456. char    msg2[256];
  457.  
  458. /* EOF */
  459.  
  460. /* cat > headers/newext.h << "EOF" */
  461. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  462. /* newext.h: new declarations for CompositeTool        */
  463. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  464. /* SCCS information: %W%    %G% */
  465.  
  466. #define DEBUG    1 
  467.  
  468. #include <string.h>        /* SUN BUG (386i - 4.0.1)! Cannot put
  469.                    string.h after sunwindow/defaults.h.
  470.                    ERRORS! */
  471. #include <sunwindow/defaults.h>        /* for defaults database */
  472. #include <fcntl.h>            /* for open system call */
  473.  
  474. #include "df.h"
  475.  
  476. #define DEFAULT_FONT_PANEL "/CompositeTool/Font_panel"
  477. #define DEFAULT_FONT_PANEL_BUTTON "/CompositeTool/Font_panel_button"
  478. #define DEFAULT_INITIAL_PALETTE_FILE "/CompositeTool/Initial_palette_file"
  479. #define DEFAULT_LOGO_PALETTE_FILE "/CompositeTool/Logo_palette_file"
  480. #define DEFAULT_LOGO_IMAGE_FILE "/CompositeTool/Logo_image_file"
  481. #define DEFAULT_TEXT_FONT_DIR "/CompositeTool/Text_font_dir"
  482. #define DEFAULT_TEXT_FONT "/CompositeTool/Text_font"
  483.  
  484. extern int errno;
  485.  
  486. extern Pixfont *font_panel_button, *font_panel;
  487. extern int base_frame_up;
  488. extern char msg2[256];
  489. extern unsigned char palette [768];
  490. extern char pfntmp[256];
  491. extern int grid_down;
  492. extern struct s_grid lgrid;
  493. extern char dprefont[60];
  494. extern char dpostfont[20];
  495. extern char fn_new_defaults[32];
  496. extern char fntmp[MAXNAMELEN + 1];
  497. extern char util_read_dir[MAXNAMELEN + 1];
  498. extern Panel_item    util_pc_save,
  499.             util_pb_saveall;
  500.  
  501. extern void bad_data2 ();
  502. extern int check_image ();
  503. extern int check_palette ();
  504. extern char *get_defaults ();
  505. extern void move_defaults ();
  506. extern int info_msg2 ();
  507. extern char *itoa ();
  508. extern int load_contour_image ();
  509. extern int load_image ();
  510. extern int load_vector_image ();
  511. extern Panel make_p ();
  512. extern void pad_image ();
  513. extern void reverse ();
  514. extern int store_image ();
  515. extern void unpad_image ();
  516. extern int xstrcmp ();
  517. extern int xstrlen ();
  518. extern Notify_value main_destroy_interposer ();
  519. extern int getdirname ();
  520. extern int getbasename ();
  521. extern int swapdirnames ();
  522. extern int set_frame_label ();
  523. extern int strip_wspace ();
  524. extern int util_proc_saveall ();
  525.  
  526. extern void adjust_colormap ();
  527. extern void set_colormap ();
  528. extern void reset_colormap ();
  529. extern void set_frame_colormap ();
  530. extern void set_panel_colormap ();
  531. extern void set_canvas_colormap ();
  532.  
  533. /* EOF */
  534.  
  535. /* cat > headers/newdefine.h << "EOF" */
  536. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  537. /* newdefine.h: new definitions for CompositeTool    */
  538. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  539. /* SCCS information: %W%    %G% */
  540.  
  541. /*      --------        */
  542.  
  543. Pixfont        *font_panel_button, *font_panel;
  544. int             base_frame_up;
  545. struct s_image  s_logo_image;
  546. char            msg2[256];
  547. unsigned char   palette[768];
  548. char            pfntmp[MAXNAMELEN + 1];    /* temporary palette filename */
  549. int             grid_down;
  550. struct s_grid   lgrid;
  551. char            dprefont[60];
  552. char            dpostfont[20];
  553. char            fn_new_defaults[32];
  554. char            util_read_dir[MAXNAMELEN + 1];
  555.  
  556. Panel_item      util_pc_save,
  557.         util_pb_saveall;
  558.  
  559. /* EOF */
  560. /* cat > src+obj/main.c << "EOF" */
  561. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  562. /* main: main program                    */
  563. /*     CompositeTool authors:                */
  564. /*         1.0    - Mark Stupar            */
  565. /*         1.1    - Martin Knapp-Cordes        */
  566. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  567. /* SCCS information: %W%    %G% - NCSA */
  568.  
  569. /* #include "all.h" */
  570. /* #include "newext.h" */
  571. /* #include "define.h" */
  572. /* #include "newdefine.h" */
  573.  
  574. main (argc, argv)
  575.     int             argc;
  576.     char          **argv;
  577. {
  578.     register int    y;
  579.     register int    i;
  580.     char           *s;
  581.     char           *font_panel_file, *font_panel_button_file;
  582.     char           *logo_palette, *logo_image;
  583.     char           *initial_palette;
  584.     char           *text_font_dir, *text_font;
  585.  
  586.     strcpy (compat_hdr, "1988 July 19 format\n");
  587.  
  588. /* ~~~~~ base frame not up - for error messages ~~~~~~ */
  589.  
  590.     base_frame_up = FALSE;
  591.  
  592. /* ~~~~~ grid not down ~~~~~ */
  593.  
  594.     grid_down = FALSE;
  595.  
  596. /* ~~~~~ get fonts ~~~~~ */
  597.  
  598.     if ((font_panel_file = get_defaults (DEFAULT_FONT_PANEL)) == NULL)
  599.     {
  600.         bad_data2 ("No panel font file in private or master defaults database, CompositeTool terminated.",
  601.                "Incorrect installation or change. Check defaults database with defaultsedit.");
  602.         exit (-1);
  603.     }
  604.     if ((font_panel = pf_open (font_panel_file)) == NULL)
  605.     {
  606.         sprintf (msg, "File = %s - Incorrect file name or nonexistent font. Check defaults database with defaultsedit.", font_panel_file);
  607.         bad_data2 ("Could not load panel font file, CompositeTool terminated.", msg);
  608.         exit (-1);
  609.     }
  610.     if ((font_panel_button_file = get_defaults (DEFAULT_FONT_PANEL_BUTTON)) == NULL)
  611.     {
  612.         bad_data2 ("No panel button font file in private or master defaults database, CompositeTool terminated.",
  613.                "Incorrect installation or change. Check defaults database with defaultsedit.");
  614.         exit (-1);
  615.     };
  616.     if ((font_panel_button = pf_open (font_panel_button_file)) == NULL)
  617.     {
  618.         sprintf (msg, "File = %s - Incorrect file name or nonexistent font. Check defaults database with defaultsedit.", font_panel_file);
  619.         bad_data2 ("Could not load panel button font file, Compositetool terminated", msg);
  620.         exit (-1);
  621.     }
  622.     msg_no = 0;
  623.     for (i = 0; i < N_image + N_contour + N_vector + N_text; i++)
  624.         *(rw_toggle + i) = FALSE;
  625.     sw_draw = sw_move = sw_flash = FALSE;
  626.     csw_dump = csw_colorbar = csw_text = csw_image = csw_image = csw_contour = FALSE;
  627.     csw_vector = FALSE;
  628.     sw_palette = sw_text = sw_grid = sw_image = sw_vector = 0;
  629.     sw_contour = sw_colorbar = 0;
  630.     for (i = 0; i < 5; i++)
  631.     {
  632.         sw_i[i] = sw_c[i] = sw_v[i] = sw_t[i] = 0;
  633.     }
  634.  
  635. /* ~~~~~ get default text font directory and default text font ~~~~~ */
  636.  
  637.     if ((text_font_dir = get_defaults (DEFAULT_TEXT_FONT_DIR)) == NULL)
  638.     {
  639.         bad_data2 ("No default text font directory in private or master defaults database, CompositeTool terminated.",
  640.                "Incorrect installation or change. Check defaults database with defaultsedit.");
  641.         exit (-1);
  642.     }
  643.     strcpy (dprefont, text_font_dir);
  644.     if ((text_font = get_defaults (DEFAULT_TEXT_FONT)) == NULL)
  645.     {
  646.         bad_data2 ("No default text font file in private or master defaults database, CompositeTool terminated.",
  647.                "Incorrect installation or change. Check defaults database with defaultsedit.");
  648.         exit (-1);
  649.     }
  650.     strcpy (dpostfont, text_font);
  651.     for (i = 0; i < N_text; i++)
  652.         null_text (&text[i]);
  653.  
  654.     for (i = 0; i < N_image; i++)
  655.         null_image (&image[i]);
  656.     for (i = 0; i < N_image + N_contour + N_vector; i++)
  657.         null_feature (&feat[i]);
  658.     for (i = 0; i < N_contour; i++)
  659.         null_contour (&con[i]);
  660.     for (i = 0; i < N_vector; i++)
  661.         null_vector (&vec[i]);
  662.     null_colorbar (&cbar);
  663.     null_grid (&grid);
  664.  
  665. /* ~~~~~ load logo palette ~~~~~ */
  666.  
  667.     if ((logo_palette = get_defaults (DEFAULT_LOGO_PALETTE_FILE)) == NULL)
  668.     {
  669.         bad_data2 ("No logo palette file in private or master defaults database, CompositeTool terminated.",
  670.                "Incorrect installation or change. Check defaults database with defaultsedit.");
  671.         exit (-1);
  672.     }
  673.     if (load_rgb (logo_palette, 1))    /* error on loading */
  674.         exit (-1);
  675.  
  676.     strcpy (sdump.fname, "");
  677.     clear_color = 0;
  678.     cbar.xpos = 800;
  679.     cbar.ypos = 200;
  680.     cbar.xpts = 100;
  681.     cbar.ypts = 256;
  682.     grid.xpix = 100;
  683.     grid.ypix = 100;
  684.     grid.color = 255;
  685.     sdump.xstart = sdump.ystart = sdump.xend = sdump.yend = 0;
  686.     s = b_cmsn;
  687.     *s++ = 'x';
  688.     my_itoa (getpid (), s);
  689.     strcpy (c_cmsn, b_cmsn);
  690.     strcat (c_cmsn, "x");
  691.  
  692.     fr[0] = window_create (NULL, FRAME,
  693.                    WIN_X, 0,
  694.                    WIN_Y, 0,
  695.                    WIN_HEIGHT, 1,
  696.                    WIN_WIDTH, 1,
  697.                    0);
  698.     c_frame = window_create (fr[0], FRAME,
  699.                  WIN_SHOW, FALSE,
  700.                  WIN_X, (N_xscr - 308) / 2,
  701.                  WIN_Y, (N_yscr - 219) / 2,
  702.                  WIN_HEIGHT, 219 + 10,
  703.                  WIN_WIDTH, 308 + 10,
  704.                  0);
  705.     canvas = window_create (c_frame, CANVAS,
  706.                 WIN_SHOW, FALSE,
  707.                 CANVAS_AUTO_SHRINK, FALSE,
  708.                 CANVAS_FIXED_IMAGE, FALSE,
  709.                 CANVAS_RETAINED, TRUE,
  710.                 CANVAS_WIDTH, N_hpix,
  711.                 CANVAS_HEIGHT, N_vpix,
  712.                 WIN_X, 0,
  713.                 WIN_Y, 0,
  714.                 0);
  715.     bpw = (Pixwin *) window_get (fr[0], WIN_PIXWIN);
  716.     cpw = canvas_pixwin (canvas);
  717.  
  718.     set_colormap ();
  719.  
  720.     window_set (c_frame, WIN_SHOW, TRUE, 0);
  721.     window_set (canvas, WIN_SHOW, TRUE, 0);
  722.  
  723. /* ~~~~~ load logo image ~~~~~ */
  724.  
  725.     if ((logo_image = get_defaults (DEFAULT_LOGO_IMAGE_FILE)) == NULL)
  726.     {
  727.         bad_data2 ("No logo image file in private or master defaults database, CompositeTool terminated.",
  728.                "Incorrect installation or change. Check defaults database with defaultsedit.");
  729.         exit (-1);
  730.     }
  731.     strcpy (s_logo_image.fname, logo_image);
  732.     s_logo_image.xpos = 0;
  733.     s_logo_image.ypos = 0;
  734.     s_logo_image.xpts = 308;
  735.     s_logo_image.ypts = 219;
  736.  
  737.     if (draw_image (&s_logo_image, 1))    /* error on loading */
  738.         exit (-1);
  739.  
  740.     system ("sleep 3");
  741.     window_set (fr[0],
  742.             FRAME_SHOW_LABEL, TRUE,
  743.             FRAME_NO_CONFIRM, FALSE,
  744.             WIN_X, 0,
  745.             WIN_Y, 0,
  746.             WIN_HEIGHT, 180,    /* added 23 for new message line */
  747.             WIN_WIDTH, 900,
  748.             FRAME_DONE_PROC, no_op,
  749. /*            FRAME_INHERIT_COLORS, TRUE, */
  750.             0);
  751.     (void) set_frame_label (fr[0]);
  752.  
  753.     (void) notify_interpose_destroy_func (fr[0], main_destroy_interposer);
  754.  
  755.     y = (int) window_get (fr[0], WIN_Y, 0);
  756.     if (y > N_yscr - (int) window_get (fr[0], WIN_HEIGHT, 0) - 600)
  757.         y = 0;
  758.     else
  759.         y = (int) window_get (fr[0], WIN_HEIGHT, 0);
  760.     window_set (c_frame,
  761.             WIN_SHOW, FALSE,
  762.             FRAME_DONE_PROC, canvas_done,
  763.             WIN_X, 0,
  764.             WIN_Y, y,
  765.             WIN_HEIGHT, 600,
  766.             WIN_WIDTH, N_hpix + 10,
  767.             0);
  768.     window_set (canvas,
  769.             WIN_SHOW, FALSE,
  770.             WIN_EVENT_PROC, cpw_event,
  771.             WIN_CONSUME_PICK_EVENT, LOC_DRAG,
  772.             WIN_IGNORE_PICK_EVENT, MS_MIDDLE,
  773.             WIN_IGNORE_PICK_EVENT, MS_RIGHT,
  774.             0);
  775.     pa[0] = window_create (fr[0], PANEL, 0);
  776.     window_set (pa[0],
  777.             WIN_IGNORE_PICK_EVENT, MS_MIDDLE,
  778.             WIN_IGNORE_PICK_EVENT, MS_RIGHT,
  779.             0);
  780.  
  781. /* added 23 to each y for new message line */
  782.     make_pb (0, 10, 114, 0, 9, "Canvas");
  783.     make_pb (1, 115, 102, 0, 9, "FinalPic");
  784.     make_pb (2, 115, 125, 0, 9, "Clear");
  785.     make_pb (3, 235, 102, 0, 9, "Palette");
  786.     make_pb (4, 235, 125, 0, 9, "Grid");
  787.     make_pb (5, 330, 102, 0, 9, "ColorBar");
  788.     make_pb (6, 330, 125, 0, 9, "Text");
  789.     make_pb (7, 455, 102, 0, 9, "Image");
  790.     make_pb (8, 455, 125, 0, 9, "Contour");
  791.     make_pb (9, 550, 102, 0, 9, "Vector");
  792.     make_pb (10, 550, 125, 0, 9, "Feature");
  793.     make_pb (11, 670, 114, 0, 9, "FileUtil");
  794.     make_pb (12, 785, 114, 0, 9, "Quit");
  795.     window_set (fr[0], WIN_SHOW, FALSE, 0);
  796.  
  797. /* ~~~~~ load initial palette ~~~~~ */
  798.  
  799.     if ((initial_palette = get_defaults (DEFAULT_INITIAL_PALETTE_FILE)) == NULL)
  800.     {
  801.         bad_data2 ("No initial palette file in private or master defaults database, CompositeTool terminated.",
  802.                "Incorrect installation or change. Check defaults database with defaultsedit.");
  803.         exit (-1);
  804.     }
  805.     strcpy (pfn, initial_palette);
  806.     if (load_rgb (pfn, 1))    /* error on loading */
  807.         exit (-1);
  808.  
  809.     x1_save = mem_create (N_hpix, 1, 8);
  810.     x1_ptr = mpr_d (x1_save);
  811.     x2_save = mem_create (N_hpix, 1, 8);
  812.     x2_ptr = mpr_d (x2_save);
  813.     y1_save = mem_create (1, N_vpix, 8);    /* temp storage for filling last column of odd width images */
  814.     y1_ptr = mpr_d (y1_save);
  815.     y2_save = mem_create (1, N_vpix, 8);
  816.     y2_ptr = mpr_d (y2_save);
  817.  
  818.     for (i = 1; i <= 9; i++)
  819.     {
  820.         fr[i] = NULL;
  821.         pa[i] = NULL;
  822.     }
  823.  
  824.     reset_colormap ();
  825.  
  826.     make_pm (0, 10, 10, 0, "");
  827.     make_pm (1, 10, 33, 0, "");
  828.     make_pm (2, 10, 56, 0, "");
  829.     make_pm (3, 10, 79, 0, "");
  830.  
  831. /* ~~~~~ utility frame initializations ~~~~~~ */
  832.  
  833.     util_read_dir[0] = '\0';
  834.  
  835. /* ~~~~~ base frame up - for error messages ~~~~~~ */
  836.  
  837.     base_frame_up = TRUE;
  838.  
  839.     info_msg ("", "Base frame brought up.", "");
  840.  
  841.     window_main_loop (fr[0]);
  842.     return;
  843. }
  844. /* EOF */
  845. /* cat > src+obj/bad_data.c << "EOF" */
  846. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  847. /* bad_data: one-line error message            */
  848. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  849. /* SCCS information: %W%    %G% - NCSA */
  850.  
  851. /* #include "all.h" */
  852.  
  853. int    bad_data(s) char *s;
  854. {
  855.     info_msg("          ----- ERROR MESSAGE -----",
  856.          s,
  857.          "          ----- ERROR MESSAGE -----");
  858.     return;
  859. }
  860. /* EOF */
  861. /* cat > src+obj/canvas_done.c << "EOF" */
  862. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  863. /* canvas_done: put away the canvas            */
  864. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  865. /* SCCS information: %W%    %G% - NCSA */
  866.  
  867. /* #include "all.h" */
  868.  
  869. int    canvas_done()
  870. {
  871.         window_set(     canvas,WIN_SHOW,FALSE,0);
  872.         window_set(     c_frame,WIN_SHOW,FALSE,0);
  873.         panel_set(      pb[0],PANEL_SHOW_ITEM,TRUE,0);
  874.     reset_mcolorbar();
  875.     reset_mcontour();
  876.     reset_mimage();
  877.     reset_mtext();
  878.     reset_mvector();
  879.     info_msg("","Canvas put away and all draw and move buttons deactivated.","");
  880.         return;
  881. }
  882. /* EOF */
  883. /* cat > src+obj/check_file.c << "EOF" */
  884. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  885. /* check_file: return 0 if ok, 1 if file not openable,    */
  886. /*           2 if badpts for non-HDF files, 3 if HDF    */
  887. /*           file with new values, DFerror if HDF    */
  888. /*           error.                    */
  889. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  890. /* SCCS information: %W%    %G% - NCSA */
  891.  
  892. /* #include "all.h" */
  893. /* #include "newext.h" */
  894.  
  895. int    check_file(s, w1, h1, w2, h2, n)
  896.  
  897.            char    *s;
  898.            int    *w1, *h1, *w2, *h2;
  899.            int    n;     /* sequence number of image in HDF file */
  900. {
  901.     int        f, size, i, dummy;
  902.     DF        *file;
  903.  
  904.     if ((file = DFopen (s, DFACC_READ, 0)) == NULL)
  905.     {
  906.         if (DFerror == DFE_FNF)        /* file not found error */
  907.             return (1);
  908.         else if (DFerror == DFE_NOTDFFILE)    /* regular file */
  909.         {
  910.             stat(s,&my_stat);
  911.             size = (*w1) * (*h1);
  912.             if (my_stat.st_size != size) return(2);
  913.             return (0);
  914.         }
  915.         else
  916.             return (DFerror);    /* other HDF error */
  917.     }
  918.     DFclose (file);
  919.     for (i = 0; i < n; i++)
  920.         if (DFR8getdims (s, w2, h2, &dummy)) 
  921.             return (DFerror);        /* other HDF error */
  922.     if ((*w1) != (*w2) || (*h1) != (*h2))
  923.         return (3);            /* new size */
  924.     else
  925.         return (0);
  926.     
  927. }
  928. /* EOF */
  929. /* cat > src+obj/con_col.c << "EOF" */
  930. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  931. /* con_col: draw the contour "columns"            */
  932. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  933. /* SCCS information: %W%    %G% - NCSA */
  934.  
  935. /* #include "all.h" */
  936.  
  937. int    con_col(value,h,s) int value; unsigned char *h;
  938.                            struct s_contour *s;
  939. {
  940.         int             col_done,ph,use1;
  941.         unsigned char   *t,*u,*p,*q;
  942.         register int    k,use;
  943.             ph = s->xpts * (s->ypts - 1);
  944.         for (k = 0; k < s->xpts; k++)
  945.            {t = h + k;
  946.             u = h + ph + k;
  947.             p = t;
  948.             col_done = FALSE;
  949.             while (col_done == FALSE)
  950.                  {if (*p < value && col_done == FALSE)
  951.                     {while (*p < value && p < u) p += s->xpts;
  952.                      if (p == u)
  953.                        {col_done = TRUE;
  954.                         if (*p > value)
  955.                           {use = (p - t) / (s->xpts + 0);
  956.                            pw_put(cpw,s->xpos + k,s->ypos + use - 1,s->color);
  957.                           }
  958.                        }   
  959.                      else if (*p > value)
  960.                             {use = (p - t) / (s->xpts + 0);
  961.                              pw_put(cpw,s->xpos + k,s->ypos + use - 1,s->color);
  962.                             }
  963.                      else;
  964.                     }
  965.                   if (*p == value && col_done == FALSE)
  966.                     {q = p;
  967.                      while (*q == value && q < u) q += s->xpts;
  968.                      if (q == u) col_done = TRUE;
  969.                      use = (p - t) / (s->xpts + 0);
  970.                      use1 = (q - p) / (s->xpts + 0);
  971.                      pw_put(cpw,s->xpos + k,s->ypos + use - 1 + use1/2,s->color);
  972.                      p = q;
  973.                     }
  974.                   if (*p > value && col_done == FALSE)
  975.                     {while (*p > value && p < u) p += s->xpts;
  976.                      if (p == u)
  977.                        {col_done = TRUE;
  978.                         if (*p < value)
  979.                           {use = (p - t) / (s->xpts + 0);
  980.                            pw_put(cpw,s->xpos + k,s->ypos + use - 1,s->color);
  981.                           }
  982.                        }   
  983.                      else if (*p < value)
  984.                             {use = (p - t) / (s->xpts + 0);
  985.                              pw_put(cpw,s->xpos + k,s->ypos + use - 1,s->color);
  986.                             }
  987.                      else;
  988.                     }
  989.                  }   
  990.            }
  991.         return;
  992. }
  993. /* EOF */
  994. /* cat > src+obj/con_row.c << "EOF" */
  995. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  996. /* con_row: draw the contour "rows"            */
  997. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  998. /* SCCS information: %W%    %G% - NCSA */
  999.  
  1000. /* #include "all.h" */
  1001.  
  1002. int     con_row(value,h,s) int value; unsigned char *h;
  1003.                              struct s_contour *s;
  1004. {
  1005.         int             row_done,ph;
  1006.         unsigned char   *t,*u,*p,*q;
  1007.         register int    k;
  1008.         for (k = 0; k < s->ypts; k++)
  1009.            {ph = s->xpts * k;
  1010.             t = h + ph;
  1011.             u = t + s->xpts - 1;
  1012.             p = t;
  1013.             row_done = FALSE;
  1014.             while (row_done == FALSE)
  1015.                  {if (*p < value && row_done == FALSE)
  1016.                     {while (*p < value && p < u) p++;
  1017.                      if (p == u)
  1018.                        {row_done = TRUE;
  1019.                         if (*p > value)
  1020.                            pw_put(cpw,s->xpos + p - t - 1,s->ypos + k,s->color);
  1021.                        } 
  1022.                      else if (*p > value)
  1023.                              pw_put(cpw,s->xpos + p - t - 1,s->ypos + k,s->color);
  1024.                      else;
  1025.                     }
  1026.                   if (*p == value && row_done == FALSE)
  1027.                     {q = p;
  1028.                      while (*q == value && q < u) q++;
  1029.                      if (q == u) row_done = TRUE;
  1030.                      pw_put(cpw,s->xpos + p - t - 1 + (q - p)/2,s->ypos + k,s->color);
  1031.                      p = q;
  1032.                     }
  1033.                   if (*p > value && row_done == FALSE)
  1034.                     {while (*p > value && p < u) p++;
  1035.                      if (p == u)
  1036.                        {row_done = TRUE;
  1037.                         if (*p < value)
  1038.                            pw_put(cpw,s->xpos + p - t - 1,s->ypos + k,s->color);
  1039.                        } 
  1040.                      else if (*p < value)
  1041.                              pw_put(cpw,s->xpos + p - t - 1,s->ypos + k,s->color);
  1042.                      else;
  1043.                     }
  1044.                  }   
  1045.            }
  1046.         return;
  1047. }
  1048. /* EOF */
  1049. /* cat > src+obj/confirm_colorbar.c << "EOF" */
  1050. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1051. /* confirm_colorbar: confirm TRUE if colorbar display    */
  1052. /*             is not stored data            */
  1053. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1054. /* SCCS information: %W%    %G% - NCSA */
  1055.  
  1056. /* #include "all.h" */
  1057.  
  1058. int    confirm_colorbar()
  1059. {
  1060.     if (0 == cbar.xpts)    strcpy(txt,"");
  1061.     else            my_itoa(cbar.xpts,txt);
  1062.     if (0 != strcmp(txt,panel_get(pt[6],PANEL_VALUE,0)))
  1063.            return(TRUE);
  1064.     if (0 == cbar.ypts)    strcpy(txt,"");
  1065.     else            my_itoa(cbar.ypts,txt);
  1066.     if (0 != strcmp(txt,panel_get(pt[7],PANEL_VALUE,0)))
  1067.            return(TRUE);
  1068.     if (0 == cbar.xpos)    strcpy(txt,"");
  1069.     else            my_itoa(cbar.xpos,txt);
  1070.     if (0 != strcmp(txt,panel_get(pt[8],PANEL_VALUE,0)))
  1071.            return(TRUE);
  1072.     if (0 == cbar.ypos)    strcpy(txt,"");
  1073.     else            my_itoa(cbar.ypos,txt);
  1074.     if (0 != strcmp(txt,panel_get(pt[9],PANEL_VALUE,0)))
  1075.            return(TRUE);
  1076.     return(FALSE);
  1077. }
  1078. /* EOF */
  1079. /* cat > src+obj/confirm_contour.c << "EOF" */
  1080. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1081. /* confirm_contour: confirm TRUE if contour display is    */
  1082. /*            not stored data            */
  1083. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1084. /* SCCS information: %W%    %G% - NCSA */
  1085.  
  1086. /* #include "all.h" */
  1087.  
  1088. int    confirm_contour()
  1089. {
  1090.     if (0 != strcmp(con[nc].fname,panel_get(pt[29],PANEL_VALUE,0)))
  1091.        return(TRUE);
  1092.     if (0 == con[nc].xpts)    strcpy(txt,"");
  1093.     else            my_itoa(con[nc].xpts,txt);
  1094.     if (0 != strcmp(txt,panel_get(pt[30],PANEL_VALUE,0)))
  1095.            return(TRUE);
  1096.     if (0 == con[nc].ypts)    strcpy(txt,"");
  1097.     else            my_itoa(con[nc].ypts,txt);
  1098.     if (0 != strcmp(txt,panel_get(pt[31],PANEL_VALUE,0)))
  1099.            return(TRUE);
  1100.     if (0 == con[nc].xpos)    strcpy(txt,"");
  1101.     else            my_itoa(con[nc].xpos,txt);
  1102.     if (0 != strcmp(txt,panel_get(pt[32],PANEL_VALUE,0)))
  1103.            return(TRUE);
  1104.     if (0 == con[nc].ypos)    strcpy(txt,"");
  1105.     else            my_itoa(con[nc].ypos,txt);
  1106.     if (0 != strcmp(txt,panel_get(pt[33],PANEL_VALUE,0)))
  1107.            return(TRUE);
  1108.     if (0 == con[nc].color)    strcpy(txt,"");
  1109.     else            my_itoa(con[nc].color,txt);
  1110.     if (0 != strcmp(txt,panel_get(pt[34],PANEL_VALUE,0)))
  1111.            return(TRUE);
  1112.     if (0 == con[nc].first)    strcpy(txt,"");
  1113.     else            my_itoa(con[nc].first,txt);
  1114.     if (0 != strcmp(txt,panel_get(pt[35],PANEL_VALUE,0)))
  1115.            return(TRUE);
  1116.     if (0 == con[nc].last)    strcpy(txt,"");
  1117.     else            my_itoa(con[nc].last,txt);
  1118.     if (0 != strcmp(txt,panel_get(pt[36],PANEL_VALUE,0)))
  1119.            return(TRUE);
  1120.     if (0 == con[nc].interval)    strcpy(txt,"");
  1121.     else            my_itoa(con[nc].interval,txt);
  1122.     if (0 != strcmp(txt,panel_get(pt[37],PANEL_VALUE,0)))
  1123.            return(TRUE);
  1124.     return(FALSE);
  1125. }
  1126. /* EOF */
  1127. /* cat > src+obj/confirm_grid.c << "EOF" */
  1128. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1129. /* confirm_grid: confirm TRUE if grid display is not    */
  1130. /*         stored data                */
  1131. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1132. /* SCCS information: %W%    %G% - NCSA */
  1133.  
  1134. /* #include "all.h" */
  1135.  
  1136. int    confirm_grid()
  1137. {
  1138.     if (0 == grid.color)    strcpy(txt,"");
  1139.     else            my_itoa(grid.color,txt);
  1140.     if (0 != strcmp(txt,panel_get(pt[2],PANEL_VALUE,0)))
  1141.            return(TRUE);
  1142.     if (0 == grid.xpix)    strcpy(txt,"");
  1143.     else            my_itoa(grid.xpix,txt);
  1144.     if (0 != strcmp(txt,panel_get(pt[3],PANEL_VALUE,0)))
  1145.            return(TRUE);
  1146.     if (0 == grid.ypix)    strcpy(txt,"");
  1147.     else            my_itoa(grid.ypix,txt);
  1148.     if (0 != strcmp(txt,panel_get(pt[4],PANEL_VALUE,0)))
  1149.            return(TRUE);
  1150.     return(FALSE);
  1151. }
  1152. /* EOF */
  1153. /* cat > src+obj/confirm_image.c << "EOF" */
  1154. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1155. /* confirm_image: confirm TRUE if image display is not    */
  1156. /*          stored data                */
  1157. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1158. /* SCCS information: %W%    %G% - NCSA */
  1159.  
  1160. /* #include "all.h" */
  1161.  
  1162. int    confirm_image()
  1163. {
  1164.     if (0 != strcmp(image[ni].fname,panel_get(pt[27],PANEL_VALUE,0)))
  1165.        return(TRUE);
  1166.     if (0 == image[ni].xpts)    strcpy(txt,"");
  1167.     else            my_itoa(image[ni].xpts,txt);
  1168.     if (0 != strcmp(txt,panel_get(pt[23],PANEL_VALUE,0)))
  1169.            return(TRUE);
  1170.     if (0 == image[ni].ypts)    strcpy(txt,"");
  1171.     else            my_itoa(image[ni].ypts,txt);
  1172.     if (0 != strcmp(txt,panel_get(pt[24],PANEL_VALUE,0)))
  1173.            return(TRUE);
  1174.     if (0 == image[ni].xpos)    strcpy(txt,"");
  1175.     else            my_itoa(image[ni].xpos,txt);
  1176.     if (0 != strcmp(txt,panel_get(pt[25],PANEL_VALUE,0)))
  1177.            return(TRUE);
  1178.     if (0 == image[ni].ypos)    strcpy(txt,"");
  1179.     else            my_itoa(image[ni].ypos,txt);
  1180.     if (0 != strcmp(txt,panel_get(pt[26],PANEL_VALUE,0)))
  1181.            return(TRUE);
  1182.     return(FALSE);
  1183. }
  1184. /* EOF */
  1185. /* cat > src+obj/confirm_palette.c << "EOF" */
  1186. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1187. /* confirm_palette: confirm TRUE if palette display is    */
  1188. /*            not stored data            */
  1189. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1190. /* SCCS information: %W%    %G% - NCSA */
  1191.  
  1192. /* #include "all.h" */
  1193.  
  1194. int    confirm_palette()
  1195. {
  1196.     if (0 != strcmp(pfn,panel_get(pt[0],PANEL_VALUE,0)))
  1197.        return(TRUE);
  1198.     if (0 == clear_color)
  1199.        strcpy(txt,"");
  1200.     else
  1201.        my_itoa(clear_color,txt);
  1202.     if (0 != strcmp(txt,panel_get(pt[1],PANEL_VALUE,0)))
  1203.        return(TRUE);
  1204.     return(FALSE);
  1205. }
  1206. /* EOF */
  1207. /* cat > src+obj/confirm_text.c << "EOF" */
  1208. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1209. /* confirm_text: confirm TRUE if text display is not    */
  1210. /*         stored data                */
  1211. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1212. /* SCCS information: %W%    %G% - NCSA */
  1213.  
  1214. /* #include "all.h" */
  1215.  
  1216. int    confirm_text()
  1217. {
  1218.     if (0 == text[nt].color)    strcpy(txt,"");
  1219.     else            my_itoa(text[nt].color,txt);
  1220.     if (0 != strcmp(txt,panel_get(pt[11],PANEL_VALUE,0)))
  1221.            return(TRUE);
  1222.     if (0 == text[nt].xpos)    strcpy(txt,"");
  1223.     else            my_itoa(text[nt].xpos,txt);
  1224.     if (0 != strcmp(txt,panel_get(pt[12],PANEL_VALUE,0)))
  1225.            return(TRUE);
  1226.     if (0 == text[nt].ypos)    strcpy(txt,"");
  1227.     else            my_itoa(text[nt].ypos,txt);
  1228.     if (0 != strcmp(txt,panel_get(pt[13],PANEL_VALUE,0)))
  1229.            return(TRUE);
  1230.     if (0 != strcmp(text[nt].body,panel_get(pt[14],PANEL_VALUE,0)))
  1231.        return(TRUE);
  1232.     if (0 != strcmp(text[nt].prefont,panel_get(pt[15],PANEL_VALUE,0)))
  1233.        return(TRUE);
  1234.     if (0 != strcmp(text[nt].postfont,panel_get(pt[16],PANEL_VALUE,0)))
  1235.        return(TRUE);
  1236.     return(FALSE);
  1237. }
  1238. /* EOF */
  1239. /* cat > src+obj/confirm_vector.c << "EOF" */
  1240. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1241. /* confirm_vector: confirm TRUE if vector display is    */
  1242. /*           not stored data            */
  1243. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1244. /* SCCS information: %W%    %G% - NCSA */
  1245.  
  1246. /* #include "all.h" */
  1247.  
  1248. int    confirm_vector()
  1249. {
  1250.     float    f;
  1251.     if (0 != strcmp(vec[nv].xname,panel_get(pt[39],PANEL_VALUE,0)))
  1252.        return(TRUE);
  1253.     if (0 != strcmp(vec[nv].yname,panel_get(pt[40],PANEL_VALUE,0)))
  1254.        return(TRUE);
  1255.     if (0 == vec[nv].xpts)    strcpy(txt,"");
  1256.     else            my_itoa(vec[nv].xpts,txt);
  1257.     if (0 != strcmp(txt,panel_get(pt[41],PANEL_VALUE,0)))
  1258.            return(TRUE);
  1259.     if (0 == vec[nv].ypts)    strcpy(txt,"");
  1260.     else            my_itoa(vec[nv].ypts,txt);
  1261.     if (0 != strcmp(txt,panel_get(pt[42],PANEL_VALUE,0)))
  1262.            return(TRUE);
  1263.     if (0 == vec[nv].xpos)    strcpy(txt,"");
  1264.     else            my_itoa(vec[nv].xpos,txt);
  1265.     if (0 != strcmp(txt,panel_get(pt[43],PANEL_VALUE,0)))
  1266.            return(TRUE);
  1267.     if (0 == vec[nv].ypos)    strcpy(txt,"");
  1268.     else            my_itoa(vec[nv].ypos,txt);
  1269.     if (0 != strcmp(txt,panel_get(pt[44],PANEL_VALUE,0)))
  1270.            return(TRUE);
  1271.     if (0 == vec[nv].xzero)    strcpy(txt,"");
  1272.     else            my_itoa(vec[nv].xzero,txt);
  1273.     if (0 != strcmp(txt,panel_get(pt[45],PANEL_VALUE,0)))
  1274.            return(TRUE);
  1275.     if (0 == vec[nv].yzero)    strcpy(txt,"");
  1276.     else            my_itoa(vec[nv].yzero,txt);
  1277.     if (0 != strcmp(txt,panel_get(pt[46],PANEL_VALUE,0)))
  1278.            return(TRUE);
  1279.     if (FALSE == my_isfloat(panel_get(pt[47],PANEL_VALUE,0)))
  1280.        return(TRUE);
  1281.     my_atof(&f,panel_get(pt[47],PANEL_VALUE,0));
  1282.     if ( vec[nv].xscale != f)
  1283.        return(TRUE);
  1284.     if (0 == vec[nv].xstart)    strcpy(txt,"");
  1285.     else            my_itoa(vec[nv].xstart,txt);
  1286.     if (0 != strcmp(txt,panel_get(pt[48],PANEL_VALUE,0)))
  1287.            return(TRUE);
  1288.     if (0 == vec[nv].ystart)    strcpy(txt,"");
  1289.     else            my_itoa(vec[nv].ystart,txt);
  1290.     if (0 != strcmp(txt,panel_get(pt[49],PANEL_VALUE,0)))
  1291.            return(TRUE);
  1292.     if (0 == vec[nv].xend)    strcpy(txt,"");
  1293.     else            my_itoa(vec[nv].xend,txt);
  1294.     if (0 != strcmp(txt,panel_get(pt[50],PANEL_VALUE,0)))
  1295.            return(TRUE);
  1296.     if (0 == vec[nv].yend)    strcpy(txt,"");
  1297.     else            my_itoa(vec[nv].yend,txt);
  1298.     if (0 != strcmp(txt,panel_get(pt[51],PANEL_VALUE,0)))
  1299.            return(TRUE);
  1300.     if (0 == vec[nv].xinterval)    strcpy(txt,"");
  1301.     else            my_itoa(vec[nv].xinterval,txt);
  1302.     if (0 != strcmp(txt,panel_get(pt[52],PANEL_VALUE,0)))
  1303.            return(TRUE);
  1304.     if (0 == vec[nv].yinterval)    strcpy(txt,"");
  1305.     else            my_itoa(vec[nv].yinterval,txt);
  1306.     if (0 != strcmp(txt,panel_get(pt[53],PANEL_VALUE,0)))
  1307.            return(TRUE);
  1308.     if (0 == vec[nv].color)    strcpy(txt,"");
  1309.     else            my_itoa(vec[nv].color,txt);
  1310.     if (0 != strcmp(txt,panel_get(pt[54],PANEL_VALUE,0)))
  1311.            return(TRUE);
  1312.     if (0 == vec[nv].maxlen)    strcpy(txt,"");
  1313.     else            my_itoa(vec[nv].maxlen,txt);
  1314.     if (0 != strcmp(txt,panel_get(pt[55],PANEL_VALUE,0)))
  1315.            return(TRUE);
  1316.     if (FALSE == my_isfloat(panel_get(pt[56],PANEL_VALUE,0)))
  1317.        return(TRUE);
  1318.     my_atof(&f,panel_get(pt[56],PANEL_VALUE,0));
  1319.     if ( vec[nv].yscale != f)
  1320.        return(TRUE);
  1321.     return(FALSE);
  1322. }
  1323. /* EOF */
  1324. /* cat > src+obj/cpw_check.c << "EOF" */
  1325. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1326. /* cpw_check: TRUE if a frame is using the canvas    */
  1327. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1328. /* SCCS information: %W%    %G% - NCSA */
  1329.  
  1330. /* #include "all.h" */
  1331.  
  1332. int    cpw_check()
  1333. {
  1334.     if (csw_dump == TRUE)
  1335.        {bad_data("File Utility frame using canvas mouse until you specify otherwise.");
  1336.         return(TRUE);
  1337.        }
  1338.     if (csw_colorbar == TRUE)
  1339.        {bad_data("ColorBar frame using canvas mouse until you specify otherwise.");
  1340.         return(TRUE);
  1341.        }
  1342.     if (csw_image == TRUE)
  1343.        {bad_data("Image frame using canvas mouse until you specify otherwise.");
  1344.         return(TRUE);
  1345.        }
  1346.     if (csw_contour == TRUE)
  1347.        {bad_data("Contour frame using canvas mouse until you specify otherwise.");
  1348.         return(TRUE);
  1349.        }
  1350.     if (csw_text == TRUE)
  1351.        {bad_data("Text frame using canvas mouse until you specify otherwise.");
  1352.         return(TRUE);
  1353.        }
  1354.     if (csw_vector == TRUE)
  1355.        {bad_data("Vector frame using canvas mouse until you specify otherwise.");
  1356.         return(TRUE);
  1357.        }
  1358.     return(FALSE);
  1359. }
  1360. /* EOF */
  1361. /* cat > src+obj/cpw_event.c << "EOF" */
  1362. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1363. /* cpw_event: canvas events, pixwin is cpw                */
  1364. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1365. /* SCCS information: %W%    %G% - NCSA */
  1366.  
  1367. /* #include "all.h" */
  1368.  
  1369. int    cpw_event(c,e) Canvas c; Event *e;
  1370. {
  1371.     int    x     = event_x(e),
  1372.         y     = event_y(e),
  1373.         down,
  1374.         drag,
  1375.         up,
  1376.         leave;
  1377.     if    (event_id(e) == LOC_WINEXIT)
  1378.         {drag    = FALSE;
  1379.          down    = FALSE;
  1380.          up    = FALSE;
  1381.          leave    = TRUE;
  1382.         }
  1383.     else if    (event_id(e) == LOC_DRAG)
  1384.         {drag    = TRUE;
  1385.          down    = FALSE;
  1386.          up    = FALSE;
  1387.          leave    = FALSE;
  1388.         }
  1389.     else if    (event_id(e) == MS_LEFT && event_is_down(e))
  1390.         {drag    = FALSE;
  1391.          down    = TRUE;
  1392.          up    = FALSE;
  1393.          leave    = FALSE;
  1394.         }
  1395.     else if    (event_id(e) == MS_LEFT && event_is_up(e))
  1396.         {drag    = FALSE;
  1397.          down    = FALSE;
  1398.          up    = TRUE;
  1399.          leave    = FALSE;
  1400.         }
  1401.     else
  1402.         {down    = FALSE;
  1403.          drag    = FALSE;
  1404.          up    = FALSE;
  1405.          leave    = FALSE;
  1406.         }
  1407.         if      (csw_dump     == TRUE)    event_dump(    x,y,down,drag,up,leave);
  1408.         else if    (csw_colorbar == TRUE)    event_colorbar(    x,y,down,drag,up,leave);
  1409.         else if    (csw_text     == TRUE)    event_text(    x,y,down,drag,up,leave);
  1410.         else if    (csw_image    == TRUE)    event_image(    x,y,down,drag,up,leave);
  1411.         else if    (csw_contour  == TRUE)    event_contour(    x,y,down,drag,up,leave);
  1412.         else if    (csw_vector   == TRUE)    event_vector(    x,y,down,drag,up,leave);
  1413.     else    return;
  1414. }
  1415. /* EOF */
  1416. /* cat > src+obj/draw_box.c << "EOF" */
  1417. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1418. /* draw_box: for mouse operations on the canvas        */
  1419. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1420. /* SCCS information: %W%    %G% - NCSA */
  1421.  
  1422. /* #include "all.h" */
  1423.  
  1424. int    draw_box(s,x1,y1,x2,y2)
  1425.          char    *s;
  1426.          int    x1,y1,x2,y2;
  1427. {
  1428.  
  1429.     if    (0 == strcmp(s,"read"))
  1430.         {pw_read(x1_save,0,0,N_hpix,1,PIX_SRC,cpw,0,y1);
  1431.          pw_read(x2_save,0,0,N_hpix,1,PIX_SRC,cpw,0,y2);
  1432.          pw_read(y1_save,0,0,1,N_vpix,PIX_SRC,cpw,x1,0);
  1433.          pw_read(y2_save,0,0,1,N_vpix,PIX_SRC,cpw,x2,0);
  1434.         }
  1435.     else if    (0 == strcmp(s,"write"))
  1436.         {pw_write(cpw,0,y1,N_hpix,1,PIX_SRC,x1_save,0,0);
  1437.          pw_write(cpw,0,y2,N_hpix,1,PIX_SRC,x2_save,0,0);
  1438.          pw_write(cpw,x1,0,1,N_vpix,PIX_SRC,y1_save,0,0);
  1439.          pw_write(cpw,x2,0,1,N_vpix,PIX_SRC,y2_save,0,0);
  1440.         }
  1441.     else if    (0 == strcmp(s,"draw"))
  1442.         {pw_vector(cpw,x1,y1,x1,y2,PIX_SRC,255);
  1443.          pw_vector(cpw,x1,y2,x2,y2,PIX_SRC,255);
  1444.          pw_vector(cpw,x2,y2,x2,y1,PIX_SRC,255);
  1445.          pw_vector(cpw,x2,y1,x1,y1,PIX_SRC,255);
  1446.         }
  1447.     else;
  1448.     return;
  1449. }
  1450. /* EOF */
  1451. /* cat > src+obj/draw_colorbar.c << "EOF" */
  1452. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1453. /* draw_colorbar: draw the colorbar on the canvas    */
  1454. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1455. /* SCCS information: %W%    %G% - NCSA */
  1456.  
  1457. /* #include "all.h" */
  1458.  
  1459. int    draw_colorbar(s) struct s_colorbar *s;
  1460. {
  1461.         int             c;
  1462.         float           f = 255.00001/s->ypts;
  1463.         register int    i;
  1464.         for (i = 0; i < s->ypts; i++)
  1465.            {c = f * i;
  1466.         pw_rop(cpw,s->xpos,
  1467.                s->ypos + s->ypts - 1 - i,
  1468.                s->xpts,
  1469.                1,
  1470.            PIX_SRC | ((c) << 5),NULL,0,0);
  1471.            }
  1472.         return;
  1473. }
  1474. /* EOF */
  1475. /* cat > src+obj/draw_contour.c << "EOF" */
  1476. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1477. /* draw_contour: draw a contour on the canvas        */
  1478. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1479. /* SCCS information: %W%    %G% - NCSA */
  1480.  
  1481. /* #include "all.h" */
  1482. /* #include "newext.h" */
  1483.  
  1484. int     draw_contour(s, n) struct s_contour *s;
  1485.                int n; /* sequence number of image in HDF file */
  1486. {
  1487.     int    z;
  1488.     int    nxpts, nypts, filetype;
  1489.  
  1490.     z = check_image (s->fname, &(s->xpts), &(s->ypts), &nxpts, &nypts, n, &filetype);
  1491.     if    (z == 1)
  1492.     {
  1493.         sprintf (msg, "File = %s", s->fname);
  1494.                 bad_data2 ("Cannot open contour file, request ignored.", msg);
  1495.                 return;
  1496.     }
  1497.         else if (z == 2)
  1498.     {
  1499.         sprintf (msg, "File = %s", s->fname);
  1500.                 bad_data2 ("X-pts * Y-pts != contour filesize, request ignored.", msg);
  1501.                 return;
  1502.     }
  1503.     else if (z == 3)
  1504.     {
  1505.         sprintf (msg, "File = %s", s->fname);
  1506.         bad_data2 ("Not enough images in HDF file for contour image, request ignored.", msg);
  1507.         return;
  1508.     }
  1509.     else if (z < 0)        /* HDF error */
  1510.     {
  1511.         sprintf (msg, "HDF file error (DFerror = %d) for contour image, request ignored.", z);
  1512.         sprintf (msg2, "File = %s", s->fname);
  1513.         bad_data2 (msg, msg2);
  1514.         return;
  1515.     }
  1516.     if (z == 4)        /* HDF - different size */
  1517.     {
  1518.         sprintf (msg, "File = %s, old(x=%d,y=%d), new(x=%d,y=%d)", s->fname, s->xpts, s->ypts, nxpts, nypts);
  1519.         info_msg2 ("           ----- INFORMATION MESSAGE -----",
  1520.                "HDF file image dimensions used for contour image.", msg,
  1521.                "           ----- INFORMATION MESSAGE -----");
  1522.         z = 0;
  1523.         s->xpts = nxpts;
  1524.         s->ypts = nypts;
  1525.     }
  1526.         if (z == 0)
  1527.     {
  1528.             unsigned char   *h;
  1529.             int             cfirst,clast,cinterval,f;
  1530.             register int    i,j;
  1531.  
  1532.             if (s->first < 0)          cfirst = 0;
  1533.             else if (s->first > 255)   cfirst = 255;
  1534.             else                       cfirst = s->first;
  1535.             if (s->last < cfirst)      clast = cfirst;
  1536.             else if (s->last > 255)    clast = 255;
  1537.             else                       clast = s->last;
  1538.             if (s->interval < 1)       cinterval = 9999;
  1539.             else                       cinterval = s->interval;
  1540.         if (NULL == (h = (unsigned char *)calloc(s->xpts * s->ypts,
  1541.                               sizeof(unsigned char))))
  1542.         {
  1543.             bad_data ("Cannot allocate contour memory, request ignored.");
  1544.                  return;
  1545.         }
  1546.         if (load_contour_image (s->fname, s->xpts, s->ypts, h, n))
  1547.         {
  1548.             free ((char *) h);
  1549.             return;
  1550.         }
  1551.             for (i = cfirst; i <= clast; i += cinterval)
  1552.         {
  1553.                    con_row(i,h,s);
  1554.                           con_col(i,h,s);
  1555.                }
  1556.             free((char *) h);
  1557.             return;
  1558.     }
  1559.     else
  1560.     {
  1561.         bad_data("This contour error message is not possible.");
  1562.         return;
  1563.     }
  1564. }
  1565. /* EOF */
  1566. /* cat > src+obj/draw_feature.c << "EOF" */
  1567. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1568. /* draw_feature: draw the overlay features        */
  1569. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1570. /* SCCS information: %W%    %G% - NCSA */
  1571.  
  1572. /* #include "all.h" */
  1573.  
  1574. int    draw_feature(s,n,z) struct s_feature *s;
  1575.                 int    n,z;
  1576. {
  1577.  
  1578.     int        x1,x2,y1,y2;
  1579.     int        t,u,c;
  1580.     register int    i;
  1581.     if (n >= N_image + N_contour)
  1582.        {x1 = vec[n - N_image - N_contour].xpos;
  1583.         y2 = vec[n - N_image - N_contour].ypos;
  1584.         x2 = x1 - 1 + vec[n - N_image - N_contour].xpts;
  1585.         y1 = y2 - 1 + vec[n - N_image - N_contour].ypts;
  1586.        }
  1587.     else if (n < N_image)
  1588.        {x1 = image[n].xpos;
  1589.         y2 = image[n].ypos;
  1590.         x2 = x1 - 1 + image[n].xpts;
  1591.         y1 = y2 - 1 + image[n].ypts;
  1592.        }
  1593.     else
  1594.        {x1 = con[n - N_image].xpos;
  1595.         y2 = con[n - N_image].ypos;
  1596.         x2 = x1 - 1 + con[n - N_image].xpts;
  1597.         y1 = y2 - 1 + con[n - N_image].ypts;
  1598.        }
  1599.     if (x1 > x2 || y2 > y1)
  1600.        {bad_data("start/end pts prob:  remember features uses STORED values, not displayed.");
  1601.         return(1);
  1602.        }
  1603.  
  1604.     if (TRUE == s->xgr_sw)
  1605.        {t = s->xgr_thick / 2;
  1606.         if (z == FALSE)    c = clear_color;
  1607.         else        c = s->xgr_color;
  1608.         for (i = x1 + s->xgr_space; i < x2; i += s->xgr_space)
  1609.         pw_rop(cpw,i - t,y2,s->xgr_thick,y1 - y2 + 1,
  1610.                PIX_SRC | ((c) << 5),NULL,0,0);
  1611.        }
  1612.  
  1613.     if (TRUE == s->ygr_sw)
  1614.        {t = s->ygr_thick / 2;
  1615.         if (z == TRUE)    c = s->ygr_color;
  1616.         else        c = clear_color;
  1617.         for (i = y1 - s->ygr_space; i > y2; i -= s->ygr_space)
  1618.         pw_rop(cpw,x1,i - t,x2 - x1 + 1,s->ygr_thick,
  1619.                PIX_SRC | ((c) << 5),NULL,0,0);
  1620.        }
  1621.  
  1622.     if (TRUE == s->xax_sw)
  1623.        {if (z == TRUE)    c = s->xax_color;
  1624.         else        c = clear_color;
  1625.         if (s->yax_sw == FALSE || (s->yax_sw == TRUE && s->yax_left == FALSE &&
  1626.         s->yax_right == FALSE))
  1627.            {if (s->xax_bot == TRUE)
  1628.            pw_rop(cpw,x1,
  1629.                   y1 + 1,
  1630.                   x2 - x1 + 1,
  1631.                   s->xax_thick,
  1632.               PIX_SRC | ((c) << 5),NULL,0,0);
  1633.             if (s->xax_top == TRUE)
  1634.            pw_rop(cpw,x1,
  1635.                   y2 - s->xax_thick,
  1636.                   x2 - x1 + 1,
  1637.                   s->xax_thick,
  1638.               PIX_SRC | ((c) << 5),NULL,0,0);
  1639.            }
  1640.         if (s->yax_sw == TRUE && s->yax_left == TRUE && s->yax_right == FALSE)
  1641.            {if (s->xax_bot == TRUE)
  1642.            pw_rop(cpw,x1 - s->yax_thick,
  1643.                   y1 + 1,
  1644.                   x2 - x1 + 1 + s->yax_thick,
  1645.                   s->xax_thick,
  1646.               PIX_SRC | ((c) << 5),NULL,0,0);
  1647.             if (s->xax_top == TRUE)
  1648.            pw_rop(cpw,x1 - s->yax_thick,
  1649.                   y2 - s->xax_thick,
  1650.                   x2 - x1 + 1 + s->yax_thick,
  1651.                   s->xax_thick,
  1652.               PIX_SRC | ((c) << 5),NULL,0,0);
  1653.            }
  1654.     
  1655.         if (s->yax_sw == TRUE && s->yax_left == FALSE && s->yax_right == TRUE)
  1656.            {if (s->xax_bot == TRUE)
  1657.            pw_rop(cpw,x1,
  1658.                   y1 + 1,
  1659.                   x2 - x1 + 1 + s->yax_thick,
  1660.                   s->xax_thick,
  1661.               PIX_SRC | ((c) << 5),NULL,0,0);
  1662.             if (s->xax_top == TRUE)
  1663.            pw_rop(cpw,x1,
  1664.                   y2 - s->xax_thick,
  1665.                   x2 - x1 + 1 + s->yax_thick,
  1666.                   s->xax_thick,
  1667.               PIX_SRC | ((c) << 5),NULL,0,0);
  1668.            }
  1669.     
  1670.         if (s->yax_sw == TRUE && s->yax_left == TRUE  && s->yax_right == TRUE)
  1671.            {if (s->xax_bot == TRUE)
  1672.            pw_rop(cpw,x1 - s->yax_thick,
  1673.                   y1 + 1,
  1674.                   x2 - x1 + 1 + s->yax_thick +s->yax_thick,
  1675.                   s->xax_thick,
  1676.               PIX_SRC | ((c) << 5),NULL,0,0);
  1677.             if (s->xax_top == TRUE)
  1678.            pw_rop(cpw,x1 - s->yax_thick,
  1679.                   y2 - s->xax_thick,
  1680.                   x2 - x1 + 1 + s->yax_thick + s->yax_thick,
  1681.                   s->xax_thick,
  1682.               PIX_SRC | ((c) << 5),NULL,0,0);
  1683.            }
  1684.     
  1685.        }
  1686.  
  1687.     if (TRUE == s->yax_sw)
  1688.        {if (z == TRUE)    c = s->yax_color;
  1689.         else        c = clear_color;
  1690.         if (s->xax_sw == FALSE || (s->xax_sw == TRUE && s->xax_bot == FALSE &&
  1691.         s->xax_top == FALSE))
  1692.            {if (s->yax_left == TRUE)
  1693.            pw_rop(cpw,x1 - s->yax_thick,
  1694.                   y2,
  1695.                   s->yax_thick,
  1696.                   y1 - y2 + 1,
  1697.               PIX_SRC | ((c) << 5),NULL,0,0);
  1698.             if (s->yax_right == TRUE)
  1699.            pw_rop(cpw,x2 + 1,
  1700.                   y2,
  1701.                   s->yax_thick,
  1702.                   y1 - y2 + 1,
  1703.               PIX_SRC | ((c) << 5),NULL,0,0);
  1704.            }
  1705.         if (s->xax_sw == TRUE && s->xax_bot == TRUE && s->xax_top == FALSE)
  1706.            {if (s->yax_left == TRUE)
  1707.            pw_rop(cpw,x1 - s->yax_thick,
  1708.                   y2,
  1709.                   s->yax_thick,
  1710.                   y1 - y2 + 1 + s->xax_thick,
  1711.               PIX_SRC | ((c) << 5),NULL,0,0);
  1712.             if (s->yax_right == TRUE)
  1713.            pw_rop(cpw,x2 + 1,
  1714.                   y2,
  1715.                   s->yax_thick,
  1716.                   y1 - y2 + 1 + s->xax_thick,
  1717.               PIX_SRC | ((c) << 5),NULL,0,0);
  1718.            }
  1719.     
  1720.         if (s->xax_sw == TRUE && s->xax_bot == FALSE && s->xax_top == TRUE)
  1721.            {if (s->yax_left == TRUE)
  1722.            pw_rop(cpw,x1 - s->yax_thick,
  1723.                   y2 - s->xax_thick,
  1724.                   s->yax_thick,
  1725.                   y1 - y2 + 1 +s->xax_thick,
  1726.               PIX_SRC | ((c) << 5),NULL,0,0);
  1727.             if (s->yax_right == TRUE)
  1728.            pw_rop(cpw,x2 + 1,
  1729.                   y2 - s->xax_thick,
  1730.                   s->yax_thick,
  1731.                   y1 - y2 + 1 + s->xax_thick,
  1732.               PIX_SRC | ((c) << 5),NULL,0,0);
  1733.            }
  1734.     
  1735.         if (s->xax_sw == TRUE && s->xax_bot == TRUE  && s->xax_top == TRUE)
  1736.            {if (s->yax_left == TRUE)
  1737.            pw_rop(cpw,x1 - s->yax_thick,
  1738.                   y2 - s->xax_thick,
  1739.                   s->yax_thick,
  1740.                   y1 - y2 + 1 + s->xax_thick + s->xax_thick,
  1741.               PIX_SRC | ((c) << 5),NULL,0,0);
  1742.             if (s->yax_right == TRUE)
  1743.            pw_rop(cpw,x2 + 1,
  1744.                   y2 - s->xax_thick,
  1745.                   s->yax_thick,
  1746.                   y1 - y2 + 1 +s->xax_thick + s->xax_thick,
  1747.               PIX_SRC | ((c) << 5),NULL,0,0);
  1748.            }
  1749.  
  1750.        }
  1751.  
  1752.     if (TRUE == s->xt2_sw)
  1753.        {if (z == TRUE)    c = s->xt2_color;
  1754.         else        c = clear_color;
  1755.         t = s->xt2_thick / 2;
  1756.         if (s->xt2_direc == FALSE && s->xt2_bot == TRUE)
  1757.            for (i = x1; i <= x2; i += s->xt2_space)
  1758.            pw_rop(cpw,i - t,
  1759.                   y1 - s->xt2_len + 1,
  1760.                   s->xt2_thick,
  1761.                   s->xt2_len,
  1762.               PIX_SRC | ((c) << 5),NULL,0,0);
  1763.         if (s->xt2_direc == FALSE && s->xt2_top == TRUE)
  1764.            for (i = x1; i <= x2; i += s->xt2_space)
  1765.            pw_rop(cpw,i - t,
  1766.                   y2,
  1767.                   s->xt2_thick,
  1768.                   s->xt2_len,
  1769.               PIX_SRC | ((c) << 5),NULL,0,0);
  1770.         if (s->xt2_direc == TRUE && s->xt2_bot == TRUE)
  1771.            for (i = x1; i <= x2; i += s->xt2_space)
  1772.            pw_rop(cpw,i - t,
  1773.                   y1 + 1,
  1774.                   s->xt2_thick,
  1775.                   s->xt2_len,
  1776.               PIX_SRC | ((c) << 5),NULL,0,0);
  1777.         if (s->xt2_direc == TRUE && s->xt2_top == TRUE)
  1778.            for (i = x1; i <= x2; i += s->xt2_space)
  1779.            pw_rop(cpw,i - t,
  1780.                   y2 - s->xt2_len,
  1781.                   s->xt2_thick,
  1782.                   s->xt2_len,
  1783.               PIX_SRC | ((c) << 5),NULL,0,0);
  1784.        }
  1785.  
  1786.     if (TRUE == s->yt2_sw)
  1787.        {if (z == TRUE)    c = s->yt2_color;
  1788.         else        c = clear_color;
  1789.         t = s->yt2_thick / 2;
  1790.         if (s->yt2_direc == FALSE && s->yt2_left == TRUE)
  1791.            for (i = y1; i >= y2; i -= s->yt2_space)
  1792.            pw_rop(cpw,x1,
  1793.                   i - t,
  1794.                   s->yt2_len,
  1795.                   s->yt2_thick,
  1796.               PIX_SRC | ((c) << 5),NULL,0,0);
  1797.         if (s->yt2_direc == FALSE && s->yt2_right == TRUE)
  1798.            for (i = y1; i >= y2; i -= s->yt2_space)
  1799.            pw_rop(cpw,x2 - s->yt2_len + 1,
  1800.                   i - t,
  1801.                   s->yt2_len,
  1802.                   s->yt2_thick,
  1803.               PIX_SRC | ((c) << 5),NULL,0,0);
  1804.         if (s->yt2_direc == TRUE && s->yt2_left == TRUE)
  1805.            for (i = y1; i >= y2; i -= s->yt2_space)
  1806.            pw_rop(cpw,x1 - s->yt2_len,
  1807.                   i - t,
  1808.                   s->yt2_len,
  1809.                   s->yt2_thick,
  1810.               PIX_SRC | ((c) << 5),NULL,0,0);
  1811.         if (s->yt2_direc == TRUE && s->yt2_right == TRUE)
  1812.            for (i = y1; i >= y2; i -= s->yt2_space)
  1813.            pw_rop(cpw,x2 + 1,
  1814.                   i - t,
  1815.                   s->yt2_len,
  1816.                   s->yt2_thick,
  1817.               PIX_SRC | ((c) << 5),NULL,0,0);
  1818.        }
  1819.  
  1820.     if (TRUE == s->xt1_sw)
  1821.        {if (z == TRUE)    c = s->xt1_color;
  1822.         else        c = clear_color;
  1823.         t = s->xt1_thick / 2;
  1824.         if (s->xt1_direc == FALSE && s->xt1_bot == TRUE)
  1825.            for (i = x1; i <= x2; i += s->xt1_space)
  1826.            pw_rop(cpw,i - t,
  1827.                   y1 - s->xt1_len + 1,
  1828.                   s->xt1_thick,
  1829.                   s->xt1_len,
  1830.               PIX_SRC | ((c) << 5),NULL,0,0);
  1831.         if (s->xt1_direc == FALSE && s->xt1_top == TRUE)
  1832.            for (i = x1; i <= x2; i += s->xt1_space)
  1833.            pw_rop(cpw,i - t,
  1834.                   y2,
  1835.                   s->xt1_thick,
  1836.                   s->xt1_len,
  1837.               PIX_SRC | ((c) << 5),NULL,0,0);
  1838.         if (s->xt1_direc == TRUE && s->xt1_bot == TRUE)
  1839.            for (i = x1; i <= x2; i += s->xt1_space)
  1840.            pw_rop(cpw,i - t,
  1841.                   y1 + 1,
  1842.                   s->xt1_thick,
  1843.                   s->xt1_len,
  1844.               PIX_SRC | ((c) << 5),NULL,0,0);
  1845.         if (s->xt1_direc == TRUE && s->xt1_top == TRUE)
  1846.            for (i = x1; i <= x2; i += s->xt1_space)
  1847.            pw_rop(cpw,i - t,
  1848.                   y2 - s->xt1_len,
  1849.                   s->xt1_thick,
  1850.                   s->xt1_len,
  1851.               PIX_SRC | ((c) << 5),NULL,0,0);
  1852.        }
  1853.  
  1854.     if (TRUE == s->yt1_sw)
  1855.        {if (z == TRUE)    c = s->yt1_color;
  1856.         else        c = clear_color;
  1857.         t = s->yt1_thick / 2;
  1858.         if (s->yt1_direc == FALSE && s->yt1_left == TRUE)
  1859.            for (i = y1; i >= y2; i -= s->yt1_space)
  1860.            pw_rop(cpw,x1,
  1861.                   i - t,
  1862.                   s->yt1_len,
  1863.                   s->yt1_thick,
  1864.               PIX_SRC | ((c) << 5),NULL,0,0);
  1865.         if (s->yt1_direc == FALSE && s->yt1_right == TRUE)
  1866.            for (i = y1; i >= y2; i -= s->yt1_space)
  1867.            pw_rop(cpw,x2 - s->yt1_len + 1,
  1868.                   i - t,
  1869.                   s->yt1_len,
  1870.                   s->yt1_thick,
  1871.               PIX_SRC | ((c) << 5),NULL,0,0);
  1872.         if (s->yt1_direc == TRUE && s->yt1_left == TRUE)
  1873.            for (i = y1; i >= y2; i -= s->yt1_space)
  1874.            pw_rop(cpw,x1 - s->yt1_len,
  1875.                   i - t,
  1876.                   s->yt1_len,
  1877.                   s->yt1_thick,
  1878.               PIX_SRC | ((c) << 5),NULL,0,0);
  1879.         if (s->yt1_direc == TRUE && s->yt1_right == TRUE)
  1880.            for (i = y1; i >= y2; i -= s->yt1_space)
  1881.            pw_rop(cpw,x2 + 1,
  1882.                   i - t,
  1883.                   s->yt1_len,
  1884.                   s->yt1_thick,
  1885.               PIX_SRC | ((c) << 5),NULL,0,0);
  1886.        }
  1887.  
  1888.         return(0);
  1889. }
  1890. /* EOF */
  1891. /* cat > src+obj/draw_grid.c << "EOF" */
  1892. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1893. /* draw_grid: draw the grid on the canvas        */
  1894. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1895. /* SCCS information: %W%    %G% - NCSA */
  1896.  
  1897. /* #include "all.h" */
  1898.  
  1899. int    draw_grid(s) struct s_grid *s;
  1900. {
  1901.     int            n = PIX_SRC | ((s->color) << 5);
  1902.         register int            i;
  1903.         pw_vector(cpw,0,0,N_hpix-1,N_vpix-1,PIX_SRC,s->color);
  1904.         pw_vector(cpw,0,N_vpix-1,N_hpix-1,0,PIX_SRC,s->color);
  1905.         for (i=s->xpix; i < N_hpix; i += s->xpix)
  1906.         pw_rop(cpw,i,0,1,N_vpix,n,NULL,0,0);
  1907.         for (i=s->ypix; i < N_vpix; i += s->ypix)
  1908.         pw_rop(cpw,0,i,N_hpix,1,n,NULL,0,0);
  1909.         return;
  1910. }
  1911. /* EOF */
  1912. /* cat > src+obj/draw_image.c << "EOF" */
  1913. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1914. /* draw_image: draw an image on the canvas        */
  1915. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  1916. /* SCCS information: %W%    %G% - NCSA */
  1917.  
  1918. /* #include "all.h" */
  1919. /* #include "newext.h" */
  1920.  
  1921. int 
  1922. draw_image (s, n)
  1923.     struct s_image *s;
  1924.     int             n;    /* sequence number of image in HDF file */
  1925. {
  1926.     int             z;
  1927.     int             nxpts, nypts, filetype;
  1928.  
  1929.     z = check_image (s->fname, &(s->xpts), &(s->ypts), &nxpts, &nypts, n, &filetype);
  1930.     if (z == 1)
  1931.     {
  1932.         if (base_frame_up)
  1933.         {
  1934.             sprintf (msg, "File = %s", s->fname);
  1935.             bad_data2 ("Cannot open image file, request ignored.", msg);
  1936.             return (-1);
  1937.         }
  1938.         else
  1939.         {
  1940.             sprintf (msg, "File = %s - Incorrect file name or nonexistent file. Check defaults database with defaultsedit.", s->fname);
  1941.             bad_data2 ("Cannot open image file, CompositeTool terminated.", msg);
  1942.             return (-1);
  1943.         }
  1944.     }
  1945.     else if (z == 2)
  1946.     {
  1947.         if (base_frame_up)
  1948.         {
  1949.             sprintf (msg, "File = %s", s->fname);
  1950.             bad_data2 ("X-pts * Y-pts != image filesize, request ignored.", msg);
  1951.             return (-1);
  1952.         }
  1953.         else
  1954.         {
  1955.             sprintf (msg, "File = %s - Correct raw image file? Check defaults database with defaultsedit.", s->fname);
  1956.             bad_data2 ("X-pts * Y-pts != image filesize, CompositeTool terminated.", msg);
  1957.             return (-1);
  1958.         }
  1959.     }
  1960.     else if (z == 3)
  1961.     {
  1962.         if (base_frame_up)
  1963.         {
  1964.             sprintf (msg, "File = %s", s->fname);
  1965.             bad_data2 ("Not enough images in HDF file, request ignored.", msg);
  1966.             return (-1);
  1967.         }
  1968.         else
  1969.         {
  1970.             sprintf (msg, "File = %s - Correct HDF file? Check defaults database with defaultsedit.", s->fname);
  1971.             bad_data2 ("Not enough images in HDF file, CompositeTool terminated.", msg);
  1972.             return (-1);
  1973.         }
  1974.     }
  1975.     else if (z < 0)        /* HDF error */
  1976.     {
  1977.         if (base_frame_up)
  1978.         {
  1979.             sprintf (msg, "HDF file error (DFerror = %d), request ignored.", z);
  1980.             sprintf (msg2, "File = %s", s->fname);
  1981.             bad_data2 (msg, msg2);
  1982.             return (-1);
  1983.         }
  1984.         else
  1985.         {
  1986.             sprintf (msg, "HDF file error (DFerror = %d), CompositeTool terminated.", z);
  1987.             sprintf (msg2, "File = %s - Bad HDF file. Check defaults database with defaultsedit.", s->fname);
  1988.             bad_data2 (msg, msg2);
  1989.             return (-1);
  1990.         }
  1991.     }
  1992.     if (z == 4)        /* HDF - different size */
  1993.     {
  1994.         if (base_frame_up)
  1995.         {
  1996.             sprintf (msg, "File = %s, old(x=%d,y=%d), new(x=%d,y=%d).", s->fname, s->xpts, s->ypts, nxpts, nypts);
  1997.             info_msg2 ("          ----- INFORMATION MESSAGE -----",
  1998.                    "HDF file image dimensions used", msg,
  1999.                        "          ----- INFORMATION MESSAGE -----");
  2000.         }
  2001.         else        /* logo file only */
  2002.         {
  2003.             sprintf (msg, "file = %s - Check defaults database with defaultsedit.", s->fname);
  2004.             bad_data2 ("HDF file dimensions disagree with required values, CompositeTool terminated.", msg);
  2005.             return (-1);
  2006.         }
  2007.         z = 0;
  2008.         s->xpts = nxpts;
  2009.         s->ypts = nypts;
  2010.     }
  2011.     if (z == 0)
  2012.     {
  2013.         struct pixrect *i;
  2014.         i = mem_create (s->xpts, s->ypts, 8);
  2015.         if (load_image (s->fname, s->xpts, s->ypts, s->xpos, s->ypos, i, n))
  2016.             return (-1);
  2017.         pw_rop (cpw, s->xpos, s->ypos, s->xpts, s->ypts, PIX_SRC, i, 0, 0);
  2018.         return (0);
  2019.     }
  2020.     else
  2021.     {
  2022.         bad_data ("This image draw error is not possible.");
  2023.         return (-1);
  2024.     }
  2025. }
  2026. /* EOF */
  2027. /* cat > src+obj/draw_text.c << "EOF" */
  2028. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2029. /* draw_text: draw a text on the canvas            */
  2030. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2031. /* SCCS information: %W%    %G% - NCSA */
  2032.  
  2033. /* #include "all.h" */
  2034.  
  2035. int    draw_text(s) struct s_text *s;
  2036. {
  2037.         struct pixfont  *f;
  2038.         strcpy(txt,s->prefont);
  2039.         strcat(txt,"/");
  2040.         strcat(txt,s->postfont);
  2041.         if (NULL == (f = pf_open(txt)))
  2042.            {bad_data("Can not open font file, request ignored.");
  2043.         return;
  2044.        }
  2045.         pw_ttext(cpw,s->xpos,s->ypos,PIX_SRC | ((s->color) << 5),f,s->body);
  2046.         pf_close(f);
  2047.         return;
  2048. }
  2049. /* EOF */
  2050. /* cat > src+obj/draw_vector.c << "EOF" */
  2051. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2052. /* draw_vector: draw a vector on the canvas        */
  2053. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2054. /* SCCS information: %W%    %G% - NCSA */
  2055.  
  2056. /* #include "all.h" */
  2057. /* #include "newext.h" */
  2058.  
  2059. int    draw_vector(flag, s, n) int flag; struct s_vector *s;
  2060.                 int n; /* sequence number of x-image in HDF
  2061.                       file. y-image follows x-image if 
  2062.                       same HDF file or sequence number if
  2063.                       different HDF file */
  2064. {
  2065.         int        maxx,maxy,startx,starty,
  2066.             intervalx,intervaly,endx,endy;
  2067.         int             f,b;
  2068.         unsigned char   *x,*y;
  2069.         register int    i,j;
  2070.  
  2071.     int    z;
  2072.     int    nxpts, nypts, filetype;
  2073.  
  2074.         if (s->xzero < 128)     maxx    = 255 - s->xzero;
  2075.         else                    maxx    = s->xzero;
  2076.         if (s->yzero < 128)     maxy    = 255 - s->yzero;
  2077.         else                    maxy    = s->yzero;
  2078.         if (flag == TRUE)
  2079.           {startx       = s->xdis;
  2080.            intervalx    = 9999;
  2081.            endx         = startx;
  2082.            starty       = s->ydis;
  2083.            intervaly    = 9999;
  2084.            endy         = starty;
  2085.            if (startx < 0 || startx >= s->xpts ||
  2086.            starty < 0 || starty >= s->ypts)
  2087.           return;
  2088.           }
  2089.         else
  2090.             {if (s->xstart < 0)         startx  = 0;
  2091.              else if (s->xstart >= s->xpts)     startx  = s->xpts - 1;
  2092.              else                               startx  = s->xstart;
  2093.              if (s->xinterval < 1)              intervalx = 9999;
  2094.              else                               intervalx = s->xinterval;
  2095.              if (s->xend < 0)           endx    = 0;
  2096.              else if (s->xend >= s->xpts)       endx    = s->xpts - 1;
  2097.              else                               endx    = s->xend;
  2098.              if (s->ystart < 0)         starty  = 0;
  2099.              else if (s->ystart >= s->ypts)     starty  = s->ypts - 1;
  2100.              else                               starty  = s->ystart;
  2101.              if (s->yinterval < 1)              intervaly = 9999;
  2102.              else                               intervaly = s->yinterval;
  2103.              if (s->yend < 0)           endy    = 0;
  2104.              else if (s->yend >= s->ypts)       endy    = s->ypts - 1;
  2105.              else                               endy    = s->yend;
  2106.             }
  2107.  
  2108.     z = check_image (s->xname, &(s->xpts), &(s->ypts), &nxpts, &nypts, n, &filetype);
  2109.     if    (z == 1)
  2110.     {
  2111.         sprintf (msg, "File = %s", s->xname);
  2112.                 bad_data2 ("Cannot open x-image file, request ignored.", msg);
  2113.                 return;
  2114.         }
  2115.         else if (z == 2)
  2116.     {
  2117.         sprintf (msg, "File = %s", s->xname);
  2118.                 bad_data2 ("X-pts * Y-pts != x-image filesize, request ignored.", msg);
  2119.                 return;
  2120.         }
  2121.     else if (z == 3)
  2122.     {
  2123.         sprintf (msg, "File = %s", s->xname);
  2124.         bad_data2 ("Not enough images in HDF file for x-image, request ignored.", msg);
  2125.         return;
  2126.     }
  2127.     else if (z < 0)        /* HDF error */
  2128.     {
  2129.         sprintf (msg, "HDF file error (DFerror = %d) for x-image, request ignored.", z);
  2130.         sprintf (msg2, "File = %s", s->xname);
  2131.         bad_data2 (msg, msg2);
  2132.         return;
  2133.     }
  2134.     if (z == 4)        /* HDF - different size */
  2135.     {
  2136.         sprintf (msg, "File = %s, old(x=%d,y=%d), new(x=%d,y=%d)", s->xname, s->xpts, s->ypts, nxpts, nypts);
  2137.         info_msg2 ("          ----- INFORMATION MESSAGE -----",
  2138.                "HDF file x-image dimensions used", msg,
  2139.                "          ----- INFORMATION MESSAGE -----");
  2140.         z = 0;
  2141.         s->xpts = nxpts;
  2142.         s->ypts = nypts;
  2143.     }
  2144.     z = check_image (s->yname, &(s->xpts), &(s->ypts), &nxpts, &nypts,
  2145.              (! strcmp (s->xname, s->yname)) ? n + 1 : n, &filetype);
  2146.     if    (z == 1)
  2147.     {
  2148.         sprintf (msg, "File = %s", s->yname);
  2149.                 bad_data2 ("Cannot open y-image file, request ignored.", msg);
  2150.                 return;
  2151.         }
  2152.         else if (z == 2)
  2153.     {
  2154.         sprintf (msg, "File = %s", s->yname);
  2155.                 bad_data2 ("X-pts * Y-pts != y-image filesize, request ignored.", msg);
  2156.                 return;
  2157.         }
  2158.     else if (z == 3)
  2159.     {
  2160.         sprintf (msg, "File = %s", s->yname);
  2161.         bad_data2 ("Not enough images in HDF file for y-image, request ignored.", msg);
  2162.         return;
  2163.     }
  2164.     else if (z < 0)        /* HDF error */
  2165.     {
  2166.         sprintf (msg, "HDF file error (DFerror = %d) for y-image, request ignored.", z);
  2167.         sprintf (msg2, "File = %s", s->yname);
  2168.         bad_data2 (msg, msg2);
  2169.         return;
  2170.     }
  2171.     if (z == 4)        /* HDF - different size */
  2172.     {
  2173.         sprintf (msg, "File = %s, x-image(x=%d,y=%d), y-image(x=%d,y=%dr)", s->yname, s->xpts, s->ypts, nxpts, nypts);
  2174.         bad_data2 ("X-image different size than y-image, request ignored.", msg);
  2175.         return;
  2176.     }
  2177.         if (NULL == (x = (unsigned char *)calloc(s->xpts * s->ypts,sizeof(unsigned char))))
  2178.     {
  2179.             bad_data ("Cannot allocate x-image memory, request ignored.");
  2180.         return;
  2181.         }
  2182.     if (load_vector_image (s->xname, s->xpts, s->ypts, x, n, 0)) /* 0 == x-image */
  2183.     {
  2184.         free ((char *) x);
  2185.         return;
  2186.     }
  2187.         if (NULL == (y = (unsigned char *)calloc(s->xpts * s->ypts,sizeof(unsigned char))))
  2188.     {
  2189.             bad_data ("Cannot allocate y-image memory, request ignored.");
  2190.         free ((char *) x);
  2191.         return;
  2192.         }
  2193.     if (load_vector_image (s->yname, s->xpts, s->ypts, y, n, 1)) /* 1 == y-image */
  2194.     {
  2195.         free ((char *) x);
  2196.         free ((char *) y);
  2197.         return;
  2198.     }
  2199.         for (j = starty; j <= endy; j += intervaly)
  2200.             for (i = startx; i <= endx; i += intervalx)
  2201.                draw_vector1(s,x,y,s->xpos + i,s->ypos + j,
  2202.                             s->xpts * (s->ypts - j - 1) + i,maxx,maxy);
  2203. /*
  2204.                draw_vector1(s,x,y,s->xpos + i,s->ypos + s->ypts - 1 - j,
  2205.                             s->xpts * (s->ypts - j - 1) + i,maxx,maxy);
  2206. */
  2207.         free((char *) x);
  2208.         free((char *) y);
  2209.         return;
  2210. }
  2211. /* EOF */
  2212. /* cat > src+obj/draw_vector1.c << "EOF" */
  2213. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2214. /* draw_vector1: draw vector arrowhead            */
  2215. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2216. /* SCCS information: %W%    %G% - NCSA */
  2217.  
  2218. /* #include "all.h" */
  2219.  
  2220. int    draw_vector1(s,x,y,xc,yc,off,maxx,maxy)
  2221.                      struct s_vector *s;
  2222.              unsigned char *x,*y;
  2223.                      int xc,yc,off,maxx,maxy;
  2224. {
  2225.         register int            i,j;
  2226.         int                     a,b,xuse,yuse,xp0,yp0,xp1,yp1;
  2227.         float                   xv,yv,lv,st,ct,hlen = 6.,hwid = 3.;
  2228.         i = *(x + off);
  2229.         j = *(y + off);
  2230.         if (s->maxlen == 0 ||
  2231.            (s->xscale < .0001 && s->xscale > -.0001 &&
  2232.             s->yscale < .0001 && s->yscale > -.0001) ||
  2233.            (i == s->xzero && j == s->yzero))
  2234.           {pw_vector(cpw,xc+2,yc-2,xc+2,yc+2,PIX_SRC,s->color);
  2235.            pw_vector(cpw,xc+2,yc+2,xc-2,yc+2,PIX_SRC,s->color);
  2236.            pw_vector(cpw,xc-2,yc+2,xc-2,yc-2,PIX_SRC,s->color);
  2237.            pw_vector(cpw,xc-2,yc-2,xc+2,yc-2,PIX_SRC,s->color);
  2238.            return;
  2239.           }
  2240.         xv = s->xscale * (i - s->xzero) / (maxx + 0.);
  2241.         yv = s->yscale * (j - s->yzero) / (maxy + 0.);
  2242.         lv = sqrt(xv * xv + yv * yv);
  2243.         st = yv / lv;
  2244.         ct = xv / lv;
  2245.         xuse = s->maxlen * xv * .5;
  2246.         yuse = s->maxlen * yv * .5;
  2247.         xp0 = xc - xuse;
  2248.         yp0 = yc + yuse;
  2249.         xp1 = xc + xuse;
  2250.         yp1 = yc - yuse;
  2251.         pw_vector(cpw,xp0,yp0,xp1,yp1,PIX_SRC,s->color);
  2252.         a = - hlen * ct - hwid * st;
  2253.         b =   hlen * st - hwid * ct;
  2254.         pw_vector(cpw,xp1,yp1,xp1+a,yp1+b,PIX_SRC,s->color);
  2255.         a = - hlen * ct + hwid * st;
  2256.         b =   hlen * st + hwid * ct;
  2257.         pw_vector(cpw,xp1,yp1,xp1+a,yp1+b,PIX_SRC,s->color);
  2258.         return;
  2259. }
  2260. /* EOF */
  2261. /* cat > src+obj/event_colorbar.c << "EOF" */
  2262. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2263. /* event_colorbar: canvas events, pixwin is cpw        */
  2264. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2265. /* SCCS information: %W%    %G% - NCSA */
  2266.  
  2267. /* #include "all.h" */
  2268.  
  2269. int    event_colorbar(x,y,down,drag,up,leave) int x,y,down,drag,up,leave;
  2270. {
  2271.     char        c[10],
  2272.             d[10];
  2273.     if (sw_draw == TRUE)
  2274.        {if (down == TRUE)
  2275.            {if (FALSE == ok_colorbar(&tcbar))
  2276.            {reset_mcolorbar();
  2277.             return;
  2278.            }
  2279.         tcbar.xpos = x;
  2280.         tcbar.ypos = y;
  2281.         my_itoa(x,c);
  2282.         my_itoa(y,d);
  2283.         panel_set(pt[8],PANEL_VALUE,c,0);
  2284.         panel_set(pt[9],PANEL_VALUE,d,0);
  2285.         draw_colorbar(&tcbar);
  2286.         return;
  2287.            }
  2288.         mouse_msg(x,y);
  2289.         panel_set(pm[2],PANEL_LABEL_STRING,"",0);
  2290.         return;
  2291.        }
  2292.     if (sw_move == TRUE)
  2293.        {if (down == TRUE)
  2294.            {if (FALSE == ok_colorbar(&tcbar))
  2295.            {reset_mcolorbar();
  2296.             return;
  2297.            }
  2298.                 x_start = tcbar.xpos - 1;
  2299.                 x_end   = tcbar.xpos + tcbar.xpts;
  2300.                 y_start = tcbar.ypos - 1;
  2301.                 y_end   = tcbar.ypos + tcbar.ypts;
  2302.                 draw_box("read",x_start,y_start,x_end,y_end);
  2303.                 draw_box("draw",x_start,y_start,x_end,y_end);
  2304.                 x_interval = x;
  2305.                 y_interval = y;
  2306.                } 
  2307.             else if (drag == TRUE)
  2308.                {draw_box("write",x_start,y_start,x_end,y_end);
  2309.                 x_start += (x - x_interval);
  2310.                 x_end   += (x - x_interval);
  2311.                 y_start += (y - y_interval);
  2312.                 y_end   += (y - y_interval);
  2313.                 x_interval = x;
  2314.                 y_interval = y;
  2315.                 draw_box("read",x_start,y_start,x_end,y_end);
  2316.                 draw_box("draw",x_start,y_start,x_end,y_end);
  2317.                }
  2318. /*
  2319.             else if (leave == TRUE)
  2320.                draw_box("write",x_start,y_start,x_end,y_end);
  2321. */
  2322.             else if (up == TRUE)
  2323.                {draw_box("write",x_start,y_start,x_end,y_end);
  2324.         if (FALSE == ok_colorbar(&tcbar))
  2325.            {reset_mcolorbar();
  2326.             return;
  2327.            }
  2328.         pw_rop(cpw,tcbar.xpos,tcbar.ypos,
  2329.                tcbar.xpts,tcbar.ypts,
  2330.                PIX_SRC | ((clear_color) << 5),NULL,0,0);
  2331.                 tcbar.xpos = x_start + 1;
  2332.                 tcbar.ypos = y_start + 1;
  2333.         draw_colorbar(&tcbar);
  2334.         my_itoa(tcbar.xpos,c);
  2335.         my_itoa(tcbar.ypos,d);
  2336.         panel_set(pt[8],PANEL_VALUE,c,0);
  2337.         panel_set(pt[9],PANEL_VALUE,d,0);
  2338.                }
  2339.             else;
  2340.             mouse_msg(x,y);
  2341.             panel_set(pm[2],PANEL_LABEL_STRING,"",0);
  2342.             return;
  2343.            }
  2344. }
  2345. /* EOF */
  2346. /* cat > src+obj/event_contour.c << "EOF" */
  2347. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2348. /* event_contour: canvas events, pixwin is cpw        */
  2349. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2350. /* SCCS information: %W%    %G% - NCSA */
  2351.  
  2352. /* #include "all.h" */
  2353.  
  2354. int    event_contour(x,y,down,drag,up,leave) int x,y,down,drag,up,leave;
  2355. {
  2356.     char        c[10],
  2357.             d[10];
  2358.     if (sw_draw == TRUE)
  2359.        {if (down == TRUE)
  2360.            {if (FALSE == ok_contour(&con[N_contour], 1))
  2361.            {reset_mcontour();
  2362.             return;
  2363.            }
  2364.         con[N_contour].xpos = x;
  2365.         con[N_contour].ypos = y;
  2366.         my_itoa(x,c);
  2367.         my_itoa(y,d);
  2368.         panel_set(pt[32],PANEL_VALUE,c,0);
  2369.         panel_set(pt[33],PANEL_VALUE,d,0);
  2370.         draw_contour(&con[N_contour], 1);
  2371.         return;
  2372.            }
  2373.         mouse_msg(x,y);
  2374.         panel_set(pm[2],PANEL_LABEL_STRING,"",0);
  2375.         return;
  2376.        }
  2377.     if (sw_move == TRUE)
  2378.        {if (down == TRUE)
  2379.            {if (FALSE == ok_contour(&con[N_contour], 1))
  2380.            {reset_mcontour();
  2381.             return;
  2382.            }
  2383.                 x_start = con[N_contour].xpos - 1;
  2384.                 x_end   = con[N_contour].xpos + con[N_contour].xpts;
  2385.                 y_start = con[N_contour].ypos - 1;
  2386.                 y_end   = con[N_contour].ypos + con[N_contour].ypts;
  2387.                 draw_box("read",x_start,y_start,x_end,y_end);
  2388.                 draw_box("draw",x_start,y_start,x_end,y_end);
  2389.                 x_interval = x;
  2390.                 y_interval = y;
  2391.            }
  2392.         else if (drag == TRUE)
  2393.                {draw_box("write",x_start,y_start,x_end,y_end);
  2394.                 x_start += (x - x_interval);
  2395.                 x_end   += (x - x_interval);
  2396.                 y_start += (y - y_interval);
  2397.                 y_end   += (y - y_interval);
  2398.                 x_interval = x;
  2399.                 y_interval = y;
  2400.                 draw_box("read",x_start,y_start,x_end,y_end);
  2401.                 draw_box("draw",x_start,y_start,x_end,y_end);
  2402.                }
  2403. /*
  2404.             else if (leave == TRUE)
  2405.                draw_box("write",x_start,y_start,x_end,y_end);
  2406. */
  2407.             else if (up == TRUE)
  2408.                {draw_box("write",x_start,y_start,x_end,y_end);
  2409.                 if (FALSE == ok_contour(&con[N_contour], 1))
  2410.                    {reset_mcontour();
  2411.                     return;
  2412.                    }
  2413.         pw_rop(cpw,con[N_contour].xpos,con[N_contour].ypos,
  2414.                con[N_contour].xpts,con[N_contour].ypts,
  2415.                PIX_SRC | ((clear_color) << 5),NULL,0,0);
  2416.                 con[N_contour].xpos = x_start + 1;
  2417.                 con[N_contour].ypos = y_start + 1;
  2418.                 draw_contour(&con[N_contour], 1);
  2419.                 my_itoa(con[N_contour].xpos,c);
  2420.                 my_itoa(con[N_contour].ypos,d);
  2421.         panel_set(pt[32],PANEL_VALUE,c,0);
  2422.         panel_set(pt[33],PANEL_VALUE,d,0);
  2423.            }
  2424.         else;
  2425.         mouse_msg(x,y);
  2426.         panel_set(pm[2],PANEL_LABEL_STRING,"",0);
  2427.         return;
  2428.        }
  2429. }
  2430. /* EOF */
  2431. /* cat > src+obj/event_dump.c << "EOF" */
  2432. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2433. /* event_dump: canvas events, pixwin is cpw        */
  2434. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2435. /* SCCS information: %W%    %G% - NCSA */
  2436.  
  2437. /* #include "all.h" */
  2438.  
  2439. int    event_dump(x,y,down,drag,up,leave) int x,y,down,drag,up,leave;
  2440. {
  2441.     char        c[10],
  2442.             d[10];
  2443.  
  2444.     mouse_msg(x,y);
  2445.     if (down == TRUE)
  2446.        {sdump.xstart = sdump.xend = x;
  2447.         sdump.ystart = sdump.yend = y;
  2448.         draw_box("read",sdump.xstart,sdump.ystart,sdump.xend,sdump.yend);
  2449.         my_itoa(x,c);
  2450.         my_itoa(y,d);
  2451.         panel_set(pt[18],PANEL_VALUE,c,0);
  2452.         panel_set(pt[20],PANEL_VALUE,c,0);
  2453.         panel_set(pt[19],PANEL_VALUE,d,0);
  2454.         panel_set(pt[21],PANEL_VALUE,d,0);
  2455.        }
  2456.     else if (drag == TRUE)
  2457.        {draw_box("write",sdump.xstart,sdump.ystart,sdump.xend,sdump.yend);
  2458.         sdump.xend = x;
  2459.         if ((sdump.xend - sdump.xstart +1) % 2 != 0) sdump.xend -= 1;
  2460.         sdump.yend = y;
  2461.         draw_box("read",sdump.xstart,sdump.ystart,sdump.xend,sdump.yend);
  2462.         draw_box("draw",sdump.xstart,sdump.ystart,sdump.xend,sdump.yend);
  2463.         my_itoa(sdump.xend,c);
  2464.         my_itoa(y,d);
  2465.         panel_set(pt[20],PANEL_VALUE,c,0);
  2466.         panel_set(pt[21],PANEL_VALUE,d,0);
  2467.        }
  2468.     else if (up == TRUE || leave == TRUE)
  2469.        draw_box("write",sdump.xstart,sdump.ystart,sdump.xend,sdump.yend);
  2470.     else;
  2471.     kbyte_msg(sdump.xend - sdump.xstart + 1,
  2472.           sdump.yend - sdump.ystart + 1);
  2473.     return;
  2474. }
  2475. /* EOF */
  2476. /* cat > src+obj/event_image.c << "EOF" */
  2477. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2478. /* event_image: canvas events, pixwin is cpw        */
  2479. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2480. /* SCCS information: %W%    %G% - NCSA */
  2481.  
  2482. /* #include "all.h" */
  2483.  
  2484. int    event_image(x,y,down,drag,up,leave) int x,y,down,drag,up,leave;
  2485. {
  2486.     char        c[10],
  2487.             d[10];
  2488.     if (sw_draw == TRUE)
  2489.        {if (down == TRUE)
  2490.            {if (FALSE == ok_image(&image[N_image], 1))
  2491.            {reset_mimage();
  2492.             return;
  2493.            }
  2494.         image[N_image].xpos = x;
  2495.         image[N_image].ypos = y;
  2496.         my_itoa(x,c);
  2497.         my_itoa(y,d);
  2498.         panel_set(pt[25],PANEL_VALUE,c,0);
  2499.         panel_set(pt[26],PANEL_VALUE,d,0);
  2500.         draw_image(&image[N_image], 1);
  2501.         return;
  2502.            }
  2503.         mouse_msg(x,y);
  2504.         panel_set(pm[2],PANEL_LABEL_STRING,"",0);
  2505.         return;
  2506.        }
  2507.     if (sw_move == TRUE)
  2508.        {if (down == TRUE)
  2509.            {if (FALSE == ok_image(&image[N_image], 1))
  2510.            {reset_mimage();
  2511.             return;
  2512.            }
  2513.                 x_start = image[N_image].xpos - 1;
  2514.                 x_end   = image[N_image].xpos + image[N_image].xpts;
  2515.                 y_start = image[N_image].ypos - 1;
  2516.                 y_end   = image[N_image].ypos + image[N_image].ypts;
  2517.                 draw_box("read",x_start,y_start,x_end,y_end);
  2518.                 draw_box("draw",x_start,y_start,x_end,y_end);
  2519.                 x_interval = x;
  2520.                 y_interval = y;
  2521.            }
  2522.         else if (drag == TRUE)
  2523.                {draw_box("write",x_start,y_start,x_end,y_end);
  2524.                 x_start += (x - x_interval);
  2525.                 x_end   += (x - x_interval);
  2526.                 y_start += (y - y_interval);
  2527.                 y_end   += (y - y_interval);
  2528.                 x_interval = x;
  2529.                 y_interval = y;
  2530.                 draw_box("read",x_start,y_start,x_end,y_end);
  2531.                 draw_box("draw",x_start,y_start,x_end,y_end);
  2532.                }
  2533. /*
  2534.         else if (leave == TRUE)
  2535.                draw_box("write",x_start,y_start,x_end,y_end);
  2536. */
  2537.         else if (up == TRUE)
  2538.                {draw_box("write",x_start,y_start,x_end,y_end);
  2539.                 if (FALSE == ok_image(&image[N_image], 1))
  2540.                    {reset_mimage();
  2541.                     return;
  2542.                    }
  2543.         pw_rop(cpw,image[N_image].xpos,image[N_image].ypos,
  2544.                image[N_image].xpts,image[N_image].ypts,
  2545.                PIX_SRC | ((clear_color) << 5),NULL,0,0);
  2546.         image[N_image].xpos = x_start + 1;
  2547.         image[N_image].ypos = y_start + 1;
  2548.         draw_image(&image[N_image], 1);
  2549.         my_itoa(image[N_image].xpos,c);
  2550.         my_itoa(image[N_image].ypos,d);
  2551.         panel_set(pt[25],PANEL_VALUE,c,0);
  2552.         panel_set(pt[26],PANEL_VALUE,d,0);
  2553.                }
  2554.         else;
  2555.         mouse_msg(x,y);
  2556.         panel_set(pm[2],PANEL_LABEL_STRING,"",0);
  2557.         return;
  2558.        }
  2559. }
  2560. /* EOF */
  2561. /* cat > src+obj/event_text.c << "EOF" */
  2562. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2563. /* event_text: canvas events, pixwin is cpw        */
  2564. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2565. /* SCCS information: %W%    %G% - NCSA */
  2566.  
  2567. /* #include "all.h" */
  2568.  
  2569. int    event_text(x,y,down,drag,up,leave) int x,y,down,drag,up,leave;
  2570. {
  2571.     char        c[10],
  2572.             d[10];
  2573.     register int    i;
  2574.     if (sw_draw == TRUE)
  2575.        {if (down == TRUE)
  2576.            {if (FALSE == ok_text(&text[N_text]))
  2577.            {reset_mtext();
  2578.             return;
  2579.            }
  2580.         text[N_text].xpos = x;
  2581.         text[N_text].ypos = y;
  2582.         my_itoa(x,c);
  2583.         my_itoa(y,d);
  2584.         panel_set(pt[12],PANEL_VALUE,c,0);
  2585.         panel_set(pt[13],PANEL_VALUE,d,0);
  2586.         draw_text(&text[N_text]);
  2587.         return;
  2588.            }
  2589.         mouse_msg(x,y);
  2590.         panel_set(pm[2],PANEL_LABEL_STRING,"",0);
  2591.         return;
  2592.        }
  2593.     if (sw_move == TRUE)
  2594.        {if (down == TRUE)
  2595.            {if (FALSE == ok_text(&text[N_text]))
  2596.            {reset_mtext();
  2597.             return;
  2598.            }
  2599.         x_start = text[N_text].xpos;
  2600.         x_end   = text[N_text].xpos + 20;
  2601.         y_start = text[N_text].ypos - 20;
  2602.         y_end   = text[N_text].ypos;
  2603.             draw_box("read",x_start,y_start,x_end,y_end);
  2604.             draw_box("draw",x_start,y_start,x_end,y_end);
  2605.         x_interval = x;
  2606.         y_interval = y;
  2607.            }
  2608.         else if (drag == TRUE)
  2609.            {draw_box("write",x_start,y_start,x_end,y_end);
  2610.         x_start += (x - x_interval);
  2611.         x_end   += (x - x_interval);
  2612.         y_start += (y - y_interval);
  2613.         y_end   += (y - y_interval);
  2614.         x_interval = x;
  2615.         y_interval = y;
  2616.             draw_box("read",x_start,y_start,x_end,y_end);
  2617.             draw_box("draw",x_start,y_start,x_end,y_end);
  2618.            }
  2619. /*
  2620.         else if (leave == TRUE)
  2621.             draw_box("write",x_start,y_start,x_end,y_end);
  2622. */
  2623.         else if (up == TRUE)
  2624.            {draw_box("write",x_start,y_start,x_end,y_end);
  2625.         if (FALSE == ok_text(&text[N_text]))
  2626.            {reset_mtext();
  2627.             return;
  2628.            }
  2629.         i = text[N_text].color;
  2630.         text[N_text].color = clear_color;
  2631.         draw_text(&text[N_text]);
  2632.         text[N_text].xpos = x_start;
  2633.         text[N_text].ypos = y_start + 20;
  2634.         my_itoa(text[N_text].xpos,c);
  2635.         my_itoa(text[N_text].ypos,d);
  2636.         panel_set(pt[12],PANEL_VALUE,c,0);
  2637.         panel_set(pt[13],PANEL_VALUE,d,0);
  2638.         text[N_text].color = i;
  2639.         draw_text(&text[N_text]);
  2640.            }
  2641.         else;
  2642.         mouse_msg(x,y);
  2643.         panel_set(pm[2],PANEL_LABEL_STRING,"",0);
  2644.         return;
  2645.        }
  2646. }
  2647. /* EOF */
  2648. /* cat > src+obj/event_vector.c << "EOF" */
  2649. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2650. /* event_vector:  canvas events, pixwin is cpw        */
  2651. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2652. /* SCCS information: %W%    %G% - NCSA */
  2653.  
  2654. /* #include "all.h" */
  2655.  
  2656. int    event_vector(x,y,down,drag,up,leave) int x,y,down,drag,up,leave;
  2657. {
  2658.     char        c[10],
  2659.             d[10];
  2660.     register int    i;
  2661.     if (sw_draw == TRUE)
  2662.        {if (down == TRUE)
  2663.            {if (FALSE == ok_vector(&vec[N_vector], 1))
  2664.            {reset_mvector();
  2665.             return;
  2666.            }
  2667.         vec[N_vector].xpos = x;
  2668.         vec[N_vector].ypos = y;
  2669.         my_itoa(x,c);
  2670.         my_itoa(y,d);
  2671.         panel_set(pt[43],PANEL_VALUE,c,0);
  2672.         panel_set(pt[44],PANEL_VALUE,d,0);
  2673.         draw_vector(FALSE,&vec[N_vector], 1);
  2674.         return;
  2675.            }
  2676.         mouse_msg(x,y);
  2677.         panel_set(pm[2],PANEL_LABEL_STRING,"",0);
  2678.         return;
  2679.        }
  2680.     if (sw_move == TRUE)
  2681.        {if (down == TRUE)
  2682.            {if (FALSE == ok_vector(&vec[N_vector], 1))
  2683.            {reset_mvector();
  2684.             return;
  2685.            }
  2686.                 x_start = vec[N_vector].xpos - 1;
  2687.                 x_end   = vec[N_vector].xpos + vec[N_vector].xpts;
  2688.                 y_start = vec[N_vector].ypos - 1;
  2689.                 y_end   = vec[N_vector].ypos + vec[N_vector].ypts;
  2690.                 draw_box("read",x_start,y_start,x_end,y_end);
  2691.                 draw_box("draw",x_start,y_start,x_end,y_end);
  2692.                 x_interval = x;
  2693.                 y_interval = y;
  2694.            }
  2695.         else if (drag == TRUE)
  2696.                {draw_box("write",x_start,y_start,x_end,y_end);
  2697.                 x_start += (x - x_interval);
  2698.                 x_end   += (x - x_interval);
  2699.                 y_start += (y - y_interval);
  2700.                 y_end   += (y - y_interval);
  2701.                 x_interval = x;
  2702.                 y_interval = y;
  2703.                 draw_box("read",x_start,y_start,x_end,y_end);
  2704.                 draw_box("draw",x_start,y_start,x_end,y_end);
  2705.                }
  2706. /*
  2707.             else if (leave == TRUE)
  2708.                draw_box("write",x_start,y_start,x_end,y_end);
  2709. */
  2710.             else if (up == TRUE)
  2711.                {draw_box("write",x_start,y_start,x_end,y_end);
  2712.                 if (FALSE == ok_vector(&vec[N_vector], 1))
  2713.                    {reset_mvector();
  2714.                     return;
  2715.                    }
  2716.         i = vec[N_vector].color;
  2717.         vec[N_vector].color = clear_color;
  2718.         draw_vector(FALSE,&vec[N_vector], 1);
  2719.         vec[N_vector].color = i;
  2720.                 vec[N_vector].xpos = x_start + 1;
  2721.                 vec[N_vector].ypos = y_start + 1;
  2722.                 draw_vector(FALSE,&vec[N_vector], 1);
  2723.         my_itoa(vec[N_vector].xpos,c);
  2724.         my_itoa(vec[N_vector].ypos,d);
  2725.         panel_set(pt[43],PANEL_VALUE,c,0);
  2726.         panel_set(pt[44],PANEL_VALUE,d,0);
  2727.                }
  2728.             else;
  2729.             mouse_msg(x,y);
  2730.             panel_set(pm[2],PANEL_LABEL_STRING,"",0);
  2731.             return;
  2732.            }
  2733. }
  2734. /* EOF */
  2735. /* cat > src+obj/info_msg.c << "EOF" */
  2736. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2737. /* info_msg: put three messages on the main panel    */
  2738. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2739. /* SCCS information: %W%    %G% - NCSA */
  2740.  
  2741. /* #include "all.h" */
  2742.  
  2743. int    info_msg(p,q,r) char *p,*q,*r;
  2744. {
  2745.     char    m[10],*s,*t;
  2746.     msg_no++;
  2747.     my_itoa(msg_no,m);
  2748.     if (strlen(p) <= strlen(m))
  2749.        panel_set(pm[0],PANEL_LABEL_STRING,m,0);
  2750.     else
  2751.        {s = m;
  2752.         t = p;
  2753.         while (*s) *t++ = *s++;
  2754.         panel_set(pm[0],PANEL_LABEL_STRING,p,0);
  2755.        }
  2756.     panel_set(pm[1],PANEL_LABEL_STRING,q,0);
  2757.     panel_set(pm[2],PANEL_LABEL_STRING,r,0);
  2758.     panel_set (pm[3], PANEL_LABEL_STRING, "", 0);
  2759.     return;
  2760. }
  2761. /* EOF */
  2762. /* cat > src+obj/kbyte_msg.c << "EOF" */
  2763. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2764. /* kbyte_msg: state the kbytes to dump screen to file    */
  2765. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2766. /* SCCS information: %W%    %G% - NCSA */
  2767.  
  2768. /* #include "all.h" */
  2769.  
  2770. int    kbyte_msg(x,y) int    x,y;
  2771. {
  2772.     char        *s;
  2773.     if ( x <= 0 || y <= 0)
  2774.   strcpy(txt,"*** WARNING *** won't work:  start-end points specify nonpositive area.");
  2775.     else
  2776.        {strcpy(txt,"Kbytes memory and disk to dump = ");
  2777.         s = txt;
  2778.         while (*s) s++;
  2779.         my_itoa(((x * y) >> 10) + 1, s);
  2780.         while (*s) s++;
  2781.         strcat(s,", xpts = ");
  2782.         while (*s) s++;
  2783.         my_itoa(x,s);
  2784.         while (*s) s++;
  2785.         strcat(s,", ypts = ");
  2786.         while (*s) s++;
  2787.         my_itoa(y,s);
  2788.         while (*s) s++;
  2789.         *s++ = '.';
  2790.         *s   = '\0';
  2791.        }
  2792.     panel_set(pm[2],PANEL_LABEL_STRING,txt,0);
  2793.     return;
  2794. }
  2795. /* EOF */
  2796. /* cat > src+obj/load_rgb.c << "EOF" */
  2797. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2798. /* load_rgb: load the red, blue, and green arrays for    */
  2799. /*         the palette                */
  2800. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2801. /* SCCS information: %W%    %G% - NCSA */
  2802.  
  2803. /* #include "all.h" */
  2804. /* #include "newext.h" */
  2805.  
  2806. int
  2807. load_rgb (rawpfn, n)
  2808.     char *rawpfn;
  2809.         /* input: unprocessed palette filename.
  2810.            returns: stripped palette filename if loaded. */
  2811.     int n;
  2812.         /* sequence number of palette in HDF file */
  2813. {
  2814.     int        z, i, f;
  2815.     unsigned char *p_palette;
  2816.     char s[MAXNAMELEN + 1];    
  2817.  
  2818.     strcpy (s, rawpfn);
  2819.     (void) strip_wspace (s);
  2820.     if (strlen (s) == 0)
  2821.     {
  2822.         if (base_frame_up)
  2823.         {
  2824.             bad_data ("Empty palette file, request ignored.");
  2825.              return (-1);
  2826.         }
  2827.         else
  2828.         {
  2829.             sprintf (msg, "Empty palette file. Check defaults database with defaultsedit.", s);
  2830.             bad_data2 ("Cannot open palette file, CompositeTool terminated.", msg);
  2831.             return (-1);
  2832.         }
  2833.     }
  2834.     
  2835.     z = check_palette (s, n);
  2836.     if    (z == 1)
  2837.     {
  2838.         if (base_frame_up)
  2839.         {
  2840.             sprintf (msg, "File = %s", s);
  2841.             bad_data2 ("Cannot open palette file, request ignored.", msg);
  2842.              return (-1);
  2843.         }
  2844.         else
  2845.         {
  2846.             sprintf (msg, "File = %s - Incorrect file name or nonexistent file. Check defaults database with defaultsedit.", s);
  2847.             bad_data2 ("Cannot open palette file, CompositeTool terminated.", msg);
  2848.             return (-1);
  2849.         }
  2850.     }
  2851.     else if    (z == 2)
  2852.     {
  2853.         if (base_frame_up)
  2854.         {
  2855.             sprintf (msg, "File = %s", s);
  2856.             bad_data2 ("Palette size != 768, request ignored.", msg);
  2857.              return (-1);
  2858.         }
  2859.         else
  2860.         {
  2861.             sprintf (msg, "File = %s - Correct raw palette file? Check defaults database with defaultsedit.", s);
  2862.             bad_data2 ("Palette size != 768, CompositeTool terminated.", msg);
  2863.             return (-1);
  2864.         }
  2865.     }
  2866.     else if (z == 3)
  2867.     {
  2868.         if (base_frame_up)
  2869.         {
  2870.             sprintf (msg, "File = %s", s);
  2871.             bad_data2 ("Not enough palettes in HDF file, request ignored.", msg);
  2872.              return (-1);
  2873.         }
  2874.         else
  2875.         {
  2876.             sprintf (msg, "File = %s - Correct HDF file? Check defaults database with defaultsedit.", s);
  2877.             bad_data2 ("Not enough palettes in HDF file, CompositeTool terminated.", msg);
  2878.             return (-1);
  2879.         }
  2880.     }
  2881.     else if (z < 0)        /* HDF error */
  2882.     {
  2883.         if (base_frame_up)
  2884.         {
  2885.             sprintf (msg, "HDF file error (DFerror = %d), request ignored.", z);
  2886.             sprintf (msg2, "File = %s", s);
  2887.             bad_data2 (msg, msg2);
  2888.             return (-1);
  2889.         }
  2890.         else
  2891.         {
  2892.             sprintf (msg, "HDF file error (DFerror = %d), CompositeTool terminated.", z);
  2893.             sprintf (msg2, "File = %s - Bad HDF file. Check defaults database with defaultsedit.", s);
  2894.             bad_data2 (msg, msg2);
  2895.             return (-1);
  2896.         }
  2897.     }
  2898.  
  2899.     if (DFPgetpal (s, palette))
  2900.     {
  2901.         f = open (s, O_RDONLY);        /* should not fail */
  2902.         read (f, red, 256);
  2903.         read (f, green, 256);
  2904.         read (f, blue, 256);
  2905.         close (f);
  2906.     }
  2907.     else 
  2908.     {
  2909.         for (i = 1; i < n; i++)        /* should not fail */
  2910.             DFPgetpal (s, palette);
  2911.         p_palette = palette;
  2912.         for (i = 0; i < 256; i++) /* put in red, green, blue arrays */
  2913.         {
  2914.             red[i] = *p_palette++;
  2915.             green[i] = *p_palette++;
  2916.             blue[i] = *p_palette++;
  2917.         }
  2918.         DFPrestart ();
  2919.     }
  2920.  
  2921.     adjust_colormap ();
  2922. /*
  2923.         *red         = *green         = *blue         = 255;
  2924.         *(red + 255) = *(green + 255) = *(blue + 255) = 0;
  2925.         *(red + 254) = *(green + 254) = *(blue + 254) = 255;
  2926.         *(red + 253) = *(green + 253) = *(blue + 253) = 0;
  2927. */
  2928.  
  2929.     strcpy (rawpfn, s);
  2930.         return (0);
  2931. }
  2932. /* EOF */
  2933. /* cat > src+obj/make_fr.c << "EOF" */
  2934. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2935. /* make_fr: make a frame                */
  2936. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2937. /* SCCS information: %W%    %G% - NCSA */
  2938.  
  2939. /* #include "all.h" */
  2940. /* #include "newext.h" */
  2941.  
  2942. int    make_fr(n,x,y,h,w,s) int n,x,y,h,w; char *s;
  2943. {
  2944.         fr[n]   = window_create(fr[0],FRAME,
  2945.                 FRAME_SHOW_LABEL,               TRUE,
  2946.                 FRAME_NO_CONFIRM,               TRUE,
  2947.                 WIN_X,                          x,
  2948.                 WIN_Y,                          y,
  2949.                 WIN_HEIGHT,                     h,
  2950.                 WIN_WIDTH,                      w,
  2951.                 FRAME_DONE_PROC,                *fdp[n],
  2952.                 FRAME_LABEL,                    s,
  2953.         FRAME_SHOW_SHADOW,        FALSE,
  2954.                 0);
  2955.     set_frame_colormap (fr[n], b_cmsn);
  2956.         return;
  2957. }
  2958. /* EOF */
  2959. /* cat > src+obj/make_pb.c << "EOF" */
  2960. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2961. /* make_pb: make a panel button                */
  2962. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2963. /* SCCS information: %W%    %G% - NCSA */
  2964.  
  2965. /* #include "all.h" */
  2966. /* #include "newext.h" */
  2967.  
  2968. int    make_pb(n,x,y,a,w,s) int n,x,y,a,w; char *s;
  2969. {
  2970.         pb[n]   = panel_create_item(pa[a],PANEL_BUTTON,
  2971.                 PANEL_ITEM_X,                   x,
  2972.                 PANEL_ITEM_Y,                   y,
  2973.                 PANEL_LABEL_IMAGE,
  2974.             panel_button_image(pa[a],s,w,font_panel_button),
  2975.                 PANEL_NOTIFY_PROC,              *bnp[n],
  2976.                 0);
  2977.         return;
  2978. }
  2979. /* EOF */
  2980. /* cat > src+obj/make_pm.c << "EOF" */
  2981. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2982. /* make_pm: make a panel message to be referenced in    */
  2983. /*        the pgm                    */
  2984. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  2985. /* SCCS information: %W%    %G% - NCSA */
  2986.  
  2987. /* #include "all.h" */
  2988.  
  2989. int    make_pm(n,x,y,a,s) int n,x,y,a; char *s;
  2990. {
  2991.         pm[n]   = panel_create_item(pa[a],PANEL_MESSAGE,
  2992.                 PANEL_ITEM_X,                   x,
  2993.                 PANEL_ITEM_Y,                   y,
  2994.                 PANEL_LABEL_STRING,             s,
  2995.                 PANEL_LABEL_BOLD,               TRUE,
  2996.                 0);
  2997.         return;
  2998. }
  2999. /* EOF */
  3000. /* cat > src+obj/make_pmnn.c << "EOF" */
  3001. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3002. /* make_pmnn: make a panel message never referenced in    */
  3003. /*           the pgm                    */
  3004. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3005. /* SCCS information: %W%    %G% - NCSA */
  3006.  
  3007. /* #include "all.h" */
  3008.  
  3009. int    make_pmnn(x,y,a,s) int x,y,a; char *s;
  3010. {
  3011.                 panel_create_item(pa[a],PANEL_MESSAGE,
  3012.                 PANEL_ITEM_X,                   x,
  3013.                 PANEL_ITEM_Y,                   y,
  3014.                 PANEL_LABEL_STRING,             s,
  3015.                 PANEL_LABEL_BOLD,               TRUE,
  3016.                 0);
  3017.         return;
  3018. }
  3019. /* EOF */
  3020. /* cat > src+obj/make_ps.c << "EOF" */
  3021. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3022. /* make_ps: make a panel slider                */
  3023. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3024. /* SCCS information: %W%    %G% - NCSA */
  3025.  
  3026. /* #include "all.h" */
  3027.  
  3028. int    make_ps(n,x,y,w,i,j,a,s) int n,x,y,w,i,j,a; char *s;
  3029. {
  3030.         ps[n]   = panel_create_item(pa[a],PANEL_SLIDER,
  3031.                 PANEL_LAYOUT,                   PANEL_HORIZONTAL,
  3032.                 PANEL_SHOW_RANGE,               TRUE,
  3033.                 PANEL_SHOW_VALUE,               TRUE,
  3034.                 PANEL_ITEM_X,                   x,
  3035.                 PANEL_ITEM_Y,                   y,
  3036.                 PANEL_SLIDER_WIDTH,             w,
  3037.                 PANEL_MIN_VALUE,                i,
  3038.                 PANEL_MAX_VALUE,                j,
  3039.                 PANEL_LABEL_STRING,             s,
  3040.                 PANEL_NOTIFY_PROC,              *snp[n],
  3041.                 0);
  3042.         return;
  3043. }
  3044. /* EOF */
  3045. /* cat > src+obj/make_pt.c << "EOF" */
  3046. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3047. /* make_pt: make a panel text                */
  3048. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3049. /* SCCS information: %W%    %G% - NCSA */
  3050.  
  3051. /* #include "all.h" */
  3052.  
  3053. int    make_pt(n,x,y,a,d,e,s) int n,x,y,a,d,e; char *s;
  3054. {
  3055.         pt[n]   = panel_create_item(pa[a],PANEL_TEXT,
  3056.                 PANEL_ITEM_X,                   x,
  3057.                 PANEL_ITEM_Y,                   y,
  3058.                 PANEL_VALUE_STORED_LENGTH,      d,
  3059.                 PANEL_VALUE_DISPLAY_LENGTH,     e,
  3060.                 PANEL_LABEL_STRING,             s,
  3061.                 PANEL_LABEL_BOLD,               TRUE,
  3062.                 0);
  3063.         return;
  3064. }
  3065. /* EOF */
  3066. /* cat > src+obj/mouse_msg.c << "EOF" */
  3067. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3068. /* mouse_msg: state the current mouse canvas position    */
  3069. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3070. /* SCCS information: %W%    %G% - NCSA */
  3071.  
  3072. /* #include "all.h" */
  3073.  
  3074. int    mouse_msg(x,y) int    x,y;
  3075. {
  3076.     char        *s;
  3077.     strcpy(txt,panel_get(pm[0],PANEL_LABEL_STRING,0));
  3078.     *(txt + 10) = '\0';
  3079.     panel_set(pm[0],PANEL_LABEL_STRING,txt,0);
  3080.     strcpy(txt,"Mouse now at x = ");
  3081.     s = txt;
  3082.     while (*s) s++;
  3083.     my_itoa(x,s);
  3084.     while (*s) s++;
  3085.     strcat(    s,", y = ");
  3086.     while (*s) s++;
  3087.     my_itoa(y,s);
  3088.     while (*s) s++;
  3089.     *s++ = '.';
  3090.     *s   = '\0';
  3091.     panel_set(pm[1],PANEL_LABEL_STRING,txt,0);
  3092.     return;
  3093. }
  3094. /* EOF */
  3095. /* cat > src+obj/msg_draw.c << "EOF" */
  3096. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3097. /* msg_draw: say draw button activated for some frame    */
  3098. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3099. /* SCCS information: %W%    %G% - NCSA */
  3100.  
  3101. /* #include "all.h" */
  3102.  
  3103. int    msg_draw(s) char *s;
  3104. {
  3105.     strcpy(txt,"          ");
  3106.     strcat(txt,s);
  3107.     strcat(txt,"  move the mouse into the canvas to the point");
  3108.     info_msg(txt,"where you want the origin to be, then click the mouse button.","");
  3109.     return;
  3110. }
  3111. /* EOF */
  3112. /* cat > src+obj/msg_move.c << "EOF" */
  3113. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3114. /* msg_move: say move button activated for some frame    */
  3115. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3116. /* SCCS information: %W%    %G% - NCSA */
  3117.  
  3118. /* #include "all.h" */
  3119.  
  3120. int    msg_move(s) char *s;
  3121. {
  3122.     strcpy(txt,"          ");
  3123.     strcat(txt,s);
  3124.     strcat(txt,"  move the mouse into the canvas and press the mouse button (hold");
  3125.     info_msg(txt,
  3126.          "it down).  Drag the mouse to some other point and release it.  The data",
  3127.          "is moved according to the vector you have just defined.");
  3128.     return;
  3129. }
  3130. /* EOF */
  3131. /* cat > src+obj/my_atof.c << "EOF" */
  3132. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3133. /* my_atof: my alpha to floating point            */
  3134. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3135. /* SCCS information: %W%    %G% - NCSA */
  3136.  
  3137. /* #include "all.h" */
  3138.  
  3139. int    my_atof(f,s) float *f; char *s;
  3140. {
  3141.         float           n;
  3142.         char            c,*t;
  3143.         if (*s == '\0') {*f = 0.; return;}
  3144.         while (*s == ' ') s++;
  3145.         t = s;
  3146.         while (*t && *t != '.') t++;
  3147.         if (*t == '\0') {*f = atoi(s); return;}
  3148.         *t = '\0';
  3149.         *f = atoi(s);
  3150.         *t++ = '.';
  3151.         if (*t == '\0') return;
  3152.         s = t;
  3153.         while (*t >= '0' && *t <= '9') t++;
  3154.         c = *t;
  3155.         *t = '\0';
  3156.         n = 1.;
  3157.         while (s < t) {n *= 10.; *f += (*s - '0') / n; s++;}
  3158.         *t = c;
  3159.         return;
  3160. }
  3161. /* EOF */
  3162. /* cat > src+obj/my_ftoa.c << "EOF" */
  3163. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3164. /* my_ftoa: my floating point to alpha            */
  3165. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3166. /* SCCS information: %W%    %G% - NCSA */
  3167.  
  3168. /* #include "all.h" */
  3169.  
  3170. int    my_ftoa(f,d,s) float f; int d; char *s;
  3171. {
  3172.         register int            n;
  3173.         n = f;
  3174.         my_itoa(n,s);
  3175.         n = f;
  3176.         while (n > 0) {s++; n /= 10;}
  3177.         *s++ = '.';
  3178.         n = f;
  3179.         f -= n;
  3180.         while (d-- > 0) f *= 10.;
  3181.         n = f;
  3182.         my_itoa(n,s);
  3183.         return;
  3184. }
  3185. /* EOF */
  3186. /* cat > src+obj/my_isfloat.c << "EOF" */
  3187. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3188. /* my_isfloat: is the char string a floating point    */
  3189. /*           number?                    */
  3190. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3191. /* SCCS information: %W%    %G% - NCSA */
  3192.  
  3193. /* #include "all.h" */
  3194.  
  3195. int    my_isfloat(s) char *s;
  3196. {
  3197.         char            *t;
  3198.         if (*s == '\0') return(TRUE);
  3199.         while (*s == ' ') s++;
  3200.         t = s;
  3201.         while (*t && *t != '.') t++;
  3202.         if (*t == '\0') return(my_isint(s));
  3203.         if (*t != '.') return(FALSE);
  3204.         *t = '\0';
  3205.         if (FALSE == my_isint(s)) return(FALSE);
  3206.         *t++ = '.';
  3207.         if (FALSE == my_isint(t)) return(FALSE);
  3208.         return(TRUE);
  3209. }
  3210. /* EOF */
  3211. /* cat > src+obj/my_isint.c << "EOF" */
  3212. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3213. /* my_isint: is the char string an integer?        */
  3214. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3215. /* SCCS information: %W%    %G% - NCSA */
  3216.  
  3217. /* #include "all.h" */
  3218.  
  3219. int    my_isint(s) char *s;
  3220. {
  3221.         char            *t;
  3222.         if (*s == '\0') return(TRUE);
  3223.         while (*s == ' ') s++;
  3224.         if (*s == '-') s++;
  3225.         t = s;
  3226.         while (*t) t++;
  3227.         t--;
  3228.         while(*t == ' ') *t-- = '\0';
  3229.         while (*s) {if (*s < '0' || *s > '9') return(FALSE); s++;}
  3230.         return(TRUE);
  3231. }
  3232. /* EOF */
  3233. /* cat > src+obj/my_itoa.c << "EOF" */
  3234. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3235. /* my_itoa: my integer to alpha                */
  3236. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3237. /* SCCS information: %W%    %G% - NCSA */
  3238.  
  3239. /* #include "all.h" */
  3240.  
  3241. int    my_itoa(n,s) int n; char *s;
  3242. {
  3243.         char                    *t;
  3244.         register int            j;
  3245.         if (n == 0) {*s++ = '0'; *s = '\0'; return;}
  3246.         if (n < 0) {*s++ = '-'; n = - n;}
  3247.         if (n < 10) {*s++ = '0' + n; *s = '\0'; return;}
  3248.         t = s;
  3249.         j = n;
  3250.         while (j > 0) {t++; j /= 10;}
  3251.         *t-- = '\0';
  3252.         while (t > s) {j = n/10; *t-- = '0' + n - 10*j; n /= 10;}
  3253.         *t = '0' +j;
  3254.         return;
  3255. }
  3256. /* EOF */
  3257. /* cat > src+obj/my_otod.c << "EOF" */
  3258. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3259. /* my_otod: my octal to decimal integer            */
  3260. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3261. /* SCCS information: %W%    %G% - NCSA */
  3262.  
  3263. /* #include "all.h" */
  3264.  
  3265. int    my_otod(n) int n;
  3266. {
  3267.         char            s[8],*t;
  3268.         register int    k,m;
  3269.         k       = 0;
  3270.         m       = 1;
  3271.         my_itoa(n,s);
  3272.         t = s;
  3273.         while (*t) t++;
  3274.         t--;
  3275.         while (t > s) {k += m * (*t - '0'); m *= 8; t--;}
  3276.         k += m * (*t - '0');
  3277.         return(k);
  3278. }
  3279. /* EOF */
  3280. /* cat > src+obj/my_stripfn.c << "EOF" */
  3281. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3282. /* my_stripfn: my strip file name            */
  3283. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3284. /* SCCS information: %W%    %G% - NCSA */
  3285.  
  3286. /* #include "all.h" */
  3287.  
  3288. int    my_stripfn(s) char *s;
  3289. {
  3290.         char            *t;
  3291.         if (*s == '\0') return;
  3292.         t = s;
  3293.         while (*t == ' ') t++;
  3294.         while (*t != ' ' && *t) *s++ = *t++;
  3295.         *s = '\0';
  3296.         return;
  3297. }
  3298. /* EOF */
  3299. /* cat > src+obj/no_op.c << "EOF" */
  3300. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3301. /* no_op: no operation                    */
  3302. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3303. /* SCCS information: %W%    %G% - NCSA */
  3304.  
  3305. /* #include "all.h" */
  3306.  
  3307. int    no_op()
  3308. {
  3309.         return;
  3310. }
  3311. /* EOF */
  3312. /* cat > src+obj/nosho_feature.c << "EOF" */
  3313. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3314. /* nosho_feature: no-sho the features frame elements    */
  3315. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3316. /* SCCS information: %W%    %G% - NCSA */
  3317.  
  3318. /* #include "all.h" */
  3319.  
  3320. int    nosho_feature()
  3321. {
  3322.     panel_set(pb[107],PANEL_SHOW_ITEM,FALSE,0);
  3323.     panel_set(pb[108],PANEL_SHOW_ITEM,FALSE,0);
  3324.     panel_set(pb[110],PANEL_SHOW_ITEM,FALSE,0);
  3325.     panel_set(pb[111],PANEL_SHOW_ITEM,FALSE,0);
  3326.     panel_set(pb[112],PANEL_SHOW_ITEM,FALSE,0);
  3327.     panel_set(ps[  0],PANEL_SHOW_ITEM,FALSE,0);
  3328.     panel_set(ps[  1],PANEL_SHOW_ITEM,FALSE,0);
  3329.     panel_set(ps[  2],PANEL_SHOW_ITEM,FALSE,0);
  3330.     panel_set(ps[  3],PANEL_SHOW_ITEM,FALSE,0);
  3331.         return;
  3332. }
  3333. /* EOF */
  3334. /* cat > src+obj/null_colorbar.c << "EOF" */
  3335. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3336. /* null_colorbar: null the colorbar structure        */
  3337. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3338. /* SCCS information: %W%    %G% - NCSA */
  3339.  
  3340. /* #include "all.h" */
  3341.  
  3342. int    null_colorbar(s) struct s_colorbar *s;
  3343. {
  3344.         s -> sw         = FALSE;
  3345.         s -> xpos       = 0;
  3346.         s -> ypos       = 0;
  3347.         s -> xpts       = 100;
  3348.         s -> ypts       = 256;
  3349.         return;
  3350. }
  3351. /* EOF */
  3352. /* cat > src+obj/null_contour.c << "EOF" */
  3353. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3354. /* null_contour: null a contour data structure        */
  3355. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3356. /* SCCS information: %W%    %G% - NCSA */
  3357.  
  3358. /* #include "all.h" */
  3359.  
  3360. int    null_contour(s) struct s_contour *s;
  3361. {
  3362.         s -> sw         = FALSE;
  3363.         strcpy(s -> fname,"");
  3364.         s -> color      = 255;
  3365.         s -> first      = 0;
  3366.         s -> last       = 255;
  3367.         s -> interval   = 32;
  3368.         s -> dis        = 0;
  3369.         s -> xpos       = 0;
  3370.         s -> ypos       = 0;
  3371.         s -> xpts       = 0;
  3372.         s -> ypts       = 0;
  3373.         return;
  3374. }
  3375. /* EOF */
  3376. /* cat > src+obj/null_feature.c << "EOF" */
  3377. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3378. /* null_feature: null a feature structure        */
  3379. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3380. /* SCCS information: %W%    %G% - NCSA */
  3381.  
  3382. /* #include "all.h" */
  3383.  
  3384. int    null_feature(s) struct s_feature *s;
  3385. {
  3386.         s -> xax_sw     = FALSE;
  3387.         s -> xax_thick  = 1;
  3388.         s -> xax_color  = 255;
  3389.         s -> xax_bot    = TRUE;
  3390.         s -> xax_top    = TRUE;
  3391.         s -> yax_sw     = FALSE;
  3392.         s -> yax_thick  = 1;
  3393.         s -> yax_color  = 255;
  3394.         s -> yax_left   = TRUE;
  3395.         s -> yax_right  = TRUE;
  3396.         s -> xgr_sw     = FALSE;
  3397.         s -> xgr_thick  = 1;
  3398.         s -> xgr_color  = 255;
  3399.         s -> xgr_space  = 64;
  3400.         s -> ygr_sw     = FALSE;
  3401.         s -> ygr_thick  = 1;
  3402.         s -> ygr_color  = 255;
  3403.         s -> ygr_space  = 64;
  3404.         s -> xt1_sw     = FALSE;
  3405.         s -> xt1_thick  = 1;
  3406.         s -> xt1_color  = 255;
  3407.         s -> xt1_bot    = TRUE;
  3408.         s -> xt1_top    = TRUE;
  3409.         s -> xt1_space  = 32;
  3410.         s -> xt1_len    = 10;
  3411.         s -> xt1_direc  = FALSE;
  3412.         s -> yt1_sw     = FALSE;
  3413.         s -> yt1_thick  = 1;
  3414.         s -> yt1_color  = 255;
  3415.         s -> yt1_left   = TRUE;
  3416.         s -> yt1_right  = TRUE;
  3417.         s -> yt1_space  = 32;
  3418.         s -> yt1_len    = 10;
  3419.         s -> yt1_direc  = FALSE;
  3420.         s -> xt2_sw     = FALSE;
  3421.         s -> xt2_thick  = 1;
  3422.         s -> xt2_color  = 255;
  3423.         s -> xt2_bot    = TRUE;
  3424.         s -> xt2_top    = TRUE;
  3425.         s -> xt2_space  = 8;
  3426.         s -> xt2_len    = 5;
  3427.         s -> xt2_direc  = FALSE;
  3428.         s -> yt2_sw     = FALSE;
  3429.         s -> yt2_thick  = 1;
  3430.         s -> yt2_color  = 255;
  3431.         s -> yt2_left   = TRUE;
  3432.         s -> yt2_right  = TRUE;
  3433.         s -> yt2_space  = 8;
  3434.         s -> yt2_len    = 5;
  3435.         s -> yt2_direc  = FALSE;
  3436.         return;
  3437. }
  3438. /* EOF */
  3439. /* cat > src+obj/null_grid.c << "EOF" */
  3440. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3441. /* null_grid: null the grid structure            */
  3442. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3443. /* SCCS information: %W%    %G% - NCSA */
  3444.  
  3445. /* #include "all.h" */
  3446.  
  3447. int    null_grid(s) struct s_grid *s;
  3448. {
  3449.         s -> sw         = FALSE;
  3450.         s -> xpix       = 100;
  3451.         s -> ypix       = 100;
  3452.         s -> color      = 255;
  3453.         return;
  3454. }
  3455. /* EOF */
  3456. /* cat > src+obj/null_image.c << "EOF" */
  3457. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3458. /* null_image: null an image structure            */
  3459. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3460. /* SCCS information: %W%    %G% - NCSA */
  3461.  
  3462. /* #include "all.h" */
  3463.  
  3464. int    null_image(s) struct s_image *s;
  3465. {
  3466.         s -> sw         = FALSE;
  3467.         strcpy(s -> fname,"");
  3468.         s -> xpos       = 0;
  3469.         s -> ypos       = 0;
  3470.         s -> xpts       = 0;
  3471.         s -> ypts       = 0;
  3472.         return;
  3473. }
  3474. /* EOF */
  3475. /* cat > src+obj/null_text.c << "EOF" */
  3476. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3477. /* null_text: null a text structure            */
  3478. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3479. /* SCCS information: %W%    %G% - NCSA */
  3480.  
  3481. /* #include "all.h" */
  3482. /* #include "newext.h" */
  3483.  
  3484. int    null_text(s) struct s_text *s;
  3485. {
  3486.         s -> sw         = FALSE;
  3487.         strcpy(s -> body,"");
  3488.         strcpy(s -> prefont, dprefont);
  3489.         strcpy(s -> postfont, dpostfont);
  3490.         s -> xpos       = 0;
  3491.         s -> ypos       = 0;
  3492.         s -> color      = 0;
  3493.         return;
  3494. }
  3495. /* EOF */
  3496. /* cat > src+obj/null_vector.c << "EOF" */
  3497. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3498. /* null_vector: null a vector structure            */
  3499. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3500. /* SCCS information: %W%    %G% - NCSA */
  3501.  
  3502. /* #include "all.h" */
  3503.  
  3504. int    null_vector(s) struct s_vector *s;
  3505. {
  3506.         s -> sw         = FALSE;
  3507.         strcpy(s -> xname,"");
  3508.         strcpy(s -> yname,"");
  3509.         s -> xpos       = 0;
  3510.         s -> ypos       = 0;
  3511.         s -> xpts       = 0;
  3512.         s -> ypts       = 0;
  3513.         s -> xstart     = 0;
  3514.         s -> xend       = 0;
  3515.         s -> xinterval  = 50;
  3516.         s -> ystart     = 0;
  3517.         s -> yend       = 0;
  3518.         s -> yinterval  = 50;
  3519.         s -> color      = 255;
  3520.         s -> maxlen     = 30;
  3521.         s -> xzero      = 128;
  3522.         s -> xscale     = 1.;
  3523.         s -> yscale     = 1.;
  3524.         s -> yzero      = 128;
  3525.         s -> xdis       = 0;
  3526.         s -> ydis       = 0;
  3527.         return;
  3528. }
  3529. /* EOF */
  3530. /* cat > src+obj/ok_colorbar.c << "EOF" */
  3531. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3532. /* ok_colorbar: is the structure ok for the displayed    */
  3533. /*        colorbar?                */
  3534. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3535. /* SCCS information: %W%    %G% - NCSA */
  3536.  
  3537. /* #include "all.h" */
  3538.  
  3539. int    ok_colorbar(s) struct s_colorbar *s;
  3540. {
  3541.         if    (FALSE == my_isint(panel_get(pt[6],PANEL_VALUE,0)))
  3542.         {bad_data("X-points not integer, request ignored.");
  3543.          return(FALSE);
  3544.         }
  3545.         else if    (atoi(panel_get(pt[6],PANEL_VALUE,0)) < 1)
  3546.         {bad_data("X-points < 1, request ignored.");
  3547.          return(FALSE);
  3548.         }
  3549.         else if    (FALSE == my_isint(panel_get(pt[7],PANEL_VALUE,0)))
  3550.         {bad_data("Y-points not integer, request ignored.");
  3551.          return(FALSE);
  3552.         }
  3553.         else if    (atoi(panel_get(pt[7],PANEL_VALUE,0)) < 1)
  3554.         {bad_data("Y-points < 1, request ignored.");
  3555.          return(FALSE);
  3556.         }
  3557.         else if    (FALSE == my_isint(panel_get(pt[8],PANEL_VALUE,0)))
  3558.         {bad_data("X-origin not integer, request ignored.");
  3559.          return(FALSE);
  3560.         }
  3561.         else if    (FALSE == my_isint(panel_get(pt[9],PANEL_VALUE,0)))
  3562.         {bad_data("Y-origin not integer, request ignored.");
  3563.          return(FALSE);
  3564.         }
  3565.     else
  3566.             {s->xpts = atoi(panel_get(pt[6],PANEL_VALUE,0));
  3567.              s->ypts = atoi(panel_get(pt[7],PANEL_VALUE,0));
  3568.              s->xpos = atoi(panel_get(pt[8],PANEL_VALUE,0));
  3569.              s->ypos = atoi(panel_get(pt[9],PANEL_VALUE,0));
  3570.              return(TRUE);
  3571.         }
  3572. }
  3573. /* EOF */
  3574. /* cat > src+obj/ok_contour.c << "EOF" */
  3575. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3576. /* ok_contour: is the structure ok for the displayed    */
  3577. /*           contour?                    */
  3578. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3579. /* SCCS information: %W%    %G% - NCSA */
  3580.  
  3581. /* #include "all.h" */
  3582.  
  3583. int
  3584. ok_contour (s, n)
  3585.     struct s_contour *s;
  3586.     int n;
  3587.         /* input: sequence number of image in HDF file */
  3588. {
  3589.         register int             i;
  3590.     int xv, yv, *pxv, *pyv, nxv, nyv, filetype;
  3591.     char *xs, *ys;
  3592.     char tmpfn[MAXNAMELEN + 1];
  3593.  
  3594.         if    (FALSE == my_isint(panel_get(pt[30],PANEL_VALUE,0)))
  3595.         {bad_data("X-points not integer, request ignored.");
  3596.          return(FALSE);
  3597.         }
  3598.         else if    (atoi(panel_get(pt[30],PANEL_VALUE,0)) < 0)
  3599.         {bad_data("X-points < 0, request ignored.");
  3600.          return(FALSE);
  3601.         }
  3602.         else if    (FALSE == my_isint(panel_get(pt[31],PANEL_VALUE,0)))
  3603.         {bad_data("Y-points not integer, request ignored.");
  3604.          return(FALSE);
  3605.         }
  3606.         else if    (atoi(panel_get(pt[31],PANEL_VALUE,0)) < 0)
  3607.         {bad_data("Y-points < 0, request ignored.");
  3608.          return(FALSE);
  3609.         }
  3610.         else if    (FALSE == my_isint(panel_get(pt[32],PANEL_VALUE,0)))
  3611.         {bad_data("X-origin not integer, request ignored.");
  3612.          return(FALSE);
  3613.         }
  3614.         else if    (FALSE == my_isint(panel_get(pt[33],PANEL_VALUE,0)))
  3615.         {bad_data("Y-origin not integer, request ignored.");
  3616.          return(FALSE);
  3617.         }
  3618.         else if    (FALSE == my_isint(panel_get(pt[34],PANEL_VALUE,0)))
  3619.         {bad_data("Color not integer, request ignored.");
  3620.          return(FALSE);
  3621.         }
  3622.         else if    (atoi(panel_get(pt[34],PANEL_VALUE,0)) < 0 ||
  3623.          atoi(panel_get(pt[34],PANEL_VALUE,0)) > 255)
  3624.         {bad_data("Color < 0 or > 255, request ignored.");
  3625.          return(FALSE);
  3626.         }
  3627.         else if    (FALSE == my_isint(panel_get(pt[35],PANEL_VALUE,0)))
  3628.         {bad_data("Start color not integer, request ignored.");
  3629.          return(FALSE);
  3630.         }
  3631.         else if    (FALSE == my_isint(panel_get(pt[36],PANEL_VALUE,0)))
  3632.         {bad_data("End color not integer, request ignored.");
  3633.          return(FALSE);
  3634.         }
  3635.     else if    (FALSE == my_isint(panel_get(pt[37],PANEL_VALUE,0)))
  3636.         {bad_data("Interval not integer, request ignored.");
  3637.          return(FALSE);
  3638.         }
  3639.     else
  3640.     {
  3641.         pxv = (xstrlen ((xs = panel_get (pt[30], PANEL_VALUE, 0))) == 0) ? NULL : &xv;
  3642.         if (pxv != NULL)
  3643.             xv = atoi (xs);
  3644.         pyv = (xstrlen ((ys = panel_get (pt[31], PANEL_VALUE, 0))) == 0) ? NULL : &yv;
  3645.         if (pyv != NULL)
  3646.             yv = atoi (ys);
  3647.         strcpy (tmpfn, panel_get (pt[29], PANEL_VALUE, 0));
  3648.         if (xstrlen (tmpfn) == 0) /* no file */
  3649.         {
  3650.             bad_data ("No contour image file given, request ignored.");
  3651.             return (FALSE);
  3652.         }
  3653.         else
  3654.         {
  3655.             (void) strip_wspace (tmpfn);
  3656.             i = check_image (tmpfn, pxv, pyv, &nxv, &nyv, n, &filetype);
  3657.         }
  3658.         if (i == 1)
  3659.         {
  3660.             bad_data ("Cannot open contour image file, request ignored.");
  3661.                      return (FALSE);
  3662.                 }
  3663.         else if    (i == 2)
  3664.         {
  3665.             if (pxv == NULL && pyv != NULL)
  3666.             {
  3667.                 bad_data ("No X points given - not HDF file, request ignored.");
  3668.                 return (FALSE);
  3669.             }
  3670.             else if (pxv != NULL && pyv == NULL)
  3671.             {
  3672.                 bad_data ("No Y points given - not HDF file, request ignored.");
  3673.                 return (FALSE);
  3674.             }
  3675.             else if (xv == 0)
  3676.             {
  3677.                 bad_data ("X-points < 1, request ignored.");
  3678.                 return (FALSE);
  3679.             }
  3680.             else if (yv == 0)
  3681.             {
  3682.                 bad_data ("Y-points < 1, request ignored.");
  3683.                 return (FALSE);
  3684.             }
  3685.             else
  3686.             {
  3687.                 bad_data ("X-pts*Y-pts != contour image filesize, request ignored.");
  3688.                          return (FALSE);
  3689.                     }
  3690.         }
  3691.         else if (i == 3)
  3692.         {
  3693.             bad_data ("Not enough images in HDF file for contour image, request ignored");
  3694.             return (FALSE);
  3695.         }
  3696.         else if (i < 0)        /* HDF error */
  3697.         {
  3698.             sprintf (msg, "HDF file error (DFerror = %d) for contour image, request ignored.", i);
  3699.             bad_data (msg);
  3700.             return (FALSE);
  3701.         }
  3702.         if (i == 4)
  3703.         {
  3704. /*
  3705.             info_msg ("          ----- INFORMATION MESSAGE -----",
  3706.                   "HDF file contour image dimensions used",
  3707.                   "          ----- INFORMATION MESSAGE -----");
  3708. */
  3709.             sprintf (msg, "%d", nxv);  
  3710.             panel_set_value (pt[30], msg);
  3711.             sprintf (msg, "%d", nyv);
  3712.             panel_set_value (pt[31], msg);
  3713.             xv = nxv;
  3714.             yv = nyv;
  3715.             i = 0;
  3716.         }
  3717.         if (i == 0)
  3718.         {
  3719.             strcpy(s->fname, tmpfn);
  3720.             panel_set (pt[29], PANEL_VALUE, tmpfn, 0);
  3721.             s->xpts = xv;
  3722.             s->ypts = yv;
  3723.             s->xpos = atoi(panel_get(pt[32],PANEL_VALUE,0));
  3724.             s->ypos = atoi(panel_get(pt[33],PANEL_VALUE,0));
  3725.             s->color = atoi(panel_get(pt[34],PANEL_VALUE,0));
  3726.             s->first = atoi(panel_get(pt[35],PANEL_VALUE,0));
  3727.             s->last = atoi(panel_get(pt[36],PANEL_VALUE,0));
  3728.             s->interval = atoi(panel_get(pt[37],PANEL_VALUE,0));
  3729.             return (TRUE);
  3730.         }
  3731.         else
  3732.         {
  3733.             bad_data("This ok_contour error is not possible.");
  3734.             return(FALSE);
  3735.         }
  3736.     }
  3737. }
  3738. /* EOF */
  3739. /* cat > src+obj/ok_grid.c << "EOF" */
  3740. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3741. /* ok_grid: is the structure ok for the displayed grid?    */
  3742. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3743. /* SCCS information: %W%    %G% - NCSA */
  3744.  
  3745. /* #include "all.h" */
  3746.  
  3747. int    ok_grid(s) struct s_grid *s;
  3748. {
  3749.         if    (FALSE == my_isint(panel_get(pt[2],PANEL_VALUE,0)))
  3750.         {bad_data("Color not integer, request ignored.");
  3751.          return(FALSE);
  3752.         }
  3753.         else if    (atoi(panel_get(pt[2],PANEL_VALUE,0)) < 0 ||
  3754.          atoi(panel_get(pt[2],PANEL_VALUE,0)) > 255)
  3755.         {bad_data("Color < 0 or > 255, request ignored.");
  3756.          return(FALSE);
  3757.         }
  3758.         else if    (FALSE == my_isint(panel_get(pt[3],PANEL_VALUE,0)))
  3759.         {bad_data("Pix/x-grid not integer, request ignored.");
  3760.          return(FALSE);
  3761.         }
  3762.         else if    (atoi(panel_get(pt[3],PANEL_VALUE,0)) < 1)
  3763.         {bad_data("Pix/x-grid < 1, request ignored.");
  3764.          return(FALSE);
  3765.         }
  3766.         else if    (FALSE == my_isint(panel_get(pt[4],PANEL_VALUE,0)))
  3767.         {bad_data("Pix/y-grid not integer, request ignored.");
  3768.          return(FALSE);
  3769.         }
  3770.         else if    (atoi(panel_get(pt[4],PANEL_VALUE,0)) < 1)
  3771.         {bad_data("Pix/y-grid < 1, request ignored.");
  3772.          return(FALSE);
  3773.         }
  3774.     else
  3775.             {s->color = atoi(panel_get(pt[2],PANEL_VALUE,0));
  3776.              s->xpix = atoi(panel_get(pt[3],PANEL_VALUE,0));
  3777.              s->ypix = atoi(panel_get(pt[4],PANEL_VALUE,0));
  3778.              return(TRUE);
  3779.         }
  3780. }
  3781. /* EOF */
  3782. /* cat > src+obj/ok_image.c << "EOF" */
  3783. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3784. /* ok_image: is the structure ok for the displayed    */
  3785. /*         image?                    */
  3786. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3787. /* SCCS information: %W%    %G% - NCSA */
  3788.  
  3789. /* #include "all.h" */
  3790. /* #include "newext.h" */
  3791.  
  3792. int
  3793. ok_image (s, n)
  3794.     struct s_image *s;
  3795.     int n;
  3796.         /* input: sequence number of image in HDF file. */
  3797. {
  3798.     register int    i;
  3799.     int xv, yv, *pxv, *pyv, nxv, nyv, filetype;
  3800.     char *xs, *ys;
  3801.     char tmpfn[MAXNAMELEN + 1];
  3802.  
  3803.         if    (FALSE == my_isint(panel_get(pt[23],PANEL_VALUE,0)))
  3804.         {bad_data("X-points not integer, request ignored.");
  3805.          return(FALSE);
  3806.         }
  3807.         else if    (atoi(panel_get(pt[23],PANEL_VALUE,0)) < 0) 
  3808.         {bad_data("X-points < 0, request ignored.");
  3809.          return(FALSE);
  3810.         }
  3811.         else if    (FALSE == my_isint(panel_get(pt[24],PANEL_VALUE,0)))
  3812.         {bad_data("Y-points not integer, request ignored.");
  3813.          return(FALSE);
  3814.         }
  3815.         else if    (atoi(panel_get(pt[24],PANEL_VALUE,0)) < 0)
  3816.         {bad_data("Y-points < 0, request ignored.");
  3817.          return(FALSE);
  3818.         }
  3819.         else if    (FALSE == my_isint(panel_get(pt[25],PANEL_VALUE,0)))
  3820.         {bad_data("X-origin not integer, request ignored.");
  3821.         return(FALSE);
  3822.         }
  3823.         else if    (FALSE == my_isint(panel_get(pt[26],PANEL_VALUE,0)))
  3824.         {bad_data("Y-origin not integer, request ignored.");
  3825.          return(FALSE);
  3826.         }
  3827.     else
  3828.     {
  3829.         pxv = (xstrlen ((xs = panel_get (pt[23], PANEL_VALUE, 0))) == 0) ? NULL : &xv;
  3830.         if (pxv != NULL)
  3831.             xv = atoi (xs);
  3832.         pyv = (xstrlen ((ys = panel_get (pt[24], PANEL_VALUE, 0))) == 0) ? NULL : &yv;
  3833.         if (pyv != NULL)
  3834.             yv = atoi (ys);
  3835.         strcpy (tmpfn, panel_get (pt[27], PANEL_VALUE, 0));
  3836.         if (xstrlen (tmpfn) == 0) /* no file */
  3837.         {
  3838.             bad_data ("No image file given, request ignored.");
  3839.             return (FALSE);
  3840.         }
  3841.         else
  3842.         {
  3843.             (void) strip_wspace (tmpfn);
  3844.             i = check_image (tmpfn, pxv, pyv, &nxv, &nyv, n, &filetype);
  3845.         }
  3846.         if (i == 1)
  3847.         {
  3848.             bad_data ("Cannot open image file, request ignored.");
  3849.                      return (FALSE);
  3850.                 }
  3851.         else if    (i == 2)
  3852.         {
  3853.             if (pxv == NULL && pyv != NULL)
  3854.             {
  3855.                 bad_data ("No X points given - not HDF file, request ignored.");
  3856.                 return (FALSE);
  3857.             }
  3858.             else if (pxv != NULL && pyv == NULL)
  3859.             {
  3860.                 bad_data ("No Y points given - not HDF file, request ignored.");
  3861.                 return (FALSE);
  3862.             }
  3863.             else if (xv == 0)
  3864.             {
  3865.                 bad_data ("X-points < 1, request ignored.");
  3866.                 return (FALSE);
  3867.             }
  3868.             else if (yv == 0)
  3869.             {
  3870.                 bad_data ("Y-points < 1, request ignored.");
  3871.                 return (FALSE);
  3872.             }
  3873.             else
  3874.             {
  3875.                 bad_data ("X-pts*Y-pts != image filesize, request ignored.");
  3876.                          return (FALSE);
  3877.                     }
  3878.         }
  3879.         else if (i == 3)
  3880.         {
  3881.             bad_data ("Not enough images in HDF file, request ignored");
  3882.             return (FALSE);
  3883.         }
  3884.         else if (i < 0)        /* HDF error */
  3885.         {
  3886.             sprintf (msg, "HDF file error (DFerror = %d) for image, request ignored.", i);
  3887.             bad_data (msg);
  3888.             return (FALSE);
  3889.         }
  3890.         if (i == 4)
  3891.         {
  3892. /*
  3893.             info_msg ("          ----- INFORMATION MESSAGE -----",
  3894.                   "HDF file image dimensions used",
  3895.                   "          ----- INFORMATION MESSAGE -----");
  3896. */
  3897.             sprintf (msg, "%d", nxv);  
  3898.             panel_set_value (pt[23], msg);
  3899.             sprintf (msg, "%d", nyv);
  3900.             panel_set_value (pt[24], msg);
  3901.             xv = nxv;
  3902.             yv = nyv;
  3903.             i = 0;
  3904.         }
  3905.         if (i == 0)
  3906.         {
  3907.             s->xpts = xv;
  3908.             s->ypts = yv;
  3909.             s->xpos = atoi(panel_get(pt[25],PANEL_VALUE,0));
  3910.             s->ypos = atoi(panel_get(pt[26],PANEL_VALUE,0));
  3911.             strcpy(s->fname, tmpfn);
  3912.             panel_set (pt[27], PANEL_VALUE, tmpfn, 0);
  3913.             return (TRUE);
  3914.         }
  3915.         else
  3916.         {
  3917.             bad_data("This ok_image error is not possible.");
  3918.             return(FALSE);
  3919.         }
  3920.     }
  3921. }
  3922. /* EOF */
  3923. /* cat > src+obj/ok_text.c << "EOF" */
  3924. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3925. /* ok_text: is the structure ok for the displayed text?    */
  3926. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3927. /* SCCS information: %W%    %G% - NCSA */
  3928.  
  3929. /* #include "all.h" */
  3930.  
  3931. int    ok_text(s) struct s_text *s;
  3932. {
  3933.         struct pixfont          *f;
  3934.  
  3935.         if    (FALSE == my_isint(panel_get(pt[11],PANEL_VALUE,0)))
  3936.         {bad_data("Color is not an integer, request ignored.");
  3937.          return(FALSE);
  3938.         }
  3939.         else if    (atoi(panel_get(pt[11],PANEL_VALUE,0)) < 0 ||
  3940.          atoi(panel_get(pt[11],PANEL_VALUE,0)) > 255)
  3941.         {bad_data("Color < 0 or > 255, request ignored.");
  3942.          return(FALSE);
  3943.         }
  3944.         else if    (FALSE == my_isint(panel_get(pt[12],PANEL_VALUE,0)))
  3945.         {bad_data("X-origin not integer, request ignored.");
  3946.          return(FALSE);
  3947.         }
  3948.         else if    (FALSE == my_isint(panel_get(pt[13],PANEL_VALUE,0)))
  3949.         {bad_data("Y-origin not integer, request ignored.");
  3950.          return(FALSE);
  3951.         }
  3952.     else;
  3953.         strcpy(txt,panel_get(pt[15],PANEL_VALUE,0));
  3954.         strcat(txt,"/");
  3955.         strcat(txt,panel_get(pt[16],PANEL_VALUE,0));
  3956.         if    (NULL == (f = pf_open(txt)))
  3957.         {bad_data("Cannot open the font file, request ignored.");
  3958.          return(FALSE);
  3959.         }
  3960.     else
  3961.         {pf_close(f);
  3962.          s->color = atoi(panel_get(pt[11],PANEL_VALUE,0));
  3963.          s->xpos = atoi(panel_get(pt[12],PANEL_VALUE,0));
  3964.          s->ypos = atoi(panel_get(pt[13],PANEL_VALUE,0));
  3965.          strcpy(s->body,panel_get(pt[14],PANEL_VALUE,0));
  3966.          strcpy(s->prefont,panel_get(pt[15],PANEL_VALUE,0));
  3967.          strcpy(s->postfont,panel_get(pt[16],PANEL_VALUE,0));
  3968.          return(TRUE);
  3969.         }
  3970. }
  3971. /* EOF */
  3972. /* cat > src+obj/ok_vector.c << "EOF" */
  3973. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3974. /* ok_vector: is the structure ok for the displayed    */
  3975. /*          vector?                    */
  3976. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3977. /* SCCS information: %W%    %G% - NCSA */
  3978.  
  3979. /* #include "all.h" */
  3980. /* #include "newext.h" */
  3981.  
  3982. int
  3983. ok_vector (s, n)
  3984.     struct s_vector *s;
  3985.     int             n;
  3986.         /* input: sequence number of x-image in HDF file.
  3987.               y-image follows x-image if same HDF file
  3988.               or sequence number if different HDF file */
  3989. {
  3990.     int             i;
  3991.     int             xv, yv, *pxv, *pyv, nxv, nyv, filetype;
  3992.     char           *xs, *ys;
  3993.     char           *fxs, *fys;
  3994.     char            tmpfnx[MAXNAMELEN + 1];
  3995.     char            tmpfny[MAXNAMELEN + 1];
  3996.  
  3997.     if (FALSE == my_isint (panel_get (pt[41], PANEL_VALUE, 0)))
  3998.     {
  3999.         bad_data ("X-points not integer, request ignored.");
  4000.         return (FALSE);
  4001.     }
  4002.     else if (atoi (panel_get (pt[41], PANEL_VALUE, 0)) < 0)
  4003.     {
  4004.         bad_data ("X-points < 0,request ignored.");
  4005.         return (FALSE);
  4006.     }
  4007.     else if (FALSE == my_isint (panel_get (pt[42], PANEL_VALUE, 0)))
  4008.     {
  4009.         bad_data ("Y-points not integer, request ignored.");
  4010.         return (FALSE);
  4011.     }
  4012.     else if (atoi (panel_get (pt[42], PANEL_VALUE, 0)) < 0)
  4013.     {
  4014.         bad_data ("Y-points < 0,request ignored.");
  4015.         return (FALSE);
  4016.     }
  4017.     else if (FALSE == my_isint (panel_get (pt[43], PANEL_VALUE, 0)))
  4018.     {
  4019.         bad_data ("X-origin not integer, request ignored.");
  4020.         return (FALSE);
  4021.     }
  4022.     else if (FALSE == my_isint (panel_get (pt[44], PANEL_VALUE, 0)))
  4023.     {
  4024.         bad_data ("Y-origin not integer, request ignored.");
  4025.         return (FALSE);
  4026.     }
  4027.     else if (FALSE == my_isint (panel_get (pt[55], PANEL_VALUE, 0)))
  4028.     {
  4029.         bad_data ("Max vector length not integer, request ignored.");
  4030.         return (FALSE);
  4031.     }
  4032.     else if (atoi (panel_get (pt[55], PANEL_VALUE, 0)) < 0)
  4033.     {
  4034.         bad_data ("Max vector length < 0, request ignored.");
  4035.         return (FALSE);
  4036.     }
  4037.     else if (FALSE == my_isint (panel_get (pt[54], PANEL_VALUE, 0)))
  4038.     {
  4039.         bad_data ("Vector color not integer, request ignored.");
  4040.         return (FALSE);
  4041.     }
  4042.     else if (atoi (panel_get (pt[54], PANEL_VALUE, 0)) < 0 ||
  4043.          atoi (panel_get (pt[54], PANEL_VALUE, 0)) > 255)
  4044.     {
  4045.         bad_data ("Vector color not >=0 and <= 255, request ignored.");
  4046.         return (FALSE);
  4047.     }
  4048.     else if (FALSE == my_isint (panel_get (pt[48], PANEL_VALUE, 0)))
  4049.     {
  4050.         bad_data ("X-start not integer, request ignored.");
  4051.         return (FALSE);
  4052.     }
  4053.     else if (FALSE == my_isint (panel_get (pt[49], PANEL_VALUE, 0)))
  4054.     {
  4055.         bad_data ("Y-start not integer, request ignored.");
  4056.         return (FALSE);
  4057.     }
  4058.     else if (FALSE == my_isint (panel_get (pt[50], PANEL_VALUE, 0)))
  4059.     {
  4060.         bad_data ("X-end not integer, request ignored.");
  4061.         return (FALSE);
  4062.     }
  4063.     else if (FALSE == my_isint (panel_get (pt[51], PANEL_VALUE, 0)))
  4064.     {
  4065.         bad_data ("Y-end not integer, request ignored.");
  4066.         return (FALSE);
  4067.     }
  4068.     else if (FALSE == my_isint (panel_get (pt[52], PANEL_VALUE, 0)))
  4069.     {
  4070.         bad_data ("X-interval not integer, request ignored.");
  4071.         return (FALSE);
  4072.     }
  4073.     else if (FALSE == my_isint (panel_get (pt[53], PANEL_VALUE, 0)))
  4074.     {
  4075.         bad_data ("Y-interval not integer, request ignored.");
  4076.         return (FALSE);
  4077.     }
  4078.     else if (FALSE == my_isint (panel_get (pt[45], PANEL_VALUE, 0)))
  4079.     {
  4080.         bad_data ("X-color=0 not integer, request ignored.");
  4081.         return (FALSE);
  4082.     }
  4083.     else if (atoi (panel_get (pt[45], PANEL_VALUE, 0)) < 0 ||
  4084.          atoi (panel_get (pt[45], PANEL_VALUE, 0)) > 255)
  4085.     {
  4086.         bad_data ("X-color=0 not >= 0 and <= 255, request ignored.");
  4087.         return (FALSE);
  4088.     }
  4089.     else if (FALSE == my_isint (panel_get (pt[46], PANEL_VALUE, 0)))
  4090.     {
  4091.         bad_data ("Y-color=0 not integer, request ignored.");
  4092.         return (FALSE);
  4093.     }
  4094.     else if (atoi (panel_get (pt[46], PANEL_VALUE, 0)) < 0 ||
  4095.          atoi (panel_get (pt[46], PANEL_VALUE, 0)) > 255)
  4096.     {
  4097.         bad_data ("Y-color=0 not >= 0 and <= 255, request ignored.");
  4098.         return (FALSE);
  4099.     }
  4100.     else if (FALSE == my_isfloat (panel_get (pt[47], PANEL_VALUE, 0)))
  4101.     {
  4102.         bad_data ("X-scale is not floating point, request ignored.");
  4103.         return (FALSE);
  4104.     }
  4105.     else if (FALSE == my_isfloat (panel_get (pt[56], PANEL_VALUE, 0)))
  4106.     {
  4107.         bad_data ("Y-scale is not floating point, request ignored.");
  4108.         return (FALSE);
  4109.     }
  4110.     else
  4111.     {
  4112.         pxv = (xstrlen ((xs = panel_get (pt[41], PANEL_VALUE, 0))) == 0) ? NULL : &xv;
  4113.         if (pxv != NULL)
  4114.             xv = atoi (xs);
  4115.         pyv = (xstrlen ((ys = panel_get (pt[42], PANEL_VALUE, 0))) == 0) ? NULL : &yv;
  4116.         if (pyv != NULL)
  4117.             yv = atoi (ys);
  4118.         strcpy (tmpfnx, panel_get (pt[39], PANEL_VALUE, 0));
  4119.         if (xstrlen (tmpfnx) == 0)    /* no file */
  4120.         {
  4121.             bad_data ("No vector x-image file given, request ignored.");
  4122.             return (FALSE);
  4123.         }
  4124.         else
  4125.         {
  4126.             (void) strip_wspace (tmpfnx);
  4127.             i = check_image (tmpfnx, pxv, pyv, &nxv, &nyv, n, &filetype);
  4128.         }
  4129.         if (i == 1)
  4130.         {
  4131.             bad_data ("Cannot open vector x-image file, request ignored.");
  4132.             return (FALSE);
  4133.         }
  4134.         else if (i == 2)
  4135.         {
  4136.             if (pxv == NULL && pyv != NULL)
  4137.             {
  4138.                 bad_data ("No X points given - not HDF file, request ignored.");
  4139.                 return (FALSE);
  4140.             }
  4141.             else if (pxv != NULL && pyv == NULL)
  4142.             {
  4143.                 bad_data ("No Y points given - not HDF file, request ignored.");
  4144.                 return (FALSE);
  4145.             }
  4146.             else if (xv == 0)
  4147.             {
  4148.                 bad_data ("X-points < 1, request ignored.");
  4149.                 return (FALSE);
  4150.             }
  4151.             else if (yv == 0)
  4152.             {
  4153.                 bad_data ("Y-points < 1, request ignored.");
  4154.                 return (FALSE);
  4155.             }
  4156.             else
  4157.             {
  4158.                 bad_data ("X-pts*Y-pts != vector x-image filesize, request ignored.");
  4159.                 return (FALSE);
  4160.             }
  4161.         }
  4162.         else if (i == 3)
  4163.         {
  4164.             bad_data ("Not enough images in HDF file for vector x-image, request ignored");
  4165.             return (FALSE);
  4166.         }
  4167.         else if (i < 0)    /* HDF error */
  4168.         {
  4169.             sprintf (msg, "HDF file error (DFerror = %d) for vector x-image, request ignored.", i);
  4170.             bad_data (msg);
  4171.             return (FALSE);
  4172.         }
  4173.         if (i == 4)
  4174.         {
  4175. /*
  4176.             info_msg ("          ----- INFORMATION MESSAGE -----",
  4177.                   "HDF file vector x-image dimensions used",
  4178.                   "          ----- INFORMATION MESSAGE -----");
  4179. */
  4180.             sprintf (msg, "%d", nxv);
  4181.             panel_set_value (pt[41], msg);
  4182.             sprintf (msg, "%d", nyv);
  4183.             panel_set_value (pt[42], msg);
  4184.             xv = nxv;
  4185.             yv = nyv;
  4186.             i = 0;
  4187.         }
  4188. /*
  4189.         pxv = (xstrlen((xs = panel_get (pt[41], PANEL_VALUE, 0))) == 0) ? NULL : &xv;
  4190.         if (pxv != NULL)
  4191.             xv = atoi (xs);
  4192. */
  4193.         xv = atoi (panel_get (pt[41], PANEL_VALUE, 0));
  4194. /*
  4195.         pyv = (xstrlen((ys = panel_get (pt[42], PANEL_VALUE, 0))) == 0) ? NULL : &yv;
  4196.         if (pyv != NULL)
  4197.             yv = atoi (ys);
  4198. */
  4199.         yv = atoi (panel_get (pt[42], PANEL_VALUE, 0));
  4200.         strcpy (tmpfny, panel_get (pt[40], PANEL_VALUE, 0));
  4201.         if (xstrlen (tmpfny) == 0)    /* no y-image filename give */
  4202.         {
  4203.             if (filetype == 0)    /* not HDF file */
  4204.             {
  4205.                 bad_data ("No vector y-image file given (vector x-image not HDF file), request ignored.");
  4206.                 return (FALSE);
  4207.             }
  4208.             else    /* HDF file */
  4209.                 i = check_image (tmpfnx, &xv, &yv, &nxv, &nyv, n + 1, &filetype);
  4210.         }
  4211.         else
  4212.         {
  4213.             (void) strip_wspace (tmpfny);
  4214.             i = check_image (tmpfny, &xv, &yv, &nxv, &nyv, (!xstrcmp (tmpfnx, tmpfny)) ? n + 1 : n, &filetype);
  4215.         }
  4216.         if (i == 1)
  4217.         {
  4218.             bad_data ("Cannot open vector y-image file, request ignored.");
  4219.             return (FALSE);
  4220.         }
  4221.         else if (i == 2)
  4222.         {
  4223.             bad_data ("X-pts*Y-pts != vector y-image filesize, request ignored.");
  4224.             return (FALSE);
  4225.         }
  4226.         else if (i == 3)
  4227.         {
  4228.             bad_data ("Not enough images in HDF file for vector y-image, request ignored");
  4229.             return (FALSE);
  4230.         }
  4231.         else if (i < 0)    /* HDF error */
  4232.         {
  4233.             sprintf (msg, "HDF file error (DFerror = %d) for vector y-image, request ignored.", i);
  4234.             bad_data (msg);
  4235.             return (FALSE);
  4236.         }
  4237.         if (i == 4)
  4238.         {
  4239.             sprintf (msg, "x-image(x=%d,y=%d), y-image(x=%d,y=%d)", xv, yv, nxv, nyv);
  4240.             bad_data2 ("Vector x-image different size than vector y-image, request ignored.", msg);
  4241.             return (FALSE);
  4242.         }
  4243.         if (i == 0)
  4244.         {
  4245.             float           f;
  4246.  
  4247.             panel_set (pt[39], PANEL_VALUE, tmpfnx, 0);
  4248.             strcpy (s->xname, tmpfnx);
  4249.             if (xstrlen (tmpfny) == 0)
  4250.             {
  4251.                 panel_set (pt[40], PANEL_VALUE, tmpfnx, 0);
  4252.                 strcpy (s->yname, tmpfnx);
  4253.             }
  4254.             else
  4255.             {
  4256.                 panel_set (pt[40], PANEL_VALUE, tmpfny, 0);
  4257.                 strcpy (s->yname, tmpfny);
  4258.             }
  4259.             s->xpts = xv;
  4260.             s->ypts = yv;
  4261.             s->xpos = atoi (panel_get (pt[43], PANEL_VALUE, 0));
  4262.             s->ypos = atoi (panel_get (pt[44], PANEL_VALUE, 0));
  4263.             s->maxlen = atoi (panel_get (pt[55], PANEL_VALUE, 0));
  4264.             s->color = atoi (panel_get (pt[54], PANEL_VALUE, 0));
  4265.             s->xend = atoi (panel_get (pt[50], PANEL_VALUE, 0));
  4266.             s->xstart = atoi (panel_get (pt[48], PANEL_VALUE, 0));
  4267.             s->ystart = atoi (panel_get (pt[49], PANEL_VALUE, 0));
  4268.             s->yend = atoi (panel_get (pt[51], PANEL_VALUE, 0));
  4269.             s->xinterval = atoi (panel_get (pt[52], PANEL_VALUE, 0));
  4270.             s->yinterval = atoi (panel_get (pt[53], PANEL_VALUE, 0));
  4271.             s->xzero = atoi (panel_get (pt[45], PANEL_VALUE, 0));
  4272.             s->yzero = atoi (panel_get (pt[46], PANEL_VALUE, 0));
  4273.             sscanf (panel_get (pt[47], PANEL_VALUE, 0), "%f", &f);
  4274.             s->xscale = f;
  4275.             sscanf (panel_get (pt[56], PANEL_VALUE, 0), "%f", &f);
  4276.             s->yscale = f;
  4277.             return (TRUE);
  4278.         }
  4279.         else
  4280.         {
  4281.             bad_data ("This ok_vector error is not possible.");
  4282.             return (FALSE);
  4283.         }
  4284.     }
  4285. }
  4286. /* EOF */
  4287. /* cat > src+obj/p0.c << "EOF" */
  4288. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4289. /* p0: p0 button - show the canvas            */
  4290. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4291. /* SCCS information: %W%    %G% - NCSA */
  4292.  
  4293. /* #include "all.h" */
  4294.  
  4295. int    p0()
  4296. {
  4297.         window_set(    c_frame,WIN_SHOW,TRUE,0);
  4298.         window_set(    canvas,WIN_SHOW,TRUE,0);
  4299.         pw_rop(        cpw,0,0,
  4300.                         window_get(canvas,WIN_WIDTH,0),
  4301.                         window_get(canvas,WIN_HEIGHT,0),
  4302.                         PIX_SRC | ((clear_color) << 5),NULL,0,0);
  4303.         panel_set(      pb[0],PANEL_SHOW_ITEM,FALSE,0);
  4304.     info_msg("","Canvas brought up.","");
  4305.     return;
  4306. }
  4307. /* EOF */
  4308. /* cat > src+obj/p1.c << "EOF" */
  4309. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4310. /* p1: p1 button - execute FinalPic            */
  4311. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4312. /* SCCS information: %W%    %G% - NCSA */
  4313.  
  4314. /* #include "all.h" */
  4315.  
  4316. int    p1()
  4317. {
  4318.     int        z = 0;
  4319.         register int    i;
  4320.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  4321.       {info_msg("","Canvas is not up, request ignored.","");
  4322.         return;
  4323.       }
  4324.         pw_rop(cpw,0,0,N_hpix,N_vpix,
  4325.                PIX_SRC | ((clear_color) << 5),NULL,0,0);
  4326.         for (i=0; i<N_image; i++)
  4327.             if  (TRUE == image[i].sw)
  4328.         {draw_image(&image[i], 1);
  4329.          if (0 != draw_feature(&feat[i],i,TRUE)) z = 1;
  4330.         }
  4331.         for (i=0; i<N_contour; i++)
  4332.             if  (TRUE == con[i].sw)
  4333.         {draw_contour(&con[i], 1);
  4334.          if (0 != draw_feature(&feat[i + N_image],
  4335.                          i + N_image,TRUE)) z = 2;
  4336.         }
  4337.         for (i=0; i<N_vector; i++)
  4338.             if  (TRUE == vec[i].sw)
  4339.         {draw_vector(FALSE,&vec[i], 1);
  4340.          if (0 != draw_feature(&feat[i + N_image + N_contour],
  4341.                          i + N_image + N_contour,TRUE)) z = 3;
  4342.         }
  4343.         if      (TRUE == cbar.sw)       draw_colorbar(  &cbar);
  4344.         for (i=0; i<N_text; i++)
  4345.             if  (TRUE == text[i].sw)    draw_text(      &text[i]);
  4346.         if      (TRUE == grid.sw)       draw_grid(      &grid);
  4347.     if (z == 0)
  4348.        info_msg("","FinalPic completed.","");
  4349.     else
  4350.        bad_data("Problem in FinalPic execution.");
  4351.         return;
  4352. }
  4353. /* EOF */
  4354. /* cat > src+obj/p2.c << "EOF" */
  4355. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4356. /* p2: p2 button - execute Clear            */
  4357. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4358. /* SCCS information: %W%    %G% - NCSA */
  4359.  
  4360. /* #include "all.h" */
  4361.  
  4362. int    p2()
  4363. {
  4364.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  4365.       {info_msg("","Canvas is not up, request ignored.","");
  4366.         return;
  4367.       }
  4368.         pw_rop(cpw,0,0,N_hpix,N_vpix,
  4369.                    PIX_SRC | ((clear_color) << 5),NULL,0,0);
  4370.     info_msg("","Canvas cleared.","");
  4371.         return;
  4372. }
  4373. /* EOF */
  4374. /* cat > src+obj/p3.c << "EOF" */
  4375. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4376. /* p3: p3 button - create palette frame            */
  4377. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4378. /* SCCS information: %W%    %G% - NCSA */
  4379.  
  4380. /* #include "all.h" */
  4381. /* #include "newext.h" */
  4382.  
  4383. int    p3()
  4384. {
  4385.         char        s[8];
  4386.     register int    y;
  4387.  
  4388.         panel_set(              pb[3],PANEL_SHOW_ITEM,FALSE,0);
  4389.     y = (int)window_get(fr[0],WIN_Y,0);
  4390.     if (y > N_yscr - (int)window_get(fr[0],WIN_HEIGHT,0) - 75)
  4391.        y = 0;
  4392.     else
  4393.        y = (int)window_get(fr[0],WIN_HEIGHT,0);
  4394.         make_fr( 1,
  4395.          10,y,
  4396.          75,600,
  4397.         "CompositeTool 1.1 Palette (tag 'p')"
  4398.            );
  4399.     pa[1] = make_p (fr[1]);
  4400. /*
  4401.         pa[1] = window_create(  fr[1],PANEL,0);
  4402. */
  4403.     window_set(pa[1],WIN_IGNORE_PICK_EVENT,MS_MIDDLE,0);
  4404.     window_set(pa[1],WIN_IGNORE_PICK_EVENT,MS_RIGHT,0);
  4405.         make_pb(    13,10, 5,1,7,"Done");
  4406.         make_pb(        14,90, 5,1,2," ");
  4407.         make_pt(        0,120,10,1,79,43,"Load palette:");
  4408.         make_pb(        15,90,27,1,2," ");
  4409.         make_pt(        1,120,32,1, 3,3,"Load background color:");
  4410.         panel_set(        pt[0],PANEL_VALUE,pfn,0);
  4411.         if (clear_color == 0)
  4412.        panel_set(        pt[1],PANEL_VALUE,"",0);
  4413.         else
  4414.        {my_itoa(clear_color,s);
  4415.         panel_set(        pt[1],PANEL_VALUE,s,0);
  4416.        }
  4417.         window_set(        fr[1],WIN_SHOW,TRUE,0);
  4418.     info_msg("","Palette frame brought up.","");
  4419.         return;
  4420. }
  4421. /* EOF */
  4422. /* cat > src+obj/p4.c << "EOF" */
  4423. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4424. /* p4: p4 button - create grid frame            */
  4425. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4426. /* SCCS information: %W%    %G% - NCSA */
  4427.  
  4428. /* #include "all.h" */
  4429. /* #include "newext.h" */
  4430.  
  4431. int    p4()
  4432. {
  4433.     register int    y;
  4434.  
  4435.         panel_set(      pb[4],PANEL_SHOW_ITEM,FALSE,0);
  4436.     y = (int)window_get(fr[0],WIN_Y,0);
  4437.     if (y > N_yscr - (int)window_get(fr[0],WIN_HEIGHT,0) - 150)
  4438.        y = 0;
  4439.     else
  4440.        y = (int)window_get(fr[0],WIN_HEIGHT,0);
  4441.         make_fr( 2,
  4442.          20,y,
  4443.          150,375,
  4444.         "CompositeTool 1.1 Grid (tag 'g')"
  4445.            );
  4446.     pa[2] = make_p (fr[2]);
  4447. /*
  4448.         pa[2] = window_create(  fr[2],PANEL,
  4449.                 WIN_FONT, font_panel, 0);
  4450. */
  4451.     window_set(pa[2],WIN_IGNORE_PICK_EVENT,MS_MIDDLE,0);
  4452.     window_set(pa[2],WIN_IGNORE_PICK_EVENT,MS_RIGHT,0);
  4453.         make_pb(    16, 10, 5,2,7,"Done");
  4454.     if (0 == grid.sw)
  4455.        make_pb(        17, 10,52,2,21,"FinalPic toggle (OFF)");
  4456.     else
  4457.        make_pb(        17, 10,52,2,21,"FinalPic toggle (ON) ");
  4458.         make_pb(        18, 10,77,2,24," STORE  displayed values");
  4459.         make_pb(        19, 10,99,2,24,"DISCARD displayed values");
  4460.         make_pb(        20,220,77,2,8," DRAW it");
  4461.         make_pb(        21,220,99,2,8,"ERASE it");
  4462.         make_pt(         2,220,10,2,3,3,"     Color:");
  4463.         make_pt(         3,220,32,2,4,4,"Pix/x-grid:");
  4464.         make_pt(         4,220,54,2,4,4,"Pix/y-grid:");
  4465.         p19();
  4466.         window_set(     fr[2],WIN_SHOW,TRUE,0);
  4467.         return;  
  4468. }
  4469. /* EOF */
  4470. /* cat > src+obj/p5.c << "EOF" */
  4471. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4472. /* p5: p5 button - create colorbar frame        */
  4473. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4474. /* SCCS information: %W%    %G% - NCSA */
  4475.  
  4476. /* #include "all.h" */
  4477. /* #include "newext.h" */
  4478.  
  4479. int    p5()
  4480. {
  4481.     register int    y;
  4482.  
  4483.         panel_set(      pb[5],PANEL_SHOW_ITEM,FALSE,0);
  4484.     y = (int)window_get(fr[0],WIN_Y,0);
  4485.     if (y > N_yscr - (int)window_get(fr[0],WIN_HEIGHT,0) - 192)
  4486.        y = 0;
  4487.     else
  4488.        y = (int)window_get(fr[0],WIN_HEIGHT,0);
  4489.         make_fr( 3,
  4490.          30,y,
  4491.          /* 192,395, */
  4492.          192, 415,
  4493.         "CompositeTool 1.1 ColorBar (tag 'b')"
  4494.            );
  4495.     pa[3] = make_p (fr[3]);
  4496. /*
  4497.         pa[3] = window_create(    fr[3],PANEL,0);
  4498. */
  4499.     window_set(pa[3],WIN_IGNORE_PICK_EVENT,MS_MIDDLE,0);
  4500.     window_set(pa[3],WIN_IGNORE_PICK_EVENT,MS_RIGHT,0);
  4501.         make_pb(    22, 10,  5,3,7,"Done");
  4502.     if (0 == cbar.sw)
  4503.             make_pb(23, 10, 52,3,21,"FinalPic toggle (OFF)");
  4504.     else
  4505.             make_pb(23, 10, 52,3,21,"FinalPic toggle (ON) ");
  4506.         make_pb(        24, 10, 74,3,24," STORE  displayed values");
  4507.         make_pb(        25, 10, 96,3,24,"DISCARD displayed values");
  4508.         make_pb(        26, 10,118,3, 8," DRAW it");
  4509.         make_pb(        27, 10,140,3, 8,"ERASE it");
  4510.     make_pb(    28,100,118,3, 8,"ms draw");
  4511.     panel_set(    pb[28],PANEL_SHOW_ITEM,FALSE,0);
  4512.     make_pb(    84,100,129,3, 9,"mouse mv");
  4513.         make_pb(        29, 90, 16,3, 2," ");
  4514.         make_pt(        5,120, 21,3,3,3,"Show color:");
  4515.         make_pt(        6,250, 54,3,4,4,"X-points:");
  4516.         make_pt(        7,250, 76,3,4,4,"Y-points:");
  4517.         make_pt(        8,250, 98,3,4,4,"X-origin:");
  4518.         make_pt(        9,250,120,3,4,4,"Y-origin:");
  4519.         p25();
  4520.         window_set(     fr[3],WIN_SHOW,TRUE,0);
  4521.         return;
  4522. }
  4523. /* EOF */
  4524. /* cat > src+obj/p6.c << "EOF" */
  4525. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4526. /* p6: p6 button - create text frame            */
  4527. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4528. /* SCCS information: %W%    %G% - NCSA */
  4529.  
  4530. /* #include "all.h" */
  4531. /* #include "newext.h" */
  4532.  
  4533. int    p6()
  4534. {
  4535.     register int    y;
  4536.  
  4537.         panel_set(      pb[6],PANEL_SHOW_ITEM,FALSE,0);
  4538.     y = (int)window_get(fr[0],WIN_Y,0);
  4539.     if (y > N_yscr - (int)window_get(fr[0],WIN_HEIGHT,0) - 250)
  4540.        y = 0;
  4541.     else
  4542.        y = (int)window_get(fr[0],WIN_HEIGHT,0);
  4543.         make_fr( 4,
  4544.          40,y,
  4545.          250,460,
  4546.         "CompositeTool 1.1 Text (tag 't0')"
  4547.            );
  4548.     pa[4] = make_p (fr[4]);
  4549. /*
  4550.         pa[4] = window_create(  fr[4],PANEL,0);
  4551. */
  4552.     window_set(pa[4],WIN_IGNORE_PICK_EVENT,MS_MIDDLE,0);
  4553.     window_set(pa[4],WIN_IGNORE_PICK_EVENT,MS_RIGHT,0);
  4554.         make_pb(        30, 10,  5,4,7,"Done");
  4555.     if (0 == text[0].sw)
  4556.            make_pb(    31, 10, 52,4,21,"FinalPic toggle (OFF)");
  4557.     else
  4558.            make_pb(     31, 10, 52,4,21,"FinalPic toggle (ON) ");
  4559.         make_pb(        32, 10, 74,4,24," STORE  displayed values");
  4560.         make_pb(        33, 10, 96,4,24,"DISCARD displayed values");
  4561.         make_pmnn(          90, 10,4,"Tag Selector");
  4562.         make_pb(        36, 90, 27,4,2," ");
  4563.         make_pt(        10,120, 32,4,3,3,"Copy data from text tag:");
  4564.         make_pb(        37,190,  5,4,2,"-5");
  4565.         make_pb(        38,224,  5,4,1,"-");
  4566.         make_pb(        39,248,  5,4,1,"+");
  4567.         make_pb(        40,270,  5,4,2,"+5");
  4568.         make_pt(        11,228, 52,4, 3,3,"   Color:");
  4569.         make_pt(        12,228, 74,4, 4,4,"X-origin:");
  4570.         make_pt(        13,228, 96,4, 4,4,"Y-origin:");
  4571.     make_pt(        14, 10,162,4,79,40,"Text Body:");
  4572.         make_pt(        15, 10,184,4,59,30,"Font directory:");
  4573.         make_pt(        16, 10,206,4,19,19,"Font:");
  4574.         make_pb(        34, 10,118,4, 8," DRAW it");
  4575.         make_pb(        35, 10,140,4, 8,"ERASE it");
  4576.         make_pb(        82,100,118,4, 8,"ms draw");
  4577.     panel_set(    pb[82],PANEL_SHOW_ITEM,FALSE,0);
  4578.         make_pb(        83,100,129,4, 9,"mouse mv");
  4579.         nt      = 0;
  4580.         window_set(             fr[4],WIN_SHOW,TRUE,0);
  4581.         p33();
  4582.     return;
  4583. }
  4584. /* EOF */
  4585. /* cat > src+obj/p7.c << "EOF" */
  4586. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4587. /* p7: p7 button - create image frame            */
  4588. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4589. /* SCCS information: %W%    %G% - NCSA */
  4590.  
  4591. /* #include "all.h" */
  4592. /* #include "newext.h" */
  4593.  
  4594. int    p7()
  4595. {
  4596.     register int    y;
  4597.  
  4598.         panel_set(      pb[7],PANEL_SHOW_ITEM,FALSE,0);
  4599.     y = (int)window_get(fr[0],WIN_Y,0);
  4600.     if (y > N_yscr - (int)window_get(fr[0],WIN_HEIGHT,0) - 210)
  4601.        y = 0;
  4602.     else
  4603.        y = (int)window_get(fr[0],WIN_HEIGHT,0);
  4604.         make_fr( 6,
  4605.          70,y,
  4606.          210,425,
  4607.         "CompositeTool 1.1 Image (tag 'i0')"
  4608.            );
  4609.     pa[6] = make_p (fr[6]);
  4610. /*
  4611.         pa[6] = window_create(  fr[6],PANEL,0);
  4612. */
  4613.     window_set(pa[6],WIN_IGNORE_PICK_EVENT,MS_MIDDLE,0);
  4614.     window_set(pa[6],WIN_IGNORE_PICK_EVENT,MS_RIGHT,0);
  4615.         make_pb(        46, 10,  5,6,7,"Done");
  4616.     if (0 == image[0].sw)
  4617.            make_pb(    47, 10, 52,6,21,"FinalPic toggle (OFF)");
  4618.     else
  4619.            make_pb(     47, 10, 52,6,21,"FinalPic toggle (ON) ");
  4620.         make_pb(        48, 10, 74,6,24," STORE  displayed values");
  4621.         make_pb(        49, 10, 96,6,24,"DISCARD displayed values");
  4622.         make_pmnn(          90, 10,6,"Tag Selector");
  4623.         make_pb(        53, 90, 27,6,2," ");
  4624.         make_pt(        22,120, 32,6,3,3,"Copy data from image tag:");
  4625.         make_pb(        54,190,  5,6,2,"-5");
  4626.         make_pb(        55,224,  5,6,1,"-");
  4627.         make_pb(        56,248,  5,6,1,"+");
  4628.         make_pb(        57,270,  5,6,2,"+5");
  4629.     make_pt(        27, 10,162,6,79,43,"File:");
  4630.         make_pb(        50, 10,118,6,8," DRAW it");
  4631.         make_pb(        51, 10,140,6,8,"ERASE it");
  4632.         make_pb(        52,105,118,6,8,"ms draw");
  4633.     panel_set(    pb[52],PANEL_SHOW_ITEM,FALSE,0);
  4634.         make_pb(        85,105,129,6,9,"mouse mv");
  4635.         make_pt(        23,228, 52,6,4,4,"X-points:");
  4636.         make_pt(        24,228, 74,6,4,4,"Y-points:");
  4637.         make_pt(        25,228, 96,6,4,4,"X-origin:");
  4638.         make_pt(        26,228,118,6,4,4,"Y-origin:");
  4639.         ni      = 0;
  4640.         window_set(     fr[6],WIN_SHOW,TRUE,0);
  4641.         p49();
  4642.     return;
  4643. }
  4644. /* EOF */
  4645. /* cat > src+obj/p8.c << "EOF" */
  4646. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4647. /* p8: p8 button - create contour frame            */
  4648. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4649. /* SCCS information: %W%    %G% - NCSA */
  4650.  
  4651. /* #include "all.h" */
  4652. /* #include "newext.h" */
  4653.  
  4654. int    p8()
  4655. {
  4656.     register int    y;
  4657.  
  4658.         panel_set(      pb[8],PANEL_SHOW_ITEM,FALSE,0);
  4659.     y = (int)window_get(fr[0],WIN_Y,0);
  4660.     if (y > N_yscr - (int)window_get(fr[0],WIN_HEIGHT,0) - 210)
  4661.        y = 0;
  4662.     else
  4663.        y = (int)window_get(fr[0],WIN_HEIGHT,0);
  4664.         make_fr( 7,
  4665.         110,y,
  4666.          210,550,
  4667.         "CompositeTool 1.1 Contour (tag 'c0')"
  4668.            );
  4669.     pa[7] = make_p (fr[7]);
  4670. /*
  4671.         pa[7] = window_create(  fr[7],PANEL,0);
  4672. */
  4673.     window_set(pa[7],WIN_IGNORE_PICK_EVENT,MS_MIDDLE,0);
  4674.     window_set(pa[7],WIN_IGNORE_PICK_EVENT,MS_RIGHT,0);
  4675.         make_pb(        58, 10,  5,7,7,"Done");
  4676.     if (0 == con[0].sw)
  4677.            make_pb(    59, 10, 52,7,21,"FinalPic toggle (OFF)");
  4678.     else
  4679.            make_pb(     59, 10, 52,7,21,"FinalPic toggle (ON) ");
  4680.         make_pb(        60, 10, 74,7,24," STORE  displayed values");
  4681.         make_pb(        61, 10, 96,7,24,"DISCARD displayed values");
  4682.         make_pmnn(          90, 10,7,"Tag Selector");
  4683.         make_pb(        65, 90, 27,7,2," ");
  4684.         make_pt(        28,120, 32,7,3,3,"Copy data from contour tag:");
  4685.         make_pb(        66,190,  5,7,2,"-5");
  4686.         make_pb(        67,224,  5,7,1,"-");
  4687.         make_pb(        68,248,  5,7,1,"+");
  4688.         make_pb(        69,270,  5,7,2,"+5");
  4689.     make_pt(        29, 10,162,7,79,50,"File:");
  4690.         make_pb(        62, 10,118,7,8," DRAW it");
  4691.         make_pb(        63, 10,140,7,8,"ERASE it");
  4692.         make_pb(        64,100,118,7,8,"ms draw");
  4693.     panel_set(    pb[64],PANEL_SHOW_ITEM,FALSE,0);
  4694.         make_pb(        86,100,129,7,9,"mouse mv");
  4695.         make_pt(        30,228, 52,7,4,4,"X-points:");
  4696.         make_pt(        31,228, 74,7,4,4,"Y-points:");
  4697.         make_pt(        32,228, 96,7,4,4,"X-origin:");
  4698.         make_pt(        33,228,118,7,4,4,"Y-origin:");
  4699.         make_pt(        34,228,140,7,3,3,"   Color:");
  4700.         make_pmnn(         390, 32,7,"Contour levels");
  4701.         make_pt(        35,390, 54,7,4,4,"Start color:");
  4702.         make_pt(        36,390, 76,7,4,4,"  End color:");
  4703.         make_pt(        37,390, 98,7,4,4,"   Interval:");
  4704.         nc      = 0;
  4705.         window_set(    fr[7],WIN_SHOW,TRUE,0);
  4706.         p61();
  4707.     return;
  4708. }
  4709. /* EOF */
  4710. /* cat > src+obj/p9.c << "EOF" */
  4711. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4712. /* p9: p9 button - create vector frame            */
  4713. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4714. /* SCCS information: %W%    %G% - NCSA */
  4715.  
  4716. /* #include "all.h" */
  4717. /* #include "newext.h" */
  4718.  
  4719. int    p9()
  4720. {
  4721.     register int    y;
  4722.  
  4723.         panel_set(      pb[9],PANEL_SHOW_ITEM,FALSE,0);
  4724.     y = (int)window_get(fr[0],WIN_Y,0);
  4725.     if (y > N_yscr - (int)window_get(fr[0],WIN_HEIGHT,0) - 230)
  4726.        y = 0;
  4727.     else
  4728.        y = (int)window_get(fr[0],WIN_HEIGHT,0);
  4729.         make_fr( 8,
  4730.          90,y,
  4731.          /* 230,750, */
  4732.          240, 750,
  4733.         "CompositeTool 1.1 Vector (tag 'v0')"
  4734.            );
  4735.  
  4736.     pa[8] = make_p (fr[8]);
  4737. /*
  4738.         pa[8] = window_create(  fr[8],PANEL,0);
  4739. */
  4740.     window_set(pa[8],WIN_IGNORE_PICK_EVENT,MS_MIDDLE,0);
  4741.     window_set(pa[8],WIN_IGNORE_PICK_EVENT,MS_RIGHT,0);
  4742.         make_pb(        70, 10,  5,8,7,"Done");
  4743.     if (0 == vec[0].sw)
  4744.            make_pb(    71, 10, 52,8,21,"FinalPic toggle (OFF)");
  4745.     else
  4746.            make_pb(     71, 10, 52,8,21,"FinalPic toggle (ON) ");
  4747.         make_pb(        72, 10, 74,8,24," STORE  displayed values");
  4748.         make_pb(        73, 10, 96,8,24,"DISCARD displayed values");
  4749.         make_pmnn(          90, 10,8,"Tag Selector");
  4750.         make_pb(        77, 90, 27,8,2," ");
  4751.         make_pt(        38,120, 32,8,3,3,"Copy data from vector tag:");
  4752.         make_pb(        78,190,  5,8,2,"-5");
  4753.         make_pb(        79,224,  5,8,1,"-");
  4754.         make_pb(        80,248,  5,8,1,"+");
  4755.         make_pb(        81,270,  5,8,2,"+5");
  4756.     make_pt(        39, 10,169,8,79,60,"X-file:");
  4757.     make_pt(        40, 10,191,8,79,60,"Y-file:");
  4758.         make_pb(        74, 10,118,8,8," DRAW it");
  4759.         make_pb(        75, 10,140,8,8,"ERASE it");
  4760.         make_pb(        76,100,118,8,8,"ms draw");
  4761.     panel_set(    pb[76],PANEL_SHOW_ITEM,FALSE,0);
  4762.         make_pb(        87,100,129,8,9,"mouse mv");
  4763.         make_pt(        41,228, 52,8,4,4,"X-points:");
  4764.         make_pt(        42,228, 74,8,4,4,"Y-points:");
  4765.         make_pt(        43,228, 96,8,4,4,"X-origin:");
  4766.         make_pt(        44,228,118,8,4,4,"Y-origin:");
  4767.         make_pmnn(         370, 10,8,"Color/Scale data");
  4768.         make_pt(        45,370, 32,8,3,3,"X color=0 value:");
  4769.         make_pt(        46,370, 54,8,3,3,"Y color=0 value:");
  4770.         make_pt(        47,370, 76,8,8,8,"        X scale:");
  4771.         make_pt(        56,370, 98,8,8,8,"        Y scale:");
  4772.         make_pt(        54,370,120,8,3,3,"    Vector color:");
  4773.         make_pt(        55,370,142,8,4,4,"Max length (pix):");
  4774.         make_pmnn(         600, 10,8,"Points on image");
  4775.         make_pt(        48,600, 32,8,4,4,"   X-start:");
  4776.         make_pt(        49,600, 54,8,4,4,"   Y-start:");
  4777.         make_pt(        50,600, 76,8,4,4,"     X-end:");
  4778.         make_pt(        51,600, 98,8,4,4,"     Y-end:");
  4779.         make_pt(        52,600,120,8,4,4,"X-interval:");
  4780.         make_pt(        53,600,142,8,4,4,"Y-interval:");
  4781.         nv      = 0;
  4782.         window_set(    fr[8],WIN_SHOW,TRUE,0);
  4783.         p73();
  4784.     return;
  4785. }
  4786. /* EOF */
  4787. /* cat > src+obj/p10.c << "EOF" */
  4788. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4789. /* p10: p10 button - create feature frame        */
  4790. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4791. /* SCCS information: %W%    %G% - NCSA */
  4792.  
  4793. /* #include "all.h" */
  4794. /* #include "newext.h" */
  4795.  
  4796. int    p10()
  4797. {
  4798.     register int    y;
  4799.  
  4800.         panel_set(      pb[10],PANEL_SHOW_ITEM,FALSE,0);
  4801.     y = (int)window_get(fr[0],WIN_Y,0);
  4802.     if (y > N_yscr - (int)window_get(fr[0],WIN_HEIGHT,0) - 195)
  4803.        y = 0;
  4804.     else
  4805.        y = (int)window_get(fr[0],WIN_HEIGHT,0);
  4806.         make_fr( 9,
  4807.          90,y,
  4808.          /* 206,700, */
  4809.          206, 710,
  4810.         "CompositeTool 1.1 Features (for tag 'i0')"
  4811.            );
  4812.     pa[9] = make_p (fr[9]);
  4813. /*
  4814.         pa[9] = window_create(  fr[9],PANEL,0);
  4815. */
  4816.     window_set(pa[9],WIN_IGNORE_PICK_EVENT,MS_MIDDLE,0);
  4817.     window_set(pa[9],WIN_IGNORE_PICK_EVENT,MS_RIGHT,0);
  4818.         make_pb(        88, 10,  5,9,7,"Done");
  4819.         make_pb(        89, 10, 32,9, 8," DRAW it");
  4820.         make_pb(        90, 10, 54,9, 8,"ERASE it");
  4821.         make_pb(       109,110,  5,9, 8,"Select");
  4822.         make_pt(        57,187, 10,9,3,3,"Image, Contour, or Vector tag:");
  4823.         make_pb(       113,110, 27,9, 8,"  Copy");
  4824.         make_pt(        58,187, 32,9,3,3,"features from another tag:");
  4825.         make_pb(       114,540,  5,9,12,"Features ON ");
  4826.         make_pb(       115,540, 27,9,12,"Features OFF");
  4827.         make_pb(        91,110, 54,9, 7,"x-axis");
  4828.         make_pb(        92,180, 54,9, 3,"off");
  4829.         make_pb(        93,110, 76,9, 7,"y-axis");
  4830.         make_pb(        94,180, 76,9, 3,"off");
  4831.         make_pb(        95,240, 54,9, 7,"x-grid");
  4832.         make_pb(        96,310, 54,9, 3,"off");
  4833.         make_pb(        97,240, 76,9, 7,"y-grid");
  4834.         make_pb(        98,310, 76,9, 3,"off");
  4835.         make_pb(        99,370, 54,9, 7,"x-tic1");
  4836.         make_pb(       100,440, 54,9, 3,"off");
  4837.         make_pb(       101,370, 76,9, 7,"y-tic1");
  4838.         make_pb(       102,440, 76,9, 3,"off");
  4839.         make_pb(       103,500, 54,9, 7,"x-tic2");
  4840.         make_pb(       104,570, 54,9, 3,"off");
  4841.         make_pb(       105,500, 76,9, 7,"y-tic2");
  4842.         make_pb(       106,570, 76,9, 3,"off");
  4843.     make_pm(     4, 10, 92,9,"X-AXIS");
  4844.     make_ps(     0, 10,114, 20,1, 10,9,"Thickness");
  4845.     make_ps(     1, 10,136,512,0,255,9,"Color");
  4846.     make_ps(     2,240,114,220,1,110,9,"Spacing (pix)");
  4847.     make_ps(     3, 10,158, 20,1, 10,9,"Length   ");
  4848.         make_pb(       107,240,114,9,14,"left side off");
  4849.         make_pb(       108,380,114,9,14,"right side off");
  4850.         make_pb(       111,240,158,9,14,"left side off");
  4851.         make_pb(       112,380,158,9,14,"right side off");
  4852.         make_pb(       110,540,158,9, 7,"now OUT");
  4853.     panel_set(    pt[57],PANEL_VALUE,"i0",0);
  4854.     p109();
  4855.         window_set(    fr[9],WIN_SHOW,TRUE,0);
  4856.     return;
  4857. }
  4858. /* EOF */
  4859. /* cat > src+obj/p11.c << "EOF" */
  4860. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4861. /* p11: p11 button - create fileutil frame        */
  4862. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4863. /* SCCS information: %W%    %G% - NCSA */
  4864.  
  4865. /* #include "all.h" */
  4866. /* #include "newext.h" */
  4867.  
  4868. int
  4869. p11 ()
  4870. {
  4871.     register int    y;
  4872.     int             xpos, ypos;
  4873.     char           *getwd ();
  4874.  
  4875.     panel_set (pb[11], PANEL_SHOW_ITEM, FALSE, 0);
  4876.     y = (int) window_get (fr[0], WIN_Y, 0);
  4877.     if (y > N_yscr - (int) window_get (fr[0], WIN_HEIGHT, 0) - 225)
  4878.         y = 0;
  4879.     else
  4880.         y = (int) window_get (fr[0], WIN_HEIGHT, 0);
  4881.     make_fr (5,
  4882.          100, y,
  4883.          262, 660,
  4884.          "CompositeTool 1.1 File Utility"
  4885.         );
  4886.     pa[5] = make_p (fr[5]);
  4887.  
  4888.     window_set (pa[5], WIN_IGNORE_PICK_EVENT, MS_MIDDLE, 0);
  4889.     window_set (pa[5], WIN_IGNORE_PICK_EVENT, MS_RIGHT, 0);
  4890.     make_pb (41, (xpos = 10), (ypos = 5), 5, 7, "Done");
  4891.     make_pt (17, (xpos = 10), (ypos += 25), 5, MAXNAMELEN, 50, "File:");
  4892.     make_pb (42, (xpos = 10), (ypos += 25), 5, 6, "WRITE");
  4893.     make_pmnn ((xpos = 75), (ypos), 5, "program settings to file.");
  4894.     make_pb (43, (xpos = 305), (ypos), 5, 6, "READ");
  4895.     make_pmnn ((xpos = 370), (ypos), 5, "program settings from file.");
  4896.  
  4897.     util_pb_saveall = panel_create_item (pa[5], PANEL_BUTTON,
  4898.                          PANEL_ITEM_X, (xpos = 10),
  4899.                          PANEL_ITEM_Y, (ypos += 25),
  4900.                          PANEL_LABEL_IMAGE,
  4901.                          panel_button_image (pa[5], "SAVE ALL", 9, font_panel_button),
  4902.                          PANEL_NOTIFY_PROC, util_proc_saveall,
  4903.                          0);
  4904.  
  4905.     strcpy (txt, "of screen to file.");
  4906.     make_pmnn ((xpos = 100), (ypos), 5, txt);
  4907.     make_pb (44, (xpos = 10), (ypos += 25), 5, 10, "SAVE PART");
  4908.     strcpy (txt, "of screen to file, based on start and end points below.");
  4909.     make_pmnn ((xpos = 100), (ypos), 5, txt);
  4910.  
  4911.     make_pt (18, (xpos = 100), (ypos += 25), 5, 4, 4, "X-pix start:");
  4912.     make_pt (20, (xpos = 260), (ypos), 5, 4, 4, "X-pix end:");
  4913.     make_pt (19, (xpos = 100), (ypos += 25), 5, 4, 4, "Y-pix start:");
  4914.     make_pt (21, (xpos = 260), (ypos), 5, 4, 4, "Y-pix end:");
  4915.     make_pb (45, (xpos = 100), (ypos += 25), 5, 7, "now OFF");
  4916.  
  4917.     strcpy (txt, "Load start and end points by mouse.");
  4918.     make_pmnn ((xpos = 175), (ypos), 5, txt);
  4919.     util_pc_save = panel_create_item (pa[5], PANEL_CYCLE,
  4920.                       PANEL_LABEL_X, (xpos = 10),
  4921.                       PANEL_LABEL_Y, (ypos +=25),
  4922.                       PANEL_CHOICE_STRINGS,
  4923.                       "Save palette and image as HDF 8-bit Raster Image Set",
  4924.                       "Save palette and compressed image as HDF 8-bit Raster Image Set",
  4925.                       "Save image only as raw raster", 0,
  4926.                       0);
  4927.     my_itoa (sdump.xstart, txt);
  4928.     panel_set (pt[18], PANEL_VALUE, txt, 0);
  4929.     my_itoa (sdump.ystart, txt);
  4930.     panel_set (pt[19], PANEL_VALUE, txt, 0);
  4931.     my_itoa (sdump.xend, txt);
  4932.     panel_set (pt[20], PANEL_VALUE, txt, 0);
  4933.     my_itoa (sdump.yend, txt);
  4934.     panel_set (pt[21], PANEL_VALUE, txt, 0);
  4935.     window_set (fr[5], WIN_SHOW, TRUE, 0);
  4936.     info_msg ("", "File Utility frame brought up.", "");
  4937.     return;
  4938. }
  4939. /* EOF */
  4940. /* cat > src+obj/p12.c << "EOF" */
  4941. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4942. /* p12: p12 button - quit comptool            */
  4943. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4944. /* SCCS information: %W%    %G% - NCSA */
  4945.  
  4946. /* #include "all.h" */
  4947. /* #include "newext.h" */
  4948.  
  4949. int 
  4950. p12 ()
  4951. {
  4952.     window_destroy (fr[0]);
  4953.     return;
  4954. }
  4955. /* EOF */
  4956. /* cat > src+obj/p13.c << "EOF" */
  4957. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4958. /* p13: p13 button - done with the palette frame    */
  4959. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4960. /* SCCS information: %W%    %G% - NCSA */
  4961.  
  4962. /* #include "all.h" */
  4963.  
  4964. int 
  4965. p13 ()
  4966. {
  4967.     if (1 == sw_palette || FALSE == confirm_palette ())
  4968.     {
  4969.         window_destroy (pa[1]);
  4970.         window_destroy (fr[1]);
  4971.         pa[1] = fr[1] = NULL;
  4972.         panel_set (pb[3], PANEL_SHOW_ITEM, TRUE, 0);
  4973.         info_msg ("", "Palette frame put away.", "");
  4974.         sw_palette = 0;
  4975.         return;
  4976.     }
  4977.     panel_set (pb[13], PANEL_LABEL_IMAGE,
  4978.            panel_button_image (pa[1], "CONFIRM", 7, NULL), 0);
  4979.     sw_palette = 1;
  4980.     warn_msg ();
  4981.     return;
  4982. }
  4983. /* EOF */
  4984. /* cat > src+obj/p14.c << "EOF" */
  4985. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4986. /* p14: p14 button - load the palette            */
  4987. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4988. /* SCCS information: %W%    %G% - NCSA */
  4989.  
  4990. /* #include "all.h" */
  4991. /* #include "newext.h" */
  4992.  
  4993. int    p14()
  4994. {
  4995.     char pfntmp[MAXNAMELEN + 1];
  4996.  
  4997.     reset_palette();
  4998.     strcpy (pfntmp, panel_get (pt[0], PANEL_VALUE, 0));
  4999.     if (load_rgb (pfntmp, 1))
  5000.     {
  5001.         panel_set (pt[0], PANEL_VALUE, pfn, 0);
  5002.         (void) load_rgb (pfn, 1);
  5003.         return;
  5004.     }
  5005.         strcpy(pfn, pfntmp);
  5006.     panel_set (pt[0], PANEL_VALUE, pfn, 0);
  5007.     
  5008.     reset_colormap ();
  5009.  
  5010.     info_msg("","Palette loaded.","");
  5011.         return;
  5012. }
  5013. /* EOF */
  5014. /* cat > src+obj/p15.c << "EOF" */
  5015. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5016. /* p15: p15 button - load background color        */
  5017. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5018. /* SCCS information: %W%    %G% - NCSA */
  5019.  
  5020. /* #include "all.h" */
  5021.  
  5022. int    p15()
  5023. {
  5024.         register int            c;
  5025.     reset_palette();
  5026.         strcpy(txt,panel_get    (pt[1],PANEL_VALUE,0));
  5027.         if (FALSE == my_isint(txt))
  5028.        {strcat(txt," is not an integer");
  5029.         bad_data(txt);
  5030.         return;
  5031.        }
  5032.         c       = atoi(txt);
  5033.         if (c < 0 || c > 255)
  5034.        {bad_data("value < 0 or value > 255");
  5035.         return;
  5036.        }
  5037.         clear_color     = c;
  5038. info_msg("","Background color loaded and in effect for all future actions.","");
  5039.         return;
  5040. }
  5041. /* EOF */
  5042. /* cat > src+obj/p16.c << "EOF" */
  5043. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5044. /* p16: p16 button - done with the grid frame        */
  5045. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5046. /* SCCS information: %W%    %G% - NCSA */
  5047.  
  5048. /* #include "all.h" */
  5049.  
  5050. int 
  5051. p16 ()
  5052. {
  5053.     if (1 == sw_grid || FALSE == confirm_grid ())
  5054.     {
  5055.         window_destroy (pa[2]);
  5056.         window_destroy (fr[2]);
  5057.         pa[2] = fr[2] = NULL;
  5058.         panel_set (pb[4], PANEL_SHOW_ITEM, TRUE, 0);
  5059.         info_msg ("", "Grid frame put away.", "");
  5060.         sw_grid = 0;
  5061.         return;
  5062.     }
  5063.     panel_set (pb[16], PANEL_LABEL_IMAGE,
  5064.            panel_button_image (pa[2], "CONFIRM", 7, NULL), 0);
  5065.     sw_grid = 1;
  5066.     warn_msg ();
  5067.     return;
  5068. }
  5069. /* EOF */
  5070. /* cat > src+obj/p17.c << "EOF" */
  5071. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5072. /* p17: p17 button - grid...toggle the FinalPic switch    */
  5073. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5074. /* SCCS information: %W%    %G% - NCSA */
  5075.  
  5076. /* #include "all.h" */
  5077.  
  5078. int    p17()
  5079. {
  5080.     reset_grid();
  5081.         if (grid.sw == 1)
  5082.           {grid.sw = 0;
  5083.            panel_set(    pb[17],PANEL_LABEL_IMAGE,
  5084.             panel_button_image(pa[2],
  5085.             "FinalPic toggle (OFF)",21,NULL),
  5086.             0);
  5087.           }
  5088.         else
  5089.           {grid.sw = 1;
  5090.            panel_set(    pb[17],PANEL_LABEL_IMAGE,
  5091.             panel_button_image(pa[2],
  5092.             "FinalPic toggle (ON) ",21,NULL),
  5093.             0);
  5094.           }
  5095.     info_msg("","FinalPic switch toggled for grid.","");
  5096.         return;
  5097. }
  5098. /* EOF */
  5099. /* cat > src+obj/p18.c << "EOF" */
  5100. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5101. /* p18: p18 button - grid...store displayed values    */
  5102. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5103. /* SCCS information: %W%    %G% - NCSA */
  5104.  
  5105. /* #include "all.h" */
  5106.  
  5107. int    p18()
  5108. {
  5109.     reset_grid();
  5110.         if (FALSE == ok_grid(&tgrid)) return;
  5111.         grid.color      = tgrid.color;
  5112.         grid.xpix       = tgrid.xpix;
  5113.         grid.ypix       = tgrid.ypix;
  5114.     p19();
  5115.         return;
  5116. }
  5117. /* EOF */
  5118. /* cat > src+obj/p19.c << "EOF" */
  5119. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5120. /* p19: p19 button - grid...discard displayed values    */
  5121. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5122. /* SCCS information: %W%    %G% - NCSA */
  5123.  
  5124. /* #include "all.h" */
  5125.  
  5126. int    p19()
  5127. {
  5128.     reset_grid();
  5129.         if    (grid.color == 0)
  5130.         panel_set(    pt[2],PANEL_VALUE,"",0);
  5131.         else
  5132.         {my_itoa(grid.color,txt);
  5133.          panel_set(    pt[2],PANEL_VALUE,txt,0);
  5134.         }
  5135.         if      (grid.xpix == 0)
  5136.         panel_set(    pt[3],PANEL_VALUE,"",0);
  5137.         else
  5138.         {my_itoa(grid.xpix,txt);
  5139.          panel_set(    pt[3],PANEL_VALUE,txt,0);
  5140.         }
  5141.         if      (grid.ypix == 0)
  5142.         panel_set(    pt[4],PANEL_VALUE,"",0);
  5143.         else
  5144.         {my_itoa(grid.ypix,txt);
  5145.          panel_set(    pt[4],PANEL_VALUE,txt,0);
  5146.         }
  5147.     info_msg("","Display now shows currently stored values for grid.","");
  5148.         return;
  5149. }
  5150. /* EOF */
  5151. /* cat > src+obj/p20.c << "EOF" */
  5152. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5153. /* p20: p20 button - draw the grid            */
  5154. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5155. /* SCCS information: %W%    %G% - NCSA */
  5156.  
  5157. /* #include "all.h" */
  5158. /* #include "newext.h" */
  5159.  
  5160. int    p20()
  5161. {
  5162.     reset_grid();
  5163.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  5164.       {info_msg("","Canvas is not up, request ignored.","");
  5165.        return;
  5166.       }
  5167.         if (FALSE == ok_grid(&tgrid)) return;
  5168.     if (grid_down)        /* already grid down - erase first */
  5169.     {
  5170.         lgrid.color = clear_color;
  5171.         draw_grid (&lgrid);
  5172.     }
  5173.         draw_grid(&tgrid);
  5174.     lgrid = tgrid;
  5175.     grid_down = TRUE;
  5176.     info_msg("","Grid drawn.","");
  5177.         return;
  5178. }
  5179. /* EOF */
  5180. /* cat > src+obj/p21.c << "EOF" */
  5181. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5182. /* p21: p21 button - erase the grid            */
  5183. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5184. /* SCCS information: %W%    %G% - NCSA */
  5185.  
  5186. /* #include "all.h" */
  5187. /* #include "newext.h" */
  5188.  
  5189. int    p21()
  5190. {
  5191.     reset_grid();
  5192.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  5193.       {info_msg("","Canvas is not up, request ignored.","");
  5194.        return;
  5195.       }
  5196.         if (FALSE == ok_grid(&tgrid)) return;
  5197.         tgrid.color     = clear_color;
  5198.         draw_grid(&tgrid);
  5199.     grid_down = FALSE;
  5200.     info_msg("","Grid erased.","");
  5201.         return;
  5202. }
  5203. /* EOF */
  5204. /* cat > src+obj/p22.c << "EOF" */
  5205. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5206. /* p22: p22 button - done with colorbar frame        */
  5207. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5208. /* SCCS information: %W%    %G% - NCSA */
  5209.  
  5210. /* #include "all.h" */
  5211.  
  5212. int 
  5213. p22 ()
  5214. {
  5215.     if (1 == sw_colorbar || FALSE == confirm_colorbar ())
  5216.     {
  5217.         reset_mcolorbar ();
  5218.         window_destroy (pa[3]);
  5219.         window_destroy (fr[3]);
  5220.         pa[3] = fr[3] = NULL;
  5221.         panel_set (pb[5], PANEL_SHOW_ITEM, TRUE, 0);
  5222.         info_msg ("", "ColorBar frame put away.", "");
  5223.         sw_colorbar = 0;
  5224.         return;
  5225.     }
  5226.     panel_set (pb[22], PANEL_LABEL_IMAGE,
  5227.            panel_button_image (pa[3], "CONFIRM", 7, NULL), 0);
  5228.     sw_colorbar = 1;
  5229.     warn_msg ();
  5230.     return;
  5231. }
  5232. /* EOF */
  5233. /* cat > src+obj/p23.c << "EOF" */
  5234. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5235. /* p23: p23 button - colorbar...toggle the FinalPic    */
  5236. /*    switch                        */
  5237. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5238. /* SCCS information: %W%    %G% - NCSA */
  5239.  
  5240. /* #include "all.h" */
  5241.  
  5242. int    p23()
  5243. {
  5244.     reset_colorbar();
  5245.         if (cbar.sw == 1)
  5246.           {cbar.sw = 0;
  5247.            panel_set(    pb[23],PANEL_LABEL_IMAGE,
  5248.             panel_button_image(pa[3],
  5249.             "FinalPic toggle (OFF)",21,NULL),
  5250.             0);
  5251.           }
  5252.         else
  5253.           {cbar.sw = 1;
  5254.            panel_set(    pb[23],PANEL_LABEL_IMAGE,
  5255.             panel_button_image(pa[3],
  5256.             "FinalPic toggle (ON) ",21,NULL),
  5257.             0);
  5258.           }
  5259.     info_msg("","FinalPic switch toggled for colorbar.","");
  5260.         return;
  5261. }
  5262. /* EOF */
  5263. /* cat > src+obj/p24.c << "EOF" */
  5264. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5265. /* p24: p24 button - colorbar...store displayed values    */
  5266. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5267. /* SCCS information: %W%    %G% - NCSA */
  5268.  
  5269. /* #include "all.h" */
  5270.  
  5271. int    p24()
  5272. {
  5273.     reset_colorbar();
  5274.         if (FALSE == ok_colorbar(&tcbar)) return;
  5275.         cbar.xpts       = tcbar.xpts;
  5276.         cbar.ypts       = tcbar.ypts;
  5277.         cbar.xpos       = tcbar.xpos;
  5278.         cbar.ypos       = tcbar.ypos;
  5279.     p25();
  5280.         return;
  5281. }
  5282. /* EOF */
  5283. /* cat > src+obj/p25.c << "EOF" */
  5284. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5285. /* p25: p25 button:  colorbar...discard displayed    */
  5286. /*    values                        */
  5287. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5288. /* SCCS information: %W%    %G% - NCSA */
  5289.  
  5290. /* #include "all.h" */
  5291.  
  5292. int    p25()
  5293. {
  5294.     reset_colorbar();
  5295.     reset_mcolorbar();
  5296.         panel_set(      pt[5],PANEL_VALUE,"128",0);
  5297.         if      (cbar.xpts == 0)
  5298.         panel_set(    pt[6],PANEL_VALUE,"",0);
  5299.         else
  5300.         {my_itoa(cbar.xpts,txt);
  5301.          panel_set(    pt[6],PANEL_VALUE,txt,0);
  5302.         }
  5303.         if      (cbar.ypts == 0)
  5304.         panel_set(    pt[7],PANEL_VALUE,"",0);
  5305.         else
  5306.         {my_itoa(cbar.ypts,txt);
  5307.          panel_set(    pt[7],PANEL_VALUE,txt,0);
  5308.         }
  5309.         if      (cbar.xpos == 0)
  5310.         panel_set(    pt[8],PANEL_VALUE,"",0);
  5311.         else
  5312.         {my_itoa(cbar.xpos,txt);
  5313.          panel_set(      pt[8],PANEL_VALUE,txt,0);
  5314.         }
  5315.         if      (cbar.ypos == 0)
  5316.         panel_set(    pt[9],PANEL_VALUE,"",0);
  5317.         else
  5318.         {my_itoa(cbar.ypos,txt);
  5319.          panel_set(      pt[9],PANEL_VALUE,txt,0);
  5320.         }
  5321.     info_msg("","Display now shows currently stored values for colorbar.","");
  5322.         return;
  5323. }
  5324. /* EOF */
  5325. /* cat > src+obj/p26.c << "EOF" */
  5326. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5327. /* p26: p26 button - colorbar...draw it            */
  5328. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5329. /* SCCS information: %W%    %G% - NCSA */
  5330.  
  5331. /* #include "all.h" */
  5332.  
  5333. int    p26()
  5334. {
  5335.     reset_colorbar();
  5336.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  5337.       {info_msg("","Canvas is not up, request ignored.","");
  5338.        return;
  5339.       }
  5340.         if (FALSE == ok_colorbar(&tcbar)) return;
  5341.         draw_colorbar(&tcbar);
  5342.     info_msg("","Colorbar drawn.","");
  5343.         return;
  5344. }
  5345. /* EOF */
  5346. /* cat > src+obj/p27.c << "EOF" */
  5347. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5348. /* p27: p27 button - colorbar...erase it        */
  5349. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5350. /* SCCS information: %W%    %G% - NCSA */
  5351.  
  5352. /* #include "all.h" */
  5353.  
  5354. int     p27()
  5355. {
  5356.     reset_colorbar();
  5357.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  5358.       {info_msg("","Canvas is not up, request ignored.","");
  5359.        return;
  5360.       }
  5361.         if (FALSE == ok_colorbar(&tcbar)) return;
  5362.         pw_rop(cpw,    tcbar.xpos,
  5363.                         tcbar.ypos,
  5364.                         tcbar.xpts,
  5365.                         tcbar.ypts,
  5366.                 PIX_SRC | ((clear_color) << 5),NULL,0,0);
  5367.     info_msg("","Colorbar erased.","");
  5368.         return;
  5369. }
  5370. /* EOF */
  5371. /* cat > src+obj/p28.c << "EOF" */
  5372. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5373. /* p28: p28 button - colorbar...mouse draw         */
  5374. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5375. /* SCCS information: %W%    %G% - NCSA */
  5376.  
  5377. /* #include "all.h" */
  5378.  
  5379. int    p28()
  5380. {
  5381.         reset_colorbar();
  5382.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  5383.           {info_msg("","Canvas is not up, request ignored.","");
  5384.            return;
  5385.           }
  5386.     if (csw_colorbar == FALSE)
  5387.        {if (cpw_check() == TRUE)
  5388.            return;
  5389.         csw_colorbar = TRUE;
  5390.         sw_draw = TRUE;
  5391.         panel_set(pb[28],PANEL_LABEL_IMAGE,
  5392.               panel_button_image(pa[3],"MS DRAW",8,NULL),0);
  5393.         msg_draw("ColorBar frame:");
  5394.         return;
  5395.        }
  5396.     if (sw_draw == TRUE)
  5397.        {sw_draw = FALSE;
  5398.         csw_colorbar = FALSE;
  5399.         panel_set(pb[28],PANEL_LABEL_IMAGE,
  5400.               panel_button_image(pa[3],"ms draw",8,NULL),0);
  5401.         info_msg("","Draw ColorBar with mouse deactivated.","");
  5402.         return;
  5403.        }
  5404.     sw_move = FALSE;
  5405.     panel_set(pb[84],PANEL_LABEL_IMAGE,
  5406.            panel_button_image(pa[3],"mouse mv",9,NULL),0);
  5407.     sw_draw = TRUE;
  5408.     panel_set(pb[28],PANEL_LABEL_IMAGE,
  5409.           panel_button_image(pa[3],"MS DRAW",8,NULL),0);
  5410.     msg_draw("ColorBar frame:");
  5411.     return;
  5412. }
  5413. /* EOF */
  5414. /* cat > src+obj/p29.c << "EOF" */
  5415. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5416. /* p29: p29 button - colorbar...temporary show color    */
  5417. /*    pos                        */
  5418. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5419. /* SCCS information: %W%    %G% - NCSA */
  5420.  
  5421. /* #include "all.h" */
  5422.  
  5423. int    p29()
  5424. {
  5425.         int             c;
  5426.         float           f = 255.00001;
  5427.     reset_colorbar();
  5428.         if    (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  5429.       {info_msg("","Canvas is not up, request ignored.","");
  5430.        return;
  5431.       }
  5432.         if    (FALSE == ok_colorbar(&tcbar)) return;
  5433.         strcpy( txt,panel_get(  pt[5],PANEL_VALUE,0));
  5434.         if    (FALSE == my_isint(txt))
  5435.         {strcat(txt," is not an integer, request ignored.");
  5436.          bad_data(txt);
  5437.          return;
  5438.         }
  5439.         c       = atoi(txt);
  5440.         if    (c < 0 || c > 255)
  5441.         {bad_data("Value < 0 or value > 255, request ignored.");
  5442.          return;
  5443.         }
  5444.         c = c * (f / (0. + tcbar.ypts));
  5445.         pw_vector(cpw,    tcbar.xpos + tcbar.xpts,
  5446.                 tcbar.ypos + tcbar.ypts - 1 - c,
  5447.             tcbar.xpos + tcbar.xpts + 5,
  5448.             tcbar.ypos + tcbar.ypts - 1 - c + 5,
  5449.             PIX_SRC,255);
  5450.         pw_vector(cpw,    tcbar.xpos + tcbar.xpts,
  5451.             tcbar.ypos + tcbar.ypts - 1 - c,
  5452.             tcbar.xpos + tcbar.xpts + 5,
  5453.             tcbar.ypos + tcbar.ypts - 1 - c - 5,
  5454.             PIX_SRC,255);
  5455.     info_msg("","Specified color shown on colorbar.","");
  5456.         return;
  5457. }
  5458. /* EOF */
  5459. /* cat > src+obj/p30.c << "EOF" */
  5460. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5461. /* p30: p30 button - done with text frame        */
  5462. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5463. /* SCCS information: %W%    %G% - NCSA */
  5464.  
  5465. /* #include "all.h" */
  5466.  
  5467. int 
  5468. p30 ()
  5469. {
  5470.     if (1 == sw_text || FALSE == confirm_text ())
  5471.     {
  5472.         reset_text ();
  5473.         reset_mtext ();
  5474.         window_destroy (pa[4]);
  5475.         window_destroy (fr[4]);
  5476.         panel_set (pb[6], PANEL_SHOW_ITEM, TRUE, 0);
  5477.         info_msg ("", "Text frame put away.", "");
  5478.         reset_text ();
  5479.         csw_text = FALSE;
  5480.         pa[4] = fr[4] = NULL;
  5481.         return;
  5482.     }
  5483.     reset_text ();
  5484.     panel_set (pb[30], PANEL_LABEL_IMAGE,
  5485.            panel_button_image (pa[4], "CONFIRM", 7, NULL), 0);
  5486.     sw_text = 1;
  5487.     warn_msg ();
  5488.     return;
  5489. }
  5490. /* EOF */
  5491. /* cat > src+obj/p31.c << "EOF" */
  5492. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5493. /* p31: p31 button - text...toggle the FinalPic switch    */
  5494. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5495. /* SCCS information: %W%    %G% - NCSA */
  5496.  
  5497. /* #include "all.h" */
  5498.  
  5499. int    p31()
  5500. {
  5501.     reset_text();
  5502.         if (text[nt].sw == 1)
  5503.           {text[nt].sw = 0;
  5504.            panel_set(    pb[31],PANEL_LABEL_IMAGE,
  5505.             panel_button_image(pa[4],
  5506.             "FinalPic toggle (OFF)",21,NULL),
  5507.             0);
  5508.           }
  5509.         else
  5510.           {text[nt].sw = 1;
  5511.            panel_set(    pb[31],PANEL_LABEL_IMAGE,
  5512.             panel_button_image(pa[4],
  5513.             "FinalPic toggle (ON) ",21,NULL),
  5514.             0);
  5515.       }
  5516.     *(rw_toggle + N_image + N_contour + N_vector + nt) = TRUE;
  5517.     info_msg("","FinalPic toggled for text.","");
  5518.         return;
  5519. }
  5520. /* EOF */
  5521. /* cat > src+obj/p32.c << "EOF" */
  5522. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5523. /* p32: p32 button - text...store displayed values    */
  5524. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5525. /* SCCS information: %W%    %G% - NCSA */
  5526.  
  5527. /* #include "all.h" */
  5528.  
  5529. int    p32()
  5530. {
  5531.     reset_text();
  5532.         if (FALSE == ok_text(&text[N_text])) return;
  5533.         text[nt].color  = text[N_text].color;
  5534.         text[nt].xpos   = text[N_text].xpos;
  5535.         text[nt].ypos   = text[N_text].ypos;
  5536.         strcpy(text[nt].body,text[N_text].body);
  5537.         strcpy(text[nt].prefont,text[N_text].prefont);
  5538.         strcpy(text[nt].postfont,text[N_text].postfont);
  5539.     reset_text();
  5540.     p33();
  5541.     *(rw_toggle + N_image + N_contour + N_vector + nt) = TRUE;
  5542.         return;
  5543. }
  5544. /* EOF */
  5545. /* cat > src+obj/p33.c << "EOF" */
  5546. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5547. /* p33: p33 button - text...discard displayed values    */
  5548. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5549. /* SCCS information: %W%    %G% - NCSA */
  5550.  
  5551. /* #include "all.h" */
  5552.  
  5553. int    p33()
  5554. {
  5555.         char            *s;
  5556.     reset_text();
  5557.     reset_mtext();
  5558.         strcpy(txt,window_get(fr[4],FRAME_LABEL,0));
  5559.         s = txt;
  5560.         while (*s) s++;
  5561.     while (*s != 't') s--;
  5562.     s++;
  5563.         my_itoa(nt,s);
  5564.         while (*s) s++;
  5565.         *s++ = '\'';
  5566.         *s++ = ')';
  5567.         *s   = '\0';
  5568.         window_set(     fr[4],FRAME_LABEL,txt,0);
  5569.         if      (text[nt].sw == 0)
  5570.             panel_set(    pb[31],PANEL_LABEL_IMAGE,
  5571.                 panel_button_image(pa[4],
  5572.                 "FinalPic toggle (OFF)",21,NULL),
  5573.                 0);
  5574.         else
  5575.             panel_set(    pb[31],PANEL_LABEL_IMAGE,
  5576.                 panel_button_image(pa[4],
  5577.                 "FinalPic toggle (ON) ",21,NULL),
  5578.                 0);
  5579.         if      (text[nt].color == 0)
  5580.         panel_set(      pt[11],PANEL_VALUE,"",0);
  5581.         else
  5582.         {my_itoa(text[nt].color,txt);
  5583.          panel_set(pt[11],PANEL_VALUE,txt,0);
  5584.         }
  5585.         if      (text[nt].xpos == 0)
  5586.         panel_set(      pt[12],PANEL_VALUE,"",0);
  5587.         else
  5588.         {my_itoa(text[nt].xpos,txt);
  5589.          panel_set(pt[12],PANEL_VALUE,txt,0);
  5590.         }
  5591.         if      (text[nt].ypos == 0)
  5592.         panel_set(      pt[13],PANEL_VALUE,"",0);
  5593.         else
  5594.         {my_itoa(text[nt].ypos,txt);
  5595.          panel_set(pt[13],PANEL_VALUE,txt,0);
  5596.         }
  5597.         panel_set(      pt[14],PANEL_VALUE,text[nt].body,0);
  5598.         panel_set(      pt[15],PANEL_VALUE,text[nt].prefont,0);
  5599.         panel_set(      pt[16],PANEL_VALUE,text[nt].postfont,0);
  5600.         s = txt;
  5601.         *s++ = 't';
  5602.         if (nt == 0)    {*s++ = '0'; *s = '\0';}
  5603.         else            my_itoa(nt-1,s);
  5604.         panel_set(      pt[10],PANEL_VALUE,txt,0);
  5605.     info_msg("","Display now shows currently stored values for text.","");
  5606.         return;
  5607. }
  5608. /* EOF */
  5609. /* cat > src+obj/p34.c << "EOF" */
  5610. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5611. /* p34: p34 button - text...draw it            */
  5612. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5613. /* SCCS information: %W%    %G% - NCSA */
  5614.  
  5615. /* #include "all.h" */
  5616.  
  5617. int    p34()
  5618. {
  5619.     reset_text();
  5620.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  5621.       {info_msg("","Canvas is not up, request ignored.","");
  5622.        return;
  5623.       }
  5624.         if (FALSE == ok_text(&text[N_text])) return;
  5625.         draw_text(&text[N_text]);
  5626.     info_msg("","Text drawn.","");
  5627.         return;
  5628. }
  5629. /* EOF */
  5630. /* cat > src+obj/p35.c << "EOF" */
  5631. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5632. /* p35: p35 button - text...erase it            */
  5633. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5634. /* SCCS information: %W%    %G% - NCSA */
  5635.  
  5636. /* #include "all.h" */
  5637.  
  5638. int    p35()
  5639. {
  5640.     reset_text();
  5641.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  5642.       {info_msg("","Canvas is not up, request ignored.","");
  5643.        return;
  5644.       }
  5645.         if (FALSE == ok_text(&text[N_text])) return;
  5646.     text[N_text].color = clear_color;
  5647.         draw_text(&text[N_text]);
  5648.     info_msg("","Text erased.","");
  5649.         return;
  5650. }
  5651. /* EOF */
  5652. /* cat > src+obj/p36.c << "EOF" */
  5653. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5654. /* p36: p36 button - text...copy data from another tag    */
  5655. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5656. /* SCCS information: %W%    %G% - NCSA */
  5657.  
  5658. /* #include "all.h" */
  5659.  
  5660. int    p36()
  5661. {
  5662.         register int    n;
  5663.         char            *s;
  5664.         strcpy(txt,panel_get(   pt[10],PANEL_VALUE,0));
  5665.         s = txt;
  5666.         if (*s != 't' || *(s + 1) == '\0')
  5667.       {strcat(txt," is not a valid text tag.");
  5668.        reset_text();
  5669.        bad_data(txt);
  5670.        return;
  5671.       }
  5672.         s++;
  5673.         if (FALSE == my_isint(s))
  5674.       {strcat(txt," is not a valid text tag.");
  5675.        reset_text();
  5676.        bad_data(txt);
  5677.        return;
  5678.       }
  5679.         n = atoi(s);
  5680.         if (n < 0)
  5681.       {strcat(txt," is not a valid text tag.");
  5682.        reset_text();
  5683.        bad_data(txt);
  5684.        return;
  5685.       }
  5686.         if (n >= N_text)
  5687.       {strcat(txt," is valid, but there are not that many tags.");
  5688.        reset_text();
  5689.        bad_data(txt);
  5690.        return;
  5691.       }
  5692.     if (nt == n)
  5693.        {reset_text();
  5694.         info_msg("","This text tag already showing.","");
  5695.         return;
  5696.        }
  5697.     if (sw_t[0] == 0 && TRUE == confirm_text())
  5698.        {reset_text();
  5699.         panel_set(pb[36],PANEL_LABEL_IMAGE,
  5700.               panel_button_image(pa[4],"*",2,NULL),0);
  5701.         sw_t[0] = 1;
  5702.         warn_msgt();
  5703.         return;
  5704.        }
  5705.         if      (text[n].color == 0)
  5706.         panel_set(      pt[11],PANEL_VALUE,"",0);
  5707.         else
  5708.         {my_itoa(text[n].color,txt);
  5709.          panel_set(pt[11],PANEL_VALUE,txt,0);
  5710.         }
  5711.         if      (text[n].xpos == 0)
  5712.         panel_set(      pt[12],PANEL_VALUE,"",0);
  5713.         else
  5714.         {my_itoa(text[n].xpos,txt);
  5715.          panel_set(pt[12],PANEL_VALUE,txt,0);
  5716.         }
  5717.         if      (text[n].ypos == 0)
  5718.         panel_set(      pt[13],PANEL_VALUE,"",0);
  5719.         else
  5720.         {my_itoa(text[n].ypos,txt);
  5721.          panel_set(pt[13],PANEL_VALUE,txt,0);
  5722.         }
  5723.         panel_set(      pt[14],PANEL_VALUE,text[n].body,0);
  5724.         panel_set(      pt[15],PANEL_VALUE,text[n].prefont,0);
  5725.         panel_set(      pt[16],PANEL_VALUE,text[n].postfont,0);
  5726.     reset_text();
  5727.     reset_mtext();
  5728.     info_msg("","Text displayed has been copied from",
  5729.             "another tag but has not been stored.");
  5730.         return;
  5731. }
  5732. /* EOF */
  5733. /* cat > src+obj/p37.c << "EOF" */
  5734. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5735. /* p37: p37 button - text...decrement tag number by 5    */
  5736. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5737. /* SCCS information: %W%    %G% - NCSA */
  5738.  
  5739. /* #include "all.h" */
  5740.  
  5741. int    p37()
  5742. {
  5743.     if (nt == 0)
  5744.        {reset_text();
  5745.         info_msg("","This text tag is the first one.","");
  5746.         return;
  5747.        }
  5748.     if (sw_t[1] == 1 || FALSE == confirm_text())
  5749.            {nt -= 5;
  5750.             if (nt < 0) nt = 0;
  5751.             p33();
  5752.         reset_text();
  5753.             return;
  5754.        }
  5755.     reset_text();
  5756.     panel_set(pb[37],PANEL_LABEL_IMAGE,
  5757.           panel_button_image(pa[4],"*",2,NULL),0);
  5758.     sw_t[1] = 1;
  5759.     warn_msgt();
  5760.     return;
  5761. }
  5762. /* EOF */
  5763. /* cat > src+obj/p38.c << "EOF" */
  5764. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5765. /* p38: p38 button - text...decrement tag number by 1    */
  5766. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5767. /* SCCS information: %W%    %G% - NCSA */
  5768.  
  5769. /* #include "all.h" */
  5770.  
  5771. int    p38()
  5772. {
  5773.     if (nt == 0)
  5774.        {reset_text();
  5775.         info_msg("","This text tag already displayed.","");
  5776.         return;
  5777.        }
  5778.     if (sw_t[2] == 1 || FALSE == confirm_text())
  5779.            {nt--;
  5780.             p33();
  5781.         reset_text();
  5782.             return;
  5783.        }
  5784.     reset_text();
  5785.     panel_set(pb[38],PANEL_LABEL_IMAGE,
  5786.           panel_button_image(pa[4],"*",1,NULL),0);
  5787.     sw_t[2] = 1;
  5788.     warn_msgt();
  5789.     return;
  5790. }
  5791. /* EOF */
  5792. /* cat > src+obj/p39.c << "EOF" */
  5793. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5794. /* p39: p39 button - text...increment tag number by 1    */
  5795. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5796. /* SCCS information: %W%    %G% - NCSA */
  5797.  
  5798. /* #include "all.h" */
  5799.  
  5800. int    p39()
  5801. {
  5802.     if (nt == N_text - 1)
  5803.        {reset_text();
  5804.         info_msg("","This text tag already displayed.","");
  5805.         return;
  5806.        }
  5807.     if (sw_t[3] == 1 || FALSE == confirm_text())
  5808.            {nt++;
  5809.             p33();
  5810.         reset_text();
  5811.             return;
  5812.        }
  5813.     reset_text();
  5814.     panel_set(pb[39],PANEL_LABEL_IMAGE,
  5815.           panel_button_image(pa[4],"*",1,NULL),0);
  5816.     sw_t[3] = 1;
  5817.     warn_msgt();
  5818.     return;
  5819. }
  5820. /* EOF */
  5821. /* cat > src+obj/p40.c << "EOF" */
  5822. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5823. /* p40: p40 button - text...increment tag number by 5    */
  5824. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5825. /* SCCS information: %W%    %G% - NCSA */
  5826.  
  5827. /* #include "all.h" */
  5828.  
  5829. int    p40()
  5830. {
  5831.     if (nt == N_text - 1)
  5832.        {reset_text();
  5833.         info_msg("","This text tag already displayed.","");
  5834.         return;
  5835.        }
  5836.     if (sw_t[4] == 1 || FALSE == confirm_text())
  5837.            {nt += 5;
  5838.         if (nt > N_text - 1) nt = N_text - 1;
  5839.             p33();
  5840.         reset_text();
  5841.             return;
  5842.        }
  5843.     reset_text();
  5844.     panel_set(pb[40],PANEL_LABEL_IMAGE,
  5845.           panel_button_image(pa[4],"*",2,NULL),0);
  5846.     sw_t[4] = 1;
  5847.     warn_msgt();
  5848.     return;
  5849. }
  5850. /* EOF */
  5851. /* cat > src+obj/p41.c << "EOF" */
  5852. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5853. /* p41: p41 button - done with fileutile frame        */
  5854. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5855. /* SCCS information: %W%    %G% - NCSA */
  5856.  
  5857. /* #include "all.h" */
  5858.  
  5859. int 
  5860. p41 ()
  5861. {
  5862.     if (csw_dump == TRUE)
  5863.         sw_flash = FALSE;
  5864.     window_destroy (pa[5]);
  5865.     window_destroy (fr[5]);
  5866.     pa[5] = fr[5] = NULL;
  5867.     panel_set (pb[11], PANEL_SHOW_ITEM, TRUE, 0);
  5868.     csw_dump = FALSE;
  5869.     info_msg ("", "File utility frame put away.", "");
  5870.     return;
  5871. }
  5872. /* EOF */
  5873. /* cat > src+obj/p42.c << "EOF" */
  5874. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5875. /* p42: p42 button - fileutil...write settings to file    */
  5876. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  5877. /* SCCS information: %W%    %G% - NCSA */
  5878.  
  5879. /* #include "all.h" */
  5880. /* #include "newext.h" */
  5881.  
  5882. int 
  5883. p42 ()
  5884. {
  5885.     register int    i, m;
  5886.     int             f, b;
  5887.  
  5888.     m = my_otod (644);
  5889.     strcpy (txt, panel_get (pt[17], PANEL_VALUE, 0));
  5890.     if (xstrlen (txt) == 0)    /* no filename */
  5891.     {
  5892.         bad_data ("No filename given, request ignored.");
  5893.         return;
  5894.     }
  5895.     if (-1 == (f = creat (txt, m)))
  5896.     {
  5897.         bad_data ("Cannot create file, request ignored.");
  5898.         return;
  5899.     }
  5900.     b = strlen (compat_hdr);
  5901.     if (b != write (f, compat_hdr, b))
  5902.     {
  5903.         bad_data ("Problem writing compatibility header, premature end.");
  5904.         close (f);
  5905.         return;
  5906.     }
  5907.     tag_to_string ("g", -1, msg);
  5908.     b = strlen (msg);
  5909.     if (b != write (f, msg, b))
  5910.     {
  5911.         bad_data ("Problem writing grid tag, premature end.");
  5912.         close (f);
  5913.         return;
  5914.     }
  5915.     tag_to_string ("p", -1, msg);
  5916.     b = strlen (msg);
  5917.     if (b != write (f, msg, b))
  5918.     {
  5919.         bad_data ("Problem writing palette tag, premature end.");
  5920.         close (f);
  5921.         return;
  5922.     }
  5923.     tag_to_string ("b", -1, msg);
  5924.     b = strlen (msg);
  5925.     if (b != write (f, msg, b))
  5926.     {
  5927.         bad_data ("Problem writing colorbar tag, premature end.");
  5928.         close (f);
  5929.         return;
  5930.     }
  5931.     for (i = 0; i < N_text; i++)
  5932.     {
  5933.         if (*(rw_toggle + N_image + N_contour + N_vector + i) == TRUE)
  5934.         {
  5935.             tag_to_string ("t", i, msg);
  5936.             b = strlen (msg);
  5937.             if (b != write (f, msg, b))
  5938.             {
  5939.                 bad_data ("Problem writing text tag, premature end.");
  5940.                 close (f);
  5941.                 return;
  5942.             }
  5943.         }
  5944.     }
  5945.     for (i = 0; i < N_image; i++)
  5946.     {
  5947.         if (*(rw_toggle + i) == TRUE)
  5948.         {
  5949.             tag_to_string ("i", i, msg);
  5950.             b = strlen (msg);
  5951.             if (b != write (f, msg, b))
  5952.             {
  5953.                 bad_data ("Problem writing image tag, premature end.");
  5954.                 close (f);
  5955.                 return;
  5956.             }
  5957.         }
  5958.     }
  5959.     for (i = 0; i < N_image + N_contour + N_vector; i++)
  5960.     {
  5961.         if (*(rw_toggle + i) == TRUE)
  5962.         {
  5963.             tag_to_string ("f", i, msg);
  5964.             b = strlen (msg);
  5965.             if (b != write (f, msg, b))
  5966.             {
  5967.                 bad_data ("Problem writing feature tag, premature end.");
  5968.                 close (f);
  5969.                 return;
  5970.             }
  5971.         }
  5972.     }
  5973.     for (i = 0; i < N_vector; i++)
  5974.     {
  5975.         if (*(rw_toggle + N_image + N_contour + i) == TRUE)
  5976.         {
  5977.             tag_to_string ("v", i, msg);
  5978.             b = strlen (msg);
  5979.             if (b != write (f, msg, b))
  5980.             {
  5981.                 bad_data ("Problem writing vector tag, premature end.");
  5982.                 close (f);
  5983.                 return;
  5984.             }
  5985.         }
  5986.     }
  5987.     for (i = 0; i < N_contour; i++)
  5988.     {
  5989.         if (*(rw_toggle + N_image + i) == TRUE)
  5990.         {
  5991.             tag_to_string ("c", i, msg);
  5992.             b = strlen (msg);
  5993.             if (b != write (f, msg, b))
  5994.             {
  5995.                 bad_data ("Problem writing contour tag, premature end.");
  5996.                 close (f);
  5997.                 return;
  5998.             }
  5999.         }
  6000.     }
  6001.     strcpy (msg, "\\");
  6002.     write (f, msg, 1);
  6003.     close (f);
  6004.     info_msg ("", "Program settings written to file.", "");
  6005.     return;
  6006. }
  6007. /* EOF */
  6008. /* cat > src+obj/p43.c << "EOF" */
  6009. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6010. /* p43: p43 button - fileutil...read settings from file    */
  6011. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6012. /* SCCS information: %W%    %G% - NCSA */
  6013.  
  6014. /* #include "all.h" */
  6015. /* #include "newext.h" */
  6016.  
  6017. int 
  6018. p43 ()
  6019. {
  6020.     char           *s, t[8], my_eof = '\\', nd = '\0', td = '\n';
  6021.     int             f, n, done = FALSE;
  6022.     register int    i;
  6023.  
  6024.     strcpy (txt, panel_get (pt[17], PANEL_VALUE, 0));
  6025.     if (xstrlen (txt) == 0)
  6026.     {
  6027.         bad_data ("No filename given, request ignored.");
  6028.         return;
  6029.     }
  6030.     if (-1 == (f = open (txt, 0)))
  6031.     {
  6032.         bad_data ("Cannot open file, request ignored.");
  6033.         return;
  6034.     }
  6035.  
  6036.         /* get directory part of filename */
  6037.  
  6038.     (void) getdirname (txt, util_read_dir);
  6039.  
  6040.     n = strlen (compat_hdr);
  6041.     read (f, msg, n);
  6042.     *(msg + n) = '\0';
  6043.     if (strcmp (compat_hdr, msg) != 0)
  6044.     {
  6045.         bad_data ("File format for this tool has changed since file was written: unable to read.");
  6046.         close (f);
  6047.         return;
  6048.     }
  6049.  
  6050.     for (i = 0; i < N_image + N_contour + N_vector + N_text; i++)
  6051.         *(rw_toggle + i) = FALSE;
  6052.     for (i = 0; i < N_text; i++)
  6053.         null_text (&text[i]);
  6054.     for (i = 0; i < N_image; i++)
  6055.         null_image (&image[i]);
  6056.     for (i = 0; i < N_image + N_contour + N_vector; i++)
  6057.         null_feature (&feat[i]);
  6058.     for (i = 0; i < N_contour; i++)
  6059.         null_contour (&con[i]);
  6060.     for (i = 0; i < N_vector; i++)
  6061.         null_vector (&vec[i]);
  6062.  
  6063.     while (done == FALSE)
  6064.     {
  6065.         s = msg;
  6066.         read (f, s, 1);
  6067.         if (*s == my_eof)
  6068.             done = TRUE;
  6069.         else
  6070.         {
  6071.             s++;
  6072.             while (*(s - 1) != td)
  6073.             {
  6074.                 read (f, s, 1);
  6075.                 s++;
  6076.             }
  6077.             *s = nd;
  6078.             if (FALSE == string_to_tag (msg, util_read_dir))
  6079.             {
  6080.                 close (f);
  6081.                 return;
  6082.             }
  6083.         }
  6084.     }
  6085.     close (f);
  6086.  
  6087.     if (TRUE == (int) window_get (fr[9], WIN_SHOW, 0))
  6088.     {
  6089.         strcpy (t, panel_get (pm[3], PANEL_LABEL_STRING, 0));
  6090.         if (strcmp (t, "X-AXIS") == 0)
  6091.             p91 ();
  6092.         else if (strcmp (t, "Y-AXIS") == 0)
  6093.             p93 ();
  6094.         else if (strcmp (t, "X-GRID") == 0)
  6095.             p95 ();
  6096.         else if (strcmp (t, "Y-GRID") == 0)
  6097.             p97 ();
  6098.         else if (strcmp (t, "X-TIC1") == 0)
  6099.             p99 ();
  6100.         else if (strcmp (t, "Y-TIC1") == 0)
  6101.             p101 ();
  6102.         else if (strcmp (t, "X-TIC2") == 0)
  6103.             p103 ();
  6104.         else if (strcmp (t, "Y-TIC2") == 0)
  6105.             p105 ();
  6106.         else
  6107.         {
  6108.             bad_data ("It is not possible to get this feature error message, p43");
  6109.             return;
  6110.         }
  6111.     }
  6112.  
  6113.     info_msg ("", "Program settings read from file.", "");
  6114.     return;
  6115. }
  6116. /* EOF */
  6117. /* cat > src+obj/p44.c << "EOF" */
  6118. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6119. /* p44: p44 button - fileutil...dump screen to file    */
  6120. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6121. /* SCCS information: %W%    %G% - NCSA */
  6122.  
  6123. /* #include "all.h" */
  6124. /* #include "newext.h" */
  6125.  
  6126. int
  6127. p44 ()
  6128. {
  6129.     Pixrect        *p;
  6130.     struct mpr_data *s;
  6131.     int             f, nx, ny;
  6132.  
  6133.     if (FALSE == (int) window_get (c_frame, WIN_SHOW, 0))
  6134.     {
  6135.         info_msg ("", "Canvas is not up, request ignored.", "");
  6136.         return;
  6137.     }
  6138.     else if (FALSE == my_isint (panel_get (pt[18], PANEL_VALUE, 0)))
  6139.     {
  6140.         bad_data ("X-pix start is not an integer, request ignored.");
  6141.         return;
  6142.     }
  6143.     else if (FALSE == my_isint (panel_get (pt[20], PANEL_VALUE, 0)))
  6144.     {
  6145.         bad_data ("X-pix end is not an integer, request ignored.");
  6146.         return;
  6147.     }
  6148.     else if (FALSE == my_isint (panel_get (pt[19], PANEL_VALUE, 0)))
  6149.     {
  6150.         bad_data ("Y-pix start is not an integer, request ignored.");
  6151.         return;
  6152.     }
  6153.     else if (FALSE == my_isint (panel_get (pt[21], PANEL_VALUE, 0)))
  6154.     {
  6155.         bad_data ("Y-pix end is not an integer, request ignored.");
  6156.         return;
  6157.     }
  6158.     else if (atoi (panel_get (pt[18], PANEL_VALUE, 0)) < 0)
  6159.     {
  6160.         bad_data ("X-pix start is less than zero, request ignored.");
  6161.         return;
  6162.     }
  6163.     else if (atoi (panel_get (pt[18], PANEL_VALUE, 0)) >= N_hpix)
  6164.     {
  6165.         my_itoa (N_hpix - 1, txt);
  6166.         strcat (txt, " is largest X-pix start allowed, request ignored.");
  6167.         bad_data (txt);
  6168.         return;
  6169.     }
  6170.     else if (atoi (panel_get (pt[20], PANEL_VALUE, 0)) < 0)
  6171.     {
  6172.         bad_data ("X-pix end is less than zero, request ignored.");
  6173.         return;
  6174.     }
  6175.     else if (atoi (panel_get (pt[20], PANEL_VALUE, 0)) >= N_hpix)
  6176.     {
  6177.         my_itoa (N_hpix - 1, txt);
  6178.         strcat (txt, " is largest X-pix end allowed, request ignored.");
  6179.         bad_data (txt);
  6180.         return;
  6181.     }
  6182.     else if (atoi (panel_get (pt[20], PANEL_VALUE, 0)) <
  6183.          atoi (panel_get (pt[18], PANEL_VALUE, 0)))
  6184.     {
  6185.         bad_data ("X-pix end < X-pix start, request ignored.");
  6186.         return;
  6187.     }
  6188.     else if (atoi (panel_get (pt[19], PANEL_VALUE, 0)) < 0)
  6189.     {
  6190.         bad_data ("Y-pix start is less than zero, request ignored.");
  6191.         return;
  6192.     }
  6193.     else if (atoi (panel_get (pt[19], PANEL_VALUE, 0)) >= N_vpix)
  6194.     {
  6195.         my_itoa (N_vpix - 1, txt);
  6196.         strcat (txt, " is largest Y-pix start allowed, request ignored.");
  6197.         bad_data (txt);
  6198.         return;
  6199.     }
  6200.     else if (atoi (panel_get (pt[21], PANEL_VALUE, 0)) < 0)
  6201.     {
  6202.         bad_data ("Y-pix end is less than zero, request ignored.");
  6203.         return;
  6204.     }
  6205.     else if (atoi (panel_get (pt[21], PANEL_VALUE, 0)) >= N_vpix)
  6206.     {
  6207.         my_itoa (N_vpix - 1, txt);
  6208.         strcat (txt, " is largest Y-pix end allowed, request ignored.");
  6209.         bad_data (txt);
  6210.         return;
  6211.     }
  6212.     else if (atoi (panel_get (pt[21], PANEL_VALUE, 0)) <
  6213.          atoi (panel_get (pt[19], PANEL_VALUE, 0)))
  6214.     {
  6215.         bad_data ("Y-pix end < Y-pix start, request ignored.");
  6216.         return;
  6217.     }
  6218.     else if ((atoi (panel_get (pt[18], PANEL_VALUE, 0)) ==
  6219.           atoi (panel_get (pt[20], PANEL_VALUE, 0)) &&
  6220.           atoi (panel_get (pt[21], PANEL_VALUE, 0)) <
  6221.           atoi (panel_get (pt[19], PANEL_VALUE, 0))) ||
  6222.          (atoi (panel_get (pt[19], PANEL_VALUE, 0)) ==
  6223.           atoi (panel_get (pt[21], PANEL_VALUE, 0)) &&
  6224.           atoi (panel_get (pt[20], PANEL_VALUE, 0)) <
  6225.           atoi (panel_get (pt[18], PANEL_VALUE, 0))))
  6226.     {
  6227.         bad_data ("A region of negative area defined, request ignored.");
  6228.         return;
  6229.     }
  6230.     else if (xstrlen (panel_get (pt[17], PANEL_VALUE, 0)) == 0)
  6231.     {
  6232.         bad_data ("No filename given, request ignored.");
  6233.         return;
  6234.     }
  6235.     else
  6236.     {
  6237.         sdump.xstart = atoi (panel_get (pt[18], PANEL_VALUE, 0));
  6238.         sdump.xend = atoi (panel_get (pt[20], PANEL_VALUE, 0));
  6239.         sdump.ystart = atoi (panel_get (pt[19], PANEL_VALUE, 0));
  6240.         sdump.yend = atoi (panel_get (pt[21], PANEL_VALUE, 0));
  6241.     }
  6242.     nx = sdump.xend - sdump.xstart + 1;
  6243.     ny = sdump.yend - sdump.ystart + 1;
  6244.     p = mem_create (nx, ny, 8);
  6245.     s = mpr_d (p);
  6246.     pw_read (p, 0, 0, nx, ny, PIX_SRC, cpw, sdump.xstart, sdump.ystart);
  6247.     s = mpr_d (p);
  6248.  
  6249.  /* unpad image before saving it */
  6250.  
  6251.     unpad_image (nx, ny, p);
  6252.  
  6253.     if (store_image (panel_get_value (pt[17]), nx, ny, (unsigned char *) s->md_image, (int) panel_get_value (util_pc_save)))
  6254.         return;
  6255.     info_msg ("", "Screen dumped to file.", "");
  6256.     return;
  6257. }
  6258. /* EOF */
  6259. /* cat > src+obj/p45.c << "EOF" */
  6260. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6261. /* p45: p45 button - fileutil...load dump parms via    */
  6262. /*    mouse                        */
  6263. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6264. /* SCCS information: %W%    %G% - NCSA */
  6265.  
  6266. /* #include "all.h" */
  6267.  
  6268. int    p45()
  6269. {
  6270.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  6271.       {info_msg("","Canvas is not up, request ignored.","");
  6272.        return;
  6273.       }
  6274.     if (csw_dump == TRUE)
  6275.        {panel_set(pb[45],PANEL_LABEL_IMAGE, 
  6276.                       panel_button_image(pa[5],"now OFF",7,NULL),0);
  6277.         info_msg("","File Utility:  mouse disabled for the canvas.","");
  6278.         sw_flash = FALSE;
  6279.         csw_dump = FALSE;
  6280.             return;
  6281.        }
  6282.     if (FALSE == cpw_check())
  6283.        {csw_dump = TRUE;
  6284.         panel_set(pb[45],PANEL_LABEL_IMAGE,
  6285.               panel_button_image(pa[5],"now ON",7,NULL),0);
  6286.        info_msg("          File Utility:  move the cursor into the canvas and then",
  6287.        "press the left mouse to define your start point.  Hold the mouse down and drag",
  6288.        "it to your end point, then release it. Use on/off button to disable mouse.");
  6289.             return;
  6290.        }
  6291.     return;
  6292. }
  6293. /* EOF */
  6294. /* cat > src+obj/p46.c << "EOF" */
  6295. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6296. /* p46: p46 button - done with image frame        */
  6297. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6298. /* SCCS information: %W%    %G% - NCSA */
  6299.  
  6300. /* #include "all.h" */
  6301.  
  6302. int 
  6303. p46 ()
  6304. {
  6305.     if (1 == sw_image || FALSE == confirm_image ())
  6306.     {
  6307.         reset_image ();
  6308.         reset_mimage ();
  6309.         window_destroy (pa[6]);
  6310.         window_destroy (fr[6]);
  6311.         panel_set (pb[7], PANEL_SHOW_ITEM, TRUE, 0);
  6312.         info_msg ("", "Image frame put away.", "");
  6313.         reset_image ();
  6314.         pa[6] = fr[6] = NULL;
  6315.         return;
  6316.     }
  6317.     reset_image ();
  6318.     panel_set (pb[46], PANEL_LABEL_IMAGE,
  6319.            panel_button_image (pa[6], "CONFIRM", 7, NULL), 0);
  6320.     sw_image = 1;
  6321.     warn_msg ();
  6322.     return;
  6323. }
  6324. /* EOF */
  6325. /* cat > src+obj/p47.c << "EOF" */
  6326. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6327. /* p47: p47 button - image...toggle the FinalPic switch    */
  6328. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6329. /* SCCS information: %W%    %G% - NCSA */
  6330.  
  6331. /* #include "all.h" */
  6332.  
  6333. int    p47()
  6334. {
  6335.     reset_image();
  6336.         if (image[ni].sw == 1)
  6337.           {image[ni].sw = 0;
  6338.            panel_set(    pb[47],PANEL_LABEL_IMAGE,
  6339.             panel_button_image(pa[6],
  6340.             "FinalPic toggle (OFF)",21,NULL),
  6341.             0);
  6342.           }
  6343.         else
  6344.           {image[ni].sw = 1;
  6345.            panel_set(    pb[47],PANEL_LABEL_IMAGE,
  6346.             panel_button_image(pa[6],
  6347.             "FinalPic toggle (ON) ",21,NULL),
  6348.             0);
  6349.       }
  6350.     *(rw_toggle + ni) = TRUE;
  6351.     info_msg("","FinalPic toggled for image.","");
  6352.         return;
  6353. }
  6354. /* EOF */
  6355. /* cat > src+obj/p48.c << "EOF" */
  6356. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6357. /* p48: p48 button - image...store displayed values    */
  6358. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6359. /* SCCS information: %W%    %G% - NCSA */
  6360.  
  6361. /* #include "all.h" */
  6362.  
  6363. int    p48()
  6364. {
  6365.     reset_image();
  6366.         if (FALSE == ok_image(&image[N_image], 1)) return;
  6367.         image[ni].xpts  = image[N_image].xpts;
  6368.         image[ni].ypts  = image[N_image].ypts;
  6369.         image[ni].xpos  = image[N_image].xpos;
  6370.         image[ni].ypos  = image[N_image].ypos;
  6371.         strcpy(image[ni].fname,image[N_image].fname);
  6372.     p49();
  6373.     *(rw_toggle + ni) = TRUE;
  6374.         return;
  6375. }
  6376. /* EOF */
  6377. /* cat > src+obj/p49.c << "EOF" */
  6378. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6379. /* p49: p49 button - image...discard displayed values    */
  6380. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6381. /* SCCS information: %W%    %G% - NCSA */
  6382.  
  6383. /* #include "all.h" */
  6384.  
  6385. int    p49()
  6386. {
  6387.         char            *s;
  6388.     reset_image();
  6389.     reset_mimage();
  6390.         strcpy(txt,window_get(fr[6],FRAME_LABEL,0));
  6391.         s = txt;
  6392.         while (*s) s++;
  6393.     while (*s != 'i') s--;
  6394.     s++;
  6395.         my_itoa(ni,s);
  6396.         while (*s) s++;
  6397.         *s++ = '\'';
  6398.         *s++ = ')';
  6399.         *s   = '\0';
  6400.         window_set(     fr[6],FRAME_LABEL,txt,0);
  6401.         if      (image[ni].sw == 0)
  6402.             panel_set(    pb[47],PANEL_LABEL_IMAGE,
  6403.                 panel_button_image(pa[6],
  6404.                 "FinalPic toggle (OFF)",21,NULL),
  6405.                 0);
  6406.         else
  6407.             panel_set(    pb[47],PANEL_LABEL_IMAGE,
  6408.                 panel_button_image(pa[6],
  6409.                 "FinalPic toggle (ON) ",21,NULL),
  6410.                 0);
  6411.         if      (image[ni].xpts == 0)
  6412.         panel_set(    pt[23],PANEL_VALUE,"",0);
  6413.         else
  6414.         {my_itoa(image[ni].xpts,txt);
  6415.          panel_set(pt[23],PANEL_VALUE,txt,0);
  6416.         }
  6417.         if      (image[ni].ypts == 0)
  6418.         panel_set(      pt[24],PANEL_VALUE,"",0);
  6419.         else
  6420.         {my_itoa(image[ni].ypts,txt);
  6421.          panel_set(pt[24],PANEL_VALUE,txt,0);
  6422.         }
  6423.         if      (image[ni].xpos == 0)
  6424.         panel_set(      pt[25],PANEL_VALUE,"",0);
  6425.         else
  6426.         {my_itoa(image[ni].xpos,txt);
  6427.          panel_set( pt[25],PANEL_VALUE,txt,0);
  6428.         }
  6429.         if      (image[ni].ypos == 0)
  6430.         panel_set(      pt[26],PANEL_VALUE,"",0);
  6431.         else
  6432.         {my_itoa(image[ni].ypos,txt);
  6433.          panel_set( pt[26],PANEL_VALUE,txt,0);
  6434.         }
  6435.         panel_set(      pt[27],PANEL_VALUE,image[ni].fname,0);
  6436.         s = txt;
  6437.         *s++ = 'i';
  6438.         if (ni == 0)    {*s++ = '0'; *s = '\0';}
  6439.         else            my_itoa(ni-1,s);
  6440.         panel_set(      pt[22],PANEL_VALUE,txt,0);
  6441.     info_msg("","Display now shows currently stored values for image.","");
  6442.         return;
  6443. }
  6444. /* EOF */
  6445. /* cat > src+obj/p50.c << "EOF" */
  6446. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6447. /* p50: p50 button - image...draw it            */
  6448. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6449. /* SCCS information: %W%    %G% - NCSA */
  6450.  
  6451. /* #include "all.h" */
  6452.  
  6453. int    p50()
  6454. {
  6455.     reset_image();
  6456.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  6457.       {info_msg("","Canvas is not up, request ignored.","");
  6458.        return;
  6459.       }
  6460.         if (FALSE == ok_image(&image[N_image], 1)) return;
  6461.         draw_image(&image[N_image], 1);
  6462.     info_msg("","Image drawn.","");
  6463.         return;
  6464. }
  6465. /* EOF */
  6466. /* cat > src+obj/p51.c << "EOF" */
  6467. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6468. /* p51: p51 button - image...erase it            */
  6469. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6470. /* SCCS information: %W%    %G% - NCSA */
  6471.  
  6472. /* #include "all.h" */
  6473.  
  6474. int    p51()
  6475. {
  6476.     reset_image();
  6477.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  6478.       {info_msg("","Canvas is not up, request ignored.","");
  6479.        return;
  6480.       }
  6481.         if (FALSE == ok_image(&image[N_image], 1)) return;
  6482.         pw_writebackground(cpw, image[N_image].xpos,    image[N_image].ypos,
  6483.                                 image[N_image].xpts,    image[N_image].ypts,
  6484.                                 PIX_SRC | (clear_color) << 5);
  6485.     info_msg("","Image erased.","");
  6486.         return;
  6487. }
  6488. /* EOF */
  6489. /* cat > src+obj/p52.c << "EOF" */
  6490. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6491. /* p52: p52 button - image...mouse draw            */
  6492. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6493. /* SCCS information: %W%    %G% - NCSA */
  6494.  
  6495. /* #include "all.h" */
  6496.  
  6497. int    p52()
  6498. {
  6499.         reset_image();
  6500.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  6501.           {info_msg("","Canvas is not up, request ignored.","");
  6502.            return;
  6503.           }
  6504.     if (csw_image == FALSE)
  6505.        {if (cpw_check() == TRUE)
  6506.            return;
  6507.         csw_image = TRUE;
  6508.         sw_draw = TRUE;
  6509.         panel_set(pb[52],PANEL_LABEL_IMAGE,
  6510.               panel_button_image(pa[6],"MS DRAW",8,NULL),0);
  6511.         msg_draw("Image frame:");
  6512.         return;
  6513.        }
  6514.     if (sw_draw == TRUE)
  6515.        {sw_draw = FALSE;
  6516.         csw_image = FALSE;
  6517.         panel_set(pb[52],PANEL_LABEL_IMAGE,
  6518.               panel_button_image(pa[6],"ms draw",8,NULL),0);
  6519.         info_msg("","Draw Images with mouse deactivated.","");
  6520.         return;
  6521.        }
  6522.     sw_move = FALSE;
  6523.     panel_set(pb[85],PANEL_LABEL_IMAGE,
  6524.            panel_button_image(pa[6],"mouse mv",9,NULL),0);
  6525.     sw_draw = TRUE;
  6526.     panel_set(pb[52],PANEL_LABEL_IMAGE,
  6527.           panel_button_image(pa[6],"MS DRAW",8,NULL),0);
  6528.     msg_draw("Image frame:");
  6529.     return;
  6530. }
  6531. /* EOF */
  6532. /* cat > src+obj/p53.c << "EOF" */
  6533. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6534. /* p53: p53 button - image...copy data from another tag    */
  6535. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6536. /* SCCS information: %W%    %G% - NCSA */
  6537.  
  6538. /* #include "all.h" */
  6539.  
  6540. int    p53()
  6541. {
  6542.         register int    n;
  6543.         char            *s;
  6544.         strcpy(txt,panel_get(   pt[22],PANEL_VALUE,0));
  6545.         s = txt;
  6546.         if (*s != 'i' || *(s + 1) == '\0')
  6547.       {strcat(txt," is not a valid image tag.");
  6548.        reset_image();
  6549.        bad_data(txt);
  6550.        return;
  6551.       }
  6552.         s++;
  6553.         if (FALSE == my_isint(s))
  6554.       {strcat(txt," is not a valid image tag.");
  6555.        reset_image();
  6556.        bad_data(txt);
  6557.        return;
  6558.       }
  6559.         n = atoi(s);
  6560.         if (n < 0)
  6561.       {strcat(txt," is not a valid image tag.");
  6562.        reset_image();
  6563.        bad_data(txt);
  6564.        return;
  6565.       }
  6566.         if (n >= N_image)
  6567.       {strcat(txt," is valid, but there are not that many tags.");
  6568.        reset_image();
  6569.        bad_data(txt);
  6570.        return;
  6571.       }
  6572.     if (ni == n)
  6573.        {reset_image();
  6574.         info_msg("", "This image tag already showing.","");
  6575.         return;
  6576.        }
  6577.     if (sw_i[0] == 0 && TRUE == confirm_image())
  6578.        {reset_image();
  6579.         panel_set(pb[53],PANEL_LABEL_IMAGE,
  6580.               panel_button_image(pa[6],"*",2,NULL),0);
  6581.         sw_i[0] = 1;
  6582.         warn_msgt();
  6583.         return;
  6584.        }
  6585.         if      (image[n].xpts == 0)
  6586.         panel_set(      pt[23],PANEL_VALUE,"",0);
  6587.         else
  6588.         {my_itoa(image[n].xpts,txt);
  6589.          panel_set(pt[23],PANEL_VALUE,txt,0);
  6590.         }
  6591.         if      (image[n].ypts == 0)
  6592.         panel_set(      pt[24],PANEL_VALUE,"",0);
  6593.         else
  6594.         {my_itoa(image[n].ypts,txt);
  6595.          panel_set(pt[24],PANEL_VALUE,txt,0);
  6596.         }
  6597.         if      (image[n].xpos == 0)
  6598.         panel_set(      pt[25],PANEL_VALUE,"",0);
  6599.         else
  6600.         {my_itoa(image[n].xpos,txt);
  6601.          panel_set(pt[25],PANEL_VALUE,txt,0);
  6602.         }
  6603.         if      (image[n].ypos == 0)
  6604.         panel_set(      pt[26],PANEL_VALUE,"",0);
  6605.         else
  6606.         {my_itoa(image[n].ypos,txt);
  6607.          panel_set(pt[26],PANEL_VALUE,txt,0);
  6608.         }
  6609.         panel_set(      pt[27],PANEL_VALUE,image[n].fname,0);
  6610.     reset_image();
  6611.     reset_mimage();
  6612.     info_msg("","Image displayed has been copied from",
  6613.             "another tag but has not been stored.");
  6614.         return;
  6615. }
  6616. /* EOF */
  6617. /* cat > src+obj/p54.c << "EOF" */
  6618. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6619. /* p54: p54 button - image...decrement tag number by 5    */
  6620. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6621. /* SCCS information: %W%    %G% - NCSA */
  6622.  
  6623. /* #include "all.h" */
  6624.  
  6625. int    p54()
  6626. {
  6627.     if (ni == 0)
  6628.        {reset_image();
  6629.         info_msg("","This image tag already displayed.","");
  6630.         return;
  6631.        }
  6632.     if (sw_i[1] == 1 || FALSE == confirm_image())
  6633.            {ni -= 5;
  6634.         if (ni < 0) ni = 0;
  6635.             p49();
  6636.         reset_image();
  6637.             return;
  6638.        }
  6639.     reset_image();
  6640.     panel_set(pb[54],PANEL_LABEL_IMAGE,
  6641.           panel_button_image(pa[6],"*",2,NULL),0);
  6642.     sw_i[1] = 1;
  6643.     warn_msgt();
  6644.     return;
  6645. }
  6646. /* EOF */
  6647. /* cat > src+obj/p55.c << "EOF" */
  6648. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6649. /* p55: p55 button - image...decrement tag number by 1    */
  6650. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6651. /* SCCS information: %W%    %G% - NCSA */
  6652.  
  6653. /* #include "all.h" */
  6654.  
  6655. int    p55()
  6656. {
  6657.     if (ni == 0)
  6658.        {reset_image();
  6659.         info_msg("","This image tag already displayed.","");
  6660.         return;
  6661.        }
  6662.     if (sw_i[2] == 1 || FALSE == confirm_image())
  6663.            {ni --;
  6664.             p49();
  6665.         reset_image();
  6666.             return;
  6667.        }
  6668.     reset_image();
  6669.     panel_set(pb[55],PANEL_LABEL_IMAGE,
  6670.           panel_button_image(pa[6],"*",1,NULL),0);
  6671.     sw_i[2] = 1;
  6672.     warn_msgt();
  6673.     return;
  6674. }
  6675. /* EOF */
  6676. /* cat > src+obj/p56.c << "EOF" */
  6677. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6678. /* p56: p56 button - image...increment tag number by 1    */
  6679. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6680. /* SCCS information: %W%    %G% - NCSA */
  6681.  
  6682. /* #include "all.h" */
  6683.  
  6684. int    p56()
  6685. {
  6686.     if (ni == N_image - 1)
  6687.        {reset_image();
  6688.         info_msg("","This image tag already displayed.","");
  6689.         return;
  6690.        }
  6691.     if (sw_i[3] == 1 || FALSE == confirm_image())
  6692.            {ni++;
  6693.             p49();
  6694.         reset_image();
  6695.             return;
  6696.        }
  6697.     reset_image();
  6698.     panel_set(pb[56],PANEL_LABEL_IMAGE,
  6699.           panel_button_image(pa[6],"*",1,NULL),0);
  6700.     sw_i[3] = 1;
  6701.     warn_msgt();
  6702.     return;
  6703. }
  6704. /* EOF */
  6705. /* cat > src+obj/p57.c << "EOF" */
  6706. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6707. /* p57: p57 button - image...increment tag number by 5    */
  6708. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6709. /* SCCS information: %W%    %G% - NCSA */
  6710.  
  6711. /* #include "all.h" */
  6712.  
  6713. int    p57()
  6714. {
  6715.     if (ni == N_image - 1)
  6716.        {reset_image();
  6717.         info_msg("","This image tag already displayed.","");
  6718.         return;
  6719.        }
  6720.     if (sw_i[4] == 1 || FALSE == confirm_image())
  6721.            {ni += 5;
  6722.         if (ni > N_image - 1) ni = N_image - 1;
  6723.             p49();
  6724.         reset_image();
  6725.             return;
  6726.        }
  6727.     reset_image();
  6728.     panel_set(pb[57],PANEL_LABEL_IMAGE,
  6729.           panel_button_image(pa[6],"*",2,NULL),0);
  6730.     sw_i[4] = 1;
  6731.     warn_msgt();
  6732.     return;
  6733. }
  6734. /* EOF */
  6735. /* cat > src+obj/p58.c << "EOF" */
  6736. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6737. /* p58: p58 button - done with contour frame        */
  6738. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6739. /* SCCS information: %W%    %G% - NCSA */
  6740.  
  6741. /* #include "all.h" */
  6742.  
  6743. int 
  6744. p58 ()
  6745. {
  6746.     if (1 == sw_contour || FALSE == confirm_contour ())
  6747.     {
  6748.         reset_mcontour ();
  6749.         reset_contour ();
  6750.         window_destroy (pa[7]);
  6751.         window_destroy (fr[7]);
  6752.         pa[7] = fr[7] = NULL;
  6753.         panel_set (pb[8], PANEL_SHOW_ITEM, TRUE, 0);
  6754.         info_msg ("", "Contour frame put away.", "");
  6755.         return;
  6756.     }
  6757.     reset_contour ();
  6758.     panel_set (pb[58], PANEL_LABEL_IMAGE,
  6759.            panel_button_image (pa[7], "CONFIRM", 7, NULL), 0);
  6760.     sw_contour = 1;
  6761.     warn_msg ();
  6762.     return;
  6763. }
  6764. /* EOF */
  6765. /* cat > src+obj/p59.c << "EOF" */
  6766. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6767. /* p59: p59 button - contour...toggle the FinalPic    */
  6768. /*    switch                        */
  6769. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6770. /* SCCS information: %W%    %G% - NCSA */
  6771.  
  6772. /* #include "all.h" */
  6773.  
  6774. int    p59()
  6775. {
  6776.     reset_contour();
  6777.         if (con[nc].sw == 1)
  6778.           {con[nc].sw = 0;
  6779.            panel_set(    pb[59],PANEL_LABEL_IMAGE,
  6780.             panel_button_image(pa[7],
  6781.             "FinalPic toggle (OFF)",21,NULL),
  6782.             0);
  6783.           }
  6784.         else
  6785.           {con[nc].sw = 1;
  6786.            panel_set(    pb[59],PANEL_LABEL_IMAGE,
  6787.             panel_button_image(pa[7],
  6788.             "FinalPic toggle (ON) ",21,NULL),
  6789.             0);
  6790.       }
  6791.     *(rw_toggle + N_image + nc) = TRUE;
  6792.     info_msg("","FinalPic toggled for contour.","");
  6793.         return;
  6794. }
  6795. /* EOF */
  6796. /* cat > src+obj/p60.c << "EOF" */
  6797. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6798. /* p60: p60 button - contour...store displayed values    */
  6799. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6800. /* SCCS information: %W%    %G% - NCSA */
  6801.  
  6802. /* #include "all.h" */
  6803.  
  6804. int    p60()
  6805. {
  6806.     reset_contour();
  6807.         if (FALSE == ok_contour(&con[N_contour], 1)) return;
  6808.         con[nc].xpts    = con[N_contour].xpts;
  6809.         con[nc].ypts    = con[N_contour].ypts;
  6810.         con[nc].xpos    = con[N_contour].xpos;
  6811.         con[nc].ypos    = con[N_contour].ypos;
  6812.         con[nc].first   = con[N_contour].first;
  6813.         con[nc].last    = con[N_contour].last;
  6814.         con[nc].interval = con[N_contour].interval;
  6815.         con[nc].color   = con[N_contour].color;
  6816.         con[nc].dis     = con[N_contour].dis;
  6817.         strcpy(con[nc].fname,con[N_contour].fname);
  6818.     p61();
  6819.     *(rw_toggle + N_image + nc) = TRUE;
  6820.         return;
  6821. }
  6822. /* EOF */
  6823. /* cat > src+obj/p61.c << "EOF" */
  6824. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6825. /* p61: p61 button - contour...discard displayed values    */
  6826. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6827. /* SCCS information: %W%    %G% - NCSA */
  6828.  
  6829. /* #include "all.h" */
  6830.  
  6831. int    p61()
  6832. {
  6833.         char            *s;
  6834.     reset_contour();
  6835.     reset_mcontour();
  6836.         strcpy(txt,window_get(fr[7],FRAME_LABEL,0));
  6837.         s = txt;
  6838.         while (*s) s++;
  6839.     while (*s != 'c') s--;
  6840.     s++;
  6841.         my_itoa(nc,s);
  6842.         while (*s) s++;
  6843.         *s++ = '\'';
  6844.         *s++ = ')';
  6845.         *s   = '\0';
  6846.         window_set(     fr[7],FRAME_LABEL,txt,0);
  6847.         if      (con[nc].sw == 0)
  6848.             panel_set(    pb[59],PANEL_LABEL_IMAGE,
  6849.                 panel_button_image(pa[7],
  6850.                 "FinalPic toggle (OFF)",21,NULL),
  6851.                 0);
  6852.         else
  6853.             panel_set(    pb[59],PANEL_LABEL_IMAGE,
  6854.                 panel_button_image(pa[7],
  6855.                 "FinalPic toggle (ON) ",21,NULL),
  6856.                 0);
  6857.         if      (con[nc].xpts == 0)
  6858.         panel_set(    pt[30],PANEL_VALUE,"",0);
  6859.         else
  6860.         {my_itoa(con[nc].xpts,txt);
  6861.          panel_set(    pt[30],PANEL_VALUE,txt,0);
  6862.         }
  6863.         if      (con[nc].ypts == 0)
  6864.         panel_set(    pt[31],PANEL_VALUE,"",0);
  6865.         else
  6866.         {my_itoa(con[nc].ypts,txt);
  6867.          panel_set(    pt[31],PANEL_VALUE,txt,0);
  6868.         }
  6869.         if      (con[nc].xpos == 0)
  6870.         panel_set(    pt[32],PANEL_VALUE,"",0);
  6871.         else
  6872.         {my_itoa(con[nc].xpos,txt);
  6873.          panel_set(    pt[32],PANEL_VALUE,txt,0);
  6874.         }
  6875.         if      (con[nc].ypos == 0)
  6876.         panel_set(    pt[33],PANEL_VALUE,"",0);
  6877.         else
  6878.         {my_itoa(con[nc].ypos,txt);
  6879.          panel_set(    pt[33],PANEL_VALUE,txt,0);
  6880.         }
  6881.         if      (con[nc].first == 0)
  6882.         panel_set(    pt[35],PANEL_VALUE,"",0);
  6883.         else
  6884.         {my_itoa(con[nc].first,txt);
  6885.          panel_set(    pt[35],PANEL_VALUE,txt,0);
  6886.         }
  6887.         if      (con[nc].last == 0)
  6888.         panel_set(    pt[36],PANEL_VALUE,"",0);
  6889.         else
  6890.         {my_itoa(con[nc].last,txt);
  6891.          panel_set(    pt[36],PANEL_VALUE,txt,0);
  6892.         }
  6893.         if      (con[nc].interval == 0)
  6894.         panel_set(    pt[37],PANEL_VALUE,"",0);
  6895.         else
  6896.         {my_itoa(con[nc].interval,txt);
  6897.          panel_set(    pt[37],PANEL_VALUE,txt,0);
  6898.         }
  6899.         if      (con[nc].color == 0)
  6900.         panel_set(    pt[34],PANEL_VALUE,"",0);
  6901.         else
  6902.         {my_itoa(con[nc].color,txt);
  6903.          panel_set(    pt[34],PANEL_VALUE,txt,0);
  6904.         }
  6905.         panel_set(    pt[29],PANEL_VALUE,con[nc].fname,0);
  6906.         s = txt;
  6907.         *s++ = 'c';
  6908.         if (nc == 0)    {*s++ = '0'; *s = '\0';}
  6909.         else            my_itoa(nc-1,s);
  6910.         panel_set(      pt[28],PANEL_VALUE,txt,0);
  6911.     info_msg("","Display now shows current stored values for contour.","");
  6912.         return;
  6913. }
  6914. /* EOF */
  6915. /* cat > src+obj/p62.c << "EOF" */
  6916. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6917. /* p62: p62 button - contour...draw it            */
  6918. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6919. /* SCCS information: %W%    %G% - NCSA */
  6920.  
  6921. /* #include "all.h" */
  6922.  
  6923. int    p62()
  6924. {
  6925.     reset_contour();
  6926.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  6927.       {info_msg("","Canvas is not up, request ignored.","");
  6928.        return;
  6929.       }
  6930.         if (FALSE == ok_contour(&con[N_contour], 1)) return;
  6931.         draw_contour(&con[N_contour], 1);
  6932.     info_msg("","Contour drawn.","");
  6933.         return;
  6934. }
  6935. /* EOF */
  6936. /* cat > src+obj/p63.c << "EOF" */
  6937. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6938. /* p63: p63 button - contour...erase it            */
  6939. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6940. /* SCCS information: %W%    %G% - NCSA */
  6941.  
  6942. /* #include "all.h" */
  6943.  
  6944. int    p63()
  6945. {
  6946.     reset_contour();
  6947.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  6948.       {info_msg("","Canvas is not up, request ignored.","");
  6949.        return;
  6950.       }
  6951.         if (FALSE == ok_contour(&con[N_contour], 1)) return;
  6952.         con[N_contour].color = clear_color;
  6953.         pw_writebackground(cpw, con[N_image].xpos,    con[N_image].ypos,
  6954.                                 con[N_image].xpts,    con[N_image].ypts,
  6955.                                 PIX_SRC | (clear_color) << 5);
  6956.     info_msg("","Contour erased.","");
  6957.         return;
  6958. }
  6959. /* EOF */
  6960. /* cat > src+obj/p64.c << "EOF" */
  6961. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6962. /* p64: p64 button - contour...mouse draw        */
  6963. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6964. /* SCCS information: %W%    %G% - NCSA */
  6965.  
  6966. /* #include "all.h" */
  6967.  
  6968. int    p64()
  6969. {
  6970.         reset_contour();
  6971.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  6972.           {info_msg("","Canvas is not up, request ignored.","");
  6973.            return;
  6974.           }
  6975.     if (csw_contour == FALSE)
  6976.        {if (cpw_check() == TRUE)
  6977.            return;
  6978.         csw_contour = TRUE;
  6979.         sw_draw = TRUE;
  6980.         panel_set(pb[64],PANEL_LABEL_IMAGE,
  6981.               panel_button_image(pa[7],"MS DRAW",8,NULL),0);
  6982.         msg_draw("Contour frame:");
  6983.         return;
  6984.        }
  6985.     if (sw_draw == TRUE)
  6986.        {sw_draw = FALSE;
  6987.         csw_contour = FALSE;
  6988.         panel_set(pb[64],PANEL_LABEL_IMAGE,
  6989.               panel_button_image(pa[7],"ms draw",8,NULL),0);
  6990.         info_msg("","Draw Contours with mouse deactivated.","");
  6991.         return;
  6992.        }
  6993.     sw_move = FALSE;
  6994.     panel_set(pb[86],PANEL_LABEL_IMAGE,
  6995.            panel_button_image(pa[7],"mouse mv",9,NULL),0);
  6996.     sw_draw = TRUE;
  6997.     panel_set(pb[64],PANEL_LABEL_IMAGE,
  6998.           panel_button_image(pa[7],"MS DRAW",8,NULL),0);
  6999.     msg_draw("Contour frame:");
  7000.     return;
  7001. }
  7002. /* EOF */
  7003. /* cat > src+obj/p65.c << "EOF" */
  7004. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7005. /* p65: p65 button - contour...copy data from another    */
  7006. /*    tag                        */
  7007. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7008. /* SCCS information: %W%    %G% - NCSA */
  7009.  
  7010. /* #include "all.h" */
  7011.  
  7012. int    p65()
  7013. {
  7014.         register int    n;
  7015.         char            *s;
  7016.         strcpy(txt,panel_get(   pt[28],PANEL_VALUE,0));
  7017.         s = txt;
  7018.         if (*s != 'c' || *(s + 1) == '\0')
  7019.       {strcat(txt," is not a valid text tag.");
  7020.        reset_contour();
  7021.        bad_data(txt);
  7022.        return;
  7023.       }
  7024.         s++;
  7025.         if (FALSE == my_isint(s))
  7026.       {strcat(txt," is not a valid text tag.");
  7027.        reset_contour();
  7028.        bad_data(txt);
  7029.        return;
  7030.       }
  7031.         n = atoi(s);
  7032.         if (n < 0)
  7033.       {strcat(txt," is not a valid text tag.");
  7034.        reset_contour();
  7035.        bad_data(txt);
  7036.        return;
  7037.       }
  7038.         if (n >= N_contour)
  7039.       {strcat(txt," is valid, but there are not that many tags.");
  7040.        reset_contour();
  7041.        bad_data(txt);
  7042.        return;
  7043.       }
  7044.     if (nc == n)
  7045.        {reset_contour();
  7046.         info_msg("","This contour tag already showing.","");
  7047.         return;
  7048.        }
  7049.     if (sw_c[0] == 0 && TRUE == confirm_contour())
  7050.        {reset_contour();
  7051.         panel_set(pb[65],PANEL_LABEL_IMAGE,
  7052.               panel_button_image(pa[7],"*",2,NULL),0);
  7053.         sw_c[0] = 1;
  7054.         warn_msgt();
  7055.         return;
  7056.        }
  7057.         if      (con[n].xpts == 0)
  7058.         panel_set(    pt[30],PANEL_VALUE,"",0);
  7059.         else
  7060.         {my_itoa(con[n].xpts,txt);
  7061.          panel_set(    pt[30],PANEL_VALUE,txt,0);
  7062.         }
  7063.         if      (con[n].ypts == 0)
  7064.         panel_set(    pt[31],PANEL_VALUE,"",0);
  7065.         else
  7066.         {my_itoa(con[n].ypts,txt);
  7067.          panel_set(    pt[31],PANEL_VALUE,txt,0);
  7068.         }
  7069.         if      (con[n].xpos == 0)
  7070.         panel_set(    pt[32],PANEL_VALUE,"",0);
  7071.         else
  7072.         {my_itoa(con[n].xpos,txt);
  7073.          panel_set(    pt[32],PANEL_VALUE,txt,0);
  7074.         }
  7075.         if      (con[n].ypos == 0)
  7076.         panel_set(    pt[33],PANEL_VALUE,"",0);
  7077.         else
  7078.         {my_itoa(con[n].ypos,txt);
  7079.          panel_set(    pt[33],PANEL_VALUE,txt,0);
  7080.         }
  7081.         if      (con[n].first == 0)
  7082.         panel_set(    pt[35],PANEL_VALUE,"",0);
  7083.         else
  7084.         {my_itoa(con[n].first,txt);
  7085.          panel_set(    pt[35],PANEL_VALUE,txt,0);
  7086.         }
  7087.         if      (con[n].last == 0)
  7088.         panel_set(    pt[36],PANEL_VALUE,"",0);
  7089.         else
  7090.         {my_itoa(con[n].last,txt);
  7091.          panel_set(    pt[36],PANEL_VALUE,txt,0);
  7092.         }
  7093.         if      (con[n].interval == 0)
  7094.         panel_set(    pt[37],PANEL_VALUE,"",0);
  7095.         else
  7096.         {my_itoa(con[n].interval,txt);
  7097.          panel_set(    pt[37],PANEL_VALUE,txt,0);
  7098.         }
  7099.         if      (con[n].color == 0)
  7100.         panel_set(    pt[34],PANEL_VALUE,"",0);
  7101.         else
  7102.         {my_itoa(con[n].color,txt);
  7103.          panel_set(    pt[34],PANEL_VALUE,txt,0);
  7104.         }
  7105.         panel_set(    pt[29],PANEL_VALUE,con[n].fname,0);
  7106.     reset_contour();
  7107.     reset_mcontour();
  7108.     info_msg("","Contour displayed has been copied from",
  7109.             "another tag but has not been stored.");
  7110.         return;
  7111. }
  7112. /* EOF */
  7113. /* cat > src+obj/p66.c << "EOF" */
  7114. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7115. /* p66: p66 button - contour...decrement tag number by    */
  7116. /*    5                        */
  7117. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7118. /* SCCS information: %W%    %G% - NCSA */
  7119.  
  7120. /* #include "all.h" */
  7121.  
  7122. int    p66()
  7123. {
  7124.     if (nc == 0)
  7125.        {reset_contour();
  7126.         info_msg("","This contour tag already showing.","");
  7127.         return;
  7128.        }
  7129.     if (sw_c[1] == 1 || FALSE == confirm_contour())
  7130.            {nc -= 5;
  7131.         if (nc < 0) nc = 0;
  7132.             p61();
  7133.         reset_contour();
  7134.             return;
  7135.        }
  7136.     reset_contour();
  7137.     panel_set(pb[66],PANEL_LABEL_IMAGE,
  7138.           panel_button_image(pa[7],"*",2,NULL),0);
  7139.     sw_c[1] = 1;
  7140.     warn_msgt();
  7141.     return;
  7142. }
  7143. /* EOF */
  7144. /* cat > src+obj/p67.c << "EOF" */
  7145. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7146. /* p67: p67 button - contour...decrement tag number by    */
  7147. /*    1                        */
  7148. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7149. /* SCCS information: %W%    %G% - NCSA */
  7150.  
  7151. /* #include "all.h" */
  7152.  
  7153. int    p67()
  7154. {
  7155.     if (nc == 0)
  7156.        {reset_contour();
  7157.         info_msg("","This contour tag already showing.","");
  7158.         return;
  7159.        }
  7160.     if (sw_c[2] == 1 || FALSE == confirm_contour())
  7161.            {nc --;
  7162.             p61();
  7163.         reset_contour();
  7164.             return;
  7165.        }
  7166.     reset_contour();
  7167.     panel_set(pb[67],PANEL_LABEL_IMAGE,
  7168.           panel_button_image(pa[7],"*",1,NULL),0);
  7169.     sw_c[2] = 1;
  7170.     warn_msgt();
  7171.     return;
  7172. }
  7173. /* EOF */
  7174. /* cat > src+obj/p68.c << "EOF" */
  7175. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7176. /* p68: p68 button - contour...increment tag number by    */
  7177. /*    1                        */
  7178. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7179. /* SCCS information: %W%    %G% - NCSA */
  7180.  
  7181. /* #include "all.h" */
  7182.  
  7183. int    p68()
  7184. {
  7185.     if (nc == N_contour - 1)
  7186.        {reset_contour();
  7187.         info_msg("","This contour tag already showing.","");
  7188.         return;
  7189.        }
  7190.     if (sw_c[3] == 1 || FALSE == confirm_contour())
  7191.            {nc ++;
  7192.             p61();
  7193.         reset_contour();
  7194.             return;
  7195.        }
  7196.     reset_contour();
  7197.     panel_set(pb[68],PANEL_LABEL_IMAGE,
  7198.           panel_button_image(pa[7],"*",1,NULL),0);
  7199.     sw_c[3] = 1;
  7200.     warn_msgt();
  7201.     return;
  7202. }
  7203. /* EOF */
  7204. /* cat > src+obj/p69.c << "EOF" */
  7205. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7206. /* p69: p69 button - contour...increment tag number by    */
  7207. /*    5                        */
  7208. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7209. /* SCCS information: %W%    %G% - NCSA */
  7210.  
  7211. /* #include "all.h" */
  7212.  
  7213. int    p69()
  7214. {
  7215.     if (nc == N_contour - 1)
  7216.        {reset_contour();
  7217.         info_msg("","This contour tag already showing.","");
  7218.         return;
  7219.        }
  7220.     if (sw_c[4] == 1 || FALSE == confirm_contour())
  7221.            {nc += 5;
  7222.             if (nc > N_contour - 1) nc = N_contour - 1;
  7223.             p61();
  7224.         reset_contour();
  7225.             return;
  7226.        }
  7227.     reset_contour();
  7228.     panel_set(pb[69],PANEL_LABEL_IMAGE,
  7229.           panel_button_image(pa[7],"*",2,NULL),0);
  7230.     sw_c[4] = 1;
  7231.     warn_msgt();
  7232.     return;
  7233. }
  7234. /* EOF */
  7235. /* cat > src+obj/p70.c << "EOF" */
  7236. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7237. /* p70: p70 button - done with vector frame        */
  7238. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7239. /* SCCS information: %W%    %G% - NCSA */
  7240.  
  7241. /* #include "all.h" */
  7242.  
  7243. int 
  7244. p70 ()
  7245. {
  7246.     if (1 == sw_vector || FALSE == confirm_vector ())
  7247.     {
  7248.         reset_vector ();
  7249.         reset_mvector ();
  7250.         window_destroy (pa[8]);
  7251.         window_destroy (fr[8]);
  7252.         panel_set (pb[9], PANEL_SHOW_ITEM, TRUE, 0);
  7253.         info_msg ("", "Vector frame put away.", "");
  7254.         reset_vector ();
  7255.         pa[8] = fr[8] = NULL;
  7256.         return;
  7257.     }
  7258.     reset_vector ();
  7259.     panel_set (pb[70], PANEL_LABEL_IMAGE,
  7260.            panel_button_image (pa[8], "CONFIRM", 7, NULL), 0);
  7261.     sw_vector = 1;
  7262.     warn_msg ();
  7263.     return;
  7264. }
  7265. /* EOF */
  7266. /* cat > src+obj/p71.c << "EOF" */
  7267. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7268. /* p71: p71 button - vector...toggle the FinalPic    */
  7269. /*    switch                        */
  7270. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7271. /* SCCS information: %W%    %G% - NCSA */
  7272.  
  7273. /* #include "all.h" */
  7274.  
  7275. int    p71()
  7276. {
  7277.     reset_vector();
  7278.         if (vec[nv].sw == 1)
  7279.           {vec[nv].sw = 0;
  7280.            panel_set(    pb[71],PANEL_LABEL_IMAGE,
  7281.             panel_button_image(pa[8],
  7282.             "FinalPic toggle (OFF)",21,NULL),
  7283.             0);
  7284.           }
  7285.         else
  7286.           {vec[nv].sw = 1;
  7287.            panel_set(    pb[71],PANEL_LABEL_IMAGE,
  7288.             panel_button_image(pa[8],
  7289.             "FinalPic toggle (ON) ",21,NULL),
  7290.             0);
  7291.       }
  7292.     *(rw_toggle + N_image + N_contour + nv) = TRUE;
  7293.     info_msg("","FinalPic toggled for vector.","");
  7294.         return;
  7295. }
  7296. /* EOF */
  7297. /* cat > src+obj/p72.c << "EOF" */
  7298. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7299. /* p72: p72 button - vector...store displayed values    */
  7300. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7301. /* SCCS information: %W%    %G% - NCSA */
  7302.  
  7303. /* #include "all.h" */
  7304.  
  7305. int    p72()
  7306. {
  7307.     reset_vector();
  7308.         if (FALSE == ok_vector(&vec[N_vector], 1)) return;
  7309.         vec[nv].xpts    = vec[N_vector].xpts;
  7310.         vec[nv].ypts    = vec[N_vector].ypts;
  7311.         vec[nv].xpos    = vec[N_vector].xpos;
  7312.         vec[nv].ypos    = vec[N_vector].ypos;
  7313.         vec[nv].xstart  = vec[N_vector].xstart;
  7314.         vec[nv].xend    = vec[N_vector].xend;
  7315.         vec[nv].xinterval       = vec[N_vector].xinterval;
  7316.         vec[nv].ystart  = vec[N_vector].ystart;
  7317.         vec[nv].yend    = vec[N_vector].yend;
  7318.         vec[nv].yinterval       = vec[N_vector].yinterval;
  7319.         vec[nv].color   = vec[N_vector].color;
  7320.         vec[nv].maxlen  = vec[N_vector].maxlen;
  7321.         vec[nv].xzero   = vec[N_vector].xzero;
  7322.         vec[nv].yzero   = vec[N_vector].yzero;
  7323.         strcpy(vec[nv].xname,vec[N_vector].xname);
  7324.         strcpy(vec[nv].yname,vec[N_vector].yname);
  7325.         vec[nv].xscale  = vec[N_vector].xscale;
  7326.         vec[nv].yscale  = vec[N_vector].yscale;
  7327.     p73();
  7328.     *(rw_toggle + N_image + N_contour + nv) = TRUE;
  7329.         return;
  7330. }
  7331. /* EOF */
  7332. /* cat > src+obj/p73.c << "EOF" */
  7333. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7334. /* p73: p73 button - vector...discard displayed values    */
  7335. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7336. /* SCCS information: %W%    %G% - NCSA */
  7337.  
  7338. /* #include "all.h" */
  7339.  
  7340. int    p73()
  7341. {
  7342.         char            *s;
  7343.     int        n = nv;
  7344.     reset_vector();
  7345.     reset_mvector();
  7346.         strcpy(txt,window_get(fr[8],FRAME_LABEL,0));
  7347.         s = txt;
  7348.         while (*s) s++;
  7349.     while (*s != 'v') s--;
  7350.     s++;
  7351.         my_itoa(nv,s);
  7352.         while (*s) s++;
  7353.         *s++ = '\'';
  7354.         *s++ = ')';
  7355.         *s   = '\0';
  7356.         window_set(     fr[8],FRAME_LABEL,txt,0);
  7357.         if      (vec[n].sw == 0)
  7358.             panel_set(    pb[71],PANEL_LABEL_IMAGE,
  7359.                 panel_button_image(pa[8],
  7360.                 "FinalPic toggle (OFF)",21,NULL),
  7361.                 0);
  7362.         else
  7363.             panel_set(    pb[71],PANEL_LABEL_IMAGE,
  7364.                 panel_button_image(pa[8],
  7365.                 "FinalPic toggle (ON) ",21,NULL),
  7366.                 0);
  7367.         if      (vec[n].xpts == 0)
  7368.         panel_set(    pt[41],PANEL_VALUE,"",0);
  7369.         else
  7370.         {my_itoa(vec[n].xpts,txt);
  7371.          panel_set(    pt[41],PANEL_VALUE,txt,0);
  7372.         }
  7373.         if      (vec[n].ypts == 0)
  7374.         panel_set(    pt[42],PANEL_VALUE,"",0);
  7375.         else
  7376.         {my_itoa(vec[n].ypts,txt);
  7377.          panel_set(    pt[42],PANEL_VALUE,txt,0);
  7378.         }
  7379.         if      (vec[n].xpos == 0)
  7380.         panel_set(    pt[43],PANEL_VALUE,"",0);
  7381.         else
  7382.         {my_itoa(vec[n].xpos,txt);
  7383.          panel_set(    pt[43],PANEL_VALUE,txt,0);
  7384.         }
  7385.         if      (vec[n].ypos == 0)
  7386.         panel_set(    pt[44],PANEL_VALUE,"",0);
  7387.         else
  7388.         {my_itoa(vec[n].ypos,txt);
  7389.          panel_set(    pt[44],PANEL_VALUE,txt,0);
  7390.         }
  7391.         if      (vec[n].xstart == 0)
  7392.         panel_set(    pt[48],PANEL_VALUE,"",0);
  7393.         else
  7394.         {my_itoa(vec[n].xstart,txt);
  7395.          panel_set(    pt[48],PANEL_VALUE,txt,0);
  7396.         }
  7397.         if      (vec[n].ystart == 0)
  7398.         panel_set(    pt[49],PANEL_VALUE,"",0);
  7399.         else
  7400.         {my_itoa(vec[n].ystart,txt);
  7401.          panel_set(    pt[49],PANEL_VALUE,txt,0);
  7402.         }
  7403.         if      (vec[n].xend == 0)
  7404.         panel_set(    pt[50],PANEL_VALUE,"",0);
  7405.         else
  7406.         {my_itoa(vec[n].xend,txt);
  7407.          panel_set(    pt[50],PANEL_VALUE,txt,0);
  7408.         }
  7409.         if      (vec[n].yend == 0)
  7410.         panel_set(    pt[51],PANEL_VALUE,"",0);
  7411.         else
  7412.         {my_itoa(vec[n].yend,txt);
  7413.          panel_set(    pt[51],PANEL_VALUE,txt,0);
  7414.         }
  7415.         if      (vec[n].xinterval == 0)
  7416.         panel_set(    pt[52],PANEL_VALUE,"",0);
  7417.         else
  7418.         {my_itoa(vec[n].xinterval,txt);
  7419.          panel_set(    pt[52],PANEL_VALUE,txt,0);
  7420.         }
  7421.         if      (vec[n].yinterval == 0)
  7422.         panel_set(    pt[53],PANEL_VALUE,"",0);
  7423.         else
  7424.         {my_itoa(vec[n].yinterval,txt);
  7425.          panel_set(    pt[53],PANEL_VALUE,txt,0);
  7426.         }
  7427.         if      (vec[n].color == 0)
  7428.         panel_set(    pt[54],PANEL_VALUE,"",0);
  7429.         else
  7430.         {my_itoa(vec[n].color,txt);
  7431.          panel_set(    pt[54],PANEL_VALUE,txt,0);
  7432.         }
  7433.         if      (vec[n].maxlen == 0)
  7434.         panel_set(    pt[55],PANEL_VALUE,"",0);
  7435.         else
  7436.         {my_itoa(vec[n].maxlen,txt);
  7437.          panel_set(    pt[55],PANEL_VALUE,txt,0);
  7438.         }
  7439.         if      (vec[n].xzero == 0)
  7440.         panel_set(    pt[45],PANEL_VALUE,"",0);
  7441.         else
  7442.         {my_itoa(vec[n].xzero,txt);
  7443.          panel_set(    pt[45],PANEL_VALUE,txt,0);
  7444.         }
  7445.         if      (vec[n].yzero == 0)
  7446.         panel_set(    pt[46],PANEL_VALUE,"",0);
  7447.         else
  7448.         {my_itoa(vec[n].yzero,txt);
  7449.          panel_set(    pt[46],PANEL_VALUE,txt,0);
  7450.         }
  7451.         my_ftoa(vec[n].xscale,4,txt);
  7452.         panel_set(    pt[47],PANEL_VALUE,txt,0);
  7453.         my_ftoa(vec[n].yscale,4,txt);
  7454.         panel_set(    pt[56],PANEL_VALUE,txt,0);
  7455.         panel_set(    pt[39],PANEL_VALUE,vec[n].xname,0);
  7456.         panel_set(    pt[40],PANEL_VALUE,vec[n].yname,0);
  7457.         s = txt;
  7458.         *s++ = 'v';
  7459.         if (nv == 0)    {*s++ = '0'; *s = '\0';}
  7460.         else            my_itoa(nv-1,s);
  7461.         panel_set(      pt[38],PANEL_VALUE,txt,0);
  7462.     info_msg("","Display shows currently stored values for vector.","");
  7463.         return;
  7464. }
  7465. /* EOF */
  7466. /* cat > src+obj/p74.c << "EOF" */
  7467. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7468. /* p74: p74 button - vector...draw it            */
  7469. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7470. /* SCCS information: %W%    %G% - NCSA */
  7471.  
  7472. /* #include "all.h" */
  7473.  
  7474. int    p74()
  7475. {
  7476.     reset_vector();
  7477.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  7478.       {info_msg("","Canvas is not up, request ignored.","");
  7479.        return;
  7480.       }
  7481.         if (FALSE == ok_vector(&vec[N_vector], 1)) return;
  7482.         draw_vector(FALSE,&vec[N_vector], 1);
  7483.     info_msg("","Vector drawn.","");
  7484.         return;
  7485. }
  7486. /* EOF */
  7487. /* cat > src+obj/p75.c << "EOF" */
  7488. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7489. /* p75: p75 button - vector...erase it            */
  7490. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7491. /* SCCS information: %W%    %G% - NCSA */
  7492.  
  7493. /* #include "all.h" */
  7494.  
  7495. int    p75()
  7496. {
  7497.     reset_vector();
  7498.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  7499.       {info_msg("","Canvas is not up, request ignored.","");
  7500.        return;
  7501.       }
  7502.         if (FALSE == ok_vector(&vec[N_vector], 1)) return;
  7503.         vec[N_vector].color = clear_color;
  7504.         draw_vector(FALSE,&vec[N_vector], 1);
  7505.     info_msg("","Vector erased.","");
  7506.         return;
  7507. }
  7508. /* EOF */
  7509. /* cat > src+obj/p76.c << "EOF" */
  7510. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7511. /* p76: p76 button - vector...mouse draw        */
  7512. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7513. /* SCCS information: %W%    %G% - NCSA */
  7514.  
  7515. /* #include "all.h" */
  7516.  
  7517. int    p76()
  7518. {
  7519.         reset_vector();
  7520.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  7521.           {info_msg("","Canvas is not up, request ignored.","");
  7522.            return;
  7523.           }
  7524.     if (csw_vector == FALSE)
  7525.        {if (cpw_check() == TRUE)
  7526.            return;
  7527.         csw_vector = TRUE;
  7528.         sw_draw = TRUE;
  7529.         panel_set(pb[76],PANEL_LABEL_IMAGE,
  7530.               panel_button_image(pa[8],"MS DRAW",8,NULL),0);
  7531.         msg_draw("Vector frame:");
  7532.         return;
  7533.        }
  7534.     if (sw_draw == TRUE)
  7535.        {sw_draw = FALSE;
  7536.         csw_vector = FALSE;
  7537.         panel_set(pb[76],PANEL_LABEL_IMAGE,
  7538.               panel_button_image(pa[8],"ms draw",8,NULL),0);
  7539.         info_msg("","Draw Vectors with mouse deactivated.","");
  7540.         return;
  7541.        }
  7542.     sw_move = FALSE;
  7543.     panel_set(pb[87],PANEL_LABEL_IMAGE,
  7544.            panel_button_image(pa[8],"mouse mv",9,NULL),0);
  7545.     sw_draw = TRUE;
  7546.     panel_set(pb[76],PANEL_LABEL_IMAGE,
  7547.           panel_button_image(pa[8],"MS DRAW",8,NULL),0);
  7548.     msg_draw("Vector frame:");
  7549.     return;
  7550. }
  7551. /* EOF */
  7552. /* cat > src+obj/p77.c << "EOF" */
  7553. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7554. /* p77: p77 button - vector...copy data from another    */
  7555. /*    tag                        */
  7556. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7557. /* SCCS information: %W%    %G% - NCSA */
  7558.  
  7559. /* #include "all.h" */
  7560.  
  7561. int    p77()
  7562. {
  7563.         register int    n;
  7564.         char            *s;
  7565.         strcpy(txt,panel_get(   pt[38],PANEL_VALUE,0));
  7566.         s = txt;
  7567.         if (*s != 'v' || *(s + 1) == '\0')
  7568.       {strcat(txt," is not a valid vector tag.");
  7569.        reset_vector();
  7570.        bad_data(txt);
  7571.        return;
  7572.       }
  7573.         s++;
  7574.         if (FALSE == my_isint(s))
  7575.       {strcat(txt," is not a valid vector tag.");
  7576.        reset_vector();
  7577.        bad_data(txt);
  7578.        return;
  7579.       }
  7580.         n = atoi(s);
  7581.         if (n < 0)
  7582.       {strcat(txt," is not a valid vector tag.");
  7583.        reset_vector();
  7584.        bad_data(txt);
  7585.        return;
  7586.       }
  7587.         if (n >= N_vector)
  7588.       {strcat(txt," is valid, but there are not that many tags.");
  7589.        reset_vector();
  7590.        bad_data(txt);
  7591.        return;
  7592.       }
  7593.     if (nv == n)
  7594.        {reset_vector();
  7595.         info_msg("","This vector tag already showing.","");
  7596.         return;
  7597.        }
  7598.     if (sw_v[0] == 0 && TRUE == confirm_vector())
  7599.        {reset_vector();
  7600.         panel_set(pb[77],PANEL_LABEL_IMAGE,
  7601.               panel_button_image(pa[8],"*",2,NULL),0);
  7602.         sw_v[0] = 1;
  7603.         warn_msgt();
  7604.         return;
  7605.        }
  7606.         if      (vec[n].sw == 0)
  7607.             panel_set(    pb[71],PANEL_LABEL_IMAGE,
  7608.                 panel_button_image(pa[8],
  7609.                 "FinalPic toggle (OFF)",21,NULL),
  7610.                 0);
  7611.         else
  7612.             panel_set(    pb[71],PANEL_LABEL_IMAGE,
  7613.                 panel_button_image(pa[8],
  7614.                 "FinalPic toggle (ON) ",21,NULL),
  7615.                 0);
  7616.         if      (vec[n].xpts == 0)
  7617.         panel_set(    pt[41],PANEL_VALUE,"",0);
  7618.         else
  7619.         {my_itoa(vec[n].xpts,txt);
  7620.          panel_set(    pt[41],PANEL_VALUE,txt,0);
  7621.         }
  7622.         if      (vec[n].ypts == 0)
  7623.         panel_set(    pt[42],PANEL_VALUE,"",0);
  7624.         else
  7625.         {my_itoa(vec[n].ypts,txt);
  7626.          panel_set(    pt[42],PANEL_VALUE,txt,0);
  7627.         }
  7628.         if      (vec[n].xpos == 0)
  7629.         panel_set(    pt[43],PANEL_VALUE,"",0);
  7630.         else
  7631.         {my_itoa(vec[n].xpos,txt);
  7632.          panel_set(    pt[43],PANEL_VALUE,txt,0);
  7633.         }
  7634.         if      (vec[n].ypos == 0)
  7635.         panel_set(    pt[44],PANEL_VALUE,"",0);
  7636.         else
  7637.         {my_itoa(vec[n].ypos,txt);
  7638.          panel_set(    pt[44],PANEL_VALUE,txt,0);
  7639.         }
  7640.         if      (vec[n].xstart == 0)
  7641.         panel_set(    pt[48],PANEL_VALUE,"",0);
  7642.         else
  7643.         {my_itoa(vec[n].xstart,txt);
  7644.          panel_set(    pt[48],PANEL_VALUE,txt,0);
  7645.         }
  7646.         if      (vec[n].ystart == 0)
  7647.         panel_set(    pt[49],PANEL_VALUE,"",0);
  7648.         else
  7649.         {my_itoa(vec[n].ystart,txt);
  7650.          panel_set(    pt[49],PANEL_VALUE,txt,0);
  7651.         }
  7652.         if      (vec[n].xend == 0)
  7653.         panel_set(    pt[50],PANEL_VALUE,"",0);
  7654.         else
  7655.         {my_itoa(vec[n].xend,txt);
  7656.          panel_set(    pt[50],PANEL_VALUE,txt,0);
  7657.         }
  7658.         if      (vec[n].yend == 0)
  7659.         panel_set(    pt[51],PANEL_VALUE,"",0);
  7660.         else
  7661.         {my_itoa(vec[n].yend,txt);
  7662.          panel_set(    pt[51],PANEL_VALUE,txt,0);
  7663.         }
  7664.         if      (vec[n].xinterval == 0)
  7665.         panel_set(    pt[52],PANEL_VALUE,"",0);
  7666.         else
  7667.         {my_itoa(vec[n].xinterval,txt);
  7668.          panel_set(    pt[52],PANEL_VALUE,txt,0);
  7669.         }
  7670.         if      (vec[n].yinterval == 0)
  7671.         panel_set(    pt[53],PANEL_VALUE,"",0);
  7672.         else
  7673.         {my_itoa(vec[n].yinterval,txt);
  7674.          panel_set(    pt[53],PANEL_VALUE,txt,0);
  7675.         }
  7676.         if      (vec[n].color == 0)
  7677.         panel_set(    pt[54],PANEL_VALUE,"",0);
  7678.         else
  7679.         {my_itoa(vec[n].color,txt);
  7680.          panel_set(    pt[54],PANEL_VALUE,txt,0);
  7681.         }
  7682.         if      (vec[n].maxlen == 0)
  7683.         panel_set(    pt[55],PANEL_VALUE,"",0);
  7684.         else
  7685.         {my_itoa(vec[n].maxlen,txt);
  7686.          panel_set(    pt[55],PANEL_VALUE,txt,0);
  7687.         }
  7688.         if      (vec[n].xzero == 0)
  7689.         panel_set(    pt[45],PANEL_VALUE,"",0);
  7690.         else
  7691.         {my_itoa(vec[n].xzero,txt);
  7692.          panel_set(    pt[45],PANEL_VALUE,txt,0);
  7693.         }
  7694.         if      (vec[n].yzero == 0)
  7695.         panel_set(    pt[46],PANEL_VALUE,"",0);
  7696.         else
  7697.         {my_itoa(vec[n].yzero,txt);
  7698.          panel_set(    pt[46],PANEL_VALUE,txt,0);
  7699.         }
  7700.         my_ftoa(vec[n].xscale,4,txt);
  7701.         panel_set(    pt[47],PANEL_VALUE,txt,0);
  7702.         my_ftoa(vec[n].yscale,4,txt);
  7703.         panel_set(    pt[56],PANEL_VALUE,txt,0);
  7704.         panel_set(    pt[39],PANEL_VALUE,vec[n].xname,0);
  7705.         panel_set(    pt[40],PANEL_VALUE,vec[n].yname,0);
  7706.     reset_vector();
  7707.     reset_mvector();
  7708.     info_msg("","Vector displayed has been copied from",
  7709.             "another tag but has not been stored.");
  7710.         return;
  7711. }
  7712. /* EOF */
  7713. /* cat > src+obj/p78.c << "EOF" */
  7714. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7715. /* p78: p78 button - vector...decrement tag number by 5    */
  7716. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7717. /* SCCS information: %W%    %G% - NCSA */
  7718.  
  7719. /* #include "all.h" */
  7720.  
  7721. int    p78()
  7722. {
  7723.     if (nv == 0)
  7724.        {reset_vector();
  7725.         info_msg("","This vector tag already displayed.","");
  7726.         return;
  7727.        }
  7728.     if (sw_v[1] == 1 || FALSE == confirm_vector())
  7729.            {nv -= 5;
  7730.             if (nv < 0) nv = 0;
  7731.             p73();
  7732.         reset_vector();
  7733.             return;
  7734.        }
  7735.     reset_vector();
  7736.     panel_set(pb[78],PANEL_LABEL_IMAGE,
  7737.           panel_button_image(pa[8],"*",2,NULL),0);
  7738.     sw_v[1] = 1;
  7739.     warn_msgt();
  7740.     return;
  7741. }
  7742. /* EOF */
  7743. /* cat > src+obj/p79.c << "EOF" */
  7744. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7745. /* p79: p79 button - vector...decrement tag number by 1    */
  7746. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7747. /* SCCS information: %W%    %G% - NCSA */
  7748.  
  7749. /* #include "all.h" */
  7750.  
  7751. int    p79()
  7752. {
  7753.     if (nv == 0)
  7754.        {reset_vector();
  7755.         info_msg("","This vector tag already displayed.","");
  7756.         return;
  7757.        }
  7758.     if (sw_v[2] == 1 || FALSE == confirm_vector())
  7759.            {nv--;
  7760.             p73();
  7761.         reset_vector();
  7762.             return;
  7763.        }
  7764.     reset_vector();
  7765.     panel_set(pb[79],PANEL_LABEL_IMAGE,
  7766.           panel_button_image(pa[8],"*",1,NULL),0);
  7767.     sw_v[2] = 1;
  7768.     warn_msgt();
  7769.     return;
  7770. }
  7771. /* EOF */
  7772. /* cat > src+obj/p80.c << "EOF" */
  7773. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7774. /* p80: p80 button - vector...increment tag number by 1    */
  7775. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7776. /* SCCS information: %W%    %G% - NCSA */
  7777.  
  7778. /* #include "all.h" */
  7779.  
  7780. int    p80()
  7781. {
  7782.     if (nv == N_vector - 1)
  7783.        {reset_vector();
  7784.         info_msg("","This vector tag already displayed.","");
  7785.         return;
  7786.        }
  7787.     if (sw_v[3] == 1 || FALSE == confirm_vector())
  7788.            {nv++;
  7789.             p73();
  7790.         reset_vector();
  7791.             return;
  7792.        }
  7793.     reset_vector();
  7794.     panel_set(pb[80],PANEL_LABEL_IMAGE,
  7795.           panel_button_image(pa[8],"*",1,NULL),0);
  7796.     sw_v[3] = 1;
  7797.     warn_msgt();
  7798.     return;
  7799. }
  7800. /* EOF */
  7801. /* cat > src+obj/p81.c << "EOF" */
  7802. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7803. /* p81: p81 button - vector...increment tag number by 5    */
  7804. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7805. /* SCCS information: %W%    %G% - NCSA */
  7806.  
  7807. /* #include "all.h" */
  7808.  
  7809. int    p81()
  7810. {
  7811.     if (nv == N_vector - 1)
  7812.        {reset_vector();
  7813.         info_msg("","This vector tag already displayed.","");
  7814.         return;
  7815.        }
  7816.     if (sw_v[4] == 1 || FALSE == confirm_vector())
  7817.            {nv += 5;
  7818.             if (nv > N_vector - 1) nv = N_vector - 1;
  7819.             p73();
  7820.         reset_vector();
  7821.             return;
  7822.        }
  7823.     reset_vector();
  7824.     panel_set(pb[81],PANEL_LABEL_IMAGE,
  7825.           panel_button_image(pa[8],"*",2,NULL),0);
  7826.     sw_v[4] = 1;
  7827.     warn_msgt();
  7828.     return;
  7829. }
  7830. /* EOF */
  7831. /* cat > src+obj/p82.c << "EOF" */
  7832. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7833. /* p82: p82 button - text...mouse draw            */
  7834. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7835. /* SCCS information: %W%    %G% - NCSA */
  7836.  
  7837. /* #include "all.h" */
  7838.  
  7839. int    p82()
  7840. {
  7841.         reset_text();
  7842.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  7843.           {info_msg("","Canvas is not up, request ignored.","");
  7844.            return;
  7845.           }
  7846.     if (csw_text == FALSE)
  7847.        {if (cpw_check() == TRUE)
  7848.            return;
  7849.         csw_text = TRUE;
  7850.         sw_draw = TRUE;
  7851.         panel_set(pb[82],PANEL_LABEL_IMAGE,
  7852.               panel_button_image(pa[4],"MS DRAW",8,NULL),0);
  7853.         msg_draw("Text frame:");
  7854.         return;
  7855.        }
  7856.     if (sw_draw == TRUE)
  7857.        {sw_draw = FALSE;
  7858.         csw_text = FALSE;
  7859.         panel_set(pb[82],PANEL_LABEL_IMAGE,
  7860.               panel_button_image(pa[4],"ms draw",8,NULL),0);
  7861.         info_msg("","Draw Texts with mouse deactivated.","");
  7862.         return;
  7863.        }
  7864.     sw_move = FALSE;
  7865.     panel_set(pb[83],PANEL_LABEL_IMAGE,
  7866.            panel_button_image(pa[4],"mouse mv",9,NULL),0);
  7867.     sw_draw = TRUE;
  7868.     panel_set(pb[82],PANEL_LABEL_IMAGE,
  7869.           panel_button_image(pa[4],"MS DRAW",8,NULL),0);
  7870.     msg_draw("Text frame:");
  7871.     return;
  7872. }
  7873. /* EOF */
  7874. /* cat > src+obj/p83.c << "EOF" */
  7875. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7876. /* p83: p83 button - text...mouse move            */
  7877. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7878. /* SCCS information: %W%    %G% - NCSA */
  7879.  
  7880. /* #include "all.h" */
  7881.  
  7882. int    p83()
  7883. {
  7884.         reset_text();
  7885.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  7886.           {info_msg("","Canvas is not up, request ignored.","");
  7887.            return;
  7888.           }
  7889.     if (csw_text == FALSE)
  7890.        {if (cpw_check() == TRUE)
  7891.            return;
  7892.         csw_text = TRUE;
  7893.         sw_move = TRUE;
  7894.         panel_set(pb[83],PANEL_LABEL_IMAGE,
  7895.               panel_button_image(pa[4],"MOUSE MV",9,NULL),0);
  7896.         msg_move("Text frame:");
  7897.         return;
  7898.        }
  7899.     if (sw_move == TRUE)
  7900.        {sw_move = FALSE;
  7901.         csw_text = FALSE;
  7902.         panel_set(pb[83],PANEL_LABEL_IMAGE,
  7903.               panel_button_image(pa[4],"mouse mv",9,NULL),0);
  7904.         info_msg("","Move Texts with mouse deactivated.","");
  7905.         return;
  7906.        }
  7907.     sw_draw = FALSE;
  7908.     panel_set(pb[82],PANEL_LABEL_IMAGE,
  7909.            panel_button_image(pa[4],"ms draw",8,NULL),0);
  7910.     sw_move = TRUE;
  7911.     panel_set(pb[83],PANEL_LABEL_IMAGE,
  7912.           panel_button_image(pa[4],"MOUSE MV",9,NULL),0);
  7913.     msg_move("Text frame:");
  7914.     return;
  7915. }
  7916. /* EOF */
  7917. /* cat > src+obj/p84.c << "EOF" */
  7918. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7919. /* p84: p84 button - colorbar...mouse move        */
  7920. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7921. /* SCCS information: %W%    %G% - NCSA */
  7922.  
  7923. /* #include "all.h" */
  7924.  
  7925. int    p84()
  7926. {
  7927.         reset_colorbar();
  7928.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  7929.           {info_msg("","Canvas is not up, request ignored.","");
  7930.            return;
  7931.           }
  7932.     if (csw_colorbar == FALSE)
  7933.        {if (cpw_check() == TRUE)
  7934.            return;
  7935.         csw_colorbar = TRUE;
  7936.         sw_move = TRUE;
  7937.         panel_set(pb[84],PANEL_LABEL_IMAGE,
  7938.               panel_button_image(pa[3],"MOUSE MV",9,NULL),0);
  7939.         msg_move("ColorBar frame:");
  7940.         return;
  7941.        }
  7942.     if (sw_move == TRUE)
  7943.        {sw_move = FALSE;
  7944.         csw_colorbar = FALSE;
  7945.         panel_set(pb[84],PANEL_LABEL_IMAGE,
  7946.               panel_button_image(pa[3],"mouse mv",9,NULL),0);
  7947.         info_msg("","Move ColorBar with mouse deactivated.","");
  7948.         return;
  7949.        }
  7950.     sw_draw = FALSE;
  7951.     panel_set(pb[28],PANEL_LABEL_IMAGE,
  7952.            panel_button_image(pa[3],"ms draw",8,NULL),0);
  7953.     sw_move = TRUE;
  7954.     panel_set(pb[84],PANEL_LABEL_IMAGE,
  7955.           panel_button_image(pa[3],"MOUSE MV",9,NULL),0);
  7956.     msg_move("ColorBar frame:");
  7957.     return;
  7958. }
  7959. /* EOF */
  7960. /* cat > src+obj/p85.c << "EOF" */
  7961. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7962. /* p85: p85 button - image...mouse move            */
  7963. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  7964. /* SCCS information: %W%    %G% - NCSA */
  7965.  
  7966. /* #include "all.h" */
  7967.  
  7968. int    p85()
  7969. {
  7970.         reset_image();
  7971.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  7972.           {info_msg("","Canvas is not up, request ignored.","");
  7973.            return;
  7974.           }
  7975.     if (csw_image == FALSE)
  7976.        {if (cpw_check() == TRUE)
  7977.            return;
  7978.         csw_image = TRUE;
  7979.         sw_move = TRUE;
  7980.         panel_set(pb[85],PANEL_LABEL_IMAGE,
  7981.               panel_button_image(pa[6],"MOUSE MV",9,NULL),0);
  7982.         msg_move("Image frame:");
  7983.         return;
  7984.        }
  7985.     if (sw_move == TRUE)
  7986.        {sw_move = FALSE;
  7987.         csw_image = FALSE;
  7988.         panel_set(pb[85],PANEL_LABEL_IMAGE,
  7989.               panel_button_image(pa[6],"mouse mv",9,NULL),0);
  7990.         info_msg("","Move Images with mouse deactivated.","");
  7991.         return;
  7992.        }
  7993.     sw_draw = FALSE;
  7994.     panel_set(pb[52],PANEL_LABEL_IMAGE,
  7995.            panel_button_image(pa[6],"ms draw",8,NULL),0);
  7996.     sw_move = TRUE;
  7997.     panel_set(pb[85],PANEL_LABEL_IMAGE,
  7998.           panel_button_image(pa[6],"MOUSE MV",9,NULL),0);
  7999.     msg_move("Image frame:");
  8000.     return;
  8001. }
  8002. /* EOF */
  8003. /* cat > src+obj/p86.c << "EOF" */
  8004. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8005. /* p86: p86 button - contour...mouse move        */
  8006. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8007. /* SCCS information: %W%    %G% - NCSA */
  8008.  
  8009. /* #include "all.h" */
  8010.  
  8011. int    p86()
  8012. {
  8013.         reset_contour();
  8014.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  8015.           {info_msg("","Canvas is not up, request ignored.","");
  8016.            return;
  8017.           }
  8018.     if (csw_contour == FALSE)
  8019.        {if (cpw_check() == TRUE)
  8020.            return;
  8021.         csw_contour = TRUE;
  8022.         sw_move = TRUE;
  8023.         panel_set(pb[86],PANEL_LABEL_IMAGE,
  8024.               panel_button_image(pa[7],"MOUSE MV",9,NULL),0);
  8025.         msg_move("Contour frame:");
  8026.         return;
  8027.        }
  8028.     if (sw_move == TRUE)
  8029.        {sw_move = FALSE;
  8030.         csw_contour = FALSE;
  8031.         panel_set(pb[86],PANEL_LABEL_IMAGE,
  8032.               panel_button_image(pa[7],"mouse mv",9,NULL),0);
  8033.         info_msg("","Move Contours with mouse deactivated.","");
  8034.         return;
  8035.        }
  8036.     sw_draw = FALSE;
  8037.     panel_set(pb[64],PANEL_LABEL_IMAGE,
  8038.            panel_button_image(pa[7],"ms draw",8,NULL),0);
  8039.     sw_move = TRUE;
  8040.     panel_set(pb[86],PANEL_LABEL_IMAGE,
  8041.           panel_button_image(pa[7],"MOUSE MV",9,NULL),0);
  8042.     msg_move("Contour frame:");
  8043.     return;
  8044. }
  8045. /* EOF */
  8046. /* cat > src+obj/p87.c << "EOF" */
  8047. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8048. /* p87: p87 button - vector...mouse move        */
  8049. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8050. /* SCCS information: %W%    %G% - NCSA */
  8051.  
  8052. /* #include "all.h" */
  8053.  
  8054. int    p87()
  8055. {
  8056.         reset_vector();
  8057.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  8058.           {info_msg("","Canvas is not up, request ignored.","");
  8059.            return;
  8060.           }
  8061.     if (csw_vector == FALSE)
  8062.        {if (cpw_check() == TRUE)
  8063.            return;
  8064.         csw_vector = TRUE;
  8065.         sw_move = TRUE;
  8066.         panel_set(pb[87],PANEL_LABEL_IMAGE,
  8067.               panel_button_image(pa[8],"MOUSE MV",9,NULL),0);
  8068.         msg_move("Vector frame:");
  8069.         return;
  8070.        }
  8071.     if (sw_move == TRUE)
  8072.        {sw_move = FALSE;
  8073.         csw_vector = FALSE;
  8074.         panel_set(pb[87],PANEL_LABEL_IMAGE,
  8075.               panel_button_image(pa[8],"mouse mv",9,NULL),0);
  8076.         info_msg("","Move Vectors with mouse deactivated.","");
  8077.         return;
  8078.        }
  8079.     sw_draw = FALSE;
  8080.     panel_set(pb[76],PANEL_LABEL_IMAGE,
  8081.            panel_button_image(pa[8],"ms draw",8,NULL),0);
  8082.     sw_move = TRUE;
  8083.     panel_set(pb[87],PANEL_LABEL_IMAGE,
  8084.           panel_button_image(pa[8],"MOUSE MV",9,NULL),0);
  8085.     msg_move("Vector frame:");
  8086.     return;
  8087. }
  8088. /* EOF */
  8089. /* cat > src+obj/p88.c << "EOF" */
  8090. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8091. /* p88: p88 button - feature...done            */
  8092. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8093. /* SCCS information: %W%    %G% - NCSA */
  8094.  
  8095. /* #include "all.h" */
  8096.  
  8097. int 
  8098. p88 ()
  8099. {
  8100.     window_destroy (pa[9]);
  8101.     window_destroy (fr[9]);
  8102.     pa[9] = fr[9] = NULL;
  8103.     panel_set (pb[10], PANEL_SHOW_ITEM, TRUE, 0);
  8104.     info_msg ("", "Features frame put away.", "");
  8105.     return;
  8106. }
  8107. /* EOF */
  8108. /* cat > src+obj/p89.c << "EOF" */
  8109. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8110. /* p89: p89 button - feature...draw            */
  8111. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8112. /* SCCS information: %W%    %G% - NCSA */
  8113.  
  8114. /* #include "all.h" */
  8115.  
  8116. int    p89()
  8117. {
  8118.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  8119.           {info_msg("","Canvas is not up, request ignored.","");
  8120.            return;
  8121.           }
  8122.     if (0 == draw_feature(&feat[nf],nf,TRUE))
  8123.        info_msg("","Features drawn for this tag.","");
  8124.     return;
  8125. }
  8126. /* EOF */
  8127. /* cat > src+obj/p90.c << "EOF" */
  8128. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8129. /* p90: p90 button - feature...erase            */
  8130. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8131. /* SCCS information: %W%    %G% - NCSA */
  8132.  
  8133. /* #include "all.h" */
  8134.  
  8135. int    p90()
  8136. {
  8137.         if (FALSE == (int)window_get(c_frame,WIN_SHOW,0))
  8138.           {info_msg("","Canvas is not up, request ignored.","");
  8139.            return;
  8140.           }
  8141.     if (0 == draw_feature(&feat[nf],nf,FALSE))
  8142.        info_msg("","Features erased for this tag.","");
  8143.     return;
  8144. }
  8145. /* EOF */
  8146. /* cat > src+obj/p91.c << "EOF" */
  8147. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8148. /* p91: p91 button  - feature...x-axis select        */
  8149. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8150. /* SCCS information: %W%    %G% - NCSA */
  8151.  
  8152. /* #include "all.h" */
  8153.  
  8154. int    p91()
  8155. {
  8156.     resetb_feature();
  8157.     panel_set(pb[91],PANEL_LABEL_IMAGE,
  8158.           panel_button_image(pa[9],"X-AXIS",7,NULL),0);
  8159.     nosho_feature();
  8160.     panel_set(pm[4],PANEL_LABEL_STRING,"X-AXIS",0);
  8161.     panel_set(ps[0],PANEL_SHOW_ITEM,TRUE,0);
  8162.     panel_set(ps[1],PANEL_SHOW_ITEM,TRUE,0);
  8163.     panel_set(pb[107],PANEL_SHOW_ITEM,TRUE,0);
  8164.     panel_set(pb[108],PANEL_SHOW_ITEM,TRUE,0);
  8165.     if (feat[nf].xax_bot == TRUE)
  8166.        panel_set(pb[107],PANEL_LABEL_IMAGE,
  8167.              panel_button_image(pa[9],"bot side ON",14,NULL),0);
  8168.     else
  8169.        panel_set(pb[107],PANEL_LABEL_IMAGE,
  8170.              panel_button_image(pa[9],"bot side OFF",14,NULL),0);
  8171.     if (feat[nf].xax_top == TRUE)
  8172.        panel_set(pb[108],PANEL_LABEL_IMAGE,
  8173.              panel_button_image(pa[9],"top side ON",14,NULL),0);
  8174.     else
  8175.        panel_set(pb[108],PANEL_LABEL_IMAGE,
  8176.              panel_button_image(pa[9],"top side OFF",14,NULL),0);
  8177.     panel_set(ps[0],PANEL_VALUE,feat[nf].xax_thick,0);
  8178.     panel_set(ps[1],PANEL_VALUE,feat[nf].xax_color,0);
  8179.     return;
  8180. }
  8181. /* EOF */
  8182. /* cat > src+obj/p92.c << "EOF" */
  8183. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8184. /* p92: p92 button - feature...x-axis switch        */
  8185. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8186. /* SCCS information: %W%    %G% - NCSA */
  8187.  
  8188. /* #include "all.h" */
  8189.  
  8190. int    p92()
  8191. {
  8192.     if (feat[nf].xax_sw == TRUE)
  8193.        {feat[nf].xax_sw = FALSE;
  8194.         panel_set(pb[92],PANEL_LABEL_IMAGE,
  8195.               panel_button_image(pa[9],"OFF",3,NULL),0);
  8196.        }
  8197.     else
  8198.        {feat[nf].xax_sw = TRUE;
  8199.         panel_set(pb[92],PANEL_LABEL_IMAGE,
  8200.               panel_button_image(pa[9],"ON",3,NULL),0);
  8201.        }
  8202.     return;
  8203. }
  8204. /* EOF */
  8205. /* cat > src+obj/p93.c << "EOF" */
  8206. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8207. /* p93: p93 button - feature...y-axis select        */
  8208. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8209. /* SCCS information: %W%    %G% - NCSA */
  8210.  
  8211. /* #include "all.h" */
  8212.  
  8213. int    p93()
  8214. {
  8215.         resetb_feature();
  8216.         panel_set(pb[93],PANEL_LABEL_IMAGE,
  8217.                   panel_button_image(pa[9],"Y-AXIS",7,NULL),0);
  8218.         nosho_feature();
  8219.         panel_set(pm[4],PANEL_LABEL_STRING,"Y-AXIS",0);
  8220.         panel_set(ps[0],PANEL_SHOW_ITEM,TRUE,0);
  8221.         panel_set(ps[1],PANEL_SHOW_ITEM,TRUE,0);
  8222.         panel_set(pb[107],PANEL_SHOW_ITEM,TRUE,0);
  8223.         panel_set(pb[108],PANEL_SHOW_ITEM,TRUE,0);
  8224.         if (feat[nf].yax_left == TRUE)
  8225.            panel_set(pb[107],PANEL_LABEL_IMAGE,
  8226.                      panel_button_image(pa[9],"left side ON",14,NULL),0);
  8227.         else
  8228.            panel_set(pb[107],PANEL_LABEL_IMAGE,
  8229.                      panel_button_image(pa[9],"left side OFF",14,NULL),0);
  8230.         if (feat[nf].yax_right == TRUE)
  8231.            panel_set(pb[108],PANEL_LABEL_IMAGE,
  8232.                      panel_button_image(pa[9],"right side ON",14,NULL),0);
  8233.         else
  8234.            panel_set(pb[108],PANEL_LABEL_IMAGE,
  8235.                      panel_button_image(pa[9],"right side OFF",14,NULL),0);
  8236.         panel_set(ps[0],PANEL_VALUE,feat[nf].yax_thick,0);
  8237.         panel_set(ps[1],PANEL_VALUE,feat[nf].yax_color,0);
  8238.     return;
  8239. }
  8240. /* EOF */
  8241. /* cat > src+obj/p94.c << "EOF" */
  8242. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8243. /* p94: p94 button - feature...y-axis switch        */
  8244. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8245. /* SCCS information: %W%    %G% - NCSA */
  8246.  
  8247. /* #include "all.h" */
  8248.  
  8249. int    p94()
  8250. {
  8251.     if (feat[nf].yax_sw == TRUE)
  8252.        {feat[nf].yax_sw = FALSE;
  8253.         panel_set(pb[94],PANEL_LABEL_IMAGE,
  8254.               panel_button_image(pa[9],"OFF",3,NULL),0);
  8255.        }
  8256.     else
  8257.        {feat[nf].yax_sw = TRUE;
  8258.         panel_set(pb[94],PANEL_LABEL_IMAGE,
  8259.               panel_button_image(pa[9],"ON",3,NULL),0);
  8260.        }
  8261.     return;
  8262. }
  8263. /* EOF */
  8264. /* cat > src+obj/p95.c << "EOF" */
  8265. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8266. /* p95: p95 button - feature...x-grid select        */
  8267. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8268. /* SCCS information: %W%    %G% - NCSA */
  8269.  
  8270. /* #include "all.h" */
  8271.  
  8272. int    p95()
  8273. {
  8274.     resetb_feature();
  8275.     panel_set(pb[95],PANEL_LABEL_IMAGE,
  8276.           panel_button_image(pa[9],"X-GRID",7,NULL),0);
  8277.     nosho_feature();
  8278.     panel_set(pm[4],PANEL_LABEL_STRING,"X-GRID",0);
  8279.     panel_set(ps[0],PANEL_SHOW_ITEM,TRUE,0);
  8280.     panel_set(ps[1],PANEL_SHOW_ITEM,TRUE,0);
  8281.     panel_set(ps[2],PANEL_SHOW_ITEM,TRUE,0);
  8282.     panel_set(ps[0],PANEL_VALUE,feat[nf].xgr_thick,0);
  8283.     panel_set(ps[1],PANEL_VALUE,feat[nf].xgr_color,0);
  8284.     panel_set(ps[2],PANEL_VALUE,feat[nf].xgr_space,0);
  8285.     return;
  8286. }
  8287. /* EOF */
  8288. /* cat > src+obj/p96.c << "EOF" */
  8289. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8290. /* p96: p96 button - feature...x-grid switch        */
  8291. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8292. /* SCCS information: %W%    %G% - NCSA */
  8293.  
  8294. /* #include "all.h" */
  8295.  
  8296. int    p96()
  8297. {
  8298.     if (feat[nf].xgr_sw == TRUE)
  8299.        {feat[nf].xgr_sw = FALSE;
  8300.         panel_set(pb[96],PANEL_LABEL_IMAGE,
  8301.               panel_button_image(pa[9],"OFF",3,NULL),0);
  8302.        }
  8303.     else
  8304.        {feat[nf].xgr_sw = TRUE;
  8305.         panel_set(pb[96],PANEL_LABEL_IMAGE,
  8306.               panel_button_image(pa[9],"ON",3,NULL),0);
  8307.        }
  8308.     return;
  8309. }
  8310. /* EOF */
  8311. /* cat > src+obj/p97.c << "EOF" */
  8312. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8313. /* p97: p97 button - feature...y-grid select        */
  8314. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8315. /* SCCS information: %W%    %G% - NCSA */
  8316.  
  8317. /* #include "all.h" */
  8318.  
  8319. int    p97()
  8320. {
  8321.     resetb_feature();
  8322.     panel_set(pb[97],PANEL_LABEL_IMAGE,
  8323.           panel_button_image(pa[9],"Y-GRID",7,NULL),0);
  8324.     nosho_feature();
  8325.     panel_set(pm[4],PANEL_LABEL_STRING,"Y-GRID",0);
  8326.     panel_set(ps[0],PANEL_SHOW_ITEM,TRUE,0);
  8327.     panel_set(ps[1],PANEL_SHOW_ITEM,TRUE,0);
  8328.     panel_set(ps[2],PANEL_SHOW_ITEM,TRUE,0);
  8329.     panel_set(ps[0],PANEL_VALUE,feat[nf].ygr_thick,0);
  8330.     panel_set(ps[1],PANEL_VALUE,feat[nf].ygr_color,0);
  8331.     panel_set(ps[2],PANEL_VALUE,feat[nf].ygr_space,0);
  8332.     return;
  8333. }
  8334. /* EOF */
  8335. /* cat > src+obj/p98.c << "EOF" */
  8336. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8337. /* p98: p98 button - feature...y-grid switch        */
  8338. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8339. /* SCCS information: %W%    %G% - NCSA */
  8340.  
  8341. /* #include "all.h" */
  8342.  
  8343. int    p98()
  8344. {
  8345.     if (feat[nf].ygr_sw == TRUE)
  8346.        {feat[nf].ygr_sw = FALSE;
  8347.         panel_set(pb[98],PANEL_LABEL_IMAGE,
  8348.               panel_button_image(pa[9],"OFF",3,NULL),0);
  8349.        }
  8350.     else
  8351.        {feat[nf].ygr_sw = TRUE;
  8352.         panel_set(pb[98],PANEL_LABEL_IMAGE,
  8353.               panel_button_image(pa[9],"ON",3,NULL),0);
  8354.        }
  8355.     return;
  8356. }
  8357. /* EOF */
  8358. /* cat > src+obj/p99.c << "EOF" */
  8359. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8360. /* p99: p99 button - feature...x-ticks1 select        */
  8361. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8362. /* SCCS information: %W%    %G% - NCSA */
  8363.  
  8364. /* #include "all.h" */
  8365.  
  8366. int    p99()
  8367. {
  8368.     resetb_feature();
  8369.     panel_set(pb[99],PANEL_LABEL_IMAGE,
  8370.           panel_button_image(pa[9],"X-TIC1",7,NULL),0);
  8371.     nosho_feature();
  8372.     panel_set(pm[4],PANEL_LABEL_STRING,"X-TIC1",0);
  8373.     panel_set(ps[0],PANEL_SHOW_ITEM,TRUE,0);
  8374.     panel_set(ps[1],PANEL_SHOW_ITEM,TRUE,0);
  8375.     panel_set(ps[2],PANEL_SHOW_ITEM,TRUE,0);
  8376.     panel_set(ps[3],PANEL_SHOW_ITEM,TRUE,0);
  8377.     panel_set(pb[110],PANEL_SHOW_ITEM,TRUE,0);
  8378.     panel_set(pb[111],PANEL_SHOW_ITEM,TRUE,0);
  8379.     panel_set(pb[112],PANEL_SHOW_ITEM,TRUE,0);
  8380.     if (feat[nf].xt1_bot == TRUE)
  8381.        panel_set(pb[111],PANEL_LABEL_IMAGE,
  8382.              panel_button_image(pa[9],"bot side ON",14,NULL),0);
  8383.     else
  8384.        panel_set(pb[111],PANEL_LABEL_IMAGE,
  8385.              panel_button_image(pa[9],"bot side OFF",14,NULL),0);
  8386.     if (feat[nf].xt1_top == TRUE)
  8387.        panel_set(pb[112],PANEL_LABEL_IMAGE,
  8388.              panel_button_image(pa[9],"top side ON",14,NULL),0);
  8389.     else
  8390.        panel_set(pb[112],PANEL_LABEL_IMAGE,
  8391.              panel_button_image(pa[9],"top side OFF",14,NULL),0);
  8392.     if (feat[nf].xt1_direc == TRUE)
  8393.        panel_set(pb[110],PANEL_LABEL_IMAGE,
  8394.              panel_button_image(pa[9],"now OUT",7,NULL),0);
  8395.     else
  8396.        panel_set(pb[110],PANEL_LABEL_IMAGE,
  8397.              panel_button_image(pa[9],"now IN",7,NULL),0);
  8398.     panel_set(ps[0],PANEL_VALUE,feat[nf].xt1_thick,0);
  8399.     panel_set(ps[1],PANEL_VALUE,feat[nf].xt1_color,0);
  8400.     panel_set(ps[2],PANEL_VALUE,feat[nf].xt1_space,0);
  8401.     panel_set(ps[3],PANEL_VALUE,feat[nf].xt1_len,0);
  8402.     return;
  8403. }
  8404. /* EOF */
  8405. /* cat > src+obj/p100.c << "EOF" */
  8406. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8407. /* p100: p100 button - feature...x-ticks1 switch    */
  8408. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8409. /* SCCS information: %W%    %G% - NCSA */
  8410.  
  8411. /* #include "all.h" */
  8412.  
  8413. int    p100()
  8414. {
  8415.     if (feat[nf].xt1_sw == TRUE)
  8416.        {feat[nf].xt1_sw = FALSE;
  8417.         panel_set(pb[100],PANEL_LABEL_IMAGE,
  8418.               panel_button_image(pa[9],"OFF",3,NULL),0);
  8419.        }
  8420.     else
  8421.        {feat[nf].xt1_sw = TRUE;
  8422.         panel_set(pb[100],PANEL_LABEL_IMAGE,
  8423.               panel_button_image(pa[9],"ON",3,NULL),0);
  8424.        }
  8425.     return;
  8426. }
  8427. /* EOF */
  8428. /* cat > src+obj/p101.c << "EOF" */
  8429. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8430. /* p101: p101 button - feature...y-ticks1 select    */
  8431. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8432. /* SCCS information: %W%    %G% - NCSA */
  8433.  
  8434. /* #include "all.h" */
  8435.  
  8436. int    p101()
  8437. {
  8438.     resetb_feature();
  8439.     panel_set(pb[101],PANEL_LABEL_IMAGE,
  8440.           panel_button_image(pa[9],"Y-TIC1",7,NULL),0);
  8441.     nosho_feature();
  8442.     panel_set(pm[4],PANEL_LABEL_STRING,"Y-TIC1",0);
  8443.     panel_set(ps[0],PANEL_SHOW_ITEM,TRUE,0);
  8444.     panel_set(ps[1],PANEL_SHOW_ITEM,TRUE,0);
  8445.     panel_set(ps[2],PANEL_SHOW_ITEM,TRUE,0);
  8446.     panel_set(ps[3],PANEL_SHOW_ITEM,TRUE,0);
  8447.     panel_set(pb[110],PANEL_SHOW_ITEM,TRUE,0);
  8448.     panel_set(pb[111],PANEL_SHOW_ITEM,TRUE,0);
  8449.     panel_set(pb[112],PANEL_SHOW_ITEM,TRUE,0);
  8450.     if (feat[nf].yt1_left == TRUE)
  8451.        panel_set(pb[111],PANEL_LABEL_IMAGE,
  8452.              panel_button_image(pa[9],"left side ON",14,NULL),0);
  8453.     else
  8454.        panel_set(pb[111],PANEL_LABEL_IMAGE,
  8455.              panel_button_image(pa[9],"left side OFF",14,NULL),0);
  8456.     if (feat[nf].yt1_right == TRUE)
  8457.        panel_set(pb[112],PANEL_LABEL_IMAGE,
  8458.              panel_button_image(pa[9],"right side ON",14,NULL),0);
  8459.     else
  8460.        panel_set(pb[112],PANEL_LABEL_IMAGE,
  8461.              panel_button_image(pa[9],"right side OFF",14,NULL),0);
  8462.     if (feat[nf].yt1_direc == TRUE)
  8463.        panel_set(pb[110],PANEL_LABEL_IMAGE,
  8464.              panel_button_image(pa[9],"now OUT",7,NULL),0);
  8465.     else
  8466.        panel_set(pb[110],PANEL_LABEL_IMAGE,
  8467.              panel_button_image(pa[9],"now IN",7,NULL),0);
  8468.     panel_set(ps[0],PANEL_VALUE,feat[nf].yt1_thick,0);
  8469.     panel_set(ps[1],PANEL_VALUE,feat[nf].yt1_color,0);
  8470.     panel_set(ps[2],PANEL_VALUE,feat[nf].yt1_space,0);
  8471.     panel_set(ps[3],PANEL_VALUE,feat[nf].yt1_len,0);
  8472.     return;
  8473. }
  8474. /* EOF */
  8475. /* cat > src+obj/p102.c << "EOF" */
  8476. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8477. /* p102: p102 button - feature...y-ticks1 switch    */
  8478. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8479. /* SCCS information: %W%    %G% - NCSA */
  8480.  
  8481. /* #include "all.h" */
  8482.  
  8483. int    p102()
  8484. {
  8485.     if (feat[nf].yt1_sw == TRUE)
  8486.        {feat[nf].yt1_sw = FALSE;
  8487.         panel_set(pb[102],PANEL_LABEL_IMAGE,
  8488.               panel_button_image(pa[9],"OFF",3,NULL),0);
  8489.        }
  8490.     else
  8491.        {feat[nf].yt1_sw = TRUE;
  8492.         panel_set(pb[102],PANEL_LABEL_IMAGE,
  8493.               panel_button_image(pa[9],"ON",3,NULL),0);
  8494.        }
  8495.     return;
  8496. }
  8497. /* EOF */
  8498. /* cat > src+obj/p103.c << "EOF" */
  8499. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8500. /* p103: p103 button - feature...x-tick2 select        */
  8501. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8502. /* SCCS information: %W%    %G% - NCSA */
  8503.  
  8504. /* #include "all.h" */
  8505.  
  8506. int    p103()
  8507. {
  8508.     resetb_feature();
  8509.     panel_set(pb[103],PANEL_LABEL_IMAGE,
  8510.           panel_button_image(pa[9],"X-TIC2",7,NULL),0);
  8511.     nosho_feature();
  8512.     panel_set(pm[4],PANEL_LABEL_STRING,"X-TIC2",0);
  8513.     panel_set(ps[0],PANEL_SHOW_ITEM,TRUE,0);
  8514.     panel_set(ps[1],PANEL_SHOW_ITEM,TRUE,0);
  8515.     panel_set(ps[2],PANEL_SHOW_ITEM,TRUE,0);
  8516.     panel_set(ps[3],PANEL_SHOW_ITEM,TRUE,0);
  8517.     panel_set(pb[110],PANEL_SHOW_ITEM,TRUE,0);
  8518.     panel_set(pb[111],PANEL_SHOW_ITEM,TRUE,0);
  8519.     panel_set(pb[112],PANEL_SHOW_ITEM,TRUE,0);
  8520.     if (feat[nf].xt2_bot == TRUE)
  8521.        panel_set(pb[111],PANEL_LABEL_IMAGE,
  8522.              panel_button_image(pa[9],"bot side ON",14,NULL),0);
  8523.     else
  8524.        panel_set(pb[111],PANEL_LABEL_IMAGE,
  8525.              panel_button_image(pa[9],"bot side OFF",14,NULL),0);
  8526.     if (feat[nf].xt2_top == TRUE)
  8527.        panel_set(pb[112],PANEL_LABEL_IMAGE,
  8528.              panel_button_image(pa[9],"top side ON",14,NULL),0);
  8529.     else
  8530.        panel_set(pb[112],PANEL_LABEL_IMAGE,
  8531.              panel_button_image(pa[9],"top side OFF",14,NULL),0);
  8532.     if (feat[nf].xt2_direc == TRUE)
  8533.        panel_set(pb[110],PANEL_LABEL_IMAGE,
  8534.              panel_button_image(pa[9],"now OUT",7,NULL),0);
  8535.     else
  8536.        panel_set(pb[110],PANEL_LABEL_IMAGE,
  8537.              panel_button_image(pa[9],"now IN",7,NULL),0);
  8538.     panel_set(ps[0],PANEL_VALUE,feat[nf].xt2_thick,0);
  8539.     panel_set(ps[1],PANEL_VALUE,feat[nf].xt2_color,0);
  8540.     panel_set(ps[2],PANEL_VALUE,feat[nf].xt2_space,0);
  8541.     panel_set(ps[3],PANEL_VALUE,feat[nf].xt2_len,0);
  8542.     return;
  8543. }
  8544. /* EOF */
  8545. /* cat > src+obj/p104.c << "EOF" */
  8546. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8547. /* p104: p104 button - feature...x-ticks2 switch    */
  8548. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8549. /* SCCS information: %W%    %G% - NCSA */
  8550.  
  8551. /* #include "all.h" */
  8552.  
  8553. int    p104()
  8554. {
  8555.     if (feat[nf].xt2_sw == TRUE)
  8556.        {feat[nf].xt2_sw = FALSE;
  8557.         panel_set(pb[104],PANEL_LABEL_IMAGE,
  8558.               panel_button_image(pa[9],"OFF",3,NULL),0);
  8559.        }
  8560.     else
  8561.        {feat[nf].xt2_sw = TRUE;
  8562.         panel_set(pb[104],PANEL_LABEL_IMAGE,
  8563.               panel_button_image(pa[9],"ON",3,NULL),0);
  8564.        }
  8565.     return;
  8566. }
  8567. /* EOF */
  8568. /* cat > src+obj/p105.c << "EOF" */
  8569. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8570. /* p105: p105 button - feature...y-ticks2 select    */
  8571. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8572. /* SCCS information: %W%    %G% - NCSA */
  8573.  
  8574. /* #include "all.h" */
  8575.  
  8576. int    p105()
  8577. {
  8578.     resetb_feature();
  8579.     panel_set(pb[105],PANEL_LABEL_IMAGE,
  8580.           panel_button_image(pa[9],"Y-TIC2",7,NULL),0);
  8581.     nosho_feature();
  8582.     panel_set(pm[4],PANEL_LABEL_STRING,"Y-TIC2",0);
  8583.     panel_set(ps[0],PANEL_SHOW_ITEM,TRUE,0);
  8584.     panel_set(ps[1],PANEL_SHOW_ITEM,TRUE,0);
  8585.     panel_set(ps[2],PANEL_SHOW_ITEM,TRUE,0);
  8586.     panel_set(ps[3],PANEL_SHOW_ITEM,TRUE,0);
  8587.     panel_set(pb[110],PANEL_SHOW_ITEM,TRUE,0);
  8588.     panel_set(pb[111],PANEL_SHOW_ITEM,TRUE,0);
  8589.     panel_set(pb[112],PANEL_SHOW_ITEM,TRUE,0);
  8590.     if (feat[nf].yt2_left == TRUE)
  8591.        panel_set(pb[111],PANEL_LABEL_IMAGE,
  8592.              panel_button_image(pa[9],"left side ON",14,NULL),0);
  8593.     else
  8594.        panel_set(pb[111],PANEL_LABEL_IMAGE,
  8595.              panel_button_image(pa[9],"left side OFF",14,NULL),0);
  8596.     if (feat[nf].yt2_right == TRUE)
  8597.        panel_set(pb[112],PANEL_LABEL_IMAGE,
  8598.              panel_button_image(pa[9],"right side ON",14,NULL),0);
  8599.     else
  8600.        panel_set(pb[112],PANEL_LABEL_IMAGE,
  8601.              panel_button_image(pa[9],"right side OFF",14,NULL),0);
  8602.     if (feat[nf].yt2_direc == TRUE)
  8603.        panel_set(pb[110],PANEL_LABEL_IMAGE,
  8604.              panel_button_image(pa[9],"now OUT",7,NULL),0);
  8605.     else
  8606.        panel_set(pb[110],PANEL_LABEL_IMAGE,
  8607.              panel_button_image(pa[9],"now IN",7,NULL),0);
  8608.     panel_set(ps[0],PANEL_VALUE,feat[nf].yt2_thick,0);
  8609.     panel_set(ps[1],PANEL_VALUE,feat[nf].yt2_color,0);
  8610.     panel_set(ps[2],PANEL_VALUE,feat[nf].yt2_space,0);
  8611.     panel_set(ps[3],PANEL_VALUE,feat[nf].yt2_len,0);
  8612.     return;
  8613. }
  8614. /* EOF */
  8615. /* cat > src+obj/p106.c << "EOF" */
  8616. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8617. /* p106: p106 button - feature...y-ticks2 switch    */
  8618. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8619. /* SCCS information: %W%    %G% - NCSA */
  8620.  
  8621. /* #include "all.h" */
  8622.  
  8623. int    p106()
  8624. {
  8625.     if (feat[nf].yt2_sw == TRUE)
  8626.        {feat[nf].yt2_sw = FALSE;
  8627.         panel_set(pb[106],PANEL_LABEL_IMAGE,
  8628.               panel_button_image(pa[9],"OFF",3,NULL),0);
  8629.        }
  8630.     else
  8631.        {feat[nf].yt2_sw = TRUE;
  8632.         panel_set(pb[106],PANEL_LABEL_IMAGE,
  8633.               panel_button_image(pa[9],"ON",3,NULL),0);
  8634.        }
  8635.     return;
  8636. }
  8637. /* EOF */
  8638. /* cat > src+obj/p107.c << "EOF" */
  8639. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8640. /* p107: p107 button - feature...axis left side switch    */
  8641. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8642. /* SCCS information: %W%    %G% - NCSA */
  8643.  
  8644. /* #include "all.h" */
  8645.  
  8646. int    p107()
  8647. {
  8648.     char        c[8];
  8649.     strcpy(c,panel_get(pm[4],PANEL_LABEL_STRING,0));
  8650.     if (strcmp(c,"X-AXIS") == 0)
  8651.        {if (feat[nf].xax_bot == FALSE)
  8652.            {feat[nf].xax_bot = TRUE;
  8653.         panel_set(pb[107],PANEL_LABEL_IMAGE,
  8654.               panel_button_image(pa[9],"bot side ON",14,NULL),0);
  8655.            }
  8656.         else
  8657.            {feat[nf].xax_bot = FALSE; 
  8658.                 panel_set(pb[107],PANEL_LABEL_IMAGE, 
  8659.                           panel_button_image(pa[9],"bot side OFF",14,NULL),0); 
  8660.                }
  8661.        }
  8662.     else if (strcmp(c,"Y-AXIS") == 0)
  8663.        {if (feat[nf].yax_left == FALSE)
  8664.            {feat[nf].yax_left = TRUE;
  8665.         panel_set(pb[107],PANEL_LABEL_IMAGE,
  8666.               panel_button_image(pa[9],"left side ON",14,NULL),0);
  8667.            }
  8668.         else
  8669.            {feat[nf].yax_left = FALSE; 
  8670.                 panel_set(pb[107],PANEL_LABEL_IMAGE, 
  8671.                           panel_button_image(pa[9],"left side OFF",14,NULL),0); 
  8672.                }
  8673.        }
  8674.     else
  8675.        bad_data("It is not possible to get this feature error message, p107");
  8676.     return;
  8677. }
  8678. /* EOF */
  8679. /* cat > src+obj/p108.c << "EOF" */
  8680. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8681. /* p108: p108 button - feature...axis right side switch    */
  8682. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8683. /* SCCS information: %W%    %G% - NCSA */
  8684.  
  8685. /* #include "all.h" */
  8686.  
  8687. int    p108()
  8688. {
  8689.     char        c[8];
  8690.     strcpy(c,panel_get(pm[4],PANEL_LABEL_STRING,0));
  8691.     if (strcmp(c,"X-AXIS") == 0)
  8692.        {if (feat[nf].xax_top == FALSE)
  8693.            {feat[nf].xax_top = TRUE;
  8694.         panel_set(pb[108],PANEL_LABEL_IMAGE,
  8695.               panel_button_image(pa[9],"top side ON",14,NULL),0);
  8696.            }
  8697.         else
  8698.            {feat[nf].xax_top = FALSE; 
  8699.                 panel_set(pb[108],PANEL_LABEL_IMAGE, 
  8700.                           panel_button_image(pa[9],"top side OFF",14,NULL),0); 
  8701.                }
  8702.        }
  8703.     else if (strcmp(c,"Y-AXIS") == 0)
  8704.        {if (feat[nf].yax_right == FALSE)
  8705.            {feat[nf].yax_right = TRUE;
  8706.         panel_set(pb[108],PANEL_LABEL_IMAGE,
  8707.               panel_button_image(pa[9],"right side ON",14,NULL),0);
  8708.            }
  8709.         else
  8710.            {feat[nf].yax_right = FALSE; 
  8711.                 panel_set(pb[108],PANEL_LABEL_IMAGE, 
  8712.                           panel_button_image(pa[9],"right side OFF",14,NULL),0); 
  8713.                }
  8714.        }
  8715.     else
  8716.        bad_data("It is not possible to get this feature error message, p108");
  8717.     return;
  8718. }
  8719. /* EOF */
  8720. /* cat > src+obj/p109.c << "EOF" */
  8721. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8722. /* p109: p109 button - feature...specify tag        */
  8723. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8724. /* SCCS information: %W%    %G% - NCSA */
  8725.  
  8726. /* #include "all.h" */
  8727.  
  8728. int    p109()
  8729. {
  8730.     char        c[10],
  8731.             *s,*t;
  8732.     register int    n;
  8733.     strcpy(c,panel_get(pt[57],PANEL_VALUE,0));
  8734.     s = c;
  8735.     if (*s == '\0')
  8736.        {bad_data("No tag given, request ignored.");
  8737.         return;
  8738.        }
  8739.     if (*s != 'i' && *s != 'c' && *s != 'v')
  8740.        {strcpy(txt,c);
  8741.         strcat(txt,":  does not begin with i, c, or v, request ignored.");
  8742.         bad_data(txt);
  8743.         panel_set(pt[57],PANEL_VALUE,"",0);
  8744.         return;
  8745.        }
  8746.     s++;
  8747.     if (FALSE == my_isint(s))
  8748.        {strcpy(txt,c);
  8749.       strcat(txt,": first letter ok, but remainder not integer, request ignored.");
  8750.         bad_data(txt);
  8751.         panel_set(pt[57],PANEL_VALUE,"",0);
  8752.         return;
  8753.        }
  8754.     n = atoi(s);
  8755.     if (n < 0)
  8756.        {strcpy(txt,c);
  8757.         strcat(txt,": first letter ok, but remainder < 0, request ignored.");
  8758.         bad_data(txt);
  8759.         panel_set(pt[57],PANEL_VALUE,"",0);
  8760.         return;
  8761.        }
  8762.     if (*c == 'i' && n >= N_image)
  8763.        {strcpy(txt,c);
  8764.         strcat(txt,":  not that many image tags, request ignored.");
  8765.         bad_data(txt);
  8766.         panel_set(pt[57],PANEL_VALUE,"",0);
  8767.         return;
  8768.        }
  8769.     if (*c == 'c' && n >= N_contour)
  8770.        {strcpy(txt,c);
  8771.         strcat(txt,":  not that many contour tags, request ignored.");
  8772.         bad_data(txt);
  8773.         panel_set(pt[57],PANEL_VALUE,"",0);
  8774.         return;
  8775.        }
  8776.     if (*c == 'v' && n >= N_vector)
  8777.        {strcpy(txt,c);
  8778.         strcat(txt,":  not that many vector tags, request ignored.");
  8779.         bad_data(txt);
  8780.         panel_set(pt[57],PANEL_VALUE,"",0);
  8781.         return;
  8782.        }
  8783.     if    (*c == 'i')    nf = n;
  8784.     else if (*c == 'c')    nf = N_image + n;
  8785.     else            nf = N_image + N_contour + n;
  8786.     strcpy(txt,window_get(fr[9],FRAME_LABEL,0));
  8787.     t = txt;
  8788.     while (*t) t++;
  8789.     while (*t != '\'') t--;
  8790.     t--;
  8791.     while (*t != '\'') t--;
  8792.     t++;
  8793.     s = c;
  8794.     while (*s) *t++ = *s++;
  8795.     *t++ = '\'';
  8796.     *t++ = ')';
  8797.     *t = '\0';
  8798.     window_set(fr[9],FRAME_LABEL,txt,0);
  8799.     panel_set(pt[57],PANEL_VALUE,"",0);
  8800.     p91();
  8801.     info_msg("","Feature tag selected.","");
  8802.     return;
  8803. }
  8804. /* EOF */
  8805. /* cat > src+obj/p110.c << "EOF" */
  8806. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8807. /* p110: p110 button - feature...ticks in or out    */
  8808. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8809. /* SCCS information: %W%    %G% - NCSA */
  8810.  
  8811. /* #include "all.h" */
  8812.  
  8813. int    p110()
  8814. {
  8815.     char        c[8];
  8816.     strcpy(c,panel_get(pm[4],PANEL_LABEL_STRING,0));
  8817.     if (strcmp(c,"X-TIC1") == 0)
  8818.        {if (feat[nf].xt1_direc == FALSE)
  8819.            {feat[nf].xt1_direc = TRUE;
  8820.         panel_set(pb[110],PANEL_LABEL_IMAGE,
  8821.               panel_button_image(pa[9],"now OUT",7,NULL),0);
  8822.            }
  8823.         else
  8824.            {feat[nf].xt1_direc = FALSE; 
  8825.                 panel_set(pb[110],PANEL_LABEL_IMAGE, 
  8826.                           panel_button_image(pa[9],"now IN",7,NULL),0); 
  8827.                }
  8828.        }
  8829.     else if (strcmp(c,"Y-TIC1") == 0)
  8830.        {if (feat[nf].yt1_direc == FALSE)
  8831.            {feat[nf].yt1_direc = TRUE;
  8832.         panel_set(pb[110],PANEL_LABEL_IMAGE,
  8833.               panel_button_image(pa[9],"now OUT",7,NULL),0);
  8834.            }
  8835.         else
  8836.            {feat[nf].yt1_direc = FALSE; 
  8837.                 panel_set(pb[110],PANEL_LABEL_IMAGE, 
  8838.                           panel_button_image(pa[9],"now IN",7,NULL),0); 
  8839.                }
  8840.        }
  8841.     else if (strcmp(c,"X-TIC2") == 0)
  8842.        {if (feat[nf].xt2_direc == FALSE)
  8843.            {feat[nf].xt2_direc = TRUE;
  8844.         panel_set(pb[110],PANEL_LABEL_IMAGE,
  8845.               panel_button_image(pa[9],"now OUT",7,NULL),0);
  8846.            }
  8847.         else
  8848.            {feat[nf].xt2_direc = FALSE; 
  8849.                 panel_set(pb[110],PANEL_LABEL_IMAGE, 
  8850.                           panel_button_image(pa[9],"now IN",7,NULL),0); 
  8851.                }
  8852.        }
  8853.     else if (strcmp(c,"Y-TIC2") == 0)
  8854.        {if (feat[nf].yt2_direc == FALSE)
  8855.            {feat[nf].yt2_direc = TRUE;
  8856.         panel_set(pb[110],PANEL_LABEL_IMAGE,
  8857.               panel_button_image(pa[9],"now OUT",7,NULL),0);
  8858.            }
  8859.         else
  8860.            {feat[nf].yt2_direc = FALSE; 
  8861.                 panel_set(pb[110],PANEL_LABEL_IMAGE, 
  8862.                           panel_button_image(pa[9],"now IN",7,NULL),0); 
  8863.                }
  8864.        }
  8865.     else
  8866.        bad_data("It is not possible to get this feature error message, p110");
  8867.     return;
  8868. }
  8869. /* EOF */
  8870. /* cat > src+obj/p111.c << "EOF" */
  8871. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8872. /* p111: p111 button - feature...ticks on left/bot    */
  8873. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8874. /* SCCS information: %W%    %G% - NCSA */
  8875.  
  8876. /* #include "all.h" */
  8877.  
  8878. int    p111()
  8879. {
  8880.     char        c[8];
  8881.     strcpy(c,panel_get(pm[4],PANEL_LABEL_STRING,0));
  8882.     if (strcmp(c,"X-TIC1") == 0)
  8883.        {if (feat[nf].xt1_bot == FALSE)
  8884.            {feat[nf].xt1_bot = TRUE;
  8885.         panel_set(pb[111],PANEL_LABEL_IMAGE,
  8886.               panel_button_image(pa[9],"bot side ON",14,NULL),0);
  8887.            }
  8888.         else
  8889.            {feat[nf].xt1_bot = FALSE; 
  8890.                 panel_set(pb[111],PANEL_LABEL_IMAGE, 
  8891.                           panel_button_image(pa[9],"bot side OFF",14,NULL),0); 
  8892.                }
  8893.        }
  8894.     else if (strcmp(c,"Y-TIC1") == 0)
  8895.        {if (feat[nf].yt1_left == FALSE)
  8896.            {feat[nf].yt1_left = TRUE;
  8897.         panel_set(pb[111],PANEL_LABEL_IMAGE,
  8898.               panel_button_image(pa[9],"left side ON",14,NULL),0);
  8899.            }
  8900.         else
  8901.            {feat[nf].yt1_left = FALSE; 
  8902.                 panel_set(pb[111],PANEL_LABEL_IMAGE, 
  8903.                           panel_button_image(pa[9],"left side OFF",14,NULL),0); 
  8904.                }
  8905.        }
  8906.     else if (strcmp(c,"X-TIC2") == 0)
  8907.        {if (feat[nf].xt2_bot == FALSE)
  8908.            {feat[nf].xt2_bot = TRUE;
  8909.         panel_set(pb[111],PANEL_LABEL_IMAGE,
  8910.               panel_button_image(pa[9],"bot side ON",14,NULL),0);
  8911.            }
  8912.         else
  8913.            {feat[nf].xt2_bot = FALSE; 
  8914.                 panel_set(pb[111],PANEL_LABEL_IMAGE, 
  8915.                           panel_button_image(pa[9],"bot side OFF",14,NULL),0); 
  8916.                }
  8917.        }
  8918.     else if (strcmp(c,"Y-TIC2") == 0)
  8919.        {if (feat[nf].yt2_left == FALSE)
  8920.            {feat[nf].yt2_left = TRUE;
  8921.         panel_set(pb[111],PANEL_LABEL_IMAGE,
  8922.               panel_button_image(pa[9],"left side ON",14,NULL),0);
  8923.            }
  8924.         else
  8925.            {feat[nf].yt2_left = FALSE; 
  8926.                 panel_set(pb[111],PANEL_LABEL_IMAGE, 
  8927.                           panel_button_image(pa[9],"left side OFF",14,NULL),0); 
  8928.                }
  8929.        }
  8930.     else
  8931.        bad_data("It is not possible to get this feature error message, p111");
  8932.     return;
  8933. }
  8934. /* EOF */
  8935. /* cat > src+obj/p112.c << "EOF" */
  8936. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8937. /* p112: p112 button - feature...ticks on right/top    */
  8938. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  8939. /* SCCS information: %W%    %G% - NCSA */
  8940.  
  8941. /* #include "all.h" */
  8942.  
  8943. int    p112()
  8944. {
  8945.     char        c[8];
  8946.     strcpy(c,panel_get(pm[4],PANEL_LABEL_STRING,0));
  8947.     if (strcmp(c,"X-TIC1") == 0)
  8948.        {if (feat[nf].xt1_top == FALSE)
  8949.            {feat[nf].xt1_top = TRUE;
  8950.         panel_set(pb[112],PANEL_LABEL_IMAGE,
  8951.               panel_button_image(pa[9],"top side ON",14,NULL),0);
  8952.            }
  8953.         else
  8954.            {feat[nf].xt1_top = FALSE; 
  8955.                 panel_set(pb[112],PANEL_LABEL_IMAGE, 
  8956.                           panel_button_image(pa[9],"top side OFF",14,NULL),0); 
  8957.                }
  8958.        }
  8959.     else if (strcmp(c,"Y-TIC1") == 0)
  8960.        {if (feat[nf].yt1_right == FALSE)
  8961.            {feat[nf].yt1_right = TRUE;
  8962.         panel_set(pb[112],PANEL_LABEL_IMAGE,
  8963.               panel_button_image(pa[9],"right side ON",14,NULL),0);
  8964.            }
  8965.         else
  8966.            {feat[nf].yt1_right = FALSE; 
  8967.                 panel_set(pb[112],PANEL_LABEL_IMAGE, 
  8968.                           panel_button_image(pa[9],"right side OFF",14,NULL),0); 
  8969.                }
  8970.        }
  8971.     else if (strcmp(c,"X-TIC2") == 0)
  8972.        {if (feat[nf].xt2_top == FALSE)
  8973.            {feat[nf].xt2_top = TRUE;
  8974.         panel_set(pb[112],PANEL_LABEL_IMAGE,
  8975.               panel_button_image(pa[9],"top side ON",14,NULL),0);
  8976.            }
  8977.         else
  8978.            {feat[nf].xt2_top = FALSE; 
  8979.                 panel_set(pb[112],PANEL_LABEL_IMAGE, 
  8980.                           panel_button_image(pa[9],"top side OFF",14,NULL),0); 
  8981.                }
  8982.        }
  8983.     else if (strcmp(c,"Y-TIC2") == 0)
  8984.        {if (feat[nf].yt2_right == FALSE)
  8985.            {feat[nf].yt2_right = TRUE;
  8986.         panel_set(pb[112],PANEL_LABEL_IMAGE,
  8987.               panel_button_image(pa[9],"right side ON",14,NULL),0);
  8988.            }
  8989.         else
  8990.            {feat[nf].yt2_right = FALSE; 
  8991.                 panel_set(pb[112],PANEL_LABEL_IMAGE, 
  8992.                           panel_button_image(pa[9],"right side OFF",14,NULL),0); 
  8993.                }
  8994.        }
  8995.     else
  8996.        bad_data("It is not possible to get this feature error message, p112");
  8997.     return;
  8998. }
  8999. /* EOF */
  9000. /* cat > src+obj/p113.c << "EOF" */
  9001. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9002. /* p113: p113 button - feature...copy from another tag    */
  9003. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9004. /* SCCS information: %W%    %G% - NCSA */
  9005.  
  9006. /* #include "all.h" */
  9007.  
  9008. int    p113()
  9009. {
  9010.         char            c[8],
  9011.             d[8],
  9012.                         *s;
  9013.         register int    n;
  9014.         strcpy(c,panel_get(pt[58],PANEL_VALUE,0));
  9015.     strcpy(d,panel_get(pm[3],PANEL_LABEL_STRING,0));
  9016.         s = c;
  9017.     if (*s == '\0')
  9018.        {bad_data("No tag given, request ignored.");
  9019.         return;
  9020.        }
  9021.         if (*s != 'i' && *s != 'c' && *s != 'v')
  9022.            {strcpy(txt,c);
  9023.             strcat(txt,":  does not begin with i, c, or v, copy request ignored.");
  9024.             bad_data(txt);
  9025.             panel_set(pt[58],PANEL_VALUE,"",0);
  9026.             return;
  9027.            }
  9028.         s++;
  9029.         if (FALSE == my_isint(s))
  9030.            {strcpy(txt,c);
  9031.           strcat(txt,": first letter ok, but remainder not integer, copy request ignored.");
  9032.             bad_data(txt);
  9033.             panel_set(pt[58],PANEL_VALUE,"",0);
  9034.             return;
  9035.            }
  9036.         n = atoi(s);
  9037.         if (n < 0)
  9038.            {strcpy(txt,c);
  9039.             strcat(txt,": first letter ok, but remainder < 0, copy request ignored.");
  9040.             bad_data(txt);
  9041.             panel_set(pt[58],PANEL_VALUE,"",0);
  9042.             return;
  9043.            }
  9044.         if (*c == 'i' && n >= N_image)
  9045.            {strcpy(txt,c);
  9046.             strcat(txt,":  not that many image tags, copy request ignored.");
  9047.             bad_data(txt);
  9048.             panel_set(pt[58],PANEL_VALUE,"",0);
  9049.             return;
  9050.            }
  9051.         if (*c == 'c' && n >= N_contour)
  9052.            {strcpy(txt,c);
  9053.             strcat(txt,":  not that many contour tags, copy request ignored.");
  9054.             bad_data(txt);
  9055.             panel_set(pt[58],PANEL_VALUE,"",0);
  9056.             return;
  9057.            }
  9058.         if (*c == 'v' && n >= N_vector)
  9059.            {strcpy(txt,c);
  9060.             strcat(txt,":  not that many vector tags, copy request ignored.");
  9061.             bad_data(txt);
  9062.             panel_set(pt[58],PANEL_VALUE,"",0);
  9063.             return;
  9064.            }
  9065.         if    (*c == 'c')     n = N_image + n;
  9066.         else if    (*c == 'v')    n = N_image + N_contour + n;
  9067.     else;
  9068.  
  9069.     feat[nf].xax_sw        = feat[n].xax_sw;
  9070.     feat[nf].xax_thick    = feat[n].xax_thick;
  9071.     feat[nf].xax_color    = feat[n].xax_color;
  9072.     feat[nf].xax_bot    = feat[n].xax_bot;
  9073.     feat[nf].xax_top    = feat[n].xax_top;
  9074.     feat[nf].yax_sw        = feat[n].yax_sw;
  9075.     feat[nf].yax_thick    = feat[n].yax_thick;
  9076.     feat[nf].yax_color    = feat[n].yax_color;
  9077.     feat[nf].yax_left    = feat[n].yax_left;
  9078.     feat[nf].yax_right    = feat[n].yax_right;
  9079.  
  9080.     feat[nf].xgr_sw        = feat[n].xgr_sw;
  9081.     feat[nf].xgr_thick    = feat[n].xgr_thick;
  9082.     feat[nf].xgr_color    = feat[n].xgr_color;
  9083.     feat[nf].xgr_space    = feat[n].xgr_space;
  9084.     feat[nf].ygr_sw        = feat[n].ygr_sw;
  9085.     feat[nf].ygr_thick    = feat[n].ygr_thick;
  9086.     feat[nf].ygr_color    = feat[n].ygr_color;
  9087.     feat[nf].ygr_space    = feat[n].ygr_space;
  9088.  
  9089.     feat[nf].xt1_sw        = feat[n].xt1_sw;
  9090.     feat[nf].xt1_thick    = feat[n].xt1_thick;
  9091.     feat[nf].xt1_color    = feat[n].xt1_color;
  9092.     feat[nf].xt1_bot    = feat[n].xt1_bot;
  9093.     feat[nf].xt1_top    = feat[n].xt1_top;
  9094.     feat[nf].xt1_space    = feat[n].xt1_space;
  9095.     feat[nf].xt1_direc    = feat[n].xt1_direc;
  9096.     feat[nf].yt1_sw        = feat[n].yt1_sw;
  9097.     feat[nf].yt1_thick    = feat[n].yt1_thick;
  9098.     feat[nf].yt1_color    = feat[n].yt1_color;
  9099.     feat[nf].yt1_left    = feat[n].yt1_left;
  9100.     feat[nf].yt1_right    = feat[n].yt1_right;
  9101.     feat[nf].yt1_space    = feat[n].yt1_space;
  9102.     feat[nf].yt1_direc    = feat[n].yt1_direc;
  9103.  
  9104.     feat[nf].xt2_sw        = feat[n].xt2_sw;
  9105.     feat[nf].xt2_thick    = feat[n].xt2_thick;
  9106.     feat[nf].xt2_color    = feat[n].xt2_color;
  9107.     feat[nf].xt2_bot    = feat[n].xt2_bot;
  9108.     feat[nf].xt2_top    = feat[n].xt2_top;
  9109.     feat[nf].xt2_space    = feat[n].xt2_space;
  9110.     feat[nf].xt2_direc    = feat[n].xt2_direc;
  9111.     feat[nf].yt2_sw        = feat[n].yt2_sw;
  9112.     feat[nf].yt2_thick    = feat[n].yt2_thick;
  9113.     feat[nf].yt2_color    = feat[n].yt2_color;
  9114.     feat[nf].yt2_left    = feat[n].yt2_left;
  9115.     feat[nf].yt2_right    = feat[n].yt2_right;
  9116.     feat[nf].yt2_space    = feat[n].yt2_space;
  9117.     feat[nf].yt2_direc    = feat[n].yt2_direc;
  9118.  
  9119.     if    (strcmp(d,"X-AXIS") == 0) p91();
  9120.     else if    (strcmp(d,"Y-AXIS") == 0) p93();
  9121.     else if    (strcmp(d,"X-GRID") == 0) p95();
  9122.     else if    (strcmp(d,"Y-GRID") == 0) p97();
  9123.     else if    (strcmp(d,"X-TIC1") == 0) p99();
  9124.     else if    (strcmp(d,"Y-TIC1") == 0) p101();
  9125.     else if    (strcmp(d,"X-TIC2") == 0) p103();
  9126.     else if    (strcmp(d,"Y-TIC2") == 0) p105();
  9127.     else
  9128.        {bad_data("It is not possible to get this feature error message, p113");
  9129.         return;
  9130.        }
  9131.  
  9132.         panel_set(pt[58],PANEL_VALUE,"",0);
  9133.     strcpy(txt,"Current feature tag data copied from feature tag ");
  9134.     strcat(txt,c);
  9135.         info_msg("",txt,"");
  9136.     return;
  9137. }
  9138. /* EOF */
  9139. /* cat > src+obj/p114.c << "EOF" */
  9140. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9141. /* p114: p114 button - feature...all features on    */
  9142. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9143. /* SCCS information: %W%    %G% - NCSA */
  9144.  
  9145. /* #include "all.h" */
  9146.  
  9147. int    p114()
  9148. {
  9149.     feat[nf].xax_sw = TRUE;
  9150.     feat[nf].yax_sw = TRUE;
  9151.     feat[nf].xgr_sw = TRUE;
  9152.     feat[nf].ygr_sw = TRUE;
  9153.     feat[nf].xt1_sw = TRUE;
  9154.     feat[nf].yt1_sw = TRUE;
  9155.     feat[nf].xt2_sw = TRUE;
  9156.     feat[nf].yt2_sw = TRUE;
  9157.     panel_set(pb[92],PANEL_LABEL_IMAGE,
  9158.           panel_button_image(pa[9],"ON",3,NULL),0);
  9159.     panel_set(pb[94],PANEL_LABEL_IMAGE,
  9160.           panel_button_image(pa[9],"ON",3,NULL),0);
  9161.     panel_set(pb[96],PANEL_LABEL_IMAGE,
  9162.           panel_button_image(pa[9],"ON",3,NULL),0);
  9163.     panel_set(pb[98],PANEL_LABEL_IMAGE,
  9164.           panel_button_image(pa[9],"ON",3,NULL),0);
  9165.     panel_set(pb[100],PANEL_LABEL_IMAGE,
  9166.           panel_button_image(pa[9],"ON",3,NULL),0);
  9167.     panel_set(pb[102],PANEL_LABEL_IMAGE,
  9168.           panel_button_image(pa[9],"ON",3,NULL),0);
  9169.     panel_set(pb[104],PANEL_LABEL_IMAGE,
  9170.           panel_button_image(pa[9],"ON",3,NULL),0);
  9171.     panel_set(pb[106],PANEL_LABEL_IMAGE,
  9172.           panel_button_image(pa[9],"ON",3,NULL),0);
  9173.     return;
  9174. }
  9175. /* EOF */
  9176. /* cat > src+obj/p115.c << "EOF" */
  9177. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9178. /* p115: p115 button - feature...all features off    */
  9179. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9180. /* SCCS information: %W%    %G% - NCSA */
  9181.  
  9182. /* #include "all.h" */
  9183.  
  9184. int    p115()
  9185. {
  9186.     feat[nf].xax_sw = FALSE;
  9187.     feat[nf].yax_sw = FALSE;
  9188.     feat[nf].xgr_sw = FALSE;
  9189.     feat[nf].ygr_sw = FALSE;
  9190.     feat[nf].xt1_sw = FALSE;
  9191.     feat[nf].yt1_sw = FALSE;
  9192.     feat[nf].xt2_sw = FALSE;
  9193.     feat[nf].yt2_sw = FALSE;
  9194.     panel_set(pb[92],PANEL_LABEL_IMAGE,
  9195.           panel_button_image(pa[9],"OFF",3,NULL),0);
  9196.     panel_set(pb[94],PANEL_LABEL_IMAGE,
  9197.           panel_button_image(pa[9],"OFF",3,NULL),0);
  9198.     panel_set(pb[96],PANEL_LABEL_IMAGE,
  9199.           panel_button_image(pa[9],"OFF",3,NULL),0);
  9200.     panel_set(pb[98],PANEL_LABEL_IMAGE,
  9201.           panel_button_image(pa[9],"OFF",3,NULL),0);
  9202.     panel_set(pb[100],PANEL_LABEL_IMAGE,
  9203.           panel_button_image(pa[9],"OFF",3,NULL),0);
  9204.     panel_set(pb[102],PANEL_LABEL_IMAGE,
  9205.           panel_button_image(pa[9],"OFF",3,NULL),0);
  9206.     panel_set(pb[104],PANEL_LABEL_IMAGE,
  9207.           panel_button_image(pa[9],"OFF",3,NULL),0);
  9208.     panel_set(pb[106],PANEL_LABEL_IMAGE,
  9209.           panel_button_image(pa[9],"OFF",3,NULL),0);
  9210.     return;
  9211. }
  9212. /* EOF */
  9213. /* cat > src+obj/reset_colorbar.c << "EOF" */
  9214. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9215. /* reset_colorbar: reset the colorbar "Done" button and    */
  9216. /*           switch                */
  9217. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9218. /* SCCS information: %W%    %G% - NCSA */
  9219.  
  9220. /* #include "all.h" */
  9221.  
  9222. int    reset_colorbar()
  9223. {
  9224.     sw_colorbar = 0;
  9225.     panel_set(pb[22],PANEL_LABEL_IMAGE,
  9226.           panel_button_image(pa[3],"Done",7,NULL),0);
  9227.     return;
  9228. }
  9229. /* EOF */
  9230. /* cat > src+obj/reset_contour.c << "EOF" */
  9231. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9232. /* reset_contour: reset the change contour buttons and    */
  9233. /*          switches                */
  9234. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9235. /* SCCS information: %W%    %G% - NCSA */
  9236.  
  9237. /* #include "all.h" */
  9238.  
  9239. int    reset_contour()
  9240. {
  9241.     sw_contour = 0;
  9242.     panel_set(pb[58],PANEL_LABEL_IMAGE,
  9243.           panel_button_image(pa[7],"Done",7,NULL),0);
  9244.     sw_c[0] = sw_c[1] = sw_c[2] = sw_c[3] = sw_c[4] = 0;
  9245.     panel_set(pb[66],PANEL_LABEL_IMAGE,
  9246.           panel_button_image(pa[7],"-5",2,NULL),0);
  9247.     panel_set(pb[67],PANEL_LABEL_IMAGE,
  9248.           panel_button_image(pa[7],"-",1,NULL),0);
  9249.     panel_set(pb[68],PANEL_LABEL_IMAGE,
  9250.           panel_button_image(pa[7],"+",1,NULL),0);
  9251.     panel_set(pb[69],PANEL_LABEL_IMAGE,
  9252.           panel_button_image(pa[7],"+5",2,NULL),0);
  9253.     panel_set(pb[65],PANEL_LABEL_IMAGE,
  9254.           panel_button_image(pa[7]," ",2,NULL),0);
  9255.     return;
  9256. }
  9257. /* EOF */
  9258. /* cat > src+obj/reset_grid.c << "EOF" */
  9259. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9260. /* reset_grid: reset the grid "Done" button and switch    */
  9261. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9262. /* SCCS information: %W%    %G% - NCSA */
  9263.  
  9264. /* #include "all.h" */
  9265.  
  9266. int    reset_grid()
  9267. {
  9268.     sw_grid = 0;
  9269.     panel_set(pb[16],PANEL_LABEL_IMAGE,
  9270.           panel_button_image(pa[2],"Done",7,NULL),0);
  9271.     return;
  9272. }
  9273. /* EOF */
  9274. /* cat > src+obj/reset_image.c << "EOF" */
  9275. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9276. /* reset_image: reset the change image buttons and    */
  9277. /*        switches                */
  9278. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9279. /* SCCS information: %W%    %G% - NCSA */
  9280.  
  9281. /* #include "all.h" */
  9282.  
  9283. int    reset_image()
  9284. {
  9285.     sw_image = 0;
  9286.     panel_set(pb[46],PANEL_LABEL_IMAGE,
  9287.           panel_button_image(pa[6],"Done",7,NULL),0);
  9288.     sw_i[0] = sw_i[1] = sw_i[2] = sw_i[3] = sw_i[4] = 0;
  9289.     panel_set(pb[54],PANEL_LABEL_IMAGE,
  9290.           panel_button_image(pa[6],"-5",2,NULL),0);
  9291.     panel_set(pb[55],PANEL_LABEL_IMAGE,
  9292.           panel_button_image(pa[6],"-",1,NULL),0);
  9293.     panel_set(pb[56],PANEL_LABEL_IMAGE,
  9294.           panel_button_image(pa[6],"+",1,NULL),0);
  9295.     panel_set(pb[57],PANEL_LABEL_IMAGE,
  9296.           panel_button_image(pa[6],"+5",2,NULL),0);
  9297.     panel_set(pb[53],PANEL_LABEL_IMAGE,
  9298.           panel_button_image(pa[6]," ",2,NULL),0);
  9299.     return;
  9300. }
  9301. /* EOF */
  9302. /* cat > src+obj/reset_mcolorbar.c << "EOF" */
  9303. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9304. /* reset_mcolorbar: reset the colorbar draw & move    */
  9305. /*            buttons and switches        */
  9306. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9307. /* SCCS information: %W%    %G% - NCSA */
  9308.  
  9309. /* #include "all.h" */
  9310.  
  9311. int    reset_mcolorbar()
  9312. {
  9313.     if (csw_colorbar == TRUE)
  9314.        {csw_colorbar = FALSE;
  9315.         sw_draw     = FALSE;
  9316.         sw_move     = FALSE;
  9317.        }
  9318.     if (TRUE == (int)window_get(fr[3],WIN_SHOW,TRUE,0))
  9319.        {panel_set(pb[28],PANEL_LABEL_IMAGE,
  9320.           panel_button_image(pa[3],"ms draw",8,NULL),0);
  9321.         panel_set(pb[84],PANEL_LABEL_IMAGE,
  9322.           panel_button_image(pa[3],"mouse mv",9,NULL),0);
  9323.        }
  9324.     return;
  9325. }
  9326. /* EOF */
  9327. /* cat > src+obj/reset_mcontour.c << "EOF" */
  9328. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9329. /* reset_mcontour: reset the contour draw & move    */
  9330. /*           buttons and switches            */
  9331. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9332. /* SCCS information: %W%    %G% - NCSA */
  9333.  
  9334. /* #include "all.h" */
  9335.  
  9336. int    reset_mcontour()
  9337. {
  9338.     if (csw_contour == TRUE)
  9339.        {csw_contour = FALSE;
  9340.         sw_draw    = FALSE;
  9341.         sw_move    = FALSE;
  9342.        }
  9343.     if (TRUE == (int)window_get(fr[7],WIN_SHOW,TRUE,0))
  9344.        {panel_set(pb[64],PANEL_LABEL_IMAGE,
  9345.           panel_button_image(pa[7],"ms draw",8,NULL),0);
  9346.         panel_set(pb[86],PANEL_LABEL_IMAGE,
  9347.           panel_button_image(pa[7],"mouse mv",9,NULL),0);
  9348.        }
  9349.     return;
  9350. }
  9351. /* EOF */
  9352. /* cat > src+obj/reset_mimage.c << "EOF" */
  9353. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9354. /* reset_mimage: reset the image draw & move buttons    */
  9355. /*         and switches                */
  9356. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9357. /* SCCS information: %W%    %G% - NCSA */
  9358.  
  9359. /* #include "all.h" */
  9360.  
  9361. int    reset_mimage()
  9362. {
  9363.     if (csw_image  == TRUE)
  9364.        {csw_image    = FALSE;
  9365.         sw_draw    = FALSE;
  9366.         sw_move    = FALSE;
  9367.        }
  9368.     if (TRUE == (int)window_get(fr[6],WIN_SHOW,TRUE,0))
  9369.        {panel_set(pb[52],PANEL_LABEL_IMAGE,
  9370.           panel_button_image(pa[6],"ms draw",8,NULL),0);
  9371.         panel_set(pb[85],PANEL_LABEL_IMAGE,
  9372.           panel_button_image(pa[6],"mouse mv",9,NULL),0);
  9373.        }
  9374.     return;
  9375. }
  9376. /* EOF */
  9377. /* cat > src+obj/reset_mtext.c << "EOF" */
  9378. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9379. /* reset_mtext: reset the text draw & move buttons and    */
  9380. /*        switches                */
  9381. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9382. /* SCCS information: %W%    %G% - NCSA */
  9383.  
  9384. /* #include "all.h" */
  9385.  
  9386. int    reset_mtext()
  9387. {
  9388.     if (csw_text   == TRUE)
  9389.        {csw_text    = FALSE;
  9390.         sw_draw    = FALSE;
  9391.         sw_move    = FALSE;
  9392.        }
  9393.     if (TRUE == (int)window_get(fr[4],WIN_SHOW,TRUE,0))
  9394.        {panel_set(pb[82],PANEL_LABEL_IMAGE,
  9395.           panel_button_image(pa[4],"ms draw",8,NULL),0);
  9396.         panel_set(pb[83],PANEL_LABEL_IMAGE,
  9397.           panel_button_image(pa[4],"mouse mv",9,NULL),0);
  9398.        }
  9399.     return;
  9400. }
  9401. /* EOF */
  9402. /* cat > src+obj/reset_mvector.c << "EOF" */
  9403. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9404. /* reset_mvector: reset the vector draw & move buttons    */
  9405. /*          and switches                */
  9406. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9407. /* SCCS information: %W%    %G% - NCSA */
  9408.  
  9409. /* #include "all.h" */
  9410.  
  9411. int    reset_mvector()
  9412. {
  9413.     if (csw_vector == TRUE)
  9414.        {csw_vector    = FALSE;
  9415.         sw_draw    = FALSE;
  9416.         sw_move    = FALSE;
  9417.        }
  9418.     if (TRUE == (int)window_get(fr[8],WIN_SHOW,TRUE,0))
  9419.        {panel_set(pb[76],PANEL_LABEL_IMAGE,
  9420.           panel_button_image(pa[8],"ms draw",8,NULL),0);
  9421.         panel_set(pb[87],PANEL_LABEL_IMAGE,
  9422.           panel_button_image(pa[8],"mouse mv",9,NULL),0);
  9423.        }
  9424.     return;
  9425. }
  9426. /* EOF */
  9427. /* cat > src+obj/reset_palette.c << "EOF" */
  9428. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9429. /* reset_palette: reset the palette "Done" button and    */
  9430. /*          switch                */
  9431. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9432. /* SCCS information: %W%    %G% - NCSA */
  9433.  
  9434. /* #include "all.h" */
  9435.  
  9436. int    reset_palette()
  9437. {
  9438.     sw_palette = 0;
  9439.     panel_set(pb[13],PANEL_LABEL_IMAGE,
  9440.           panel_button_image(pa[1],"Done",7,NULL),0);
  9441.     return;
  9442. }
  9443. /* EOF */
  9444. /* cat > src+obj/reset_text.c << "EOF" */
  9445. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9446. /* reset_text: reset the change text buttons and    */
  9447. /*           switches                    */
  9448. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9449. /* SCCS information: %W%    %G% - NCSA */
  9450.  
  9451. /* #include "all.h" */
  9452.  
  9453. int    reset_text()
  9454. {
  9455.     sw_text = 0;
  9456.     panel_set(pb[30],PANEL_LABEL_IMAGE,
  9457.           panel_button_image(pa[4],"Done",7,NULL),0);
  9458.     sw_t[0] = sw_t[1] = sw_t[2] = sw_t[3] = sw_t[4] = 0;
  9459.     panel_set(pb[37],PANEL_LABEL_IMAGE,
  9460.           panel_button_image(pa[4],"-5",2,NULL),0);
  9461.     panel_set(pb[38],PANEL_LABEL_IMAGE,
  9462.           panel_button_image(pa[4],"-",1,NULL),0);
  9463.     panel_set(pb[39],PANEL_LABEL_IMAGE,
  9464.           panel_button_image(pa[4],"+",1,NULL),0);
  9465.     panel_set(pb[40],PANEL_LABEL_IMAGE,
  9466.           panel_button_image(pa[4],"+5",2,NULL),0);
  9467.     panel_set(pb[36],PANEL_LABEL_IMAGE,
  9468.           panel_button_image(pa[4]," ",2,NULL),0);
  9469.     return;
  9470. }
  9471. /* EOF */
  9472. /* cat > src+obj/reset_vector.c << "EOF" */
  9473. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9474. /* reset_vector: reset the change vector buttons and    */
  9475. /*         switches                */
  9476. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9477. /* SCCS information: %W%    %G% - NCSA */
  9478.  
  9479. /* #include "all.h" */
  9480.  
  9481. int    reset_vector()
  9482. {
  9483.     sw_vector = 0;
  9484.     panel_set(pb[70],PANEL_LABEL_IMAGE,
  9485.           panel_button_image(pa[8],"Done",7,NULL),0);
  9486.     sw_v[0] = sw_v[1] = sw_v[2] = sw_v[3] = sw_v[4] = 0;
  9487.     panel_set(pb[78],PANEL_LABEL_IMAGE,
  9488.           panel_button_image(pa[8],"-5",2,NULL),0);
  9489.     panel_set(pb[79],PANEL_LABEL_IMAGE,
  9490.           panel_button_image(pa[8],"-",1,NULL),0);
  9491.     panel_set(pb[80],PANEL_LABEL_IMAGE,
  9492.           panel_button_image(pa[8],"+",1,NULL),0);
  9493.     panel_set(pb[81],PANEL_LABEL_IMAGE,
  9494.           panel_button_image(pa[8],"+5",2,NULL),0);
  9495.     panel_set(pb[77],PANEL_LABEL_IMAGE,
  9496.           panel_button_image(pa[8]," ",2,NULL),0);
  9497.     return;
  9498. }
  9499. /* EOF */
  9500. /* cat > src+obj/resetb_feature.c << "EOF" */
  9501. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9502. /* resetb_feature: reset the feature buttons        */
  9503. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9504. /* SCCS information: %W%    %G% - NCSA */
  9505.  
  9506. /* #include "all.h" */
  9507.  
  9508. int    resetb_feature()
  9509. {
  9510.     panel_set(pb[91],PANEL_LABEL_IMAGE,
  9511.           panel_button_image(pa[9],"x-axis",7,NULL),0);
  9512.     panel_set(pb[93],PANEL_LABEL_IMAGE,
  9513.           panel_button_image(pa[9],"y-axis",7,NULL),0);
  9514.     panel_set(pb[95],PANEL_LABEL_IMAGE,
  9515.           panel_button_image(pa[9],"x-grid",7,NULL),0);
  9516.     panel_set(pb[97],PANEL_LABEL_IMAGE,
  9517.           panel_button_image(pa[9],"y-grid",7,NULL),0);
  9518.     panel_set(pb[99],PANEL_LABEL_IMAGE,
  9519.           panel_button_image(pa[9],"x-tic1",7,NULL),0);
  9520.     panel_set(pb[101],PANEL_LABEL_IMAGE,
  9521.           panel_button_image(pa[9],"y-tic1",7,NULL),0);
  9522.     panel_set(pb[103],PANEL_LABEL_IMAGE,
  9523.           panel_button_image(pa[9],"x-tic2",7,NULL),0);
  9524.     panel_set(pb[105],PANEL_LABEL_IMAGE,
  9525.           panel_button_image(pa[9],"y-tic2",7,NULL),0);
  9526.     if (feat[nf].xax_sw == FALSE)
  9527.        panel_set(pb[92],PANEL_LABEL_IMAGE,
  9528.              panel_button_image(pa[9],"OFF",3,NULL),0);
  9529.     else
  9530.        panel_set(pb[92],PANEL_LABEL_IMAGE,
  9531.              panel_button_image(pa[9],"ON",3,NULL),0);
  9532.     if (feat[nf].yax_sw == FALSE)
  9533.        panel_set(pb[94],PANEL_LABEL_IMAGE,
  9534.              panel_button_image(pa[9],"OFF",3,NULL),0);
  9535.     else
  9536.        panel_set(pb[94],PANEL_LABEL_IMAGE,
  9537.              panel_button_image(pa[9],"ON",3,NULL),0);
  9538.     if (feat[nf].xgr_sw == FALSE)
  9539.        panel_set(pb[96],PANEL_LABEL_IMAGE,
  9540.              panel_button_image(pa[9],"OFF",3,NULL),0);
  9541.     else
  9542.        panel_set(pb[96],PANEL_LABEL_IMAGE,
  9543.              panel_button_image(pa[9],"ON",3,NULL),0);
  9544.     if (feat[nf].ygr_sw == FALSE)
  9545.        panel_set(pb[98],PANEL_LABEL_IMAGE,
  9546.              panel_button_image(pa[9],"OFF",3,NULL),0);
  9547.     else
  9548.        panel_set(pb[98],PANEL_LABEL_IMAGE,
  9549.              panel_button_image(pa[9],"ON",3,NULL),0);
  9550.     if (feat[nf].xt1_sw == FALSE)
  9551.        panel_set(pb[100],PANEL_LABEL_IMAGE,
  9552.              panel_button_image(pa[9],"OFF",3,NULL),0);
  9553.     else
  9554.        panel_set(pb[100],PANEL_LABEL_IMAGE,
  9555.              panel_button_image(pa[9],"ON",3,NULL),0);
  9556.     if (feat[nf].yt1_sw == FALSE)
  9557.        panel_set(pb[102],PANEL_LABEL_IMAGE,
  9558.              panel_button_image(pa[9],"OFF",3,NULL),0);
  9559.     else
  9560.        panel_set(pb[102],PANEL_LABEL_IMAGE,
  9561.              panel_button_image(pa[9],"ON",3,NULL),0);
  9562.     if (feat[nf].xt2_sw == FALSE)
  9563.        panel_set(pb[104],PANEL_LABEL_IMAGE,
  9564.              panel_button_image(pa[9],"OFF",3,NULL),0);
  9565.     else
  9566.        panel_set(pb[104],PANEL_LABEL_IMAGE,
  9567.              panel_button_image(pa[9],"ON",3,NULL),0);
  9568.     if (feat[nf].yt2_sw == FALSE)
  9569.        panel_set(pb[106],PANEL_LABEL_IMAGE,
  9570.              panel_button_image(pa[9],"OFF",3,NULL),0);
  9571.     else
  9572.        panel_set(pb[106],PANEL_LABEL_IMAGE,
  9573.              panel_button_image(pa[9],"ON",3,NULL),0);
  9574.     return;
  9575. }
  9576. /* EOF */
  9577. /* cat > src+obj/s0.c << "EOF" */
  9578. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9579. /* s0: s0 slider - feature...specify thickness        */
  9580. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9581. /* SCCS information: %W%    %G% - NCSA */
  9582.  
  9583. /* #include "all.h" */
  9584.  
  9585. int    s0()
  9586. {
  9587.     strcpy(txt,panel_get(pm[4],PANEL_LABEL_STRING,0));
  9588.     if    (strcmp(txt,"X-AXIS") == 0)
  9589.        feat[nf].xax_thick = (int)panel_get(ps[0],PANEL_VALUE,0);
  9590.     else if (strcmp(txt,"Y-AXIS") == 0)
  9591.        feat[nf].yax_thick = (int)panel_get(ps[0],PANEL_VALUE,0);
  9592.     else if (strcmp(txt,"X-GRID") == 0)
  9593.        feat[nf].xgr_thick = (int)panel_get(ps[0],PANEL_VALUE,0);
  9594.     else if (strcmp(txt,"Y-GRID") == 0)
  9595.        feat[nf].ygr_thick = (int)panel_get(ps[0],PANEL_VALUE,0);
  9596.     else if (strcmp(txt,"X-TIC1") == 0)
  9597.        feat[nf].xt1_thick = (int)panel_get(ps[0],PANEL_VALUE,0);
  9598.     else if (strcmp(txt,"Y-TIC1") == 0)
  9599.        feat[nf].yt1_thick = (int)panel_get(ps[0],PANEL_VALUE,0);
  9600.     else if (strcmp(txt,"X-TIC2") == 0)
  9601.        feat[nf].xt2_thick = (int)panel_get(ps[0],PANEL_VALUE,0);
  9602.     else if (strcmp(txt,"Y-TIC2") == 0)
  9603.        feat[nf].yt2_thick = (int)panel_get(ps[0],PANEL_VALUE,0);
  9604.     else
  9605.        bad_data("This feature error message for thickness is not possible.");
  9606.     return;
  9607. }
  9608. /* EOF */
  9609. /* cat > src+obj/s1.c << "EOF" */
  9610. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9611. /* s1: s1 slider - feature...specify color        */
  9612. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9613. /* SCCS information: %W%    %G% - NCSA */
  9614.  
  9615. /* #include "all.h" */
  9616.  
  9617. int    s1()
  9618. {
  9619.     strcpy(txt,panel_get(pm[4],PANEL_LABEL_STRING,0));
  9620.     if    (strcmp(txt,"X-AXIS") == 0)
  9621.        feat[nf].xax_color = (int)panel_get(ps[1],PANEL_VALUE,0);
  9622.     else if (strcmp(txt,"Y-AXIS") == 0)
  9623.        feat[nf].yax_color = (int)panel_get(ps[1],PANEL_VALUE,0);
  9624.     else if (strcmp(txt,"X-GRID") == 0)
  9625.        feat[nf].xgr_color = (int)panel_get(ps[1],PANEL_VALUE,0);
  9626.     else if (strcmp(txt,"Y-GRID") == 0)
  9627.        feat[nf].ygr_color = (int)panel_get(ps[1],PANEL_VALUE,0);
  9628.     else if (strcmp(txt,"X-TIC1") == 0)
  9629.        feat[nf].xt1_color = (int)panel_get(ps[1],PANEL_VALUE,0);
  9630.     else if (strcmp(txt,"Y-TIC1") == 0)
  9631.        feat[nf].yt1_color = (int)panel_get(ps[1],PANEL_VALUE,0);
  9632.     else if (strcmp(txt,"X-TIC2") == 0)
  9633.        feat[nf].xt2_color = (int)panel_get(ps[1],PANEL_VALUE,0);
  9634.     else if (strcmp(txt,"Y-TIC2") == 0)
  9635.        feat[nf].yt2_color = (int)panel_get(ps[1],PANEL_VALUE,0);
  9636.     else
  9637.        bad_data("This feature error message for color is not possible.");
  9638.     return;
  9639. }
  9640. /* EOF */
  9641. /* cat > src+obj/s2.c << "EOF" */
  9642. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9643. /* s2: s2 slider - feature...specify spacing        */
  9644. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9645. /* SCCS information: %W%    %G% - NCSA */
  9646.  
  9647. /* #include "all.h" */
  9648.  
  9649. int    s2()
  9650. {
  9651.     strcpy(txt,panel_get(pm[4],PANEL_LABEL_STRING,0));
  9652.     if     (strcmp(txt,"X-GRID") == 0)
  9653.        feat[nf].xgr_space = (int)panel_get(ps[2],PANEL_VALUE,0);
  9654.     else if (strcmp(txt,"Y-GRID") == 0)
  9655.        feat[nf].ygr_space = (int)panel_get(ps[2],PANEL_VALUE,0);
  9656.     else if (strcmp(txt,"X-TIC1") == 0)
  9657.        feat[nf].xt1_space = (int)panel_get(ps[2],PANEL_VALUE,0);
  9658.     else if (strcmp(txt,"Y-TIC1") == 0)
  9659.        feat[nf].yt1_space = (int)panel_get(ps[2],PANEL_VALUE,0);
  9660.     else if (strcmp(txt,"X-TIC2") == 0)
  9661.        feat[nf].xt2_space = (int)panel_get(ps[2],PANEL_VALUE,0);
  9662.     else if (strcmp(txt,"Y-TIC2") == 0)
  9663.        feat[nf].yt2_space = (int)panel_get(ps[2],PANEL_VALUE,0);
  9664.     else
  9665.        bad_data("This feature error message for spacing is not possible.");
  9666.     return;
  9667. }
  9668. /* EOF */
  9669. /* cat > src+obj/s3.c << "EOF" */
  9670. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9671. /* s3: s3 slider - feature...specify tick length    */
  9672. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9673. /* SCCS information: %W%    %G% - NCSA */
  9674.  
  9675. /* #include "all.h" */
  9676.  
  9677. int    s3()
  9678. {
  9679.     strcpy(txt,panel_get(pm[4],PANEL_LABEL_STRING,0));
  9680.     if    (strcmp(txt,"X-TIC1") == 0)
  9681.        feat[nf].xt1_len = (int)panel_get(ps[3],PANEL_VALUE,0);
  9682.     else if (strcmp(txt,"Y-TIC1") == 0)
  9683.        feat[nf].yt1_len = (int)panel_get(ps[3],PANEL_VALUE,0);
  9684.     else if (strcmp(txt,"X-TIC2") == 0)
  9685.        feat[nf].xt2_len = (int)panel_get(ps[3],PANEL_VALUE,0);
  9686.     else if (strcmp(txt,"Y-TIC2") == 0)
  9687.        feat[nf].yt2_len = (int)panel_get(ps[3],PANEL_VALUE,0);
  9688.     else
  9689.        bad_data("This feature error message for tic length is not possible.");
  9690.     return;
  9691. }
  9692. /* EOF */
  9693. /* cat > src+obj/string_to_tag.c << "EOF" */
  9694. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9695. /* string_to_tag: create a program tag from a file char    */
  9696. /*          string                */
  9697. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  9698. /* SCCS information: %W%    %G% - NCSA */
  9699.  
  9700. /* #include "all.h" */
  9701. /* #include "newext.h" */
  9702.  
  9703. int 
  9704. string_to_tag (s, dir)
  9705.     char           *s;
  9706.     char           *dir;    /* file directory path */
  9707. {
  9708.     struct pixfont *a;
  9709.     char           *q, c, fd = '\t', td = '\n', nd = '\0';
  9710.     int             z, nxpts, nypts, w, x, y;
  9711.     register int    n;
  9712.     float           f;
  9713.     int             filetype;
  9714.     char        tmpfn[MAXNAMELEN + 1];
  9715.     char        msg1[MAXNAMELEN + 1];
  9716.  
  9717.     q = s;
  9718.     if (*s == 'p')
  9719.     {
  9720.         while (*q)
  9721.         {
  9722.             if (*q == fd)
  9723.                 *q = nd;
  9724.             q++;
  9725.         }
  9726.         s++;
  9727.         s++;
  9728.  
  9729.         strcpy (pfntmp, s);
  9730.  
  9731.         z = check_palette (pfntmp, 1);
  9732.         if (z == 1)
  9733.         {
  9734.             (void) swapdirnames (pfntmp, dir, tmpfn);
  9735.             z = check_palette (tmpfn, 1);
  9736.             if (z == 1)
  9737.             {
  9738.                 sprintf (msg1, "File = %s", s);
  9739.                 bad_data2 ("Cannot open palette file. Tried program settings directory also! Request ignored.", msg1);
  9740.                 return (FALSE);
  9741.             }
  9742.             else if (load_rgb (tmpfn, 1))
  9743.                 return (FALSE);
  9744.             else
  9745.                 strcpy (pfn, tmpfn);
  9746.         }
  9747.         else if (load_rgb (pfntmp, 1))
  9748.             return (FALSE);
  9749.         else
  9750.             strcpy (pfn, s);
  9751.         
  9752.         reset_colormap ();
  9753. /*
  9754.         pw_putcolormap (bpw, 0, 256 - 2, red, green, blue);
  9755.         pw_putcolormap (cpw, 0, 256, red, green, blue);
  9756. */
  9757.  
  9758.         while (*s)
  9759.             s++;
  9760.         s++;
  9761.         clear_color = atoi (s);
  9762.     }
  9763.     else if (*s == 't')
  9764.     {
  9765.         while (*q)
  9766.         {
  9767.             if (*q == fd)
  9768.                 *q = nd;
  9769.             q++;
  9770.         }
  9771.         s++;
  9772.         n = atoi (s);
  9773.         while (*s)
  9774.             s++;
  9775.         s++;
  9776.         strcpy (text[n].body, s);
  9777.         while (*s)
  9778.             s++;
  9779.         s++;
  9780.         strcpy (text[n].prefont, s);
  9781.         while (*s)
  9782.             s++;
  9783.         s++;
  9784.         strcpy (text[n].postfont, s);
  9785.         while (*s)
  9786.             s++;
  9787.         s++;
  9788.         text[n].sw = atoi (s);
  9789.         while (*s)
  9790.             s++;
  9791.         s++;
  9792.         text[n].color = atoi (s);
  9793.         while (*s)
  9794.             s++;
  9795.         s++;
  9796.         text[n].xpos = atoi (s);
  9797.         while (*s)
  9798.             s++;
  9799.         s++;
  9800.         text[n].ypos = atoi (s);
  9801.         strcpy (txt, text[n].prefont);
  9802.         strcat (txt, "/");
  9803.         strcat (txt, text[n].postfont);
  9804.         if (NULL == (a = pf_open (txt)))
  9805.         {
  9806.             sprintf (msg1, "Font = %s, text[%d]", txt, n);
  9807.             bad_data2 ("Text string font could not be read, request ignored.", msg1);
  9808.             pf_close (a);
  9809.             null_text (&text[n]);
  9810.             return (FALSE);
  9811.         }
  9812.         else
  9813.             *(rw_toggle + N_image + N_contour + N_vector + n) = TRUE;
  9814.     }
  9815.     else if (*s == 'i')
  9816.     {
  9817.         while (*q)
  9818.         {
  9819.             if (*q == fd)
  9820.                 *q = nd;
  9821.             q++;
  9822.         }
  9823.         s++;
  9824.         n = atoi (s);
  9825.         while (*s)
  9826.             s++;
  9827.         s++;
  9828.         strcpy (image[n].fname, s);
  9829.         while (*s)
  9830.             s++;
  9831.         s++;
  9832.         image[n].sw = atoi (s);
  9833.         while (*s)
  9834.             s++;
  9835.         s++;
  9836.         image[n].xpts = atoi (s);
  9837.         while (*s)
  9838.             s++;
  9839.         s++;
  9840.         image[n].ypts = atoi (s);
  9841.         while (*s)
  9842.             s++;
  9843.         s++;
  9844.         image[n].xpos = atoi (s);
  9845.         while (*s)
  9846.             s++;
  9847.         s++;
  9848.         image[n].ypos = atoi (s);
  9849.         z = check_image (image[n].fname, &image[n].xpts, &image[n].ypts, &nxpts, &nypts, 1, &filetype);
  9850.         if (z == 1)
  9851.         {
  9852.             (void) swapdirnames (image[n].fname, dir, tmpfn);
  9853.             z = check_image (tmpfn, &image[n].xpts, &image[n].ypts, &nxpts, &nypts, 1, &filetype);
  9854.             if (z != 1)
  9855.                 strcpy (image[n].fname, tmpfn);
  9856.         }
  9857.         if (z == 1)
  9858.         {
  9859.             sprintf (msg1, "File = %s, image[%d]", image[n].fname, n);
  9860.             bad_data2 ("Cannot open image file. Tried program settings directory also! Request ignored.", msg1);
  9861.         }
  9862.         else if (z == 2)
  9863.         {
  9864.             sprintf (msg1, "File = %s, image[%d]", image[n].fname, n);
  9865.             bad_data2 ("X-pts * Y-pts != image filesize, request ignored.", msg1);
  9866.         }
  9867.         else if (z == 3)
  9868.         {
  9869.             sprintf (msg1, "File = %s, image[%d]", image[n].fname, n);
  9870.             bad_data2 ("Not enough images in HDF file, request ignored.", msg1);
  9871.         }
  9872.         else if (z < 0)    /* HDF error */
  9873.         {
  9874.             sprintf (msg1, "HDF file error (DFerror = %d), request ignored.", z);
  9875.             sprintf (msg2, "File = %s, image[%d]", image[n].fname, n);
  9876.             bad_data2 (msg1, msg2);
  9877.         }
  9878.         else if (z == 4)/* HDF - different size */
  9879.         {
  9880.             sprintf (msg1, "File = %s, image[%d], old(x=%d,y=%d) != new(x=%d,y=%d)", image[n].fname, n, image[n].xpts, image[n].ypts, nxpts, nypts);
  9881.             bad_data2 ("Image dimensions do not agree with those in HDF file - request ignored.", msg1);
  9882.         }
  9883.         if (z != 0)
  9884.         {
  9885.             null_image (&image[n]);
  9886.             return (FALSE);
  9887.         }
  9888.         else
  9889.             *(rw_toggle + n) = TRUE;
  9890.     }
  9891.     else if (*s == 'c')
  9892.     {
  9893.         while (*q)
  9894.         {
  9895.             if (*q == fd)
  9896.                 *q = nd;
  9897.             q++;
  9898.         }
  9899.         s++;
  9900.         n = atoi (s);
  9901.         while (*s)
  9902.             s++;
  9903.         s++;
  9904.         strcpy (con[n].fname, s);
  9905.         while (*s)
  9906.             s++;
  9907.         s++;
  9908.         con[n].sw = atoi (s);
  9909.         while (*s)
  9910.             s++;
  9911.         s++;
  9912.         con[n].color = atoi (s);
  9913.         while (*s)
  9914.             s++;
  9915.         s++;
  9916.         con[n].first = atoi (s);
  9917.         while (*s)
  9918.             s++;
  9919.         s++;
  9920.         con[n].last = atoi (s);
  9921.         while (*s)
  9922.             s++;
  9923.         s++;
  9924.         con[n].interval = atoi (s);
  9925.         while (*s)
  9926.             s++;
  9927.         s++;
  9928.         con[n].dis = atoi (s);
  9929.         while (*s)
  9930.             s++;
  9931.         s++;
  9932.         con[n].xpts = atoi (s);
  9933.         while (*s)
  9934.             s++;
  9935.         s++;
  9936.         con[n].ypts = atoi (s);
  9937.         while (*s)
  9938.             s++;
  9939.         s++;
  9940.         con[n].xpos = atoi (s);
  9941.         while (*s)
  9942.             s++;
  9943.         s++;
  9944.         con[n].ypos = atoi (s);
  9945.         z = check_image (con[n].fname, &con[n].xpts, &con[n].ypts, &nxpts, &nypts, 1, &filetype);
  9946.         if (z == 1)
  9947.         {
  9948.             (void) swapdirnames (con[n].fname, dir, tmpfn);
  9949.             z = check_image (tmpfn, &con[n].xpts, &con[n].ypts, &nxpts, &nypts, 1, &filetype);
  9950.             if (z != 1)
  9951.                 strcpy (con[n].fname, tmpfn);
  9952.         }
  9953.         if (z == 1)
  9954.         {
  9955.             sprintf (msg1, "File = %s, con[%d]", con[n].fname, n);
  9956.             bad_data2 ("Cannot open contour image file. Tried program settings directory also! Request ignored.", msg1);
  9957.         }
  9958.         else if (z == 2)
  9959.         {
  9960.             sprintf (msg1, "File = %s, con[%d]", con[n].fname, n);
  9961.             bad_data2 ("X-pts * Y-pts != contour image filesize, request ignored.", msg1);
  9962.         }
  9963.         else if (z == 3)
  9964.         {
  9965.             sprintf (msg1, "File = %s, con[%d]", con[n].fname, n);
  9966.             bad_data2 ("Not enough images in HDF file, request ignored.", msg1);
  9967.         }
  9968.         else if (z < 0)    /* HDF error */
  9969.         {
  9970.             sprintf (msg1, "HDF file error (DFerror = %d), request ignored.", z);
  9971.             sprintf (msg2, "File = %s, con[%d]", con[n].fname, n);
  9972.             bad_data2 (msg1, msg2);
  9973.         }
  9974.         else if (z == 4)/* HDF - different size */
  9975.         {
  9976.             sprintf (msg1, "File = %s, con[%d], old(x=%d,y=%d) != new(x=%d,y=%d)", con[n].fname, n, con[n].xpts, con[n].ypts, nxpts, nypts);
  9977.             bad_data2 ("Contour image dimensions do not agree with those in HDF file - request ignored.", msg1);
  9978.         }
  9979.         if (z != 0)
  9980.         {
  9981.             null_contour (&con[n]);
  9982.             return (FALSE);
  9983.         }
  9984.         else
  9985.             *(rw_toggle + N_image + n) = TRUE;
  9986.     }
  9987.     else if (*s == 'v')
  9988.     {
  9989.         while (*q)
  9990.         {
  9991.             if (*q == fd)
  9992.                 *q = nd;
  9993.             q++;
  9994.         }
  9995.         s++;
  9996.         n = atoi (s);
  9997.         while (*s)
  9998.             s++;
  9999.         s++;
  10000.         strcpy (vec[n].xname, s);
  10001.         while (*s)
  10002.             s++;
  10003.         s++;
  10004.         strcpy (vec[n].yname, s);
  10005.         while (*s)
  10006.             s++;
  10007.         s++;
  10008.         vec[n].sw = atoi (s);
  10009.         while (*s)
  10010.             s++;
  10011.         s++;
  10012.         vec[n].color = atoi (s);
  10013.         while (*s)
  10014.             s++;
  10015.         s++;
  10016.         vec[n].maxlen = atoi (s);
  10017.         while (*s)
  10018.             s++;
  10019.         s++;
  10020.         vec[n].xstart = atoi (s);
  10021.         while (*s)
  10022.             s++;
  10023.         s++;
  10024.         vec[n].xend = atoi (s);
  10025.         while (*s)
  10026.             s++;
  10027.         s++;
  10028.         vec[n].xinterval = atoi (s);
  10029.         while (*s)
  10030.             s++;
  10031.         s++;
  10032.         vec[n].xdis = atoi (s);
  10033.         while (*s)
  10034.             s++;
  10035.         s++;
  10036.         vec[n].ystart = atoi (s);
  10037.         while (*s)
  10038.             s++;
  10039.         s++;
  10040.         vec[n].yend = atoi (s);
  10041.         while (*s)
  10042.             s++;
  10043.         s++;
  10044.         vec[n].yinterval = atoi (s);
  10045.         while (*s)
  10046.             s++;
  10047.         s++;
  10048.         vec[n].xzero = atoi (s);
  10049.         while (*s)
  10050.             s++;
  10051.         s++;
  10052.         vec[n].yzero = atoi (s);
  10053.         while (*s)
  10054.             s++;
  10055.         s++;
  10056.         vec[n].ydis = atoi (s);
  10057.         while (*s)
  10058.             s++;
  10059.         s++;
  10060.         vec[n].xpts = atoi (s);
  10061.         while (*s)
  10062.             s++;
  10063.         s++;
  10064.         vec[n].ypts = atoi (s);
  10065.         while (*s)
  10066.             s++;
  10067.         s++;
  10068.         vec[n].xpos = atoi (s);
  10069.         while (*s)
  10070.             s++;
  10071.         s++;
  10072.         vec[n].ypos = atoi (s);
  10073.         while (*s)
  10074.             s++;
  10075.         s++;
  10076.         sscanf (s, "%f", &f);
  10077.         vec[n].xscale = f;
  10078.         while (*s)
  10079.             s++;
  10080.         s++;
  10081.         sscanf (s, "%f", &f);
  10082.         vec[n].yscale = f;
  10083.         z = check_image (vec[n].xname, &vec[n].xpts, &vec[n].ypts, &nxpts, &nypts, 1, &filetype);
  10084.         if (z == 1)
  10085.         {
  10086.             (void) swapdirnames (vec[n].xname, dir, tmpfn);
  10087.             z = check_image (tmpfn, &vec[n].xpts, &vec[n].ypts, &nxpts, &nypts, 1, &filetype);
  10088.             if (z != 1)
  10089.                 strcpy (vec[n].xname, tmpfn);
  10090.         }
  10091.         if (z == 1)
  10092.         {
  10093.             sprintf (msg1, "File = %s, vec[%d]", vec[n].xname, n);
  10094.             bad_data2 ("Cannot open x-image file. Tried program settings directory also! Request ignored.", msg1);
  10095.         }
  10096.         else if (z == 2)
  10097.         {
  10098.             sprintf (msg1, "File = %s, vec[%d]", vec[n].xname, n);
  10099.             bad_data2 ("X-pts * Y-pts != x-image filesize, request ignored.", msg1);
  10100.         }
  10101.         else if (z == 3)
  10102.         {
  10103.             sprintf (msg1, "File = %s, vec[%d]", vec[n].xname, n);
  10104.             bad_data2 ("Not enough images in HDF file, request ignored.", msg1);
  10105.         }
  10106.         else if (z < 0)    /* HDF error */
  10107.         {
  10108.             sprintf (msg1, "HDF file error (DFerror = %d), request ignored.", z);
  10109.             sprintf (msg2, "File = %s, vec[%d]", vec[n].xname, n);
  10110.             bad_data2 (msg1, msg2);
  10111.         }
  10112.         else if (z == 4)/* HDF - different size */
  10113.         {
  10114.             sprintf (msg1, "File = %s, vec[%d], old(x=%d,y=%d) != new(x=%d,y=%d)", vec[n].xname, n, vec[n].xpts, vec[n].ypts, nxpts, nypts);
  10115.             bad_data2 ("X-image dimensions do not agree with those in HDF file - request ignored.", msg1);
  10116.         }
  10117.         if (z != 0)
  10118.         {
  10119.             null_vector (&vec[n]);
  10120.             return (FALSE);
  10121.         }
  10122.         z = check_image (vec[n].yname, &vec[n].xpts, &vec[n].ypts, &nxpts, &nypts, (!strcmp (vec[n].xname, vec[n].yname)) ? 2 : 1, &filetype);
  10123.         if (z == 1)
  10124.         {
  10125.             (void) swapdirnames (vec[n].yname, dir, tmpfn);
  10126.             z = check_image (tmpfn, &vec[n].xpts, &vec[n].ypts, &nxpts, &nypts, (!strcmp (vec[n].xname, tmpfn)) ? 2 : 1, &filetype);
  10127.             if (z != 1)
  10128.                 strcpy (vec[n].yname, tmpfn);
  10129.         }
  10130.         if (z == 1)
  10131.         {
  10132.             sprintf (msg1, "File = %s, vec[%d]", vec[n].yname, n);
  10133.             bad_data2 ("Cannot open y-image file. Tried program settings directory also! Request ignored.", msg1);
  10134.         }
  10135.         else if (z == 2)
  10136.         {
  10137.             sprintf (msg1, "File = %s, vec[%d]", vec[n].yname, n);
  10138.             bad_data2 ("X-pts * Y-pts != y-image filesize, request ignored.", msg1);
  10139.         }
  10140.         else if (z == 3)
  10141.         {
  10142.             sprintf (msg1, "File = %s, vec[%d]", vec[n].yname, n);
  10143.             bad_data2 ("Not enough images in HDF file, request ignored.");
  10144.         }
  10145.         else if (z < 0)    /* HDF error */
  10146.         {
  10147.             sprintf (msg1, "HDF file error (DFerror = %d), request ignored.", z);
  10148.             sprintf (msg2, "File = %s, vec[%d]", vec[n].yname, n);
  10149.             bad_data2 (msg1, msg2);
  10150.         }
  10151.         else if (z == 4)/* HDF - different size */
  10152.         {
  10153.             sprintf (msg1, "File = %s, vec[%d], old(x=%d,y=%d) != new(x=%d,y=%d)", vec[n].yname, n, vec[n].xpts, vec[n].ypts, nxpts, nypts);
  10154.             bad_data2 ("Y-image dimensions do not agree with those in HDF file - request ignored.", msg1);
  10155.         }
  10156.         if (z != 0)
  10157.         {
  10158.             null_vector (&vec[n]);
  10159.             return (FALSE);
  10160.         }
  10161.         else
  10162.             *(rw_toggle + N_image + N_contour + n) = TRUE;
  10163.     }
  10164.     else if (*s == 'f')
  10165.     {
  10166.         while (*q)
  10167.         {
  10168.             if (*q == fd)
  10169.                 *q = nd;
  10170.             q++;
  10171.         }
  10172.         s++;
  10173.         c = *s++;
  10174.         n = atoi (s);
  10175.         if (c == 'c')
  10176.             n = n + N_image;
  10177.         else if (c == 'v')
  10178.             n = n + N_image + N_contour;
  10179.         else;
  10180.         while (*s)
  10181.             s++;
  10182.         s++;
  10183.         feat[n].xax_sw = atoi (s);
  10184.         while (*s)
  10185.             s++;
  10186.         s++;
  10187.         feat[n].xax_thick = atoi (s);
  10188.         while (*s)
  10189.             s++;
  10190.         s++;
  10191.         feat[n].xax_color = atoi (s);
  10192.         while (*s)
  10193.             s++;
  10194.         s++;
  10195.         feat[n].xax_bot = atoi (s);
  10196.         while (*s)
  10197.             s++;
  10198.         s++;
  10199.         feat[n].xax_top = atoi (s);
  10200.         while (*s)
  10201.             s++;
  10202.         s++;
  10203.         feat[n].yax_sw = atoi (s);
  10204.         while (*s)
  10205.             s++;
  10206.         s++;
  10207.         feat[n].yax_thick = atoi (s);
  10208.         while (*s)
  10209.             s++;
  10210.         s++;
  10211.         feat[n].yax_color = atoi (s);
  10212.         while (*s)
  10213.             s++;
  10214.         s++;
  10215.         feat[n].yax_left = atoi (s);
  10216.         while (*s)
  10217.             s++;
  10218.         s++;
  10219.         feat[n].yax_right = atoi (s);
  10220.         while (*s)
  10221.             s++;
  10222.         s++;
  10223.         feat[n].xgr_sw = atoi (s);
  10224.         while (*s)
  10225.             s++;
  10226.         s++;
  10227.         feat[n].xgr_thick = atoi (s);
  10228.         while (*s)
  10229.             s++;
  10230.         s++;
  10231.         feat[n].xgr_color = atoi (s);
  10232.         while (*s)
  10233.             s++;
  10234.         s++;
  10235.         feat[n].xgr_space = atoi (s);
  10236.         while (*s)
  10237.             s++;
  10238.         s++;
  10239.         feat[n].ygr_sw = atoi (s);
  10240.         while (*s)
  10241.             s++;
  10242.         s++;
  10243.         feat[n].ygr_thick = atoi (s);
  10244.         while (*s)
  10245.             s++;
  10246.         s++;
  10247.         feat[n].ygr_color = atoi (s);
  10248.         while (*s)
  10249.             s++;
  10250.         s++;
  10251.         feat[n].ygr_space = atoi (s);
  10252.         while (*s)
  10253.             s++;
  10254.         s++;
  10255.         feat[n].xt1_sw = atoi (s);
  10256.         while (*s)
  10257.             s++;
  10258.         s++;
  10259.         feat[n].xt1_thick = atoi (s);
  10260.         while (*s)
  10261.             s++;
  10262.         s++;
  10263.         feat[n].xt1_color = atoi (s);
  10264.         while (*s)
  10265.             s++;
  10266.         s++;
  10267.         feat[n].xt1_bot = atoi (s);
  10268.         while (*s)
  10269.             s++;
  10270.         s++;
  10271.         feat[n].xt1_top = atoi (s);
  10272.         while (*s)
  10273.             s++;
  10274.         s++;
  10275.         feat[n].xt1_space = atoi (s);
  10276.         while (*s)
  10277.             s++;
  10278.         s++;
  10279.         feat[n].xt1_len = atoi (s);
  10280.         while (*s)
  10281.             s++;
  10282.         s++;
  10283.         feat[n].xt1_direc = atoi (s);
  10284.         while (*s)
  10285.             s++;
  10286.         s++;
  10287.         feat[n].yt1_sw = atoi (s);
  10288.         while (*s)
  10289.             s++;
  10290.         s++;
  10291.         feat[n].yt1_thick = atoi (s);
  10292.         while (*s)
  10293.             s++;
  10294.         s++;
  10295.         feat[n].yt1_color = atoi (s);
  10296.         while (*s)
  10297.             s++;
  10298.         s++;
  10299.         feat[n].yt1_left = atoi (s);
  10300.         while (*s)
  10301.             s++;
  10302.         s++;
  10303.         feat[n].yt1_right = atoi (s);
  10304.         while (*s)
  10305.             s++;
  10306.         s++;
  10307.         feat[n].yt1_space = atoi (s);
  10308.         while (*s)
  10309.             s++;
  10310.         s++;
  10311.         feat[n].yt1_len = atoi (s);
  10312.         while (*s)
  10313.             s++;
  10314.         s++;
  10315.         feat[n].yt1_direc = atoi (s);
  10316.         while (*s)
  10317.             s++;
  10318.         s++;
  10319.         feat[n].xt2_sw = atoi (s);
  10320.         while (*s)
  10321.             s++;
  10322.         s++;
  10323.         feat[n].xt2_thick = atoi (s);
  10324.         while (*s)
  10325.             s++;
  10326.         s++;
  10327.         feat[n].xt2_color = atoi (s);
  10328.         while (*s)
  10329.             s++;
  10330.         s++;
  10331.         feat[n].xt2_bot = atoi (s);
  10332.         while (*s)
  10333.             s++;
  10334.         s++;
  10335.         feat[n].xt2_top = atoi (s);
  10336.         while (*s)
  10337.             s++;
  10338.         s++;
  10339.         feat[n].xt2_space = atoi (s);
  10340.         while (*s)
  10341.             s++;
  10342.         s++;
  10343.         feat[n].xt2_len = atoi (s);
  10344.         while (*s)
  10345.             s++;
  10346.         s++;
  10347.         feat[n].xt2_direc = atoi (s);
  10348.         while (*s)
  10349.             s++;
  10350.         s++;
  10351.         feat[n].yt2_sw = atoi (s);
  10352.         while (*s)
  10353.             s++;
  10354.         s++;
  10355.         feat[n].yt2_thick = atoi (s);
  10356.         while (*s)
  10357.             s++;
  10358.         s++;
  10359.         feat[n].yt2_color = atoi (s);
  10360.         while (*s)
  10361.             s++;
  10362.         s++;
  10363.         feat[n].yt2_left = atoi (s);
  10364.         while (*s)
  10365.             s++;
  10366.         s++;
  10367.         feat[n].yt2_right = atoi (s);
  10368.         while (*s)
  10369.             s++;
  10370.         s++;
  10371.         feat[n].yt2_space = atoi (s);
  10372.         while (*s)
  10373.             s++;
  10374.         s++;
  10375.         feat[n].yt2_len = atoi (s);
  10376.         while (*s)
  10377.             s++;
  10378.         s++;
  10379.         feat[n].yt2_direc = atoi (s);
  10380.     }
  10381.     else if (*s == 'b')
  10382.     {
  10383.         while (*q)
  10384.         {
  10385.             if (*q == fd)
  10386.                 *q = nd;
  10387.             q++;
  10388.         }
  10389.         while (*s)
  10390.             s++;
  10391.         s++;
  10392.         cbar.sw = atoi (s);
  10393.         while (*s)
  10394.             s++;
  10395.         s++;
  10396.         cbar.xpts = atoi (s);
  10397.         while (*s)
  10398.             s++;
  10399.         s++;
  10400.         cbar.ypts = atoi (s);
  10401.         while (*s)
  10402.             s++;
  10403.         s++;
  10404.         cbar.xpos = atoi (s);
  10405.         while (*s)
  10406.             s++;
  10407.         s++;
  10408.         cbar.ypos = atoi (s);
  10409.     }
  10410.     else if (*s == 'g')
  10411.     {
  10412.         while (*q)
  10413.         {
  10414.             if (*q == fd)
  10415.                 *q = nd;
  10416.             q++;
  10417.         }
  10418.         while (*s)
  10419.             s++;
  10420.         s++;
  10421.         grid.sw = atoi (s);
  10422.         while (*s)
  10423.             s++;
  10424.         s++;
  10425.         grid.xpix = atoi (s);
  10426.         while (*s)
  10427.             s++;
  10428.         s++;
  10429.         grid.ypix = atoi (s);
  10430.         while (*s)
  10431.             s++;
  10432.         s++;
  10433.         grid.color = atoi (s);
  10434.     }
  10435.     else;
  10436.     return (TRUE);
  10437. }
  10438. /* EOF */
  10439. /* cat > src+obj/tag_to_string.c << "EOF" */
  10440. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10441. /* tag_to_string: create a char string from a program    */
  10442. /*          tag                    */
  10443. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10444. /* SCCS information: %W%    %G% - NCSA */
  10445.  
  10446. /* #include "all.h" */
  10447.  
  10448. int    tag_to_string(t,n,s) char *t,*s; int n;
  10449. {
  10450.         char            *q,
  10451.                         fd = '\t',
  10452.                         td = '\n',
  10453.                         nd = '\0',
  10454.                         t_string[16];
  10455.     register int    m;
  10456.         *s++    = *t;
  10457.     if (*t == 'f')
  10458.        {if        (n >= N_image + N_contour)
  10459.            {*s++ = 'v';
  10460.         m = n - N_image - N_contour;
  10461.         my_itoa(m,s);
  10462.         while(*s) s++;
  10463.            }
  10464.         else if    (n >= N_image)
  10465.            {*s++ = 'c';
  10466.         m = n - N_image;
  10467.         my_itoa(m,s);
  10468.         while(*s) s++;
  10469.            }
  10470.         else
  10471.            {*s++ = 'i';
  10472.         my_itoa(n,s);
  10473.         while(*s) s++;
  10474.            }
  10475.        }
  10476.     else
  10477.        {if (n > -1)
  10478.            {my_itoa(n,s); while(*s) s++;}
  10479.         else;
  10480.        }
  10481.         *s++    = fd;
  10482.         if (*t == 'p')
  10483.           {q    = pfn;                          while (*q) *s++ = *q++; *s++ = fd;
  10484.            my_itoa(clear_color,s);              while (*s) s++;         *s++ = fd;
  10485.            *s++ = td;                           *s   = nd;
  10486.           }
  10487.         else if (*t == 't')
  10488.           {q    = text[n].body;                 while (*q) *s++ = *q++; *s++ = fd;
  10489.            q    = text[n].prefont;              while (*q) *s++ = *q++; *s++ = fd;
  10490.            q    = text[n].postfont;             while (*q) *s++ = *q++; *s++ = fd;
  10491.            my_itoa(text[n].sw,s);               while (*s) s++;         *s++ = fd;
  10492.            my_itoa(text[n].color,s);            while (*s) s++;         *s++ = fd;
  10493.            my_itoa(text[n].xpos,s);             while (*s) s++;         *s++ = fd;
  10494.            my_itoa(text[n].ypos,s);             while (*s) s++;         *s++ = fd;
  10495.            *s++ = td;                           *s   = nd;
  10496.           }
  10497.         else if (*t == 'v')
  10498.           {q    = vec[n].xname;                 while (*q) *s++ = *q++; *s++ = fd;
  10499.            q    = vec[n].yname;                 while (*q) *s++ = *q++; *s++ = fd;
  10500.            my_itoa(vec[n].sw,s);                while (*s) s++;         *s++ = fd;
  10501.            my_itoa(vec[n].color,s);             while (*s) s++;         *s++ = fd;
  10502.            my_itoa(vec[n].maxlen,s);            while (*s) s++;         *s++ = fd;
  10503.            my_itoa(vec[n].xstart,s);            while (*s) s++;         *s++ = fd;
  10504.            my_itoa(vec[n].xend,s);              while (*s) s++;         *s++ = fd;
  10505.            my_itoa(vec[n].xinterval,s);         while (*s) s++;         *s++ = fd;
  10506.            my_itoa(vec[n].xdis,s);              while (*s) s++;         *s++ = fd;
  10507.            my_itoa(vec[n].ystart,s);            while (*s) s++;         *s++ = fd;
  10508.            my_itoa(vec[n].yend,s);              while (*s) s++;         *s++ = fd;
  10509.            my_itoa(vec[n].yinterval,s);         while (*s) s++;         *s++ = fd;
  10510.            my_itoa(vec[n].xzero,s);             while (*s) s++;         *s++ = fd;
  10511.            my_itoa(vec[n].yzero,s);             while (*s) s++;         *s++ = fd;
  10512.            my_itoa(vec[n].ydis,s);              while (*s) s++;         *s++ = fd;
  10513.            my_itoa(vec[n].xpts,s);              while (*s) s++;         *s++ = fd;
  10514.            my_itoa(vec[n].ypts,s);              while (*s) s++;         *s++ = fd;
  10515.            my_itoa(vec[n].xpos,s);              while (*s) s++;         *s++ = fd;
  10516.            my_itoa(vec[n].ypos,s);              while (*s) s++;         *s++ = fd;
  10517.            sprintf(t_string,"%f",vec[n].xscale);
  10518.            *s-- = nd;
  10519.            strcat(s,t_string);                  while (*s) s++;         *s++ = fd;
  10520.            sprintf(t_string,"%f",vec[n].yscale);
  10521.            *s-- = nd;
  10522.            strcat(s,t_string);                  while (*s) s++;         *s++ = fd;
  10523.            *s++ = td;                           *s   = nd;
  10524.           }
  10525.         else if (*t == 'c')
  10526.           {q    = con[n].fname;                 while (*q) *s++ = *q++; *s++ = fd;
  10527.            my_itoa(con[n].sw,s);                while (*s) s++;         *s++ = fd;
  10528.            my_itoa(con[n].color,s);             while (*s) s++;         *s++ = fd;
  10529.            my_itoa(con[n].first,s);             while (*s) s++;         *s++ = fd;
  10530.            my_itoa(con[n].last,s);              while (*s) s++;         *s++ = fd;
  10531.            my_itoa(con[n].interval,s);          while (*s) s++;         *s++ = fd;
  10532.            my_itoa(con[n].dis,s);               while (*s) s++;         *s++ = fd;
  10533.            my_itoa(con[n].xpts,s);              while (*s) s++;         *s++ = fd;
  10534.            my_itoa(con[n].ypts,s);              while (*s) s++;         *s++ = fd;
  10535.            my_itoa(con[n].xpos,s);              while (*s) s++;         *s++ = fd;
  10536.            my_itoa(con[n].ypos,s);              while (*s) s++;         *s++ = fd;
  10537.            *s++ = td;                           *s   = nd;
  10538.           }
  10539.         else if (*t == 'i')
  10540.           {q    = image[n].fname;               while (*q) *s++ = *q++; *s++ = fd;
  10541.            my_itoa(image[n].sw,s);              while (*s) s++;         *s++ = fd;
  10542.            my_itoa(image[n].xpts,s);            while (*s) s++;         *s++ = fd;
  10543.            my_itoa(image[n].ypts,s);            while (*s) s++;         *s++ = fd;
  10544.            my_itoa(image[n].xpos,s);            while (*s) s++;         *s++ = fd;
  10545.            my_itoa(image[n].ypos,s);            while (*s) s++;         *s++ = fd;
  10546.            *s++ = td;                           *s   = nd;
  10547.           }
  10548.         else if (*t == 'f')
  10549.           {my_itoa(feat[n].xax_sw,s);           while (*s) s++;         *s++ = fd;
  10550.            my_itoa(feat[n].xax_thick,s);        while (*s) s++;         *s++ = fd;
  10551.            my_itoa(feat[n].xax_color,s);        while (*s) s++;         *s++ = fd;
  10552.            my_itoa(feat[n].xax_bot,s);          while (*s) s++;         *s++ = fd;
  10553.            my_itoa(feat[n].xax_top,s);          while (*s) s++;         *s++ = fd;
  10554.            my_itoa(feat[n].yax_sw,s);           while (*s) s++;         *s++ = fd;
  10555.            my_itoa(feat[n].yax_thick,s);        while (*s) s++;         *s++ = fd;
  10556.            my_itoa(feat[n].yax_color,s);        while (*s) s++;         *s++ = fd;
  10557.            my_itoa(feat[n].yax_left,s);         while (*s) s++;         *s++ = fd;
  10558.            my_itoa(feat[n].yax_right,s);        while (*s) s++;         *s++ = fd;
  10559.            my_itoa(feat[n].xgr_sw,s);           while (*s) s++;         *s++ = fd;
  10560.            my_itoa(feat[n].xgr_thick,s);        while (*s) s++;         *s++ = fd;
  10561.            my_itoa(feat[n].xgr_color,s);        while (*s) s++;         *s++ = fd;
  10562.            my_itoa(feat[n].xgr_space,s);        while (*s) s++;         *s++ = fd;
  10563.            my_itoa(feat[n].ygr_sw,s);           while (*s) s++;         *s++ = fd;
  10564.            my_itoa(feat[n].ygr_thick,s);        while (*s) s++;         *s++ = fd;
  10565.            my_itoa(feat[n].ygr_color,s);        while (*s) s++;         *s++ = fd;
  10566.            my_itoa(feat[n].ygr_space,s);        while (*s) s++;         *s++ = fd;
  10567.            my_itoa(feat[n].xt1_sw,s);           while (*s) s++;         *s++ = fd;
  10568.            my_itoa(feat[n].xt1_thick,s);        while (*s) s++;         *s++ = fd;
  10569.            my_itoa(feat[n].xt1_color,s);        while (*s) s++;         *s++ = fd;
  10570.            my_itoa(feat[n].xt1_bot,s);          while (*s) s++;         *s++ = fd;
  10571.            my_itoa(feat[n].xt1_top,s);          while (*s) s++;         *s++ = fd;
  10572.            my_itoa(feat[n].xt1_space,s);        while (*s) s++;         *s++ = fd;
  10573.            my_itoa(feat[n].xt1_len,s);          while (*s) s++;         *s++ = fd;
  10574.            my_itoa(feat[n].xt1_direc,s);        while (*s) s++;         *s++ = fd;
  10575.            my_itoa(feat[n].yt1_sw,s);           while (*s) s++;         *s++ = fd;
  10576.            my_itoa(feat[n].yt1_thick,s);        while (*s) s++;         *s++ = fd;
  10577.            my_itoa(feat[n].yt1_color,s);        while (*s) s++;         *s++ = fd;
  10578.            my_itoa(feat[n].yt1_left,s);         while (*s) s++;         *s++ = fd;
  10579.            my_itoa(feat[n].yt1_right,s);        while (*s) s++;         *s++ = fd;
  10580.            my_itoa(feat[n].yt1_space,s);        while (*s) s++;         *s++ = fd;
  10581.            my_itoa(feat[n].yt1_len,s);          while (*s) s++;         *s++ = fd;
  10582.            my_itoa(feat[n].yt1_direc,s);        while (*s) s++;         *s++ = fd;
  10583.            my_itoa(feat[n].xt2_sw,s);           while (*s) s++;         *s++ = fd;
  10584.            my_itoa(feat[n].xt2_thick,s);        while (*s) s++;         *s++ = fd;
  10585.            my_itoa(feat[n].xt2_color,s);        while (*s) s++;         *s++ = fd;
  10586.            my_itoa(feat[n].xt2_bot,s);          while (*s) s++;         *s++ = fd;
  10587.            my_itoa(feat[n].xt2_top,s);          while (*s) s++;         *s++ = fd;
  10588.            my_itoa(feat[n].xt2_space,s);        while (*s) s++;         *s++ = fd;
  10589.            my_itoa(feat[n].xt2_len,s);          while (*s) s++;         *s++ = fd;
  10590.            my_itoa(feat[n].xt2_direc,s);        while (*s) s++;         *s++ = fd;
  10591.            my_itoa(feat[n].yt2_sw,s);           while (*s) s++;         *s++ = fd;
  10592.            my_itoa(feat[n].yt2_thick,s);        while (*s) s++;         *s++ = fd;
  10593.            my_itoa(feat[n].yt2_color,s);        while (*s) s++;         *s++ = fd;
  10594.            my_itoa(feat[n].yt2_left,s);         while (*s) s++;         *s++ = fd;
  10595.            my_itoa(feat[n].yt2_right,s);        while (*s) s++;         *s++ = fd;
  10596.            my_itoa(feat[n].yt2_space,s);        while (*s) s++;         *s++ = fd;
  10597.            my_itoa(feat[n].yt2_len,s);          while (*s) s++;         *s++ = fd;
  10598.            my_itoa(feat[n].yt2_direc,s);        while (*s) s++;         *s++ = fd;
  10599.            *s++ = td;                           *s   = nd;
  10600.           }
  10601.         else if (*t == 'b')
  10602.           {my_itoa(cbar.sw,s);                  while (*s) s++;         *s++ = fd;
  10603.            my_itoa(cbar.xpts,s);                while (*s) s++;         *s++ = fd;
  10604.            my_itoa(cbar.ypts,s);                while (*s) s++;         *s++ = fd;
  10605.            my_itoa(cbar.xpos,s);                while (*s) s++;         *s++ = fd;
  10606.            my_itoa(cbar.ypos,s);                while (*s) s++;         *s++ = fd;
  10607.            *s++ = td;                           *s   = nd;
  10608.           }
  10609.         else if (*t == 'g')
  10610.           {my_itoa(grid.sw,s);                  while (*s) s++;         *s++ = fd;
  10611.            my_itoa(grid.xpix,s);                while (*s) s++;         *s++ = fd;
  10612.            my_itoa(grid.ypix,s);                while (*s) s++;         *s++ = fd;
  10613.            my_itoa(grid.color,s);               while (*s) s++;         *s++ = fd;
  10614.            *s++ = td;                           *s   = nd;
  10615.           }
  10616.     else;
  10617.         return;
  10618. }
  10619. /* EOF */
  10620. /* cat > src+obj/warn_msg.c << "EOF" */
  10621. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10622. /* warn_msg: warn user that displayed data will be    */
  10623. /*         lost on "Done"                */
  10624. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10625. /* SCCS information: %W%    %G% - NCSA */
  10626.  
  10627. /* #include "all.h" */
  10628.  
  10629. int    warn_msg()
  10630. {
  10631.     info_msg("          ** WARNING ** The data displayed has not been stored",
  10632.          "and will be lost if you put away this frame.  Press CONFIRM to",
  10633.          "put away the frame anyway.");
  10634.     return;
  10635. }
  10636. /* EOF */
  10637. /* cat > src+obj/warn_msgt.c << "EOF" */
  10638. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10639. /* warn_msgt: tag chg - warn user that displayed data    */
  10640. /*          will be lost                */
  10641. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10642. /* SCCS information: %W%    %G% - NCSA */
  10643.  
  10644. /* #include "all.h" */
  10645.  
  10646. int    warn_msgt()
  10647. {
  10648.     info_msg("          ** WARNING ** The data displayed has not been stored",
  10649.          "and will be lost if you change tags now.  Press the same button",
  10650.          "again to change tags anyway.");
  10651.     return;
  10652. }
  10653. /* EOF */
  10654. /* cat > src+obj/bad_data2.c << "EOF" */
  10655. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10656. /* bad_data2: two-line error message on stderr before    */
  10657. /*          the base frame comes up or on the base    */
  10658. /*          frame after it comes up.            */
  10659. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10660. /* SCCS information: %W%    %G% - NCSA */
  10661.  
  10662. /* #include "all.h" */
  10663. /* #include "newext.h" */
  10664.  
  10665. void bad_data2 (s1, s2) char *s1, *s2;
  10666. {
  10667.  
  10668.     if (base_frame_up)
  10669.         info_msg2 ("           ----- ERROR MESSAGE -----",
  10670.                s1, s2,
  10671.                "           ----- ERROR MESSAGE -----");
  10672.     else
  10673.         fprintf (stderr, "%s\n%s\n%s\n%s\n",
  10674.              "           ----- ERROR MESSAGE -----",
  10675.              s1, s2,
  10676.              "           ----- ERROR MESSAGE -----");
  10677.     return;
  10678. }
  10679. /* EOF */
  10680. /* cat > src+obj/check_image.c << "EOF" */
  10681. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10682. /* check_image: return 0 if ok, 1 if file not openable,    */
  10683. /*            2 if badpts for non-HDF files, 3 if not */
  10684. /*        enough images in a HDF file, 4 if HDF    */
  10685. /*        file with new values, DFerror if HDF    */
  10686. /*        error. Returns the filetype.        */
  10687. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10688. /* SCCS information: %W%    %G% - NCSA */
  10689.  
  10690. /* #include "all.h" */
  10691. /* #include "newext.h" */
  10692.  
  10693. int    check_image (s, w1, h1, w2, h2, n, filetype)
  10694.  
  10695.            char    *s;
  10696.            int    *w1, *h1, *w2, *h2;
  10697.            int    n;     /* sequence number of image in HDF file */
  10698.            int *filetype;    /* VALUE RETURNED -
  10699.                         0 - regular file
  10700.                         1 - HDF file
  10701.                        -1 - undefined */
  10702. {
  10703.     int        f, size, i, dummy;
  10704.     DF        *file;
  10705.  
  10706.     *filetype = -1;
  10707.     if (DFR8getdims (s, w2, h2, &dummy))
  10708.     {
  10709.         DFR8restart ();
  10710.         if (DFerror == DFE_FNF)        /* file not found error */
  10711.             return (1);
  10712.         else if (DFerror == DFE_NOTDFFILE)    /* regular file */
  10713.         {
  10714.             stat(s,&my_stat);
  10715.             if (w1 == NULL || h1 == NULL)    /* should have values */
  10716.                 return (2);
  10717.             size = (*w1) * (*h1);
  10718.             *filetype = 0;
  10719.             if (my_stat.st_size != size) return(2);
  10720.             return (0);
  10721.         }
  10722.         else if (DFerror == DFE_NOMATCH)    /* no image */
  10723.             return (3);
  10724.         else
  10725.             return (DFerror);    /* other HDF error */
  10726.     }
  10727.     for (i = 1; i < n; i++)
  10728.         if (DFR8getdims (s, w2, h2, &dummy)) 
  10729.         {
  10730.             DFR8restart ();
  10731.             if (DFerror == DFE_NOMATCH)
  10732.                 return (3);
  10733.             else
  10734.                 return (DFerror);    /* other HDF error */
  10735.         }
  10736.     DFR8restart();
  10737.     *filetype = 1;
  10738.     if (w1 == NULL || h1 == NULL)    /* at least one has no value yet */
  10739.         return (4);
  10740.     if ((*w1) != (*w2) || (*h1) != (*h2))
  10741.         return (4);            /* new size */
  10742.     else
  10743.         return (0);
  10744. }
  10745. /* EOF */
  10746. /* cat > src+obj/check_palette.c << "EOF" */
  10747. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10748. /* check_file: return 0 if ok, 1 if file not openable,    */
  10749. /*           2 if badpts for non-HDF files, 3 if not    */
  10750. /*           enough palettes in HDF file, DFerror if  */
  10751. /*           HDF error.                */
  10752. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10753. /* SCCS information: %W%    %G% - NCSA */
  10754.  
  10755. /* #include "all.h" */
  10756. /* #include "newext.h" */
  10757.  
  10758. #define    PALLETE_SIZE    768
  10759.  
  10760. int    check_palette (s, n)
  10761.  
  10762.            char    *s;
  10763.            int    n;     /* sequence number of palette in HDF file */
  10764. {
  10765.     int        npals, size; 
  10766.  
  10767.     if ((npals = DFPnpals (s)) == -1)
  10768.     {
  10769.         DFPrestart ();
  10770.         if (DFerror == DFE_FNF)        /* file not found error */
  10771.             return (1);
  10772.         else if (DFerror == DFE_NOTDFFILE)    /* regular file */
  10773.         {
  10774.             stat(s,&my_stat);
  10775.             size = PALLETE_SIZE;
  10776.             if (my_stat.st_size != size) return(2);
  10777.             return (0);
  10778.         }
  10779.         else
  10780.             return (DFerror);    /* other HDF error */
  10781.     }
  10782.     else if (npals < n)
  10783.     {
  10784.         DFPrestart();
  10785.         return (3);
  10786.     }
  10787.     else
  10788.     {
  10789.         DFPrestart();
  10790.         return (0);
  10791.     }
  10792. }
  10793. /* EOF */
  10794. /* cat > src+obj/get_defaults.c << "EOF" */
  10795. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10796. /* get_defaults: get value of entry in defaults        */
  10797. /*          database                */
  10798. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10799. /* SCCS information: %W%    %G% - NCSA */
  10800.  
  10801. /* implementation note(s):
  10802.     1. The default value will be "".
  10803.     2. IMPORTANT NOTE: The Sun Defaults software seems to read
  10804.        the value of DEFAULTS_FILE only ONCE on the first call
  10805.        to one of their interface routines.
  10806.     3. In order to get around the problem of having user defaults
  10807.        files with
  10808.         /Defaults/Read_Defaults_DataBase
  10809.        being "False" the following must be done. On the first call
  10810.        a copy of the user's $HOME/.defaults file (if there is one)
  10811.        is copied to a temporary file. If there isn't one a two
  10812.        line file is created.  This temporary file becomes
  10813.        the value of DEFAULTS_FILE in the environment. If a "False"
  10814.        value is detected in the file then another version is created
  10815.        with the value being "True" and then "moved" to the original
  10816.        version.
  10817.     4. IMPORTANT NOTE: The Sun Defaults Software must read the "True"
  10818.        value above from the user's default file. Now the Sun Defaults
  10819.        Software was used to create the scratch version before copying
  10820.        to the original version. The original version may have had
  10821.        a "False" value for the attribute above. After the scratch
  10822.        version is "moved" to the original version the attribute above
  10823.        MUST BE REREAD! Then everything is good!
  10824. */
  10825.  
  10826. /* #include "all.h" */
  10827. /* #include "newext.h" */
  10828.  
  10829. char           *
  10830. get_defaults (s)
  10831.     char           *s;
  10832. {
  10833.     static int      startup = 1;
  10834.     static Bool     value_false = 0;
  10835.     static char     fn_tmp_defaults[36];
  10836.     static char     env_fn_new_defaults[64];
  10837.     static char    *header_line = "SunDefaults_Version 2\n";
  10838.     static char    *read_line = "/Defaults/Read_Defaults_Database    \"True\"\n";
  10839.     static char    *read_attribute = "/Defaults/Read_Defaults_Database";
  10840.     FILE           *fd_new_defaults, *fd_old_defaults, *fd_tmp_defaults;
  10841.     Bool            value_r;
  10842.     char           *home, *fn_old_defaults;
  10843.     char           *value_s;
  10844.     int             status;
  10845.  
  10846.     char           *getenv ();
  10847.  
  10848.     int             i, c;
  10849.  
  10850.     if (startup)
  10851.     {
  10852.         startup = 0;
  10853.         sprintf (fn_new_defaults, "/tmp/.defaults.%d", getpid ());
  10854.         if ((fd_new_defaults = fopen (fn_new_defaults, "w")) == NULL)
  10855.         {
  10856.             sprintf (msg, "File = %s", fn_new_defaults);
  10857.             bad_data2 ("Internal Error: Could not create temporary private database, CompositeTool terminated.", msg);
  10858.             exit (-1);
  10859.         }
  10860.         sprintf (env_fn_new_defaults, "DEFAULTS_FILE=%s", fn_new_defaults);
  10861.         if ((status = putenv (env_fn_new_defaults)) != 0)
  10862.         {
  10863.             bad_data2 ("Internal Error: Could not save DEFAULTS_FILE environment variable, CompositeTool terminated.", "");
  10864.             exit (-1);
  10865.         }
  10866.         if ((home = getenv ("HOME")) == NULL)
  10867.         {
  10868.             bad_data2 ("Internal Error: Could not get the value of $HOME from the environment, CompositeTool terminated.", "");
  10869.             exit (-1);
  10870.         }
  10871.         if ((fn_old_defaults = (char *) malloc (strlen (home) + 11)) == NULL)
  10872.         {
  10873.             bad_data2 ("Internal Error: Could not create storage for $HOME/.defaults string, CompositeTool terminated.", "");
  10874.             exit (-1);
  10875.         }
  10876.         sprintf (fn_old_defaults, "%s/.defaults", home);
  10877.         if ((fd_old_defaults = fopen (fn_old_defaults, "r")) == NULL)
  10878.         {
  10879.             (void) fputs (header_line, fd_new_defaults);
  10880.             (void) fputs (read_line, fd_new_defaults);
  10881.             (void) fclose (fd_new_defaults);
  10882.         }
  10883.         else
  10884.         {        /* copy users private default to temporary
  10885.                    private defaults */
  10886.             while ((c = getc (fd_old_defaults)) != EOF)
  10887.                 (void) putc (c, fd_new_defaults);
  10888.             (void) fflush (fd_new_defaults);
  10889.             (void) fclose (fd_old_defaults);
  10890.             (void) fclose (fd_new_defaults);
  10891.         }
  10892.         free (fn_old_defaults);
  10893.         value_r = defaults_get_boolean ("/Defaults/Read_Defaults_Database", value_false, 0);
  10894.         if (!value_r)
  10895.         {
  10896.             sprintf (fn_tmp_defaults, "/tmp/.defaults.tmp.%d", getpid ());
  10897.             if ((fd_tmp_defaults = fopen (fn_tmp_defaults, "w+")) == NULL)
  10898.             {
  10899.                 sprintf (msg, "File = %s", fn_tmp_defaults);
  10900.                 bad_data2 ("Internal Error: Could not create scratch private database, CompositeTool terminated.", msg);
  10901.                 exit (-1);
  10902.             }
  10903.             (void) fputs (header_line, fd_tmp_defaults);
  10904.             (void) fputs (read_line, fd_tmp_defaults);
  10905.             move_defaults ("/", fd_tmp_defaults);
  10906.             (void) fflush (fd_tmp_defaults);
  10907.             rewind (fd_tmp_defaults);
  10908.             if ((fd_new_defaults = fopen (fn_new_defaults, "w")) == NULL)
  10909.             {
  10910.                 sprintf (msg, "File = %s", fn_tmp_defaults);
  10911.                 bad_data2 ("Internal Error: Could not open temporary private database, CompositeTool terminated.", msg);
  10912.                 exit (-1);
  10913.             }
  10914.             while ((c = getc (fd_tmp_defaults)) != EOF)
  10915.                 putc (c, fd_new_defaults);
  10916.             (void) fflush (fd_new_defaults);
  10917.             (void) fclose (fd_new_defaults);
  10918.             (void) fclose (fd_tmp_defaults);
  10919.             (void) unlink (fn_tmp_defaults);
  10920.                 /* the most important line in the
  10921.                    whole module */
  10922.             defaults_reread (read_attribute, NULL);
  10923.         }
  10924.     }
  10925.  
  10926.     value_s = defaults_get_string (s, "", 0);
  10927.     return ((*value_s == NULL) ? NULL : value_s);
  10928. }
  10929. /* EOF */
  10930. /* cat > src+obj/info_msg2.c << "EOF" */
  10931. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10932. /* info_msg2: put four messages on the main panel    */
  10933. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10934. /* SCCS information: %W%    %G% - NCSA */
  10935.  
  10936. /* #include "all.h" */
  10937.  
  10938. int    info_msg2 (p,q,r,u) char *p,*q,*r,*u;
  10939. {
  10940.     char    m[10],*s,*t;
  10941.     msg_no++;
  10942.     my_itoa(msg_no,m);
  10943.     if (strlen(p) <= strlen(m))
  10944.        panel_set(pm[0],PANEL_LABEL_STRING,m,0);
  10945.     else
  10946.        {s = m;
  10947.         t = p;
  10948.         while (*s) *t++ = *s++;
  10949.         panel_set(pm[0],PANEL_LABEL_STRING,p,0);
  10950.        }
  10951.     panel_set(pm[1],PANEL_LABEL_STRING,q,0);
  10952.     panel_set(pm[2],PANEL_LABEL_STRING,r,0);
  10953.     panel_set(pm[3],PANEL_LABEL_STRING,u,0);
  10954.     return;
  10955. }
  10956. /* EOF */
  10957. /* cat > src+obj/itoa.c << "EOF" */
  10958. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10959. /* itoa: Convert n to characters in s.            */
  10960. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10961. /* SCCS information: %W%    %G% - NCSA */
  10962.  
  10963. /* #include "all.h" */
  10964. /* #include "newext.h" */
  10965.  
  10966. char *itoa (n, s)
  10967.     int n;
  10968.     char s[];
  10969. {
  10970.     int i, sign;
  10971.  
  10972.     if ((sign = n) < 0)    /* record sign */
  10973.         n = -n;        /* make n positive */
  10974.     i = 0;
  10975.     do            /* generate digits in reverse order */
  10976.     {
  10977.         s[i++] = n % 10 + '0';        /* get next digit */
  10978.     }
  10979.     while ((n /= 10) > 0);    /* delete it */
  10980.     if (sign < 0)
  10981.         s[i++] = '-';
  10982.     s[i] = '\0';
  10983.     reverse (s);
  10984.     return (s);
  10985. }
  10986. /* EOF */
  10987. /* cat > src+obj/load_contour_image.c << "EOF" */
  10988. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10989. /* load_contour_image: loads an image from a file -     */
  10990. /*               used by draw_contour.        */
  10991. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  10992. /* SCCS information: %W%    %G% - NCSA */
  10993.  
  10994. /* #include "all.h" */
  10995. /* #include "newext.h" */
  10996.  
  10997. int    load_contour_image (s, xpts, ypts, image, n)
  10998.            char *s; int xpts, ypts;
  10999.            unsigned char *image;
  11000.            int n;    /* sequence number of image in HDF file */
  11001. {
  11002.     int xdim, ydim, ispalette;
  11003.     int f;
  11004.     register int i, j;
  11005.     register unsigned char *p0, *p1;
  11006.  
  11007.     if (DFR8getdims (s, &xdim, &ydim, &ispalette))
  11008.     {
  11009.         DFR8restart ();
  11010.         if (DFerror == DFE_NOTDFFILE)    /* regular file */
  11011.         {
  11012.             f = open (s, O_RDONLY);
  11013.             read (f, image, xpts * ypts); 
  11014.             close (f);
  11015.             return (0);
  11016.         }
  11017.         else
  11018.         {    
  11019.             sprintf (msg, "HDF error while getting dimensions (DFerror = %d) for contour image.", DFerror);
  11020.             sprintf (msg2, "File = %s, INTERNAL ERROR!", s);
  11021.             bad_data2 (msg, msg2);
  11022.             return (-1);
  11023.         }
  11024.     }
  11025.     for (i = 1; i < n; i++)    /* skip over the rest of the images */
  11026.         if (DFR8getdims (s, &xdim, &ydim, &ispalette))
  11027.         {
  11028.             DFR8restart ();
  11029.             sprintf (msg, "HDF error while getting dimensions (DFerror = %d) for contour image.", DFerror);
  11030.             sprintf (msg2, "File = %s, INTERNAL ERROR!", s);
  11031.             bad_data2 (msg, msg2);
  11032.             return (-1);
  11033.         }
  11034.     if (xpts != xdim || ypts != ydim)
  11035.     {
  11036.         DFR8restart ();
  11037.         sprintf (msg, "Unexpected dimensions from HDF file while loading contour image.");
  11038.         sprintf (msg2, "File = %s, old(x=%d,y=%d), new(x=%d,y=%d) - INTERNAL ERROR!", s, xpts, ypts, xdim, ydim);
  11039.         bad_data2 (msg, msg2);
  11040.         return (-1);
  11041.     }
  11042.     if (DFR8getimage (s, image, xdim, ydim, NULL))
  11043.     {
  11044.         DFR8restart ();
  11045.         sprintf (msg, "Did not load contour image from HDF file (DFerror = %d), request halted", DFerror);
  11046.         sprintf (msg2, "File = %s", s);
  11047.         bad_data2 (msg, msg2);
  11048.         return (-1);
  11049.     }
  11050.     DFR8restart ();
  11051.     return (0);
  11052. }
  11053. /* EOF */
  11054. /* cat > src+obj/load_image.c << "EOF" */
  11055. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11056. /* load_image: loads an image from a file - used by    */
  11057. /*           draw_image. Padding is done by         */
  11058. /*           pad_image.                */
  11059. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11060. /* SCCS information: %W%    %G% - NCSA */
  11061.  
  11062. /* #include "all.h" */
  11063. /* #include "newext.h" */
  11064.  
  11065. int 
  11066. load_image (s, xpts, ypts, xpos, ypos, mpr, n)
  11067.     char           *s;
  11068.     int             xpts, ypts, xpos, ypos;
  11069.     struct pixrect *mpr;
  11070.     int             n;    /* sequence number of image in HDF file */
  11071. {
  11072.     int             xdim, ydim, ispalette;
  11073.     int             f;
  11074.     register int    i, j;
  11075.     register unsigned char *p0, *p1;
  11076.     struct mpr_data *d;
  11077.  
  11078.     d = mpr_d (mpr);
  11079.     if (DFR8getdims (s, &xdim, &ydim, &ispalette))
  11080.     {
  11081.         DFR8restart ();
  11082.         if (DFerror == DFE_NOTDFFILE)    /* regular file */
  11083.         {
  11084.             f = open (s, O_RDONLY);
  11085.             read (f, (char *) d->md_image, xpts * ypts);
  11086.             pad_image (xpts, ypts, xpos, ypos, mpr);
  11087.             close (f);
  11088.             return (0);
  11089.         }
  11090.         else
  11091.         {
  11092.             if (base_frame_up)
  11093.             {
  11094.                 sprintf (msg, "HDF error while getting dimensions (DFerror = %d) - INTERNAL ERROR!", DFerror);
  11095.                 sprintf (msg2, "File = %s", s);
  11096.                 bad_data2 (msg, msg2);
  11097.                 return (-1);
  11098.             }
  11099.             else
  11100.             {
  11101.                 sprintf (msg, "HDF error while getting dimensions (DFerror = %d), CompositeTool Terminated", DFerror);
  11102.                 sprintf (msg2, "File = %s - INTERNAL ERROR! ", s);
  11103.                 bad_data2 (msg, msg2);
  11104.                 return (-1);
  11105.             }
  11106.         }
  11107.     }
  11108.     for (i = 1; i < n; i++)    /* skip over the rest of the images */
  11109.         if (DFR8getdims (s, &xdim, &ydim, &ispalette))
  11110.         {
  11111.             DFR8restart ();
  11112.             if (base_frame_up)
  11113.             {
  11114.                 sprintf (msg, "HDF error while getting dimensions (DFerror = %d) - INTERNAL ERROR!", DFerror);
  11115.                 sprintf (msg2, "File = %s", s);
  11116.                 bad_data2 (msg, msg2);
  11117.                 return (-1);
  11118.             }
  11119.             else
  11120.             {
  11121.                 sprintf (msg, "HDF error while getting dimensions (DFerror = %d), CompositeTool Terminated", DFerror);
  11122.                 sprintf (msg2, "File = %s - INTERNAL ERROR! ", s);
  11123.                 bad_data2 (msg, msg2);
  11124.                 return (-1);
  11125.             }
  11126.         }
  11127.     if (xpts != xdim || ypts != ydim)
  11128.     {
  11129.         DFR8restart ();
  11130.         if (base_frame_up)
  11131.         {
  11132.             sprintf (msg, "Unexpected dimensions from HDF file while loading - INTERNAL ERROR!", s);
  11133.             sprintf (msg2, "File = %s, old(x=%d,y=%d), new(x=%d,y=%d)", s, xpts, ypts, xdim, ydim);
  11134.             bad_data2 (msg, msg2);
  11135.             return (-1);
  11136.         }
  11137.         else
  11138.         {
  11139.             sprintf (msg, "Unexpected dimensions from HDF file while loading, CompositeTool Terminated");
  11140.             sprintf (msg2, "File = %s - INTERNAL ERROR!", s);
  11141.             bad_data2 (msg, msg2);
  11142.             return (-1);
  11143.         }
  11144.     }
  11145.     if (DFR8getimage (s, (char *) d->md_image, xdim, ydim, NULL))
  11146.     {
  11147.         DFR8restart ();
  11148.         if (base_frame_up)
  11149.         {
  11150.             sprintf (msg, "Did not load image from HDF file (DFerror = %d), request halted", DFerror);
  11151.             sprintf (msg2, "File = %s", s);
  11152.             bad_data2 (msg, msg2);
  11153.             return (-1);
  11154.         }
  11155.         else
  11156.         {
  11157.             sprintf (msg, "Did not load image from HDF file (DFerror = %d), CompositeTool Terminated", DFerror);
  11158.             sprintf (msg2, "File = %s, check defaults database with defaultsedit.", s);
  11159.             bad_data2 (msg, msg2);
  11160.             return (-1);
  11161.         }
  11162.     }
  11163.     DFR8restart ();
  11164.     pad_image (xpts, ypts, xpos, ypos, mpr);
  11165.     return (0);
  11166. }
  11167. /* EOF */
  11168. /* cat > src+obj/load_vector_image.c << "EOF" */
  11169. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11170. /* load_vector_image: loads either x-image or y-image    */
  11171. /*              from a file - used by draw_vector    */
  11172. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11173. /* SCCS information: %W%    %G% - NCSA */
  11174.  
  11175. /* #include "all.h" */
  11176. /* #include "newext.h" */
  11177.  
  11178. int    load_vector_image (s, xpts, ypts, image, n, type)
  11179.            char *s; int xpts, ypts;
  11180.            unsigned char *image;
  11181.            int n;    /* sequence number of image in HDF file */
  11182.            int type;    /* 0 = x-image, 1 = y-image */
  11183. {
  11184.     int xdim, ydim, ispalette;
  11185.     int f;
  11186.     register int i, j;
  11187.     register unsigned char *p0, *p1;
  11188.  
  11189.     if (DFR8getdims (s, &xdim, &ydim, &ispalette))
  11190.     {
  11191.         DFR8restart ();
  11192.         if (DFerror == DFE_NOTDFFILE)    /* regular file */
  11193.         {
  11194.             f = open (s, O_RDONLY);
  11195.             read (f, image, xpts * ypts); 
  11196.             close (f);
  11197.             return (0);
  11198.         }
  11199.         else
  11200.         {    
  11201.             if (! type)
  11202.             {
  11203.                 sprintf (msg, "HDF error while getting dimensions (DFerror = %d) for vector x-image", DFerror);
  11204.                 sprintf (msg2, "file = %s - INTERNAL ERROR!", s);
  11205.             }
  11206.             else
  11207.             {
  11208.                 sprintf (msg, "HDF error while getting dimensions (DFerror = %d) for vector y-image", DFerror);
  11209.                 sprintf (msg2, "file = %s - INTERNAL ERROR!", s);
  11210.             }
  11211.             bad_data2 (msg, msg2);
  11212.             return (-1);
  11213.         }
  11214.     }
  11215.     for (i = 1; i < n; i++)    /* skip over the rest of the images */
  11216.         if (DFR8getdims (s, &xdim, &ydim, &ispalette))
  11217.         {
  11218.             DFR8restart ();
  11219.             if (! type)
  11220.             {
  11221.                 sprintf (msg, "HDF error while getting dimensions (DFerror = %d) for vector x-image", DFerror);
  11222.                 sprintf (msg2, "file = %s - INTERNAL ERROR!", s);
  11223.             }
  11224.             else
  11225.             {
  11226.                 sprintf (msg, "HDF error while getting dimensions (DFerror = %d) for vector y-image", DFerror);
  11227.                 sprintf (msg2, "file = %s - INTERNAL ERROR!", s);
  11228.             }
  11229.             bad_data2 (msg, msg2);
  11230.             return (-1);
  11231.         }
  11232.     if (xpts != xdim || ypts != ydim)
  11233.     {
  11234.         DFR8restart ();
  11235.         if (! type)
  11236.         {
  11237.             sprintf (msg, "Unexpected dimensions from HDF file while loading vector x-image.");
  11238.             sprintf (msg2, "File = %s, old(x=%d,y=%d), new(x=%d,y=%d) - INTERNAL ERROR!", s, xpts, ypts, xdim, ydim);
  11239.         }
  11240.         else
  11241.         {
  11242.             sprintf (msg, "Unexpected dimensions from HDF file while loading vector y-image.");
  11243.             sprintf (msg2, "File = %s, old(x=%d,y=%d), new(x=%d,y=%d) - INTERNAL ERROR!", s, xpts, ypts, xdim, ydim);
  11244.         }
  11245.         bad_data2 (msg, msg2);
  11246.         return (-1);
  11247.     }
  11248.     if (DFR8getimage (s, image, xdim, ydim, NULL))
  11249.     {
  11250.         DFR8restart ();
  11251.         if (! type)
  11252.         {
  11253.             sprintf (msg, "Did not load vector x-image from HDF file (DFerror = %d), request halted", DFerror);
  11254.             sprintf (msg2, "File = %s", s);
  11255.         }
  11256.         else
  11257.         {
  11258.             sprintf (msg, "Did not load vector y-image from HDF file (DFerror = %d), request halted", DFerror);
  11259.             sprintf (msg2, "File = %s", s);
  11260.         }
  11261.         bad_data2 (msg, msg2);
  11262.         return (-1);
  11263.     }
  11264.     DFR8restart ();
  11265.     return (0);
  11266. }
  11267. /* EOF */
  11268. /* cat > src+obj/main_destroy_interposer.c << "EOF" */
  11269. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11270. /* main_destroy_interposer: destroy the base frame    */
  11271. /*                frame            */
  11272. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11273. /* SCCS information: %W%    %G% - NCSA */
  11274.  
  11275. /* #include "all.h" */
  11276. /* #include "newext.h" */
  11277.  
  11278. Notify_value 
  11279. main_destroy_interposer (frame, status)
  11280.     Frame frame;
  11281.     Destroy_status status;
  11282. {
  11283.     if (status != DESTROY_CHECKING)
  11284.     {
  11285.         (void) unlink (fn_new_defaults);
  11286.     }
  11287.     return (notify_next_destroy_func (frame, status));
  11288. }
  11289. /* EOF */
  11290. /* cat > src+obj/make_p.c << "EOF" */
  11291. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11292. /* make_p: makes a panel                */
  11293. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11294. /* SCCS information: %W%    %G% - NCSA */
  11295.  
  11296. /* #include "all.h" */
  11297. /* #include "newext.h" */
  11298.  
  11299. Panel make_p (f) Frame f;
  11300. {
  11301.     Panel panel;
  11302.         panel = window_create ( f, PANEL,
  11303.                 WIN_FONT, font_panel,
  11304.                 0);
  11305.     set_panel_colormap (panel, b_cmsn);
  11306.     return (panel);
  11307. }
  11308. /* EOF */
  11309. /* cat > src+obj/move_defaults.c << "EOF" */
  11310. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11311. /* move_defaults: move defaults from users .defaults    */
  11312. /*          file to temporary .defaults file    */
  11313. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11314. /* SCCS information: %W%    %G% - NCSA */
  11315.  
  11316. /* #include "all.h" */
  11317. /* #include "newext.h" */
  11318.  
  11319. void
  11320. move_defaults (path_name, fd)
  11321.     char           *path_name;
  11322.     FILE           *fd;
  11323. {
  11324.     static char    *read_attribute = "/Defaults/Read_Defaults_Database";
  11325.     char           *child, *sibling, *value;
  11326.     char            tmp[1024];
  11327.     int        i, c, len;
  11328.  
  11329.     if ((child = defaults_get_child (path_name, NULL)) == NULL)
  11330.     {
  11331.         if (strcmp (path_name, read_attribute))
  11332.         {
  11333.             (void) fputs (path_name, fd);
  11334.             (void) fputs ("\t\"", fd);
  11335.             value = defaults_get_string (path_name, "", 0);
  11336.             len = strlen (value);
  11337.                 /* special: double quotes in the string */
  11338.             for (i = 0; i < len; i++)
  11339.                 if ((c = (int) *value++) == '"')
  11340.                     (void) fputs ("\\\"", fd);
  11341.                 else
  11342.                     (void) fputc (c, fd);
  11343.             (void) fputs ("\"\n", fd);
  11344.         }
  11345.         return;
  11346.     }
  11347.  
  11348.     if (path_name[1] == NULL)    /* only / */
  11349.         sprintf (tmp, "%s%s", path_name, child);
  11350.     else
  11351.         sprintf (tmp, "%s/%s", path_name, child);
  11352.     move_defaults (tmp, fd);
  11353.     while ((sibling = defaults_get_sibling (tmp, NULL)) != NULL)
  11354.     {
  11355.         if (path_name[1] == NULL)    /* only / */
  11356.             sprintf (tmp, "%s%s", path_name, sibling);
  11357.         else
  11358.             sprintf (tmp, "%s/%s", path_name, sibling);
  11359.         move_defaults (tmp, fd);
  11360.     }
  11361. }
  11362. /* EOF */
  11363. /* cat > src+obj/pad_image.c << "EOF" */
  11364. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11365. /* pad_image: expand and pad a memory pixrect with     */
  11366. /*          clear_color.                */
  11367. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11368. /* SCCS information: %W%    %G% - NCSA */
  11369.  
  11370. /* #include "all.h" */
  11371.  
  11372. void
  11373. pad_image (xpts, ypts, xpos, ypos, mpr)
  11374.     int             xpts, ypts;    /* x and y dimensions of pixrect */
  11375.     int             xpos, ypos;    /* not used currently */
  11376.     Pixrect        *mpr;
  11377. {
  11378.     struct mpr_data *d;
  11379.     char           *image;
  11380.     register int    i, j, npad;
  11381.     register char  *p0;    /* character from pointer */
  11382.     register char  *p1;    /* character to pointer */
  11383.  
  11384.     d = mpr_d (mpr);
  11385.     image = (char *) d->md_image;
  11386.     p0 = image + xpts * ypts - 1;
  11387. /*
  11388.    BUG: mpr_linebytes () is wrong on Sun-3 and Sun-4. It computes padding
  11389.         to 16 bits not 32 bits which mem_create uses. Decided not to use it.
  11390.     Can't tell when it works!
  11391. */
  11392. #if sun == sparc || sun == mc68020 || sun == mc68030
  11393.     npad = (xpts % 4 == 0) ? 0 : 4 - xpts % 4;
  11394.     p1 = image + (xpts + npad) * ypts - 1;
  11395. #else
  11396.     npad = (xpts % 2 == 0) ? 0 : 2 - xpts % 2;
  11397.     p1 = image + (xpts + npad) * ypts - 1;
  11398. #endif
  11399. /*
  11400.     printf ("xpts, npad = %d %d\n", xpts, npad);
  11401. */
  11402.     if (npad == 0)        /* no padding required */
  11403.         return;
  11404.  /* make space and pad with NULL's */
  11405.     for (i = 0; i < npad; i++)
  11406.         *p1-- = clear_color;
  11407.     for (i = 0; i < ypts - 1; i++)    /* do all rows except first */
  11408.     {
  11409.         for (j = 0; j < xpts; j++)
  11410.             *p1-- = *p0--;
  11411.         for (j = 0; j < npad; j++)
  11412.             *p1-- = clear_color;
  11413.     }
  11414.     return;
  11415. }
  11416. /* EOF */
  11417. /* cat > src+obj/reverse.c << "EOF" */
  11418. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11419. /* reverse: reverse string s in place            */
  11420. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11421. /* SCCS information: %W%    %G% - NCSA */
  11422.  
  11423. /* #include "all.h" */
  11424. /* #include "newext.h" */
  11425.  
  11426. void reverse (s)
  11427.     char s[];
  11428. {
  11429.     int c, i, j;
  11430.  
  11431.     for (i = 0, j = strlen(s) - 1; i < j; i++, j--)
  11432.     {
  11433.         c = s[i];
  11434.         s[i] = s[j];
  11435.         s[j] = c;
  11436.     }
  11437. }
  11438. /* EOF */
  11439. /* cat > src+obj/store_image.c << "EOF" */
  11440. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11441. /* store_image: stores image alone in raw raster file    */
  11442. /*        or dimensions, image, and palette as a    */
  11443. /*        HDF 8-bit Raster Image set.        */
  11444. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11445. /* SCCS information: %W%    %G% - NCSA */
  11446.  
  11447. /* #include "all.h" */
  11448. /* #include "newext.h" */
  11449.  
  11450. int
  11451. store_image (fn, nx, ny, s, mode)
  11452.     char           *fn;    /* filename */
  11453.     int             nx, ny;    /* dimensions of image */
  11454.     unsigned char  *s;    /* image */
  11455.     int             mode;    /** 0 - HDF 8-bit Raster Image set
  11456.                     (uncompressed)
  11457.                     1 - HDF 8-bit Raster Image set
  11458.                     (compressed)
  11459.                     2 - image only in raw raster */
  11460. {
  11461.     int             f, i, nw;
  11462.     unsigned char  *p_palette;
  11463.  
  11464.     if ((f = creat (fn, my_otod (644))) == -1)
  11465.     {
  11466.         sprintf (msg, "Unix errno = %d, access or pwd problem?", errno);
  11467.         bad_data2 ("File creation failed, request ignored.", msg);
  11468.         return (-1);
  11469.     }
  11470.     if (mode == 0 || mode == 1)    /* HDF 8-bit Raster Image set */
  11471.     {
  11472.         close (f);
  11473.         p_palette = palette;
  11474.         for (i = 0; i < 256; i++)
  11475.         {
  11476.             *p_palette++ = red[i];
  11477.             *p_palette++ = green[i];
  11478.             *p_palette++ = blue[i];
  11479.         }
  11480.         if (DFR8setpalette (palette))
  11481.         {
  11482.             sprintf (msg, "HDF setpalette call failed (DFerror = %d), request ignored.", DFerror);
  11483.             bad_data (msg);
  11484.             return (-1);
  11485.         }
  11486.         if (DFR8putimage (fn, s, nx, ny, mode))
  11487.         {
  11488.             sprintf (msg, "HDF putimage call failed (DFerror = %d), request ignored.", DFerror);
  11489.             bad_data (msg);
  11490.             return (-1);
  11491.         }
  11492.     }
  11493.     else if (mode == 2)    /* raw raster */
  11494.     {
  11495.         if (nx * ny != (nw = write (f, image, nx * ny)))
  11496.         {
  11497.             if (nw == -1)
  11498.             {
  11499.                 close (f);
  11500.                 sprintf (msg, "UNIX errno = %d", errno);
  11501.                 bad_data2 ("Raw raster write to file failed, request ignored.", msg);
  11502.                 return (-1);
  11503.             }
  11504.             else
  11505.             {
  11506.                 close (f);
  11507.                 sprintf (msg, "Only %d of %d bytes written to raw raster file, request failed.", nw, nx * ny);
  11508.                 bad_data (msg);
  11509.                 return (-1);
  11510.             }
  11511.         }
  11512.         close (f);
  11513.     }
  11514.     else
  11515.     {
  11516.         sprintf (msg, "Mode = %d - INTERNAL ERROR!", mode);
  11517.         bad_data2 ("Bad mode value, request ignored.", msg);
  11518.         return (-1);
  11519.     }
  11520.     return (0);
  11521. }
  11522. /* EOF */
  11523. /* cat > src+obj/unpad_image.c << "EOF" */
  11524. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11525. /* unpad_image: compress out padding in memory pixrect    */
  11526. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11527. /* SCCS information: %W%    %G% - NCSA */
  11528.  
  11529. /* #include "all.h" */
  11530.  
  11531. void 
  11532. unpad_image (xpts, ypts, mpr)
  11533.     int             xpts, ypts;    /* x and y dimensions of pixrect */
  11534.     Pixrect *mpr;
  11535. {
  11536.     struct mpr_data *d;
  11537.     char           *image;
  11538.     register int    i, j, npad;
  11539.     register char  *p0;    /* character from pointer */
  11540.     register char  *p1;    /* character to pointer */
  11541.  
  11542.     d = mpr_d (mpr);
  11543.     image = (char *) d->md_image;
  11544.     p1 = image + xpts;
  11545. /*
  11546.    BUG: mpr_linebytes () is wrong on Sun-3 and Sun-4. It computes padding
  11547.         to 16 bits not 32 bits which mem_create uses. Decided not to use it.
  11548.     Can't tell when it works!
  11549. */
  11550. #if sun == sparc || sun == mc68020 || sun == mc68030
  11551.     npad = (xpts % 4 == 0) ? 0 : 4 - xpts % 4;
  11552.     p0 = image + (xpts + npad);
  11553. #else
  11554.     npad = (xpts % 2 == 0) ? 0 : 2 - xpts % 2;
  11555.     p0 = image + (xpts + npad);
  11556. #endif
  11557. /*
  11558.     printf ("xpts, npad = %d %d\n", xpts, npad);
  11559. */
  11560.     if (npad == 0)        /* no unpadding required */
  11561.         return;
  11562.  
  11563.  /* remove padding */
  11564.  
  11565.     for (i = 0; i < ypts - 1; i++)    /* do all rows except first */
  11566.     {
  11567.         for (j = 0; j < xpts; j++)
  11568.             *p1++ = *p0++;
  11569.         for (j = 0; j < npad; j++)
  11570.             p0++;
  11571.     }
  11572.     return;
  11573. }
  11574. /* EOF */
  11575. /* cat > src+obj/xstrcmp.c << "EOF" */
  11576. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11577. /* xstrcmp: compare two strings without leading or    */
  11578. /*        trailing white space.            */
  11579. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11580. /* SCCS information: %W%    %G% - NCSA */
  11581.  
  11582. /* #include "all.h" */
  11583. /* #include "newext.h" */
  11584.  
  11585. int xstrcmp (s, t)
  11586.     char *s, *t;
  11587. {
  11588.     msg[0] = '\0';
  11589.     msg2[0] = '\0';
  11590.     sscanf (s, "%s", msg);
  11591.     sscanf (t, "%s", msg2);
  11592.     return (strcmp(msg, msg2));
  11593. }
  11594. /* EOF */
  11595. /* cat > src+obj/xstrlen.c << "EOF" */
  11596. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11597. /* xstrlen: length of string with leading and trailing    */
  11598. /*        white space stripped off.            */
  11599. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11600. /* SCCS information: %W%    %G% - NCSA */
  11601.  
  11602. /* #include "all.h" */
  11603. /* #include "newext.h" */
  11604.  
  11605. int xstrlen (s)
  11606.     char *s;
  11607. {
  11608.     msg[0] = '\0';
  11609.     sscanf (s, "%s", msg);
  11610.     return (strlen(msg));
  11611. }
  11612. /* EOF */
  11613. /* cat > src+obj/getdirname.c << "EOF" */
  11614. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11615. /* getdirname: determines the full directory part of    */
  11616. /*           a path. If the path is relative it is    */
  11617. /*           taken relative to the current directory. */
  11618. /*           It is assumed that the path is valid!    */
  11619. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11620. /* SCCS information: %W%    %G% - NCSA */
  11621.  
  11622. /* #include "all.h" */
  11623.  
  11624. int getdirname (path, dir)
  11625.     char *path;
  11626.     char *dir;
  11627. {
  11628.     int i;
  11629.     char current_dir[MAXNAMELEN + 1];
  11630.  
  11631.     (void) getwd (current_dir);
  11632.     for (i = strlen (path) - 1; i >= 0; i--)
  11633.         if (path[i] == '/')
  11634.             break;
  11635.     strncpy (dir, path, ++i);
  11636.     dir[i] = '\0';
  11637.     if (strlen (dir) == 0)
  11638.     {
  11639.         dir[0] = '.';
  11640.         dir[1] = '\0';
  11641.     }
  11642.     (void) chdir (dir);
  11643.     (void) getwd (dir);
  11644.     (void) chdir (current_dir);
  11645.  
  11646.     return (0);
  11647. }
  11648. /* EOF */
  11649. /* cat > src+obj/getbasename.c << "EOF" */
  11650. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11651. /* getbasename: determines the last level of path.    */
  11652. /*        It is assumed that the path is valid!    */
  11653. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11654. /* SCCS information: %W%    %G% - NCSA */
  11655.  
  11656. /* #include "all.h" */
  11657. /* #include "newext.h" */
  11658.  
  11659. int getbasename (path, base)
  11660.     char *path;
  11661.     char *base;
  11662. {
  11663.     int i;
  11664.  
  11665.     for (i = strlen (path) - 1; i >= 0; i--)
  11666.         if (path[i] == '/')
  11667.             break;
  11668.     strcpy (base, &path[i + 1]);
  11669.  
  11670.     return (0);
  11671. }
  11672. /* EOF */
  11673. /* cat > src+obj/swapdirnames.c << "EOF" */
  11674. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11675. /* swapdirnames: returns a new path built by replacing    */
  11676. /*         the directory part by another        */
  11677. /*         directory part. It is assumed that the    */
  11678. /*         that all paths and directories are    */
  11679. /*         valid!                    */
  11680. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11681. /* SCCS information: %W%    %G% - NCSA */
  11682.  
  11683. /* #include "all.h" */
  11684.  
  11685. int swapdirnames (pathin, dir, pathout)
  11686.     char *pathin;
  11687.     char *dir;
  11688.     char *pathout;
  11689. {
  11690.     int lpath;
  11691.  
  11692.     strcpy (pathout, dir);
  11693.     lpath = strlen (pathout);
  11694.     if (pathout[lpath - 1] != '/')
  11695.     {
  11696.         pathout[lpath++] = '/';
  11697.         pathout[lpath] = '\0';
  11698.     }
  11699.     (void) getbasename (pathin, &pathout[lpath]);
  11700.  
  11701.     return (0);
  11702. }
  11703. /* EOF */
  11704. /* cat > src+obj/set_frame_label.c << "EOF" */
  11705. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11706. /* set_frame_label: set the frame label            */
  11707. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11708. /* SCCS information: %W%    %G% - NCSA */
  11709.  
  11710. /* #include "all.h" */
  11711.  
  11712. int
  11713. set_frame_label (frame)
  11714.     Frame frame;
  11715. {
  11716.     char msg1[MAXNAMELEN + 1];
  11717.     char current_dir[MAXNAMELEN + 1];
  11718.     
  11719. /*
  11720.                 FRAME_LABEL, "CompositeTool 1.1 Base Panel",
  11721. */
  11722.     (void) getwd (current_dir);
  11723.     sprintf (msg1, "CompositeTool 1.1 - Dir: %s", current_dir);
  11724.     window_set (frame, FRAME_LABEL, msg1, 0);
  11725. }
  11726. /* EOF */
  11727. /* cat > src+obj/strip_wspace.c << "EOF" */
  11728. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11729. /* strip_wspace: strip off leading and trailing white    */
  11730. /*         space.                    */
  11731. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11732. /* SCCS information: %W%    %G% - NCSA */
  11733.  
  11734. /* #include "all.h" */
  11735.  
  11736. int
  11737. strip_wspace (s)
  11738.         /* returns the length */
  11739.     char *s;
  11740.         /* input: string to strip
  11741.            returns: stripped string with s[0] the first non-whitespace
  11742.                 character */
  11743. {
  11744. /* Implementation note(s):
  11745.     1. Assumes that s is not NULL and the string is NULL 
  11746.        terminated.
  11747. */
  11748.  
  11749.     register int i, j, k;
  11750.  
  11751.         /* strip off trailing white space */
  11752.     if ((i = strlen (s)) == 0)
  11753.         return(0);
  11754.     while (--i >= 0 && (s[i] == ' ' || s[i] == '\t'));
  11755.     s[++i] = '\0';
  11756.     if (i == 0)
  11757.         return (0);
  11758.  
  11759.         /* strip off leading white space */
  11760.     if (s[0] != ' ' && s[0] != '\t')
  11761.         return (i);
  11762.     for (j = 0; s[j] == ' ' || s[j] == '\t'; j++);
  11763.     for (k = 0; k < i - j; k++)
  11764.         s[k] = s[k+j];
  11765.     s[i-j] = '\0';
  11766.     return ((i - j)); 
  11767. }
  11768. /* EOF */
  11769. /* cat > src+obj/util_proc_saveall.c << "EOF" */
  11770. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11771. /* util_proc_saveall: save all screen to file.        */
  11772. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11773. /* SCCS information: %W%    %G% - NCSA */
  11774.  
  11775. /* #include "all.h" */
  11776. /* #include "newext.h" */
  11777.  
  11778. int
  11779. util_proc_saveall ()
  11780. {
  11781.     Pixrect        *p;
  11782.     struct mpr_data *s;
  11783.     int             nx, ny;
  11784.  
  11785.         if (FALSE == (int) window_get (c_frame, WIN_SHOW, 0))
  11786.         {
  11787.                 info_msg ("", "Canvas is not up, request ignored.", "");
  11788.                 return;
  11789.         }
  11790.         else if (xstrlen (panel_get (pt[17], PANEL_VALUE, 0)) == 0)
  11791.         {
  11792.                 bad_data ("No filename given, request ignored.");
  11793.                 return;
  11794.         }
  11795.  
  11796.     sdump.xstart = 0;
  11797.     sdump.xend = N_hpix - 1;
  11798.     sdump.ystart =  0;
  11799.     sdump.yend = N_vpix - 1;
  11800.  
  11801.     nx = sdump.xend - sdump.xstart + 1;
  11802.     ny = sdump.yend - sdump.ystart + 1;
  11803.     p = mem_create (nx, ny, 8);
  11804.     s = mpr_d (p);
  11805.     pw_read (p, 0, 0, nx, ny, PIX_SRC, cpw, sdump.xstart, sdump.ystart);
  11806.     s = mpr_d (p);
  11807.  
  11808.  /* unpad image before saving it */
  11809.  
  11810.     unpad_image (nx, ny, p);
  11811.  
  11812.     if (store_image (panel_get_value (pt[17]), nx, ny, (unsigned char *) s->md_image, (int) panel_get_value (util_pc_save)))
  11813.         return;
  11814.     info_msg ("", "All of screen dumped to file.", "");
  11815.     return;
  11816. }
  11817. /* EOF */
  11818. /* cat > src+obj/adjust_colormap.c << "EOF" */
  11819. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11820. /* adjust_colormap: adjust the palette entries.        */
  11821. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11822. /* SCCS information: %W%    %G% - NCSA */
  11823.  
  11824. /* #include "all.h" */
  11825.  
  11826. void
  11827. adjust_colormap ()
  11828. {
  11829.         *red         = *green         = *blue         = 255;
  11830.         *(red + 255) = *(green + 255) = *(blue + 255) = 0;
  11831.         *(red + 254) = *(green + 254) = *(blue + 254) = 255;
  11832.         *(red + 253) = *(green + 253) = *(blue + 253) = 0;
  11833. }
  11834. /* EOF */
  11835. /* cat > src+obj/set_colormap.c << "EOF" */
  11836. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11837. /* set_colormap: initializes the Sun colormap.        */
  11838. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11839. /* SCCS information: %W%    %G% - NCSA */
  11840.  
  11841. /* #include "all.h" */
  11842. /* #include "newext.h" */
  11843.  
  11844. void
  11845. set_colormap ()
  11846. {
  11847.     set_frame_colormap (fr[0], b_cmsn);
  11848.     set_frame_colormap (c_frame, c_cmsn);
  11849.     set_canvas_colormap (canvas, c_cmsn);
  11850. }
  11851. /* EOF */
  11852. /* cat > src+obj/reset_colormap.c << "EOF" */
  11853. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11854. /* reset_colormap: reset the palette in all windows.    */
  11855. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11856. /* SCCS information: %W%    %G% - NCSA */
  11857.  
  11858. /* #include "all.h" */
  11859.  
  11860. void
  11861. reset_colormap ()
  11862. {
  11863.     int i;
  11864.  
  11865.     set_frame_colormap (fr[0], b_cmsn);
  11866.     set_panel_colormap (pa[0], b_cmsn);
  11867.     set_frame_colormap (c_frame, c_cmsn);
  11868.     set_canvas_colormap (canvas, c_cmsn);
  11869.  
  11870. /* reset all the open windows */
  11871.  
  11872.     for (i = 1; i <= 9; i++)
  11873.         if (fr[i] != NULL)
  11874.         {
  11875.             set_frame_colormap (fr[i], b_cmsn);
  11876.             set_panel_colormap (pa[i], b_cmsn);
  11877.         }
  11878. }
  11879. /* cat > src+obj/set_frame_colormap.c << "EOF" */
  11880. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11881. /* set_frame_colormap: load a frame with colormap.    */
  11882. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11883. /* SCCS information: %W%    %G% - NCSA */
  11884.  
  11885. /* #include "all.h" */
  11886.  
  11887. void
  11888. set_frame_colormap (frame, cmsn)
  11889.     Frame frame;
  11890.             /* input: frame to load colormap */
  11891.     char    *cmsn;
  11892.             /* input: colormap name */
  11893. {
  11894.     Pixwin    *pixw;
  11895.  
  11896.     pixw = (Pixwin *) window_get (frame, WIN_PIXWIN);
  11897.     pw_setcmsname (pixw, cmsn);
  11898.     if (! strcmp (cmsn, b_cmsn))    /* partial palette */
  11899.         pw_putcolormap (pixw, 0, 256 - 2, red, green, blue);
  11900.     else                /* full palette */
  11901.         pw_putcolormap (pixw, 0, 256, red, green, blue);
  11902. }
  11903. /* EOF */
  11904. /* cat > src+obj/set_panel_colormap.c << "EOF" */
  11905. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11906. /* set_panel_colormap: load a panel with colormap.    */
  11907. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11908. /* SCCS information: %W%    %G% - NCSA */
  11909.  
  11910. /* #include "all.h" */
  11911.  
  11912. void
  11913. set_panel_colormap (panel, cmsn)
  11914.     Panel panel;
  11915.             /* input: panel to load colormap */
  11916.     char    *cmsn;
  11917.             /* input: colormap name */
  11918. {
  11919.     Pixwin    *pixw;
  11920.  
  11921.     pixw = (Pixwin *) window_get (panel, WIN_PIXWIN);
  11922.     pw_setcmsname (pixw, cmsn);
  11923.     if (! strcmp (cmsn, b_cmsn))    /* partial palette */
  11924.         pw_putcolormap (pixw, 0, 256 - 2, red, green, blue);
  11925.     else                /* full palette */
  11926.         pw_putcolormap (pixw, 0, 256, red, green, blue);
  11927. }
  11928. /* EOF */
  11929. /* cat > src+obj/set_canvas_colormap.c << "EOF" */
  11930. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11931. /* set_canvas_colormap: load a canvas subwindow        */
  11932. /*            with a colormap.        */
  11933. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  11934. /* SCCS information: %W%    %G% - NCSA */
  11935.  
  11936. /* #include "all.h" */
  11937.  
  11938. void
  11939. set_canvas_colormap (canvas, cmsn)
  11940.     Canvas canvas;
  11941.             /* input: canvas to load colormap */
  11942.     char    *cmsn;
  11943.             /* input: colormap name */
  11944. {
  11945.     Pixwin    *pixw;
  11946.  
  11947.     pixw = canvas_pixwin (canvas);
  11948.     pw_setcmsname (pixw, cmsn);
  11949.     if (! strcmp (cmsn, b_cmsn))    /* partial palette */
  11950.         pw_putcolormap (pixw, 0, 256 - 2, red, green, blue);
  11951.     else                /* full palette */
  11952.         pw_putcolormap (pixw, 0, 256, red, green, blue);
  11953. }
  11954. /* EOF */
  11955.