?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
git-svn-id: svn://svn.icms.temple.edu/lammps-ro/trunk@16053 f3b2605a-c512-4ea7-a41b...
[lammps.git] / tools / xmovie / control.c
blobdfa078162062a10a47204d14e87f3b88e17993df
1 /* **************************************************************** */
2 /* functions to handle control panel (sliders, labels, etc.) */
3
4 #include <stdio.h>
5 #include <stdlib.h>
6
7 #include <X11/Intrinsic.h>
8 #include <X11/StringDefs.h>
9 #include <X11/Shell.h>
10 #include <X11/Xos.h>
11
12 #include <X11/Xaw/Cardinals.h>
13
14 #include <X11/Xaw/Box.h>
15 #include <X11/Xaw/Command.h>
16 #include <X11/Xaw/Dialog.h>
17 #include <X11/Xaw/Form.h>
18 #include <X11/Xaw/Label.h>
19 #include <X11/Xaw/MenuButton.h>
20 #include <X11/Xaw/Scrollbar.h>
21 #include <X11/Xaw/SimpleMenu.h>
22 #include <X11/Xaw/Sme.h>
23 #include <X11/Xaw/SmeBSB.h>
24 #include <X11/Xaw/Toggle.h>
25
26 #include "xmovie.h"
27
28 #define POPUPSHELLCLASS overrideShellWidgetClass
29
30 /* **************************************************************** */
31 /* local typedefs */
32
33 typedef void (*InitFunc)(Widget parent);
34
35 typedef struct {
36 char *name;
37 XtCallbackProc exec_func;
38 XtPointer data;
39 InitFunc init_func;
40 } ButtonStruct;
41
42 #define NBTN(a) (sizeof(a)/sizeof(ButtonStruct))
43
44 typedef struct {
45 char *name;
46 int value;
47 Widget w;
48 } ToggleStruct;
49
50 #define TGLCNT(x) (sizeof(x)/sizeof(ToggleStruct))
51
52 typedef struct {
53 char *name;
54 XtCallbackProc callback;
55 ToggleStruct *buttons;
56 int nbuttons;
57 Widget lw;
58 } RadioStruct;
59
60 typedef struct {
61 char *labelname;
62 Widget *label;
63 char *slidername;
64 Widget *slider;
65 XtCallbackProc callback;
66 } SliderLabelStruct;
67
68 typedef struct {
69 Widget *w;
70 XtGrabKind grab;
71 Bool stop_motion;
72 } PopupData;
73
74 /* **************************************************************** */
75 /* local prototypes */
76
77 PRIVATE void SetSpeed(float percent);
78 PRIVATE void NewSpeed(Widget w, XtPointer client_data, XtPointer percent);
79 PRIVATE void SetPosition(float percent);
80 PRIVATE void NewPosition(Widget w, XtPointer client_data, XtPointer percent);
81 PRIVATE void SetThickness(float percent);
82 PRIVATE void NewThickness(Widget w, XtPointer client_data, XtPointer percent);
83
84 PRIVATE void AxisSelect(Widget w, XtPointer client_data, XtPointer call_data);
85 PRIVATE void DirectionSelect(Widget w, XtPointer client_data, XtPointer call_data);
86 PRIVATE void MotionSelect(Widget w, XtPointer client_data, XtPointer call_data);
87
88 PRIVATE void FindAndDisplaySlider(Widget w, XtCallbackProc func);
89
90 PRIVATE void DrawAxes(void);
91
92 PRIVATE void MakeRadioGroup(Widget parent, RadioStruct *radio);
93 PRIVATE void MakeSliderWithLabel(Widget parent, SliderLabelStruct *sl);
94
95 PRIVATE void SetRadio(RadioStruct *radio);
96
97 PRIVATE void do_start(Widget w, XtPointer client_data, XtPointer call_data);
98 PRIVATE void do_stop(Widget w, XtPointer client_data, XtPointer call_data);
99 PRIVATE void do_restart(Widget w, XtPointer client_data, XtPointer call_data);
100 PRIVATE void do_step(Widget w, XtPointer client_data, XtPointer call_data);
101 PRIVATE void do_back(Widget w, XtPointer client_data, XtPointer call_data);
102
103 PRIVATE void do_save_off(Widget w, XtPointer client_data, XtPointer call_data);
104 PRIVATE void do_save_on(Widget w, XtPointer client_data, XtPointer call_data);
105 PRIVATE void do_save_one(Widget w, XtPointer client_data, XtPointer call_data);
106
107 PRIVATE void do_popup(Widget w, XtPointer client_data, XtPointer call_data);
108 PRIVATE void cancel_popup(Widget w, XtPointer client_data, XtPointer call_data);
109
110 PRIVATE void init_quit(Widget w);
111 PRIVATE void quit_ok(Widget w, XtPointer client_data, XtPointer call_data);
112
113 PRIVATE void init_atoms(Widget w);
114 PRIVATE void init_bonds(Widget w);
115 PRIVATE void init_bg(Widget w);
116 PRIVATE void init_file(Widget w);
117
118 PRIVATE void color_apply(Widget w, XtPointer client_data, XtPointer call_data);
119 PRIVATE void bond_apply(Widget w, XtPointer client_data, XtPointer call_data);
120 PRIVATE void bg_apply(Widget w, XtPointer client_data, XtPointer call_data);
121 PRIVATE void file_apply(Widget w, XtPointer client_data, XtPointer call_data);
122
123 PRIVATE Pixel ConvertColorToPixel(Widget w, String color);
124 PRIVATE XtActionProc NoOp(Widget w, XEvent event, String *params,
125 Cardinal nparams);
126
127 PRIVATE void visible_toggle(Widget w, XtPointer client_data, XtPointer
128 call_data);
129
130 PRIVATE void bvisible_toggle(Widget w, XtPointer client_data, XtPointer
131 call_data);
132
133 /* **************************************************************** */
134 /* local data */
135
136 static Widget QuitPopup = (Widget) 0,
137 AtomPopup = (Widget) 0,
138 BondPopup = (Widget) 0,
139 BackgroundPopup = (Widget) 0,
140 FileColorPopup = (Widget) 0,
141 TimeLabel = (Widget) 0,
142 SpeedBar = (Widget) 0,
143 SpeedLabel = (Widget) 0,
144 PositionBar = (Widget) 0,
145 PositionLabel = (Widget) 0,
146 ThicknessBar = (Widget) 0,
147 ThicknessLabel = (Widget) 0,
148 Axes = (Widget) 0,
149 ReadInfo = (Widget) 0;
150
151 static Widget BGDialog = (Widget) 0,
152 FileDialog = (Widget) 0,
153 *FGDialog = (Widget *) NULL,
154 *Visible = (Widget *) NULL,
155 *Invisible = (Widget *) NULL,
156 *SizeDialog = (Widget *) NULL,
157 *BFGDialog = (Widget *) NULL,
158 *BVisible = (Widget *) NULL,
159 *BInvisible = (Widget *) NULL,
160 *ThicknessDialog= (Widget *) NULL;
161
162 static PopupData
163 QuitData = { &QuitPopup, XtGrabExclusive, True},
164 AtomData = { &AtomPopup, XtGrabNone, False },
165 BondData = { &BondPopup, XtGrabNone, False },
166 BackgroundData = { &BackgroundPopup, XtGrabNone, False },
167 FileColorData = { &FileColorPopup, XtGrabNone, False };
168
169 static ButtonStruct Buttons[] = {
170 { "quit", do_popup, (XtPointer) &QuitData, init_quit },
171 { "start", do_start, NULL, NULL },
172 { "stop", do_stop, NULL, NULL },
173 { "restart", do_restart, NULL, NULL },
174 { "step", do_step, NULL, NULL },
175 { "back", do_back, NULL, NULL },
176 };
177
178 static ButtonStruct SaveButtons[] = {
179 { "Off while animating", do_save_off, NULL, NULL },
180 { "On while animating", do_save_on , NULL, NULL },
181 { "This snapshot", do_save_one, NULL, NULL },
182 };
183
184 static ButtonStruct ColorButtons[] = {
185 { "atoms", do_popup, (XtPointer) &AtomData, init_atoms },
186 { "bonds", do_popup, (XtPointer) &BondData, init_bonds },
187 { "background", do_popup, (XtPointer) &BackgroundData, init_bg },
188 { "filecolor", do_popup, (XtPointer) &FileColorData, init_file }
189 };
190
191 static int in_motion;
192
193 static SliderLabelStruct
194 SpeedSL = {
195 "speed", &SpeedLabel,
196 "speedbar", &SpeedBar,
197 NewSpeed },
198 PositionSL = {
199 "position", &PositionLabel,
200 "positionbar", &PositionBar,
201 NewPosition },
202 ThicknessSL = {
203 "thickness", &ThicknessLabel,
204 "thicknessbar", &ThicknessBar,
205 NewThickness }
206 ;
207
208 static ToggleStruct
209 AxisButtons[] = {
210 { "x", 0 },
211 { "y", 1 },
212 { "z", 2 } },
213 DirectionButtons[] = {
214 { "vplus", 1 },
215 { "vminus", 0 } },
216 MotionButtons[] = {
217 { "mplus", 1 },
218 { "mminus", -1 } }
219 ;
220
221 static RadioStruct
222 AxisRadio = {
223 "axis",
224 AxisSelect,
225 AxisButtons,
226 TGLCNT(AxisButtons) },
227 DirectionRadio = {
228 "viewdir",
229 DirectionSelect,
230 DirectionButtons,
231 TGLCNT(DirectionButtons) },
232 MotionRadio = {
233 "motiondir",
234 MotionSelect,
235 MotionButtons,
236 TGLCNT(MotionButtons) }
237 ;
238
239 static int normal = 1;
240 static char *null_string = "";
241
242 static XtActionsRec actions[] = {
243 { "NoOp", (XtActionProc) NoOp},
244 };
245
246 /* **************************************************************** */
247
248 Widget CreateControl(Widget parent, char *name)
249 {
250 Widget form, command, button, menu;
251 ButtonStruct *bptr;
252 int bcnt;
253
254 /* register the new actions */
255
256 XtAppAddActions(XtWidgetToApplicationContext(parent),
257 actions, XtNumber(actions));
258
259 /* create a form widget to handle layout */
260
261 form = XtCreateManagedWidget(name, formWidgetClass, parent,
262 NULL, ZERO);
263
264 /* create all the command buttons */
265
266 for(bcnt = NBTN(Buttons), bptr = Buttons;bcnt > 0; bcnt--, bptr++){
267
268 /* create a button */
269
270 command = XtCreateManagedWidget(bptr->name,
271 commandWidgetClass, form, NULL, ZERO);
272
273 /* Add the function as a callback */
274
275 XtAddCallback(command, XtNcallback, bptr->exec_func,
276 bptr->data);
277
278 /* call initialization routine */
279
280 if (bptr->init_func) (bptr->init_func)(command);
281
282 }
283
284 /* create the save menu */
285
286 command = XtCreateManagedWidget("save", menuButtonWidgetClass,
287 form, NULL, ZERO);
288
289 menu = XtCreatePopupShell("menu", simpleMenuWidgetClass,
290 command, NULL, ZERO);
291
292 for(bcnt=NBTN(SaveButtons), bptr=SaveButtons; bcnt>0; bcnt--,bptr++){
293 button = XtCreateManagedWidget(bptr->name, smeBSBObjectClass,
294 menu, NULL, ZERO);
295 XtAddCallback(button, XtNcallback, bptr->exec_func,bptr->data);
296 if (bptr->init_func) (bptr->init_func)(button);
297 }
298
299 /* create the color menu */
300
301 command = XtCreateManagedWidget("color", menuButtonWidgetClass,
302 form, NULL, ZERO);
303
304 menu = XtCreatePopupShell("menu", simpleMenuWidgetClass,
305 command, NULL, ZERO);
306
307 for(bcnt=NBTN(ColorButtons), bptr=ColorButtons; bcnt>0; bcnt--,bptr++){
308 button = XtCreateManagedWidget(bptr->name, smeBSBObjectClass,
309 menu, NULL, ZERO);
310 XtAddCallback(button, XtNcallback, bptr->exec_func,bptr->data);
311 if (bptr->init_func) (bptr->init_func)(button);
312 }
313
314 /* create a label widget to display time */
315
316 TimeLabel = XtCreateManagedWidget("time", labelWidgetClass,
317 form, NULL, ZERO);
318
319 SetTime("Time: 0");
320
321 /* ************************************************ */
322 /* create all the sliders */
323 /* ************************************************ */
324
325
326 MakeSliderWithLabel(form, &SpeedSL);
327 MakeSliderWithLabel(form, &PositionSL);
328 MakeSliderWithLabel(form, &ThicknessSL);
329
330 /* ******************************************************** */
331 /* create a radio group for axis, view, motion directions */
332 /* ******************************************************** */
333
334 MakeRadioGroup(form, &AxisRadio);
335 MakeRadioGroup(form, &DirectionRadio);
336 MakeRadioGroup(form, &MotionRadio);
337
338 /* create a label widget to put axes in */
339
340 /* SJP - 10/02, had to add last NULL argument to each call */
341
342 Axes = XtVaCreateManagedWidget("axes", labelWidgetClass, form,
343 XtNlabel, null_string,NULL);
344
345 ReadInfo = XtVaCreateManagedWidget("read", labelWidgetClass,
346 form, XtNlabel, null_string,NULL);
347
348 }
349
350 PRIVATE XtActionProc NoOp(Widget w, XEvent event, String *params,
351 Cardinal nparams)
352 {
353 return;
354 }
355
356 void SetTime(char *s)
357 {
358 XtVaSetValues(TimeLabel, XtNlabel, s, NULL);
359 }
360
361 PRIVATE void SetSpeed(float percent)
362 {
363 char string[40];
364 int speed;
365
366 speed = percent * 100;
367 (void) sprintf(string,"Speed: %i", speed);
368
369 XtVaSetValues(SpeedLabel, XtNlabel, string, NULL);
370 }
371
372 PRIVATE void NewSpeed(Widget w, XtPointer client_data, XtPointer percent_ptr)
373 {
374 float percent;
375
376 percent = * (float *) percent_ptr;
377
378 /* delay between frames in milliseconds */
379
380 Common.delay = 30 + 10.0/(0.01 + percent);
381
382 SetSpeed(percent);
383 }
384
385 PRIVATE void SetPosition(float position)
386 {
387 char string[40];
388
389 static char *axis[] = { "X", "Y", "Z" };
390
391 (void) sprintf(string,"%s Position: %6.3f", axis[Common.axis],
392 position);
393
394 XtVaSetValues(PositionLabel, XtNlabel, string, NULL);
395 }
396
397 PRIVATE void NewPosition(Widget w, XtPointer client_data, XtPointer percent_ptr)
398 {
399 float percent;
400 int i;
401 float old_pos;
402
403 percent = * (float *) percent_ptr;
404
405 i = Common.axis;
406
407 old_pos = Common.position;
408
409 Common.position =
410 (Common.bounds[i].high - Common.bounds[i].low) * percent +
411 Common.bounds[i].low;
412
413 SetPosition(Common.position);
414
415 if (Common.position == old_pos) return;
416
417 if (normal) SceneUpdate();
418 }
419
420 PRIVATE void SetThickness(float thickness)
421 {
422 char string[40];
423
424 (void) sprintf(string,"Thickness: %6.3f", thickness);
425
426 XtVaSetValues(ThicknessLabel, XtNlabel, string, NULL);
427 }
428
429 PRIVATE void NewThickness(Widget w, XtPointer client_data, XtPointer percent_ptr)
430 {
431 float percent;
432 int i;
433 float old_thick;
434
435 percent = * (float *) percent_ptr;
436 i = Common.axis;
437
438 old_thick = Common.thickness;
439 Common.thickness =
440 (Common.bounds[i].high - Common.bounds[i].low) * percent;
441
442 if (old_thick == Common.thickness) return;
443
444 SetThickness(Common.thickness);
445
446 if (normal) SceneUpdate();
447 }
448
449 /* **************************************************************** */
450
451 PRIVATE void AxisSelect(Widget w, XtPointer client_data, XtPointer call_data)
452 {
453 int new_axis;
454
455 new_axis = (int) client_data;
456
457 if (new_axis == Common.axis) return;
458
459 Common.axis = new_axis;
460
461 DrawAxes();
462
463 normal = 0;
464
465 FindAndDisplaySlider(PositionBar, NewPosition);
466 FindAndDisplaySlider(ThicknessBar, NewThickness);
467
468 normal = 1;
469
470 SceneUpdate();
471 }
472
473 PRIVATE void DirectionSelect(Widget w, XtPointer client_data, XtPointer call_data)
474 {
475 int new_dir;
476
477 new_dir = (int) client_data;
478
479 if (new_dir == Common.direction) return;
480
481 Common.direction = new_dir;
482
483 DrawAxes();
484 SceneUpdate();
485 }
486
487 PRIVATE void MotionSelect(Widget w, XtPointer client_data, XtPointer call_data)
488 {
489 int new_dir;
490
491 new_dir = (int) client_data;
492
493 Common.dstep = new_dir;
494 }
495
496
497 PRIVATE void FindAndDisplaySlider(Widget w, XtCallbackProc func)
498 {
499 float percent;
500
501 XtVaGetValues(w, XtNtopOfThumb, &percent, NULL);
502
503 (func)(NULL, NULL, &percent);
504 }
505
506 void PositionUpdate(void)
507 {
508 FindAndDisplaySlider(PositionBar, NewPosition);
509 }
510
511 void ThicknessUpdate(void)
512 {
513 FindAndDisplaySlider(ThicknessBar, NewThickness);
514 }
515
516 void SpeedUpdate(void)
517 {
518 FindAndDisplaySlider(SpeedBar, NewSpeed);
519 }
520
521 /* **************************************************************** */
522
523 typedef struct {
524 int x;
525 int y;
526 char *name;
527 } LABEL;
528
529 typedef struct {
530 XSegment lines[6];
531 LABEL labels[2];
532 } AXIS;
533
534 static AXIS axis_data[] = {
535 { { { 120, 120, 120, 30 }, { 115, 35, 120, 30 },
536 { 120, 30, 125, 35 }, { 120, 120, 30, 120 },
537 { 35, 125, 30, 120 }, { 30, 120, 35, 115 } },
538 { { 15, 127, "Z" }, { 115, 25, "Y" } },
539 },
540 { { { 20, 20, 20, 110 }, { 15, 105, 20, 110 },
541 { 20, 110, 25, 105 }, { 20, 20, 110, 20 },
542 { 105, 15, 110, 20 }, { 110, 20, 105, 25 } },
543 { { 115, 27, "X" }, { 15, 127, "Z" } },
544 },
545 { { { 20, 120, 20, 30 }, { 15, 35, 20, 30 },
546 { 20, 30, 25, 35 }, { 20, 120, 110, 120 },
547 { 105, 125, 110, 120 }, { 110, 120, 105, 115 } },
548 { { 115, 127, "X" }, { 15, 27, "Y" } },
549 },
550 { { { 20, 120, 20, 30 }, { 15, 35, 20, 30 },
551 { 20, 30, 25, 35 }, { 20, 120, 110, 120 },
552 { 105, 125, 110, 120 }, { 110, 120, 105, 115 } },
553 { { 115, 127, "Z" }, { 15, 27, "Y" } },
554 },
555 { { { 20, 120, 20, 30 }, { 15, 35, 20, 30 },
556 { 20, 30, 25, 35 }, { 20, 120, 110, 120 },
557 { 105, 125, 110, 120 }, { 110, 120, 105, 115 } },
558 { { 115, 127, "X" }, { 15, 27, "Z" } },
559 },
560 { { { 20, 20, 20, 110 }, { 15, 105, 20, 110 },
561 { 20, 110, 25, 105 }, { 20, 20, 110, 20 },
562 { 105, 15, 110, 20 }, { 110, 20, 105, 25 } },
563 { { 115, 27, "X" }, { 15, 127, "Y" } },
564 },
565 };
566
567 PRIVATE void DrawAxes(void)
568 {
569 static int first = 1;
570 static GC gc;
571 static Dimension height, width;
572 XGCValues xgc;
573 AXIS *a;
574 int i;
575 XFontStruct *font;
576
577 if ( Common.axis < 0 ||
578 Common.direction < 0 ||
579 !Axes ||
580 !XtIsRealized(Axes) ) return;
581
582 if (first) {
583 xgc.function = GXcopy;
584
585 XtVaGetValues(Axes,
586 XtNbackground, &xgc.background,
587 XtNforeground, &xgc.foreground,
588 XtNfont, &font,
589 XtNheight, &height,
590 XtNwidth, &width,
591 NULL );
592
593 xgc.font = font->fid;
594
595 gc = XCreateGC(XtDisplay(Axes), XtWindow(Axes),
596 GCFunction | GCBackground | GCForeground | GCFont,
597 &xgc);
598
599 first = 0;
600 }
601
602 XClearWindow(XtDisplay(Axes), XtWindow(Axes));
603
604 a = axis_data + Common.axis + 3*Common.direction;
605
606 XDrawSegments(XtDisplay(Axes), XtWindow(Axes), gc, a->lines, 6);
607
608 for(i = 0; i < 2; i++)
609 XDrawString(XtDisplay(Axes), XtWindow(Axes), gc,
610 a->labels[i].x, a->labels[i].y,
611 a->labels[i].name,
612 strlen(a->labels[i].name));
613
614 }
615 void ExposeAxes(Widget w, XEvent *event, String *strings, Cardinal *nstrings)
616 {
617 DrawAxes();
618 }
619
620
621 /* **************************************************************** */
622
623 PRIVATE void MakeRadioGroup(Widget parent, RadioStruct *radio)
624 {
625 ToggleStruct *t;
626 int i;
627
628 if (radio->name)
629 radio->lw = XtCreateManagedWidget(radio->name,
630 labelWidgetClass, parent , NULL, ZERO );
631
632 for(t = radio->buttons, i = radio->nbuttons; i; i--, t++) {
633 t->w = XtCreateManagedWidget(t->name, toggleWidgetClass,
634 parent, NULL, ZERO);
635 XtAddCallback(t->w, XtNcallback, radio->callback,
636 (XtPointer) t->value);
637 }
638
639 }
640
641 /* **************************************************************** */
642
643 PRIVATE void MakeSliderWithLabel(Widget parent, SliderLabelStruct *sl)
644 {
645 /* create the slider */
646
647 *(sl->slider) = XtCreateManagedWidget(sl->slidername,
648 scrollbarWidgetClass, parent, NULL, ZERO);
649
650 /* add the callback */
651
652 XtAddCallback(*(sl->slider), XtNjumpProc, sl->callback, NULL);
653
654 /* create the label */
655
656 *(sl->label) = XtCreateManagedWidget(sl->labelname,
657 labelWidgetClass, parent, NULL, ZERO);
658
659 /* Initialize the display */
660
661 FindAndDisplaySlider(*(sl->slider), sl->callback);
662 }
663
664
665 void UpdateRadios(void)
666 {
667 SetRadio(&AxisRadio);
668 SetRadio(&DirectionRadio);
669 SetRadio(&MotionRadio);
670 }
671
672 PRIVATE void SetRadio(RadioStruct *radio)
673 {
674 ToggleStruct *t;
675 int i;
676 char set_name[80], *rg;
677
678 t = radio->buttons;
679
680 /* find out which toggle is currently set */
681 strcpy(set_name, (char *) XawToggleGetCurrent(t->w));
682
683 for(i = radio->nbuttons; i; i--, t++)
684 if (!strcmp(set_name, t->name)) goto found_set;
685
686 t = radio->buttons;
687
688 XtVaGetValues(t->w, XtNradioGroup, &rg, NULL);
689 fprintf(stderr,"Error: radioData for radioGroup %s inconsistent.\n",
690 rg);
691 XtDestroyApplicationContext(XtWidgetToApplicationContext(TopLevel));
692 exit(0);
693
694 found_set:
695
696 /* call the callback with the proper data */
697
698 (radio->callback)((Widget) t->w, (XtPointer) t->value, (XtPointer) 0);
699 }
700
701 void SetReadString(char *s)
702 {
703 if (ReadInfo == (Widget) 0) return;
704
705 XtVaSetValues(ReadInfo, XtNlabel, s, NULL);
706 }
707
708 /* **************************************************************** */
709
710 PRIVATE void init_quit(Widget parent)
711 {
712 Widget dialog;
713
714 /* create a popup shell */
715
716 QuitPopup = XtCreatePopupShell("popup", POPUPSHELLCLASS,
717 parent, NULL, ZERO);
718
719 /* put a dialog box in it */
720
721 dialog = XtCreateManagedWidget("dialog", dialogWidgetClass,
722 QuitPopup, NULL, ZERO);
723
724 XawDialogAddButton(dialog, "ok", quit_ok, (XtPointer) dialog);
725 XawDialogAddButton(dialog, "cancel", cancel_popup,
726 (XtPointer) &QuitData);
727
728 }
729
730 /* **************************************************************** */
731
732 PRIVATE void do_popup(Widget w, XtPointer client_data, XtPointer call_data)
733 {
734 Position x, y;
735 PopupData *pdata;
736
737 pdata = (PopupData *) client_data;
738
739 /* stop motion for now */
740
741 if (pdata->stop_motion) {
742 in_motion = Common.motion;
743 RemoveMotion();
744 }
745
746 /* translate to corner of calling widgets window */
747
748 XtTranslateCoords(w, 0, 0, &x, &y);
749
750 /* Set us to pop up there */
751
752 XtVaSetValues(*(pdata->w), XtNx, x, XtNy, y, NULL);
753
754 /* do the popping */
755
756 XtPopup(*(pdata->w), pdata->grab);
757 }
758
759
760 PRIVATE void quit_ok(Widget w, XtPointer client_data, XtPointer call_data)
761 {
762 XtDestroyApplicationContext(XtWidgetToApplicationContext(w));
763 exit(0);
764 }
765
766 PRIVATE void cancel_popup(Widget w, XtPointer client_data, XtPointer call_data)
767 {
768 PopupData *pdata;
769
770 pdata = (PopupData *) client_data;
771
772 if (pdata->stop_motion && in_motion) InstallMotion();
773
774 XtPopdown(*(pdata->w));
775 }
776
777 /* **************************************************************** */
778
779 PRIVATE void do_start(Widget w, XtPointer client_data, XtPointer call_data)
780 {
781 InstallMotion();
782 }
783
784 PRIVATE void do_stop(Widget w, XtPointer client_data, XtPointer call_data)
785 {
786 RemoveMotion();
787 }
788
789 PRIVATE void do_restart(Widget w, XtPointer client_data, XtPointer call_data)
790 {
791 RemoveMotion();
792
793 if (Common.dstep > 0)
794 Common.step = 0;
795 else
796 Common.step = Common.ndata-1;
797
798 InstallMotion();
799 }
800
801 PRIVATE void do_step(Widget w, XtPointer client_data, XtPointer call_data)
802 {
803 RemoveMotion();
804
805 Common.step = CoerceStep(Common.step + 1);
806
807 SceneUpdate();
808 }
809
810 PRIVATE void do_back(Widget w, XtPointer client_data, XtPointer call_data)
811 {
812 RemoveMotion();
813
814 Common.step = CoerceStep(Common.step - 1);
815
816 SceneUpdate();
817 }
818
819 PRIVATE void do_save_off(Widget w, XtPointer client_data, XtPointer call_data)
820 {
821 Common.saveflag = 0;
822 }
823
824 PRIVATE void do_save_on(Widget w, XtPointer client_data, XtPointer call_data)
825 {
826 Common.saveflag = 1;
827 }
828
829 PRIVATE void do_save_one(Widget w, XtPointer client_data, XtPointer call_data)
830 {
831 SceneSave();
832 }
833
834 /* **************************************************************** */
835
836 PRIVATE void init_atoms(Widget parent)
837 {
838 Widget outerform, form;
839 Widget apply, cancel, last;
840 char formname[80], fglabel[80], sizelabel[80];
841 char fgname[80], sizename[80], vname[80], iname[80];
842 int i, j;
843 size_t size;
844
845 /* create a popup shell for atom colors */
846
847 AtomPopup = XtCreatePopupShell("atomcolors",
848 transientShellWidgetClass, TopLevel, NULL, ZERO);
849
850 /* put a form widget in it for layout */
851
852 outerform = XtCreateManagedWidget("form", formWidgetClass, AtomPopup,
853 NULL, ZERO);
854
855 /* add the buttons */
856
857 apply = XtCreateManagedWidget("apply", commandWidgetClass,
858 outerform, NULL, ZERO);
859 XtAddCallback(apply, XtNcallback, color_apply,
860 (XtPointer) NULL);
861
862 cancel = XtVaCreateManagedWidget("cancel", commandWidgetClass,
863 outerform, XtNfromHoriz, apply, NULL);
864 XtAddCallback(cancel, XtNcallback, cancel_popup,
865 (XtPointer) &AtomData);
866
867 /* put the dialog boxes in it for the colors */
868
869 /* ************************************************ */
870 /* allocate all the widgets */
871 /* ************************************************ */
872
873 size = Common.natomcolors * sizeof(Widget);
874
875 FGDialog = (Widget *) XtMalloc(size);
876 SizeDialog = (Widget *) XtMalloc(size);
877 Visible = (Widget *) XtMalloc(size);
878 Invisible = (Widget *) XtMalloc(size);
879
880 /* ************************************************ */
881 /* build the rest of the panel */
882 /* ************************************************ */
883
884 last = apply;
885
886 for(i = 0; i < Common.natomcolors; i++) {
887 j = i+1;
888
889 sprintf(formname, "colorform%i", j);
890 sprintf(fgname, "color%i", j);
891 sprintf(fglabel, "Type %i Color", j);
892 sprintf(sizename, "size%i", j);
893 sprintf(sizelabel, "Type %i Diameter", j);
894 sprintf(vname, "visible%i", j);
895 sprintf(iname, "invisible%i", j);
896
897 form = XtVaCreateManagedWidget(formname, formWidgetClass,
898 outerform, XtNfromVert, last, NULL);
899
900 FGDialog[i] = XtVaCreateManagedWidget(fgname,
901 dialogWidgetClass, form, XtNlabel, fglabel,
902 XtNvalue, "white", NULL);
903
904 SizeDialog[i] = XtVaCreateManagedWidget(sizename,
905 dialogWidgetClass, form, XtNlabel, sizelabel,
906 XtNvalue, "10", XtNfromHoriz, FGDialog[i], NULL);
907
908 Visible[i] = XtVaCreateManagedWidget(vname,
909 toggleWidgetClass, form, XtNlabel, "Visible",
910 XtNstate, True, XtNfromVert, FGDialog[i], NULL);
911
912 Invisible[i] = XtVaCreateManagedWidget(iname,
913 toggleWidgetClass, form, XtNlabel, "Invisible",
914 XtNstate, False, XtNradioGroup, Visible[i],
915 XtNfromHoriz, Visible[i], XtNfromVert, FGDialog[i],
916 NULL);
917
918 XtAddCallback(Visible[i], XtNcallback, visible_toggle,
919 (XtPointer) i);
920
921 XtAddCallback(Invisible[i], XtNcallback, visible_toggle,
922 (XtPointer) i);
923
924 Common.atoms_visible[i] = True;
925 Common.diameter[i] = 10;
926 last = form;
927 }
928 }
929
930 /* **************************************************************** */
931
932 PRIVATE void init_bg(Widget parent)
933 {
934 Widget outerform;
935 Widget apply, cancel;
936
937 /* create a popup shell for background color */
938
939 BackgroundPopup = XtCreatePopupShell("backcolors",
940 transientShellWidgetClass, TopLevel, NULL, ZERO);
941
942 /* put a form widget in it for layout */
943
944 outerform = XtCreateManagedWidget("form", formWidgetClass,
945 BackgroundPopup, NULL, ZERO);
946
947 /* add the buttons */
948
949 apply = XtCreateManagedWidget("apply", commandWidgetClass,
950 outerform, NULL, ZERO);
951 XtAddCallback(apply, XtNcallback, bg_apply, (XtPointer) NULL);
952
953 cancel = XtVaCreateManagedWidget("cancel", commandWidgetClass,
954 outerform, XtNfromHoriz, apply, NULL);
955 XtAddCallback(cancel, XtNcallback, cancel_popup,
956 (XtPointer) &BackgroundData);
957
958 /* put the dialog box in it for the color */
959
960 BGDialog = XtVaCreateManagedWidget("bg", dialogWidgetClass,
961 outerform, XtNfromVert, apply, NULL);
962 }
963
964 /* **************************************************************** */
965
966 PRIVATE void init_file(Widget parent)
967 {
968 Widget outerform;
969 Widget apply, cancel;
970
971 /* create a popup shell for color file */
972
973 FileColorPopup = XtCreatePopupShell("filecolors",
974 transientShellWidgetClass, TopLevel, NULL, ZERO);
975
976 /* put a form widget in it for layout */
977
978 outerform = XtCreateManagedWidget("form", formWidgetClass,
979 FileColorPopup, NULL, ZERO);
980
981 /* add the buttons */
982
983 apply = XtCreateManagedWidget("apply", commandWidgetClass,
984 outerform, NULL, ZERO);
985 XtAddCallback(apply, XtNcallback, file_apply, (XtPointer) NULL);
986
987 cancel = XtVaCreateManagedWidget("cancel", commandWidgetClass,
988 outerform, XtNfromHoriz, apply, NULL);
989 XtAddCallback(cancel, XtNcallback, cancel_popup,
990 (XtPointer) &FileColorData);
991
992 /* put the dialog box in it for the filename */
993
994 FileDialog = XtVaCreateManagedWidget("file", dialogWidgetClass,
995 outerform, XtNfromVert, apply, NULL);
996 }
997
998 PRIVATE void init_bonds(Widget parent)
999 {
1000 Widget outerform, form;
1001 Widget apply, cancel, last;
1002 char formname[80], fglabel[80], sizelabel[80];
1003 char fgname[80], sizename[80], vname[80], iname[80];
1004 int i, j;
1005 size_t size;
1006
1007 /* create a popup shell for bond colors */
1008
1009 BondPopup = XtCreatePopupShell("bondcolors",
1010 transientShellWidgetClass,
1011 TopLevel, NULL, ZERO);
1012
1013 /* put a form widget in it for layout */
1014
1015 outerform = XtCreateManagedWidget("form", formWidgetClass, BondPopup,
1016 NULL, ZERO);
1017
1018 /* add the buttons */
1019
1020 apply = XtCreateManagedWidget("apply", commandWidgetClass,
1021 outerform, NULL, ZERO);
1022 XtAddCallback(apply, XtNcallback, bond_apply,
1023 (XtPointer) NULL);
1024
1025 cancel = XtVaCreateManagedWidget("cancel", commandWidgetClass,
1026 outerform, XtNfromHoriz, apply, NULL);
1027 XtAddCallback(cancel, XtNcallback, cancel_popup,
1028 (XtPointer) &BondData);
1029
1030 /* ************************************************ */
1031 /* allocate all the widgets */
1032 /* ************************************************ */
1033
1034 size = Common.nbondcolors * sizeof(Widget);
1035
1036 BFGDialog = (Widget *) XtMalloc(size);
1037 ThicknessDialog = (Widget *) XtMalloc(size);
1038 BVisible = (Widget *) XtMalloc(size);
1039 BInvisible = (Widget *) XtMalloc(size);
1040
1041 /* ************************************************ */
1042 /* build the rest of the panel */
1043 /* ************************************************ */
1044
1045 last = apply;
1046
1047 for(i = 0; i < Common.nbondcolors; i++) {
1048 j = i+1;
1049
1050 sprintf(formname, "bondform%i", j);
1051 sprintf(fgname, "color%i", j);
1052 sprintf(fglabel, "Bond Type %i Color", j);
1053 sprintf(sizename, "thickness%i", j);
1054 sprintf(sizelabel, "Bond Type %i Thickness",j);
1055 sprintf(vname, "visible%i", j);
1056 sprintf(iname, "invisible%i", j);
1057
1058 form = XtVaCreateManagedWidget(formname,
1059 formWidgetClass, outerform, XtNfromVert,
1060 last, NULL);
1061
1062 BFGDialog[i] = XtVaCreateManagedWidget(fgname,
1063 dialogWidgetClass, form, XtNlabel, fglabel,
1064 XtNvalue, "white", NULL);
1065
1066 ThicknessDialog[i] = XtVaCreateManagedWidget(sizename,
1067 dialogWidgetClass, form, XtNlabel, sizelabel,
1068 XtNvalue, "1", XtNfromHoriz, BFGDialog[i], NULL);
1069
1070 BVisible[i] = XtVaCreateManagedWidget(vname,
1071 toggleWidgetClass, form, XtNlabel, "Visible",
1072 XtNstate, True, XtNfromVert, BFGDialog[i], NULL);
1073
1074 BInvisible[i] = XtVaCreateManagedWidget(iname,
1075 toggleWidgetClass, form, XtNlabel, "Invisible",
1076 XtNstate, False, XtNradioGroup, BVisible[i],
1077 XtNfromHoriz, BVisible[i], XtNfromVert, BFGDialog[i],
1078 NULL);
1079
1080 XtAddCallback(BVisible[i], XtNcallback, bvisible_toggle,
1081 (XtPointer) i);
1082
1083 XtAddCallback(BInvisible[i], XtNcallback, bvisible_toggle,
1084 (XtPointer) i);
1085
1086 Common.bonds_visible[i] = True;
1087 last = form;
1088 }
1089 }
1090
1091 /* **************************************************************** */
1092
1093 PRIVATE void color_apply(Widget w, XtPointer client_data, XtPointer call_data)
1094 {
1095 static String *fg, *size;
1096 static Pixel *fgpixel;
1097 static int *diam;
1098 static Bool first = True;
1099
1100 Boolean ok;
1101 int i, n;
1102
1103
1104 if (first) {
1105 n = Common.natomcolors;
1106
1107 fg = (String *) XtMalloc( n * sizeof(String) );
1108 size = (String *) XtMalloc( n * sizeof(String) );
1109 fgpixel = (Pixel *) XtMalloc( n * sizeof(Pixel) );
1110 diam = (int *) XtMalloc( n * sizeof(int) );
1111
1112 first = False;
1113 }
1114
1115 ok = True;
1116
1117 for(i = 0; i < Common.natomcolors; i++) {
1118 fg[i] = XawDialogGetValueString(FGDialog[i]);
1119 fgpixel[i] = ConvertColorToPixel(FGDialog[i], fg[i]);
1120
1121 if (fgpixel[i] == (Pixel) -1) {
1122 ok = False;
1123 XtVaSetValues(FGDialog[i], XtNvalue,
1124 "-Invalid Color-", NULL);
1125 }
1126
1127 size[i] = XawDialogGetValueString(SizeDialog[i]);
1128 diam[i] = atoi(size[i]);
1129
1130 if (diam[i] < 1 || diam[i] > MAXDIAM) {
1131 ok = False;
1132 XtVaSetValues(SizeDialog[i], XtNvalue,
1133 "-Invalid Size-", NULL);
1134 }
1135 }
1136
1137 if (!ok){
1138 XBell(XtDisplay(BGDialog), 0);
1139 return;
1140 }
1141
1142 SetAtomColors(fgpixel);
1143
1144 for(i = 0; i < Common.natomcolors; i++)
1145 Common.diameter[i] = diam[i];
1146
1147 SceneUpdate();
1148 }
1149
1150 /* **************************************************************** */
1151
1152 PRIVATE void bond_apply(Widget w, XtPointer client_data, XtPointer call_data)
1153 {
1154 static String *fg, *size;
1155 static Pixel *fgpixel;
1156 static Dimension *thick;
1157 static Bool first = True;
1158
1159 Boolean ok;
1160 int i, n, ithick;
1161
1162 if (first) {
1163 n = Common.nbondcolors;
1164
1165 fg = (String *) XtMalloc( n * sizeof(String) );
1166 size = (String *) XtMalloc( n * sizeof(String) );
1167 fgpixel = (Pixel *) XtMalloc( n * sizeof(Pixel) );
1168 thick = (Dimension *) XtMalloc( n * sizeof(Dimension) );
1169
1170 first = False;
1171 }
1172
1173 ok = True;
1174
1175 for(i = 0; i < Common.nbondcolors; i++) {
1176 fg[i] = XawDialogGetValueString(BFGDialog[i]);
1177 fgpixel[i] = ConvertColorToPixel(BFGDialog[i], fg[i]);
1178
1179 if (fgpixel[i] == (Pixel) -1) {
1180 ok = False;
1181 XtVaSetValues(BFGDialog[i], XtNvalue,
1182 "-Invalid Color-", NULL);
1183 }
1184
1185 size[i] = XawDialogGetValueString(ThicknessDialog[i]);
1186 ithick = atoi(size[i]);
1187
1188 if (ithick < 1 || ithick > MAXTHICK) {
1189 ok = False;
1190 XtVaSetValues(ThicknessDialog[i], XtNvalue,
1191 "-Invalid Size-", NULL);
1192 }
1193 thick[i] = ithick;
1194 }
1195
1196 if (!ok){
1197 XBell(XtDisplay(BGDialog), 0);
1198 return;
1199 }
1200
1201 SetBondColors(fgpixel, thick);
1202
1203 SceneUpdate();
1204 }
1205
1206 /* **************************************************************** */
1207
1208 PRIVATE void bg_apply(Widget w, XtPointer client_data, XtPointer call_data)
1209 {
1210 String bg;
1211 Pixel bgpixel;
1212
1213 bg = XawDialogGetValueString(BGDialog);
1214 bgpixel = ConvertColorToPixel(BGDialog, bg);
1215
1216 if (bgpixel == (Pixel) -1) {
1217 XtVaSetValues(BGDialog, XtNvalue, "-Invalid Color-", NULL);
1218 XBell(XtDisplay(BGDialog), 0);
1219 return;
1220 }
1221
1222 SetBGColor(bgpixel);
1223
1224 SceneUpdate();
1225 }
1226
1227 PRIVATE Pixel ConvertColorToPixel(Widget w, String color)
1228 {
1229 XrmValue from, to;
1230 Pixel pixel;
1231
1232 from.size = strlen(color) + 1;
1233 from.addr = color;
1234 /* SJP - 10/02, new Linux couldn't fine caddr_t */
1235 /* to.addr = (caddr_t) &pixel; */
1236 to.addr = (char *) &pixel;
1237 to.size = sizeof(pixel);
1238
1239 if (XtConvertAndStore(w, XtRString, (XrmValuePtr) &from,
1240 XtRPixel, (XrmValuePtr) &to))
1241 return(pixel);
1242 else
1243 return( (Pixel) -1);
1244 }
1245
1246
1247 PRIVATE void file_apply(Widget w, XtPointer client_data, XtPointer call_data)
1248 {
1249 String bg;
1250 Pixel bgpixel;
1251 static String *fg, *size;
1252 static Pixel *fgpixel;
1253 static int *diam;
1254 static Bool first = True;
1255
1256 int i, n;
1257
1258 if (first) {
1259 n = Common.natomcolors;
1260
1261 fg = (String *) XtMalloc( n * sizeof(String) );
1262 size = (String *) XtMalloc( n * sizeof(String) );
1263 fgpixel = (Pixel *) XtMalloc( n * sizeof(Pixel) );
1264 diam = (int *) XtMalloc( n * sizeof(int) );
1265
1266 first = False;
1267 }
1268
1269 for(i = 0; i < Common.natomcolors; i++) {
1270 fg[i] = "red";
1271 fgpixel[i] = ConvertColorToPixel(FGDialog[i], fg[i]);
1272
1273 if (fgpixel[i] == (Pixel) -1) return;
1274
1275 XtVaSetValues(FGDialog[i], XtNvalue, fg[i], NULL);
1276
1277 size[i] = "20";
1278 diam[i] = atoi(size[i]);
1279
1280 if (diam[i] < 1 || diam[i] > MAXDIAM) return;
1281 XtVaSetValues(SizeDialog[i], XtNvalue, size[i], NULL);
1282 }
1283
1284 SetAtomColors(fgpixel);
1285
1286 for(i = 0; i < Common.natomcolors; i++)
1287 Common.diameter[i] = diam[i];
1288
1289 /*
1290 Common.atoms_visible[0] = 0;
1291 Common.atoms_visible[1] = 0;
1292 Common.atoms_visible[2] = 0;
1293 Common.atoms_visible[3] = 0;
1294 */
1295
1296 bg = "green";
1297 bgpixel = ConvertColorToPixel(BGDialog, bg);
1298
1299 if (bgpixel == (Pixel) -1) {
1300 XtVaSetValues(BGDialog, XtNvalue, "-Invalid Color-", NULL);
1301 XBell(XtDisplay(BGDialog), 0);
1302 return;
1303 }
1304
1305 SetBGColor(bgpixel);
1306
1307 SceneUpdate();
1308 }
1309
1310 PRIVATE void visible_toggle(Widget w, XtPointer client_data,
1311 XtPointer call_data)
1312 {
1313 int i;
1314 XtPointer data;
1315 char c;
1316
1317 i = (int) client_data;
1318
1319 XtVaGetValues(w, XtNradioData, &data, NULL);
1320
1321 c = *((char *) data);
1322
1323 Common.atoms_visible[i] = c == 'v';
1324 }
1325
1326 PRIVATE void bvisible_toggle(Widget w, XtPointer client_data,
1327 XtPointer call_data)
1328 {
1329 int i;
1330 XtPointer data;
1331 char c;
1332
1333 i = (int) client_data;
1334
1335 XtVaGetValues(w, XtNradioData, &data, NULL);
1336
1337 c = *((char *) data);
1338
1339 Common.bonds_visible[i] = c == 'v';
1340 }
LAMMPS Molecular Dynamics Simulator