ui_menu.c

seismic software,very useful

UIInterpolateToggle (widget)
Widget widget;
	{
	RenderToggleInterp ();
	ViewDrawAll ();
	}

/* default zoom callback */
UISize0 ()
	{
	RenderSetInterp (0);
	ViewWindow0 ();
	UISyzeReset ();
	}

/* default screen size callback (doesn't work) */
UIScreen0 ()
	{
	if (!ui) return;
	XtVaSetValues (ui->canvas,XmNwidth,ui->wide,XmNheight,ui->hite,NULL);
	}

/* region smooth callback */
UISubvolumeSmooth ()
	{
	extern Data data;

	DrawWatch (1);
	RegionSetValue (RegionBound(1),RegionBound(1));
	DataComputeHistogram (data);
	ViewDrawAll ();
	}

/* region smooth undo */
UISmoothUndo ()
	{
	extern Data data;
	
	DrawWatch (1);
	RegionRestoreValue ();
	DataComputeHistogram (data);
	ViewDrawAll ();
	}

/* clear picks callback */
UIPickClear (widget,event)
Widget widget;
XButtonEvent *event;
	{
	PickClear0 ();
	RegionClear ();
	}

UIEditGrade ()
	{
	extern Data data;
	extern View view;

	DrawWatch (1);
	EditGrade (DataBuffer(data),ViewMap(view,AXIS_DOWN),ViewMap(view,AXIS_ACROSS),ViewMap(view,AXIS_DEEP));
	DataComputeHistogram (data);
	ViewDrawAll ();
	}

UIGradeUndo ()
	{
	extern Data data;

	DrawWatch (1);
	EditUndo (DataBuffer(data));
	DataComputeHistogram (data);
	ViewDrawAll ();
	}

UIStatistics ()
	{
	extern View view;
	extern Data data;
	int n, size, i, low, median, high;
	float dist[256];
	Message message;

	for (size=1, i=1; i<4; i++) size *= MapWindow (ViewMap(view,i));
	n = EditBox (DataBuffer(data),ViewMap(view,AXIS_DOWN),ViewMap(view,AXIS_ACROSS),ViewMap(view,AXIS_DEEP),dist);
	EditStats (n,dist,&low,&median,&high);
	printf ("box: n=%d low=%d median=%d high=%d\n", n,low,median,high);
	n = EditCube (DataBuffer(data),ViewMap(view,AXIS_DOWN),ViewMap(view,AXIS_ACROSS),ViewMap(view,AXIS_DEEP),dist);
	EditStats (n,dist,&low,&median,&high);
	printf ("cube: n=%d low=%d median=%d high=%d\n", n,low,median,high);
	UIMessage (message);
	}

UIWakeup ()
	{
	XmProcessTraversal(ui->canvas, XmTRAVERSE_CURRENT);
	}
/* pik write callback */
UIPikWrite ()
	{
	Widget widget;
	extern Data data;
	extern UIPikWrite2();
	extern PikList pik;

	if (!data) return;
	widget = XmCreatePromptDialog (ui->application, "files", NULL, 0);
	XtVaSetValues (widget, XmNselectionLabelString, CS("Type write picks file name:"),
			XmNtextString, CS (pik->file), NULL);
	XtAddCallback (widget, XmNokCallback, (XtCallbackProc)UIPikWrite2, NULL);
	XtAddCallback (widget, XmNcancelCallback, (XtCallbackProc)XtDestroyWidget, NULL);
	XtManageChild (widget);
	}

UIPikWrite2 (widget,stuff,cbs)
Widget widget;
XtPointer stuff;
XmFileSelectionBoxCallbackStruct *cbs;
	{
	extern Data data;
	char *filename;
	FILE *fd;

	XmStringGetLtoR (cbs->value, XmSTRING_DEFAULT_CHARSET, &filename);
	if ((fd = fopen(filename,"w")) == NULL) {
		UIMessage ("cant create dump file");
		}
	else	{
		PikWrite (filename,fd);
		XtDestroyWidget (widget);
		}
	}

/* pik read callback */
UIPikRead ()
	{
	Widget widget;
	extern Data data;
	extern UIPikRead2();
	extern PikList pik;

	if (!data) return;
	widget = XmCreatePromptDialog (ui->application, "files", NULL, 0);
	XtVaSetValues (widget, XmNselectionLabelString, CS("Type write picks file name:"),
			XmNtextString, CS (pik->file), NULL);
	XtAddCallback (widget, XmNokCallback, (XtCallbackProc)UIPikRead2, NULL);
	XtAddCallback (widget, XmNcancelCallback, (XtCallbackProc)XtDestroyWidget, NULL);
	XtManageChild (widget);
	}

UIPikRead2 (widget,stuff,cbs)
Widget widget;
XtPointer stuff;
XmFileSelectionBoxCallbackStruct *cbs;
	{
	extern Data data;
	char *filename;
	extern PikList pik;
	FILE *fd;

	XmStringGetLtoR (cbs->value, XmSTRING_DEFAULT_CHARSET, &filename);
	if ((fd = fopen(filename,"r")) == NULL) {
		UIMessage ("cant create dump file");
		}
	else	{
		strcpy (pik->file,filename);
		fclose (fd);
		PikRead ();
		XtDestroyWidget (widget);
		}
	}

