src/ptswin.c

   1 /*
   2  * Grace - GRaphing, Advanced Computation and Exploration of data
   3  *
   4  * Home page: http://plasma-gate.weizmann.ac.il/Grace/
   5  *
   6  * Copyright (c) 1991-1995 Paul J Turner, Portland, OR
   7  * Copyright (c) 1996-2002 Grace Development Team
   8  *
   9  * Maintained by Evgeny Stambulchik
  10  *
  11  *
  12  *                           All Rights Reserved
  13  *
  14  *    This program is free software; you can redistribute it and/or modify
  15  *    it under the terms of the GNU General Public License as published by
  16  *    the Free Software Foundation; either version 2 of the License, or
  17  *    (at your option) any later version.
  18  *
  19  *    This program is distributed in the hope that it will be useful,
  20  *    but WITHOUT ANY WARRANTY; without even the implied warranty of
  21  *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22  *    GNU General Public License for more details.
  23  *
  24  *    You should have received a copy of the GNU General Public License
  25  *    along with this program; if not, write to the Free Software
  26  *    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  27  */
  28
  29 /*
  30  *
  31  * track/edit points etc.
  32  *
  33  */
  34 #if 0
  35 #include <config.h>
  36
  37 #include <stdio.h>
  38 #include <stdlib.h>
  39
  40 #include "utils.h"
  41 #include "core_utils.h"
  42 #include "events.h"
  43 #include "protos.h"
  44 #include "motifinc.h"
  45
  46 static int track_setno = -1;
  47 static int track_add_at;    /* where to begin inserting points in the set */
  48 static int track_move_dir;  /* direction on point movement */
  49
  50 static Widget points_frame;
  51 static ListStructure *track_set_sel;
  52 static TextStructure *locate_point_item;
  53 static Widget locate_point_message;
  54 static Widget goto_index_item;
  55
  56 /*
  57  * set tracker
  58  */
  59 static void do_track_proc(void *data)
  60 {
  61     set_action(DO_NOTHING);
  62     SetLabel(locate_point_message, "Track points");
  63     set_action(TRACKER);
  64 }
  65
  66 /*
  67  * activate the add point item in the canvas event proc
  68  */
  69 static void do_add_proc(void *data)
  70 {
  71     char *s;
  72
  73     set_action(DO_NOTHING);
  74
  75     track_add_at = (int) data;
  76
  77     switch (track_add_at) {
  78     case ADD_POINT_BEGINNING:
  79         s = "Add points at the beginning of set";
  80         break;
  81     case ADD_POINT_END:
  82         s = "Add points to the end of set";
  83         break;
  84     case ADD_POINT_NEAREST:
  85         s = "Add points to the nearest position";
  86         break;
  87     default:
  88         return;
  89     }
  90
  91     SetLabel(locate_point_message, s);
  92
  93     set_action(ADD_POINT);
  94 }
  95
  96 /*
  97  * activate the delete point item in the canvas event proc
  98  */
  99 static void do_del_proc(void *data)
 100 {
 101     set_action(DO_NOTHING);
 102     SetLabel(locate_point_message, "Delete points");
 103     set_action(DEL_POINT);
 104 }
 105
 106 /*
 107  * move a point
 108  */
 109 static void do_ptsmove_proc(void *data)
 110 {
 111     char *s;
 112
 113     set_action(DO_NOTHING);
 114
 115     track_move_dir = (int) data;
 116
 117     switch (track_move_dir) {
 118     case MOVE_POINT_XY:
 119         s = "Move points";
 120         break;
 121     case MOVE_POINT_X:
 122         s = "Move points along x";
 123         break;
 124     case MOVE_POINT_Y:
 125         s = "Move points along y";
 126         break;
 127     default:
 128         return;
 129     }
 130     SetLabel(locate_point_message, s);
 131
 132     set_action(MOVE_POINT1ST);
 133 }
 134
 135 static void do_gotopt_proc(void *data)
 136 {
 137     int ind;
 138     WPoint wp;
 139     VPoint vp;
 140     int cg = get_cg();
 141
 142     if (is_set_dataless(cg, track_setno)) {
 143         errmsg("No or inactive set selected");
 144         return;
 145     }
 146
 147     xv_evalexpri(goto_index_item, &ind);
 148     if (get_point(cg, track_setno, ind, &wp) == RETURN_SUCCESS) {
 149         vp = Wpoint2Vpoint(wp);
 150         setpointer(vp);
 151     } else {
 152         errmsg("Point index out of range");
 153     }
 154 }
 155
 156
 157 static void points_done_proc(void *data)
 158 {
 159     set_action(DO_NOTHING);
 160     UnmanageChild(GetParent((Widget) data));
 161 }
 162
 163 static void track_set_cbproc(int n, int *values, void *data)
 164 {
 165     if (n == 1) {
 166         track_setno = values[0];
 167     } else {
 168         track_setno = -1;
 169     }
 170 }
 171
 172 void create_points_frame(void *data)
 173 {
 174     set_wait_cursor();
 175
 176     if (points_frame == NULL) {
 177         Widget dialog, wbut, rc, fr;
 178
 179         points_frame = CreateDialogForm(app_shell, "Point explorer");
 180
 181         fr = CreateFrame(points_frame, NULL);
 182         AddDialogFormChild(points_frame, fr);
 183         locate_point_message = CreateLabel(fr, "Point explorer");
 184
 185         dialog = CreateVContainer(points_frame);
 186         AddDialogFormChild(points_frame, dialog);
 187
 188         track_set_sel = CreateSetChoice(dialog,
 189             "Restrict to set:", LIST_TYPE_SINGLE, TRUE);
 190         AddListChoiceCB(track_set_sel, track_set_cbproc, NULL);
 191
 192         rc = CreateHContainer(dialog);
 193         goto_index_item = CreateTextItem2(rc, 6, "Point location:");
 194         wbut = CreateButton(rc, "Goto point");
 195         AddButtonCB(wbut, do_gotopt_proc, NULL);
 196
 197         locate_point_item = CreateTextInput(dialog, "Point data:");
 198
 199         CreateSeparator(dialog);
 200
 201         rc = CreateHContainer(dialog);
 202
 203         wbut = CreateButton(rc, "Track");
 204         AddButtonCB(wbut, do_track_proc, NULL);
 205
 206         wbut = CreateButton(rc, "Move");
 207         AddButtonCB(wbut, do_ptsmove_proc, (void *) MOVE_POINT_XY);
 208         wbut = CreateButton(rc, "Move X");
 209         AddButtonCB(wbut, do_ptsmove_proc,  (void *) MOVE_POINT_X);
 210         wbut = CreateButton(rc, "Move Y");
 211         AddButtonCB(wbut, do_ptsmove_proc,  (void *) MOVE_POINT_Y);
 212
 213         wbut = CreateButton(rc, "Prepend");
 214         AddButtonCB(wbut, do_add_proc, (void *) ADD_POINT_BEGINNING);
 215         wbut = CreateButton(rc, "Append");
 216         AddButtonCB(wbut, do_add_proc, (void *) ADD_POINT_END);
 217         wbut = CreateButton(rc, "Insert");
 218         AddButtonCB(wbut, do_add_proc, (void *) ADD_POINT_NEAREST);
 219
 220         wbut = CreateButton(rc, "Delete");
 221         AddButtonCB(wbut, do_del_proc, NULL);
 222
 223         wbut = CreateButton(rc, "Close");
 224         AddButtonCB(wbut, points_done_proc, (void *) points_frame);
 225
 226         ManageChild(points_frame);
 227     }
 228
 229     RaiseWindow(GetParent(points_frame));
 230     unset_wait_cursor();
 231 }
 232
 233 void update_point_locator(int gno, int setno, int loc)
 234 {
 235     int col, ncols;
 236     Datapoint dpoint;
 237     char *s, buf[64];
 238
 239     if (points_frame == NULL) {
 240         return;
 241     }
 242
 243     if (get_datapoint(gno, setno, loc, &ncols, &dpoint) == RETURN_SUCCESS) {
 244         SelectListChoice(track_set_sel, setno);
 245
 246         s = copy_string(NULL, "(");
 247         for (col = 0; col < ncols; col++) {
 248             sprintf(buf, "%g", dpoint.ex[col]);
 249             s = concat_strings(s, buf);
 250             if (col != ncols - 1) {
 251                 s = concat_strings(s, ", ");
 252             }
 253         }
 254         if (dpoint.s != NULL) {
 255             s = concat_strings(s, ", \"");
 256             s = concat_strings(s, dpoint.s);
 257             s = concat_strings(s, "\"");
 258         }
 259         s = concat_strings(s, ")");
 260         SetTextString(locate_point_item, s);
 261         xfree(s);
 262
 263         sprintf(buf, "%d", loc);
 264         xv_setstr(goto_index_item, buf);
 265     } else {
 266         track_setno = -1;
 267         SelectListChoices(track_set_sel, 0, NULL);
 268         SetTextString(locate_point_item, "");
 269         xv_setstr(goto_index_item, "");
 270     }
 271 }
 272
 273 void get_tracking_props(int *setno, int *move_dir, int *add_at)
 274 {
 275     *setno = track_setno;
 276     *move_dir = track_move_dir;
 277     *add_at = track_add_at;
 278 }
 279 #endif