/* save front section callback */
UISaveFront ()
	{
	Widget widget;
	extern UISaveFront2();
	string filename;
	extern Data data;
	extern View view;

	if (!data) return;
	sprintf (filename,"%s_%s_%dx%d",
		DataShortName(data),
		AxisScript(MapAxis(ViewMap(view,AXIS_DEEP)),MapFrame(ViewMap(view,AXIS_DEEP))),
		MapWindow(ViewMap(view,AXIS_DOWN)),
		MapWindow(ViewMap(view,AXIS_ACROSS)) );
	widget = XmCreatePromptDialog (ui->application, "files", NULL, 0);
	XtVaSetValues (widget, XmNselectionLabelString, CS("Type write picks file name:"),
			XmNtextString, CS (filename), NULL);
	XtAddCallback (widget, XmNokCallback, (XtCallbackProc)UISaveFront2, NULL);
	XtAddCallback (widget, XmNcancelCallback, (XtCallbackProc)XtDestroyWidget, NULL);
	XtManageChild (widget);
	}

UISaveFront2 (widget,stuff,cbs)
Widget widget;
XtPointer stuff;
XmFileSelectionBoxCallbackStruct *cbs;
	{
	extern Data data;
	char *filename;
	FILE *fd;

	XmStringGetLtoR (cbs->value, XmSTRING_DEFAULT_CHARSET, &filename);
	if ((fd = fopen(filename,"w")) == NULL) {
		UIMessage ("cant create save file");
		}
	else	{
		fclose (fd);
		SaveFront (filename);
		XtDestroyWidget (widget);
		}
	}

/* save side section callback */
UISaveSide ()
	{
	Widget widget;
	extern UISaveSide2();
	string filename;
	extern Data data;
	extern View view;

	if (!data) return;
	sprintf (filename,"%s_%s_%dx%d",
		DataShortName(data),
		AxisScript(MapAxis(ViewMap(view,AXIS_ACROSS)),MapFrame(ViewMap(view,AXIS_ACROSS))),
		MapWindow(ViewMap(view,AXIS_DOWN)),
		MapWindow(ViewMap(view,AXIS_DEEP)) );
	widget = XmCreatePromptDialog (ui->application, "files", NULL, 0);
	XtVaSetValues (widget, XmNselectionLabelString, CS("Type write picks file name:"),
			XmNtextString, CS (filename), NULL);
	XtAddCallback (widget, XmNokCallback, (XtCallbackProc)UISaveSide2, NULL);
	XtAddCallback (widget, XmNcancelCallback, (XtCallbackProc)XtDestroyWidget, NULL);
	XtManageChild (widget);
	}

UISaveSide2 (widget,stuff,cbs)
Widget widget;
XtPointer stuff;
XmFileSelectionBoxCallbackStruct *cbs;
	{
	extern Data data;
	char *filename;
	FILE *fd;

	XmStringGetLtoR (cbs->value, XmSTRING_DEFAULT_CHARSET, &filename);
	if ((fd = fopen(filename,"w")) == NULL) {
		UIMessage ("cant create save file");
		}
	else	{
		fclose (fd);
		SaveSide (filename);
		XtDestroyWidget (widget);
		}
	}

/* save top section callback */
UISaveTop ()
	{
	Widget widget;
	extern UISaveTop2();
	string filename;
	extern Data data;
	extern View view;

	if (!data) return;
	sprintf (filename,"%s_%s_%dx%d",
		DataShortName(data),
		AxisScript(MapAxis(ViewMap(view,AXIS_DOWN)),MapFrame(ViewMap(view,AXIS_DOWN))),
		MapWindow(ViewMap(view,AXIS_DEEP)),
		MapWindow(ViewMap(view,AXIS_ACROSS)) );
	widget = XmCreatePromptDialog (ui->application, "files", NULL, 0);
	XtVaSetValues (widget, XmNselectionLabelString, CS("Type write picks file name:"),
			XmNtextString, CS (filename), NULL);
	XtAddCallback (widget, XmNokCallback, (XtCallbackProc)UISaveTop2, NULL);
	XtAddCallback (widget, XmNcancelCallback, (XtCallbackProc)XtDestroyWidget, NULL);
	XtManageChild (widget);
	}

UISaveTop2 (widget,stuff,cbs)
Widget widget;
XtPointer stuff;
XmFileSelectionBoxCallbackStruct *cbs;
	{
	extern Data data;
	char *filename;
	FILE *fd;

	XmStringGetLtoR (cbs->value, XmSTRING_DEFAULT_CHARSET, &filename);
	if ((fd = fopen(filename,"w")) == NULL) {
		UIMessage ("cant create save file");
		}
	else	{
		fclose (fd);
		SaveTop (filename);
		XtDestroyWidget (widget);
		}
	}

/* save down profile callback */
UISaveDown ()
	{
	Widget widget;
	extern UISaveDown2();
	string filename;
	extern Data data;
	extern View view;

	if (!data) return;
	sprintf (filename,"%s_%s_%s_%d",
		DataShortName(data),
		AxisScript(MapAxis(ViewMap(view,AXIS_ACROSS)),MapFrame(ViewMap(view,AXIS_ACROSS))),
		AxisScript(MapAxis(ViewMap(view,AXIS_DEEP)),MapFrame(ViewMap(view,AXIS_DEEP))),
		MapWindow(ViewMap(view,AXIS_DOWN)) );
	widget = XmCreatePromptDialog (ui->application, "files", NULL, 0);
	XtVaSetValues (widget, XmNselectionLabelString, CS("Type write picks file name:"),
			XmNtextString, CS (filename), NULL);
	XtAddCallback (widget, XmNokCallback, (XtCallbackProc)UISaveDown2, NULL);
	XtAddCallback (widget, XmNcancelCallback, (XtCallbackProc)XtDestroyWidget, NULL);
	XtManageChild (widget);
	}

UISaveDown2 (widget,stuff,cbs)
Widget widget;
XtPointer stuff;
XmFileSelectionBoxCallbackStruct *cbs;
	{
	extern Data data;
	char *filename;
	FILE *fd;

	XmStringGetLtoR (cbs->value, XmSTRING_DEFAULT_CHARSET, &filename);
	if ((fd = fopen(filename,"w")) == NULL) {
		UIMessage ("cant create save file");
		}
	else	{
		fclose (fd);
		SaveDown (filename);
		XtDestroyWidget (widget);
		}
	}

/* save across profile callback */
UISaveAcross ()
	{
	Widget widget;
	extern UISaveAcross2();
	string filename;
	extern Data data;
	extern View view;

	if (!data) return;
	sprintf (filename,"%s_%s_%s_%d",
		DataShortName(data),
		AxisScript(MapAxis(ViewMap(view,AXIS_DEEP)),MapFrame(ViewMap(view,AXIS_DEEP))),
		AxisScript(MapAxis(ViewMap(view,AXIS_DOWN)),MapFrame(ViewMap(view,AXIS_DOWN))),
		MapWindow(ViewMap(view,AXIS_ACROSS)) );
	widget = XmCreatePromptDialog (ui->application, "files", NULL, 0);
	XtVaSetValues (widget, XmNselectionLabelString, CS("Type write picks file name:"),
			XmNtextString, CS (filename), NULL);
	XtAddCallback (widget, XmNokCallback, (XtCallbackProc)UISaveAcross2, NULL);
	XtAddCallback (widget, XmNcancelCallback, (XtCallbackProc)XtDestroyWidget, NULL);
	XtManageChild (widget);
	}

UISaveAcross2 (widget,stuff,cbs)
Widget widget;
XtPointer stuff;
XmFileSelectionBoxCallbackStruct *cbs;
	{
	extern Data data;
	char *filename;
	FILE *fd;

	XmStringGetLtoR (cbs->value, XmSTRING_DEFAULT_CHARSET, &filename);
	if ((fd = fopen(filename,"w")) == NULL) {
		UIMessage ("cant create save file");
		}
	else	{
		fclose (fd);
		SaveAcross (filename);
		XtDestroyWidget (widget);
		}
	}

/* save deep profile callback */
UISaveDeep ()
	{
	Widget widget;
	extern UISaveDeep2();
	string filename;
	extern Data data;
	extern View view;

	if (!data) return;
	sprintf (filename,"%s_%s_%s_%d",
		DataShortName(data),
		AxisScript(MapAxis(ViewMap(view,AXIS_DOWN)),MapFrame(ViewMap(view,AXIS_DEEP))),
		AxisScript(MapAxis(ViewMap(view,AXIS_ACROSS)),MapFrame(ViewMap(view,AXIS_ACROSS))),
		MapWindow(ViewMap(view,AXIS_DEEP)) );
	widget = XmCreatePromptDialog (ui->application, "files", NULL, 0);
	XtVaSetValues (widget, XmNselectionLabelString, CS("Type write picks file name:"),
			XmNtextString, CS (filename), NULL);
	XtAddCallback (widget, XmNokCallback, (XtCallbackProc)UISaveDeep2, NULL);
	XtAddCallback (widget, XmNcancelCallback, (XtCallbackProc)XtDestroyWidget, NULL);
	XtManageChild (widget);
	}

UISaveDeep2 (widget,stuff,cbs)
Widget widget;
XtPointer stuff;
XmFileSelectionBoxCallbackStruct *cbs;
	{
	extern Data data;
	char *filename;
	FILE *fd;

	XmStringGetLtoR (cbs->value, XmSTRING_DEFAULT_CHARSET, &filename);
	if ((fd = fopen(filename,"w")) == NULL) {
		UIMessage ("cant create save file");
		}
	else	{
		fclose (fd);
		SaveDeep (filename);
		XtDestroyWidget (widget);
		}
	}