/*--------------------------------------------------------------------
 *    The MB-system:	mb3dsoundings_callbacks.c		5/25/2007
 *    $Id: mb3dsoundings_callbacks.c 2227 2015-02-05 21:12:31Z caress $
 *
 *    Copyright (c) 2007-2015 by
 *    David W. Caress (caress@mbari.org)
 *      Monterey Bay Aquarium Research Institute
 *      Moss Landing, CA 95039
 *    and Dale N. Chayes (dale@ldeo.columbia.edu)
 *      Lamont-Doherty Earth Observatory
 *      Palisades, NY 10964
 *
 *    See README file for copying and redistribution conditions.
 *--------------------------------------------------------------------*/

/* Begin user code block <abstract> */
/* End user code block <abstract> */

/**
 * README: This file is appended to at file generation time.
 * Edits can be made throughout the file
 */
/*
 * Generated by the ICS Builder Xcessory (BX).
 *
 * BuilderXcessory Version 6.1.3
 * Code Generator Xcessory 6.1.3 (08/19/04) CGX Scripts 6.1 Motif 2.1
 *
 */
/*
 * Standard includes for builtins.
 */
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <math.h>

/* Motif required Headers */
#include <X11/StringDefs.h>
#include <X11/cursorfont.h>
#include <Xm/Xm.h>
#include <Xm/MainW.h>
#include <Xm/DialogS.h>
#include <Xm/RepType.h>
#include <Xm/MwmUtil.h>
#include <Xm/BulletinB.h>
#include <Xm/RowColumn.h>
#include <Xm/CascadeB.h>
#include <Xm/PushB.h>
#include <Xm/Separator.h>
#include <Xm/ToggleB.h>
#include "Mb3dsdg.h"
#include "MB3DRouteList.h"
#include "MB3DSiteList.h"
#include "MB3DNavList.h"
#include "MB3DView.h"

/* OpenGL include files */
#include <GL/gl.h>
#include <GL/glu.h>
#include <GL/glx.h>
#include "mb_glwdrawa.h"

/* MBIO include files */
#include "mb_status.h"
#include "mb_define.h"

/* Set flag to define mb3dsoundings global variables in this code block */
#define MB3DSOUNDINGSGLOBAL

/* mb3dsoundings include */
#include "mb3dsoundingsprivate.h"
#include "mbview.h"
#include "mbviewprivate.h"

/*------------------------------------------------------------------------------*/

/* local variables */
static Cardinal 	ac;
static Arg      	args[256];
static char		value_text[MB_PATH_MAXLINE];

static char rcs_id[]="$Id: mb3dsoundings_callbacks.c 2227 2015-02-05 21:12:31Z caress $";

/* function prototypes */
/*------------------------------------------------------------------------------*/

/*------------------------------------------------------------------------------*/
/* code used in original BX application, not used for library */

#ifndef MBVIEW_LIBRARY

#include "creation-c.h"

/*
 * Macros to make code look nicer between ANSI and K&R.
 */
#ifndef ARGLIST
#if (NeedFunctionPrototypes == 0)
#define PROTOTYPE(p)	()
#define ARGLIST(p)	p
#define ARG(a, b)	a b;
#define GRA(a, b)	a b;
#define UARG(a, b)      a b;
#define GRAU(a, b)      a b;
#else
#define PROTOTYPE(p)	p
#define ARGLIST(p)	(
#define ARG(a, b)	a b,
#define GRA(a, b)	a b)
#ifdef __cplusplus
#define UARG(a, b)      a,
#define GRAU(a, b)      a)
#else
#define UARG(a, b)      a b,
#define GRAU(a, b)      a b)
#endif
#endif
#endif

Widget		BxFindTopShell PROTOTYPE((Widget));
WidgetList	BxWidgetIdsFromNames PROTOTYPE((Widget, char*, char*));

/*      Function Name:	BxExitCB
 *
 *      Description:   	This functions expects an integer to be passed in
 *		       	client data.  It calls the exit() system call with
 *			the integer value as the argument to the function.
 *
 *      Arguments:      Widget		w: 	the activating widget.
 *			XtPointer	client:	the integer exit value.
 *			XtPointer	call:	the call data (unused).
 */

#ifdef VMS
#include <stdlib.h>
#endif
/*---------------------------------------------------------------------------------------*/


/* ARGSUSED */
void
BxExitCB ARGLIST((w, client, call))
UARG( Widget, w)
ARG( XtPointer, client)
GRAU( XtPointer, call)
{
    long	exitValue = EXIT_FAILURE;
    exit(exitValue);
}
#endif
/*------------------------------------------------------------------------------*/
/* code below used for mb3dsoundings library                                           */
/*------------------------------------------------------------------------------*/
int mb3dsoundings_startup(int verbose, Widget parent, XtAppContext app, int *error)
{
	/* local variables */
	char	*function_name = "mb3dsoundings_startup";

	/* set local verbosity */
	mbs_verbose = verbose;

	/* print starting debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> called\n",
			function_name);
		fprintf(stderr,"dbg2  Version %s\n",rcs_id);
		fprintf(stderr,"dbg2  MB-system Version %s\n",MB_VERSION);
		fprintf(stderr,"dbg2  Input arguments:\n");
		fprintf(stderr,"dbg2       verbose:                 %d\n", verbose);
		fprintf(stderr,"dbg2       parent:                  %p\n", parent);
		fprintf(stderr,"dbg2       app:                     %p\n", app);
		}

	/* set parent widget and app context */
	mbs_parent_widget = parent;
	mbs_app_context = app;
	mbs_work_function_set = MB_NO;
	mbs_timer_count = 0;

	/* initialize window */
	mb3dsoundings_reset();

	/* set error */
	*error = mbs_error;

	/* print output debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> completed\n",
			function_name);
		fprintf(stderr,"dbg2  Return values:\n");
		fprintf(stderr,"dbg2       error:        %d\n",*error);
		fprintf(stderr,"dbg2  Return status:\n");
		fprintf(stderr,"dbg2       status:       %d\n",mbs_status);
		}

	/* return */
	return(mbs_status);
}
/*------------------------------------------------------------------------------*/
int mb3dsoundings_updatecursor()
{
	/* deal with pick according to edit_mode */
	if (mb3dsoundings.edit_mode == MBS_EDIT_TOGGLE)
		{
	  	XDefineCursor(XtDisplay(mb3dsoundings.mb3dsdg.Mb3dsdg),
					XtWindow(mb3dsoundings.mb3dsdg.drawingArea),
					mb3dsoundings.TargetRedCursor);
		}
	else if (mb3dsoundings.edit_mode == MBS_EDIT_PICK)
		{
	  	XDefineCursor(XtDisplay(mb3dsoundings.mb3dsdg.Mb3dsdg),
					XtWindow(mb3dsoundings.mb3dsdg.drawingArea),
					mb3dsoundings.TargetRedCursor);
		}
	else if (mb3dsoundings.edit_mode == MBS_EDIT_ERASE)
		{
	  	XDefineCursor(XtDisplay(mb3dsoundings.mb3dsdg.Mb3dsdg),
					XtWindow(mb3dsoundings.mb3dsdg.drawingArea),
					mb3dsoundings.ExchangeRedCursor);
		}
	else if (mb3dsoundings.edit_mode == MBS_EDIT_RESTORE)
		{
	  	XDefineCursor(XtDisplay(mb3dsoundings.mb3dsdg.Mb3dsdg),
					XtWindow(mb3dsoundings.mb3dsdg.drawingArea),
					mb3dsoundings.ExchangeGreenCursor);
		}
	else if (mb3dsoundings.edit_mode == MBS_EDIT_GRAB)
		{
	  	XDefineCursor(XtDisplay(mb3dsoundings.mb3dsdg.Mb3dsdg),
					XtWindow(mb3dsoundings.mb3dsdg.drawingArea),
					mb3dsoundings.TargetRedCursor);
		}
	else if (mb3dsoundings.edit_mode == MBS_EDIT_INFO)
		{
	  	XDefineCursor(XtDisplay(mb3dsoundings.mb3dsdg.Mb3dsdg),
					XtWindow(mb3dsoundings.mb3dsdg.drawingArea),
					mb3dsoundings.TargetBlueCursor);
		}

	/* return */
	return(mbs_status);
}
/*------------------------------------------------------------------------------*/
int mb3dsoundings_updategui()
{
	/* local variables */
	struct mb3dsoundings_struct *soundingdata;
    	int	ibiasmin, ibiasmax;

	soundingdata = (struct mb3dsoundings_struct *) mb3dsoundings.soundingdata;

	ibiasmin = 100 *(mb3dsoundings.irollbias / 100) - 100;
	ibiasmax = 100 *(mb3dsoundings.irollbias / 100) + 100;
	ac = 0;
        XtSetArg(args[ac], XmNminimum, ibiasmin); ac++;
        XtSetArg(args[ac], XmNmaximum, ibiasmax); ac++;
        XtSetArg(args[ac], XmNvalue, mb3dsoundings.irollbias); ac++;
	XtSetValues(mb3dsoundings.mb3dsdg.scale_rollbias, args, ac);

	ibiasmin = 100 *(mb3dsoundings.ipitchbias / 100) - 100;
	ibiasmax = 100 *(mb3dsoundings.ipitchbias / 100) + 100;
	ac = 0;
        XtSetArg(args[ac], XmNminimum, ibiasmin); ac++;
        XtSetArg(args[ac], XmNmaximum, ibiasmax); ac++;
        XtSetArg(args[ac], XmNvalue, mb3dsoundings.ipitchbias); ac++;
	XtSetValues(mb3dsoundings.mb3dsdg.scale_pitchbias, args, ac);

	ibiasmin = 100 *(mb3dsoundings.iheadingbias / 100) - 100;
	ibiasmax = 100 *(mb3dsoundings.iheadingbias / 100) + 100;
	ac = 0;
        XtSetArg(args[ac], XmNminimum, ibiasmin); ac++;
        XtSetArg(args[ac], XmNmaximum, ibiasmax); ac++;
        XtSetArg(args[ac], XmNvalue, mb3dsoundings.iheadingbias); ac++;
	XtSetValues(mb3dsoundings.mb3dsdg.scale_headingbias, args, ac);

	ibiasmin = 100 *(mb3dsoundings.itimelag / 100) - 100;
	ibiasmax = 100 *(mb3dsoundings.itimelag / 100) + 100;
	ac = 0;
        XtSetArg(args[ac], XmNminimum, ibiasmin); ac++;
        XtSetArg(args[ac], XmNmaximum, ibiasmax); ac++;
        XtSetArg(args[ac], XmNvalue, mb3dsoundings.itimelag); ac++;
	XtSetValues(mb3dsoundings.mb3dsdg.scale_timelag, args, ac);

	if (mb3dsoundings.view_boundingbox == MB_YES)
		{
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_boundingbox,
				True, False);
		}
	else
		{
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_boundingbox,
				False, False);
		}

	if (mb3dsoundings.view_flagged == MB_YES)
		{
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_flagged,
				True, False);
		}
	else
		{
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_flagged,
				False, False);
		}

	if (mb3dsoundings.view_scalewithflagged == MB_YES)
		{
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_scalewithflagged,
				True, False);
		}
	else
		{
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_scalewithflagged,
				False, False);
		}

	if (mb3dsoundings.view_profiles == MBS_VIEW_PROFILES_NONE)
		{
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_noconnect,
				True, False);
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_connectgood,
				False, False);
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_connectall,
				False, False);
		}
	else if (mb3dsoundings.view_profiles == MBS_VIEW_PROFILES_UNFLAGGED)
		{
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_noconnect,
				False, False);
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_connectgood,
				True, False);
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_connectall,
				False, False);
		}
	else
		{
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_noconnect,
				False, False);
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_connectgood,
				False, False);
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_connectall,
				True, False);
		}

	if (mb3dsoundings.mouse_mode == MBS_MOUSE_ROTATE)
		{
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_rotate,
				True, False);
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_panzoom,
				False, False);
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_rotate1,
				True, False);
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_panzoom1,
				False, False);
		}
	else
		{
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_rotate,
				False, False);
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_panzoom,
				True, False);
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_rotate1,
				False, False);
    		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_panzoom1,
				True, False);
		}

	/* set the mode toggles */
	mb3dsoundings_updatemodetoggles();

	/* set status label */
	mb3dsoundings_updatestatus();

	/* set edit cursor */
	mb3dsoundings_updatecursor();

	/* return */
	return(mbs_status);
}
/*------------------------------------------------------------------------------*/
int mb3dsoundings_updatemodetoggles()
{
	/* set the mode toggles */
	if (mb3dsoundings.edit_mode == MBS_EDIT_TOGGLE)
	    {
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_toggle,  TRUE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_pick,    FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_erase,   FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_restore, FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_grab,    FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_info,    FALSE, FALSE);
	    }
	else if (mb3dsoundings.edit_mode == MBS_EDIT_PICK)
	    {
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_toggle,  FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_pick,    TRUE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_erase,   FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_restore, FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_grab,    FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_info,    FALSE, FALSE);
	    }
	else if (mb3dsoundings.edit_mode == MBS_EDIT_ERASE)
	    {
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_toggle,  FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_pick,    FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_erase,   TRUE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_restore, FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_grab,    FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_info,    FALSE, FALSE);
	    }
	else if (mb3dsoundings.edit_mode == MBS_EDIT_RESTORE)
	    {
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_toggle,  FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_pick,    FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_erase,   FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_restore, TRUE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_grab,    FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_info,    FALSE, FALSE);
	    }
	else if (mb3dsoundings.edit_mode == MBS_EDIT_GRAB)
	    {
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_toggle,  FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_pick,    FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_erase,   FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_restore, FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_grab,    TRUE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_info,    FALSE, FALSE);
	    }
	else if (mb3dsoundings.edit_mode == MBS_EDIT_INFO)
	    {
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_toggle,  FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_pick,    FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_erase,   FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_restore, FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_grab,    FALSE, FALSE);
	    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_info,    TRUE, FALSE);
	    }

	/* return */
	return(mbs_status);
}
/*------------------------------------------------------------------------------*/
int mb3dsoundings_updatestatus()
{
	/* local variables */
	struct mb3dsoundings_struct *soundingdata;
	struct mb3dsoundings_sounding_struct *sounding;

	soundingdata = (struct mb3dsoundings_struct *) mb3dsoundings.soundingdata;

	/* if in info mode and sounding picked print info as status */
	if (mb3dsoundings.edit_mode == MBS_EDIT_INFO
		&& mb3dsoundings.last_sounding_defined == MB_YES)
		{
		sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[mb3dsoundings.last_sounding_edited]);
		(mb3dsoundings.mb3dsoundings_info_notify)(sounding->ifile, sounding->iping,
							sounding->ibeam, value_text);
fprintf(stderr,"\n%s\n",value_text);
		}

	/* else set standard status label */
	else
		{
		sprintf(value_text, "Azi:%.2f | Elev: %.2f | Exager:%.2f | Tot:%d Good:%d Flagged:%d",
			mb3dsoundings.azimuth, mb3dsoundings.elevation, mb3dsoundings.exageration,
			soundingdata->num_soundings, soundingdata->num_soundings_unflagged,
			soundingdata->num_soundings_flagged);
		}

	/* put up the new status string */
	set_mbview_label_string(mb3dsoundings.mb3dsdg.label_status, value_text);

	/* return */
	return(mbs_status);
}
/*------------------------------------------------------------------------------*/
int mb3dsoundings_end(int verbose, int *error)
{
	/* local variables */
	char	*function_name = "mb3dsoundings_end()";

	/* set local verbosity */
	mbs_verbose = verbose;

	/* print starting debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> called\n",
			function_name);
		fprintf(stderr,"dbg2  Version %s\n",rcs_id);
		fprintf(stderr,"dbg2  MB-system Version %s\n",MB_VERSION);
		fprintf(stderr,"dbg2  Input arguments:\n");
		fprintf(stderr,"dbg2       verbose:                 %d\n", verbose);
		}

	/* handle destruction if not already handled */
	if (mb3dsoundings.init != MBS_WINDOW_NULL)
	    {
	    /* delete old glx_context if it exists */
	    if (mb3dsoundings.glx_init == MB_YES)
		{
		glXDestroyContext(mb3dsoundings.dpy, mb3dsoundings.glx_context);
		XtDestroyWidget(mb3dsoundings.glwmda);
		mb3dsoundings.glx_init = MB_NO;
		}

	    /* destroy the topLevelShell and all its children */
	    XtDestroyWidget(mb3dsoundings.topLevelShell);

	    /* reset init flag */
	    mb3dsoundings.init = MBS_WINDOW_NULL;
	    }

	/* reinitialize parameters */
	mb3dsoundings_reset();

	/* set flags */
	mbs_status = MB_SUCCESS;
	mbs_error = MB_ERROR_NO_ERROR;

	/* set error */
	*error = mbs_error;

	/* print output debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> completed\n",
			function_name);
		fprintf(stderr,"dbg2  Return values:\n");
		fprintf(stderr,"dbg2       error:        %d\n",*error);
		fprintf(stderr,"dbg2  Return status:\n");
		fprintf(stderr,"dbg2       status:       %d\n",mbs_status);
		}

	/* return */
	return(mbs_status);
}
/*------------------------------------------------------------------------------*/

int mb3dsoundings_set_dismiss_notify(int verbose, void (dismiss_notify)(), int *error)
{
	/* local variables */
	char	*function_name = "mb3dsoundings_set_dismiss_notify";

	/* print starting debug statements */
	if (verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> called\n",
			function_name);
		fprintf(stderr,"dbg2  Version %s\n",rcs_id);
		fprintf(stderr,"dbg2  MB-system Version %s\n",MB_VERSION);
		fprintf(stderr,"dbg2  Input arguments:\n");
		fprintf(stderr,"dbg2       verbose:                 %d\n", verbose);
		}

	/* set the function pointer */
	mb3dsoundings.mb3dsoundings_dismiss_notify = dismiss_notify;

	/* set error */
	*error = mbs_error;

	/* print output debug statements */
	if (verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> completed\n",
			function_name);
		fprintf(stderr,"dbg2  Return values:\n");
		fprintf(stderr,"dbg2       error:        %d\n",*error);
		fprintf(stderr,"dbg2  Return status:\n");
		fprintf(stderr,"dbg2       status:       %d\n",mbs_status);
		}

	/* return */
	return(mbs_status);
}

/*------------------------------------------------------------------------------*/
int mb3dsoundings_set_edit_notify(int verbose, void (edit_notify)(int, int, int, char, int), int *error)
{
	/* local variables */
	char	*function_name = "mb3dsoundings_set_edit_notify";

	/* print starting debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> called\n",
			function_name);
		fprintf(stderr,"dbg2  Version %s\n",rcs_id);
		fprintf(stderr,"dbg2  MB-system Version %s\n",MB_VERSION);
		fprintf(stderr,"dbg2  Input arguments:\n");
		fprintf(stderr,"dbg2       verbose:                 %d\n", verbose);
		}

	/* set the function pointer */
	mb3dsoundings.mb3dsoundings_edit_notify = edit_notify;

	/* set error */
	*error = mbs_error;

	/* set error */
	*error = mbs_error;

	/* print output debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> completed\n",
			function_name);
		fprintf(stderr,"dbg2  Return values:\n");
		fprintf(stderr,"dbg2       error:        %d\n",*error);
		fprintf(stderr,"dbg2  Return status:\n");
		fprintf(stderr,"dbg2       status:       %d\n",mbs_status);
		}

	/* return */
	return(mbs_status);
}

/*------------------------------------------------------------------------------*/
int mb3dsoundings_set_info_notify(int verbose, void (info_notify)(int, int, int, char *), int *error)
{
	/* local variables */
	char	*function_name = "mb3dsoundings_set_info_notify";

	/* print starting debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> called\n",
			function_name);
		fprintf(stderr,"dbg2  Version %s\n",rcs_id);
		fprintf(stderr,"dbg2  MB-system Version %s\n",MB_VERSION);
		fprintf(stderr,"dbg2  Input arguments:\n");
		fprintf(stderr,"dbg2       verbose:                 %d\n", verbose);
		}

	/* set the function pointer */
	mb3dsoundings.mb3dsoundings_info_notify = info_notify;

	/* set error */
	*error = mbs_error;

	/* set error */
	*error = mbs_error;

	/* print output debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> completed\n",
			function_name);
		fprintf(stderr,"dbg2  Return values:\n");
		fprintf(stderr,"dbg2       error:        %d\n",*error);
		fprintf(stderr,"dbg2  Return status:\n");
		fprintf(stderr,"dbg2       status:       %d\n",mbs_status);
		}

	/* return */
	return(mbs_status);
}

/*------------------------------------------------------------------------------*/
int mb3dsoundings_set_bias_notify(int verbose, void (bias_notify)(double, double, double, double), int *error)
{
	/* local variables */
	char	*function_name = "mb3dsoundings_set_bias_notify";

	/* print starting debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> called\n",
			function_name);
		fprintf(stderr,"dbg2  Version %s\n",rcs_id);
		fprintf(stderr,"dbg2  MB-system Version %s\n",MB_VERSION);
		fprintf(stderr,"dbg2  Input arguments:\n");
		fprintf(stderr,"dbg2       verbose:                 %d\n", verbose);
		}

	/* set the function pointer */
	mb3dsoundings.mb3dsoundings_bias_notify = bias_notify;

	/* set error */
	*error = mbs_error;

	/* set error */
	*error = mbs_error;

	/* print output debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> completed\n",
			function_name);
		fprintf(stderr,"dbg2  Return values:\n");
		fprintf(stderr,"dbg2       error:        %d\n",*error);
		fprintf(stderr,"dbg2  Return status:\n");
		fprintf(stderr,"dbg2       status:       %d\n",mbs_status);
		}

	/* return */
	return(mbs_status);
}

/*------------------------------------------------------------------------------*/
int mb3dsoundings_set_biasapply_notify(int verbose, void (biasapply_notify)(double, double, double, double), int *error)
{
	/* local variables */
	char	*function_name = "mb3dsoundings_set_biasapply_notify";

	/* print starting debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> called\n",
			function_name);
		fprintf(stderr,"dbg2  Version %s\n",rcs_id);
		fprintf(stderr,"dbg2  MB-system Version %s\n",MB_VERSION);
		fprintf(stderr,"dbg2  Input arguments:\n");
		fprintf(stderr,"dbg2       verbose:                 %d\n", verbose);
		}

	/* set the function pointer */
	mb3dsoundings.mb3dsoundings_biasapply_notify = biasapply_notify;

	/* set error */
	*error = mbs_error;

	/* set error */
	*error = mbs_error;

	/* print output debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> completed\n",
			function_name);
		fprintf(stderr,"dbg2  Return values:\n");
		fprintf(stderr,"dbg2       error:        %d\n",*error);
		fprintf(stderr,"dbg2  Return status:\n");
		fprintf(stderr,"dbg2       status:       %d\n",mbs_status);
		}

	/* return */
	return(mbs_status);
}

/*------------------------------------------------------------------------------*/
int mb3dsoundings_set_colorsoundings_notify(int verbose, void (colorsoundings_notify)(int), int *error)
{
	/* local variables */
	char	*function_name = "mb3dsoundings_set_colorsoundings_notify";

	/* print starting debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> called\n",
			function_name);
		fprintf(stderr,"dbg2  Version %s\n",rcs_id);
		fprintf(stderr,"dbg2  MB-system Version %s\n",MB_VERSION);
		fprintf(stderr,"dbg2  Input arguments:\n");
		fprintf(stderr,"dbg2       verbose:                 %d\n", verbose);
		}

	/* set the function pointer */
	mb3dsoundings.mb3dsoundings_colorsoundings_notify = colorsoundings_notify;

	/* set error */
	*error = mbs_error;

	/* set error */
	*error = mbs_error;

	/* print output debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> completed\n",
			function_name);
		fprintf(stderr,"dbg2  Return values:\n");
		fprintf(stderr,"dbg2       error:        %d\n",*error);
		fprintf(stderr,"dbg2  Return status:\n");
		fprintf(stderr,"dbg2       status:       %d\n",mbs_status);
		}

	/* return */
	return(mbs_status);
}

/*------------------------------------------------------------------------------*/
int mb3dsoundings_reset()
{
	/* local variables */
	char	*function_name = "mb3dsoundings_reset";

	/* print starting debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> called\n",
			function_name);
		fprintf(stderr,"dbg2  Version %s\n",rcs_id);
		fprintf(stderr,"dbg2  MB-system Version %s\n",MB_VERSION);
		fprintf(stderr,"dbg2  Input arguments:\n");
		}

	/* initialize mb3dsoungings data and parameters */
	mb3dsoundings.init = MBS_WINDOW_NULL;

	mb3dsoundings.mb3dsoundings_dismiss_notify = NULL;
	mb3dsoundings.mb3dsoundings_edit_notify = NULL;
	mb3dsoundings.mb3dsoundings_info_notify = NULL;
	mb3dsoundings.mb3dsoundings_bias_notify = NULL;
	mb3dsoundings.mb3dsoundings_biasapply_notify = NULL;

	mb3dsoundings.topLevelShell = NULL;
	mb3dsoundings.mainWindow = NULL;
	mb3dsoundings.glwmda = NULL;
	mb3dsoundings.dpy = NULL;
	mb3dsoundings.vi = NULL;
	mb3dsoundings.glx_init = MB_NO;
	mb3dsoundings.glx_context = NULL;
	mb3dsoundings.message_on = MB_NO;
	mb3dsoundings.edit_mode = MBS_EDIT_TOGGLE;
	mb3dsoundings.mouse_mode = MBS_MOUSE_ROTATE;
	mb3dsoundings.keyreverse_mode = MB_NO;
	mb3dsoundings.mousereverse_mode = MB_NO;

	/* drawing variables */
	mb3dsoundings.elevation = 0.0;
	mb3dsoundings.azimuth = 0.0;
	mb3dsoundings.exageration = 1.0;
	mb3dsoundings.gl_width = 0;
	mb3dsoundings.gl_height = 0;;
	mb3dsoundings.right = -1.0;
	mb3dsoundings.left = 1.0;
	mb3dsoundings.top = 1.0;
	mb3dsoundings.bottom = -1.0;
	mb3dsoundings.aspect_ratio = 1.0;
	mb3dsoundings.gl_offset_x = 0.0;
	mb3dsoundings.gl_offset_y = 0.0;
	mb3dsoundings.gl_offset_x_save = 0.0;
	mb3dsoundings.gl_offset_y_save = 0.0;
	mb3dsoundings.gl_size = 1.0;
	mb3dsoundings.gl_size_save = 1.0;

	/* button parameters */
	mb3dsoundings.button1down = MB_NO;
	mb3dsoundings.button2down = MB_NO;
	mb3dsoundings.button3down = MB_NO;
	mb3dsoundings.button_down_x = 0;
	mb3dsoundings.button_down_y = 0;
	mb3dsoundings.button_move_x = 0;
	mb3dsoundings.button_move_y = 0;
	mb3dsoundings.button_up_x = 0;
	mb3dsoundings.button_up_y = 0;

    	/* edit grab parameters */
	mb3dsoundings.grab_start_defined = MB_NO;
	mb3dsoundings.grab_end_defined = MB_NO;
	mb3dsoundings.grab_start_x = 0;
	mb3dsoundings.grab_start_y = 0;
	mb3dsoundings.grab_end_x = 0;
	mb3dsoundings.grab_end_y = 0;

	/* patch test parameters */
	mb3dsoundings.irollbias = 0;
	mb3dsoundings.ipitchbias = 0;
	mb3dsoundings.iheadingbias = 0;
	mb3dsoundings.itimelag = 0;

	/* view parameters */
	mb3dsoundings.view_boundingbox = MB_YES;
	mb3dsoundings.view_flagged = MB_YES;
	mb3dsoundings.view_profiles = MBS_VIEW_PROFILES_NONE;
	mb3dsoundings.view_scalewithflagged = MB_YES;

	/* last sounding edited */
	mb3dsoundings.last_sounding_defined = MB_NO;
	mb3dsoundings.last_sounding_edited = 0;

	/* print output debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> completed\n",
			function_name);
		fprintf(stderr,"dbg2  Return status:\n");
		fprintf(stderr,"dbg2       status:       %d\n",mbs_status);
		}

	/* return */
	return(mbs_status);
}

/*---------------------------------------------------------------------------------------*/
int mb3dsoundings_open(int verbose, struct mb3dsoundings_struct *soundingdata, int *error)
{
	/* local variables */
	char	*function_name = "mb3dsoundings_open";
	XColor	XColorBlack;
	XColor	XColorWhite;
	XColor	XColorRed;
	XColor	XColorGreen;
	XColor	XColorBlue;
	XColor	XColorCoral;
	XColor	exact;

/* fprintf(stderr,"Called mb3dsoundings_open\n"); */

	/* print starting debug statements */
	if (verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> called\n",
			function_name);
		fprintf(stderr,"dbg2  Version %s\n",rcs_id);
		fprintf(stderr,"dbg2  MB-system Version %s\n",MB_VERSION);
		fprintf(stderr,"dbg2  Input arguments:\n");
		fprintf(stderr,"dbg2       verbose:       %d\n",verbose);
		fprintf(stderr,"dbg2       soundingdata:  %p\n",soundingdata);
		}

	/* set the data pointer */
	mb3dsoundings.soundingdata = (struct mb3dsoundings_struct *)soundingdata;
	mb3dsoundings_scale(verbose, error);

	/* if not yet created then create the MB3DView class in
		a topLevelShell as a child of Widget parent */
	if (mb3dsoundings.init == MBS_WINDOW_NULL)
		{
		ac = 0;
		XtSetArg(args[ac], XmNtitle, "3D Soundings"); ac++;
		XtSetArg(args[ac], XmNwidth, 800); ac++;
		XtSetArg(args[ac], XmNheight, 600); ac++;
		mb3dsoundings.topLevelShell = XtCreatePopupShell("topLevelShell",
		    topLevelShellWidgetClass,
		    mbs_parent_widget,
		    args,
		    ac);
		mb3dsoundings.mainWindow = XmCreateMainWindow(
		    mb3dsoundings.topLevelShell,
		    "mainWindow_mb3dsoundings",
        	    args,
        	    ac);
    		XtManageChild(mb3dsoundings.mainWindow);
		Mb3dsdgCreate(&(mb3dsoundings.mb3dsdg),
        	    mb3dsoundings.mainWindow,
        	    "mb3dsdg",
        	    args,
        	    ac);

		ac = 0;
		XtSetArg(args[ac], XmNx, mb3dsoundings.gl_xo); ac++;
		XtSetArg(args[ac], XmNy, mb3dsoundings.gl_yo); ac++;
		XtSetArg(args[ac], XmNwidth, mb3dsoundings.gl_width + MBS_LEFT_WIDTH); ac++;
		XtSetArg(args[ac], XmNheight, mb3dsoundings.gl_height + MBS_LEFT_HEIGHT); ac++;
		XtSetValues(mb3dsoundings.mb3dsdg.Mb3dsdg, args, ac);

    		XtManageChild(mb3dsoundings.mb3dsdg.Mb3dsdg);

		/* get resize events - add event handlers */
		XtAddEventHandler(mb3dsoundings.mb3dsdg.drawingArea,
					StructureNotifyMask,
					False,
					(XtEventHandler)do_mb3dsdg_resize,
					(XtPointer)0);

		/* set the mode toggles */
		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_toggle, 0, FALSE);
		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_pick, 0, FALSE);
		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_erase, 0, FALSE);
		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_restore, 0, FALSE);
		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_grab, 0, FALSE);
		XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_info, 0, FALSE);
		if (mb3dsoundings.edit_mode == MBS_EDIT_TOGGLE)
		    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_toggle, 1, FALSE);
		else if (mb3dsoundings.edit_mode == MBS_EDIT_PICK)
		    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_pick, 1, FALSE);
		else if (mb3dsoundings.edit_mode == MBS_EDIT_ERASE)
		    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_erase, 1, FALSE);
		else if (mb3dsoundings.edit_mode == MBS_EDIT_RESTORE)
		    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_restore, 1, FALSE);
		else if (mb3dsoundings.edit_mode == MBS_EDIT_GRAB)
		    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_grab, 1, FALSE);
		else if (mb3dsoundings.edit_mode == MBS_EDIT_INFO)
		    XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_info, 1, FALSE);

		/* get display and xid */
		mb3dsoundings.dpy = (Display *) XtDisplay(mb3dsoundings.mb3dsdg.Mb3dsdg);
		mb3dsoundings.xid = XtWindow(mb3dsoundings.mb3dsdg.drawingArea);

		/* generate cursors for later use */
		XAllocNamedColor(mb3dsoundings.dpy,
    				    DefaultColormap(mb3dsoundings.dpy, XDefaultScreen(mb3dsoundings.dpy)),
				    "red", &XColorRed, &exact);
		XAllocNamedColor(mb3dsoundings.dpy,
    				    DefaultColormap(mb3dsoundings.dpy, XDefaultScreen(mb3dsoundings.dpy)),
				    "green", &XColorGreen, &exact);
		XAllocNamedColor(mb3dsoundings.dpy,
    				    DefaultColormap(mb3dsoundings.dpy, XDefaultScreen(mb3dsoundings.dpy)),
				    "blue", &XColorBlue, &exact);
		XAllocNamedColor(mb3dsoundings.dpy,
    				    DefaultColormap(mb3dsoundings.dpy, XDefaultScreen(mb3dsoundings.dpy)),
				    "black", &XColorBlack, &exact);
		XAllocNamedColor(mb3dsoundings.dpy,
    				    DefaultColormap(mb3dsoundings.dpy, XDefaultScreen(mb3dsoundings.dpy)),
				    "white", &XColorWhite, &exact);
		XAllocNamedColor(mb3dsoundings.dpy,
    				    DefaultColormap(mb3dsoundings.dpy, XDefaultScreen(mb3dsoundings.dpy)),
				    "coral", &XColorCoral, &exact);
		mb3dsoundings.TargetBlackCursor = XCreateFontCursor(mb3dsoundings.dpy, XC_target);
		mb3dsoundings.TargetGreenCursor = XCreateFontCursor(mb3dsoundings.dpy, XC_target);
		mb3dsoundings.TargetRedCursor = XCreateFontCursor(mb3dsoundings.dpy, XC_target);
		mb3dsoundings.TargetBlueCursor = XCreateFontCursor(mb3dsoundings.dpy, XC_target);
		mb3dsoundings.ExchangeBlackCursor = XCreateFontCursor(mb3dsoundings.dpy, XC_exchange);
		mb3dsoundings.ExchangeGreenCursor = XCreateFontCursor(mb3dsoundings.dpy, XC_exchange);
		mb3dsoundings.ExchangeRedCursor = XCreateFontCursor(mb3dsoundings.dpy, XC_exchange);
		mb3dsoundings.FleurBlackCursor = XCreateFontCursor(mb3dsoundings.dpy, XC_fleur);
		mb3dsoundings.FleurRedCursor = XCreateFontCursor(mb3dsoundings.dpy, XC_fleur);
		mb3dsoundings.SizingBlackCursor = XCreateFontCursor(mb3dsoundings.dpy, XC_sizing);
		mb3dsoundings.SizingRedCursor = XCreateFontCursor(mb3dsoundings.dpy, XC_sizing);
		mb3dsoundings.BoatBlackCursor = XCreateFontCursor(mb3dsoundings.dpy, XC_boat);
		mb3dsoundings.BoatRedCursor = XCreateFontCursor(mb3dsoundings.dpy, XC_boat);
		mb3dsoundings.WatchBlackCursor = XCreateFontCursor(mb3dsoundings.dpy, XC_watch);
		mb3dsoundings.WatchRedCursor = XCreateFontCursor(mb3dsoundings.dpy, XC_watch);
		XRecolorCursor(mb3dsoundings.dpy,mb3dsoundings.TargetRedCursor,&XColorRed,&XColorCoral);
		XRecolorCursor(mb3dsoundings.dpy,mb3dsoundings.TargetGreenCursor,&XColorGreen,&XColorCoral);
		XRecolorCursor(mb3dsoundings.dpy,mb3dsoundings.TargetBlueCursor,&XColorBlue,&XColorCoral);
		XRecolorCursor(mb3dsoundings.dpy,mb3dsoundings.ExchangeRedCursor,&XColorRed,&XColorCoral);
		XRecolorCursor(mb3dsoundings.dpy,mb3dsoundings.ExchangeGreenCursor,&XColorGreen,&XColorCoral);
		XRecolorCursor(mb3dsoundings.dpy,mb3dsoundings.FleurRedCursor,&XColorRed,&XColorCoral);
		XRecolorCursor(mb3dsoundings.dpy,mb3dsoundings.SizingRedCursor,&XColorRed,&XColorCoral);
		XRecolorCursor(mb3dsoundings.dpy,mb3dsoundings.BoatRedCursor,&XColorRed,&XColorCoral);
		XRecolorCursor(mb3dsoundings.dpy,mb3dsoundings.WatchRedCursor,&XColorRed,&XColorCoral);

		mb3dsoundings.init = MBS_WINDOW_HIDDEN;
		}

    	if (mb3dsoundings.init == MBS_WINDOW_HIDDEN)
		{
		XtPopup(XtParent(mb3dsoundings.mainWindow), XtGrabNone);
		mb3dsoundings.init = MBS_WINDOW_VISIBLE;
		}

	/* update gui widgets */
	mb3dsoundings_updategui();

	/* reset OpenGL */
	mb3dsoundings_reset_glx();

	/* recalculate vertical scaling */
	mb3dsoundings_setzscale(verbose, error);

	/* replot the data */
	mb3dsoundings_plot(verbose, error);

	/* set error */
	*error = mbs_error;

	/* print output debug statements */
	if (verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> completed\n",
			function_name);
		fprintf(stderr,"dbg2  Return values:\n");
		fprintf(stderr,"dbg2       error:        %d\n",*error);
		fprintf(stderr,"dbg2  Return status:\n");
		fprintf(stderr,"dbg2       status:       %d\n",mbs_status);
		}

	/* return */
	return(mbs_status);
}
/*------------------------------------------------------------------------------*/
int mb3dsoundings_reset_glx()
{
	/* local variables */
	char	*function_name = "mb3dsoundings_reset_glx";

	/* print starting debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> called\n",
			function_name);
		fprintf(stderr,"dbg2  Version %s\n",rcs_id);
		fprintf(stderr,"dbg2  MB-system Version %s\n",MB_VERSION);
		fprintf(stderr,"dbg2  Input arguments:\n");
		}
/* fprintf(stderr,"mb3dsoundings_reset_glx 1\n"); */

	/* delete old glx_context if it exists */
	if (mb3dsoundings.glx_init == MB_YES)
		{
		glXDestroyContext(mb3dsoundings.dpy, mb3dsoundings.glx_context);
		XtDestroyWidget(mb3dsoundings.glwmda);
		mb3dsoundings.glx_init = MB_NO;
		}

	/* get dimensions of the drawingArea */
	XtVaGetValues(mb3dsoundings.mb3dsdg.drawingArea,
		XmNwidth, &mb3dsoundings.gl_width,
		XmNheight, &mb3dsoundings.gl_height,
		NULL);
	mb3dsoundings.gl_width -= 20;
	mb3dsoundings.gl_height -= 20;

	/* intitialize OpenGL graphics */
	ac = 0;
	XtSetArg(args[ac], mbGLwNrgba, TRUE); ac++;
	XtSetArg(args[ac], mbGLwNdepthSize, 1); ac++;
	XtSetArg(args[ac], mbGLwNdoublebuffer, True); ac++;
	XtSetArg(args[ac], mbGLwNallocateBackground, TRUE); ac++;
	XtSetArg(args[ac], XmNwidth, mb3dsoundings.gl_width); ac++;
	XtSetArg(args[ac], XmNheight, mb3dsoundings.gl_height); ac++;
	mb3dsoundings.glwmda = mbGLwCreateMDrawingArea(mb3dsoundings.mb3dsdg.drawingArea,
		"glwidget", args, ac);

	XtManageChild (mb3dsoundings.glwmda);
	XtAddCallback(mb3dsoundings.glwmda, "exposeCallback",
		    &(do_mb3dsdg_glwda_expose), (XtPointer) NULL);
	XtAddCallback(mb3dsoundings.glwmda, "resizeCallback",
		    &(do_mb3dsdg_glwda_resize), (XtPointer) NULL);
	XtAddCallback(mb3dsoundings.glwmda, "inputCallback",
		    &(do_mb3dsdg_glwda_input), (XtPointer) NULL);

	/* set up a new opengl context */
	ac = 0;
	XtSetArg(args[ac], mbGLwNvisualInfo, &(mb3dsoundings.vi)); ac++;
	XtGetValues(mb3dsoundings.glwmda, args, ac);
#ifdef MBV_DEBUG_GLX
fprintf(stderr,"%s:%d:%s glXCreateContext(%p,%p)\n",
__FILE__,__LINE__,function_name,mb3dsoundings.dpy,mb3dsoundings.vi);
#endif
	mb3dsoundings.glx_context = glXCreateContext(mb3dsoundings.dpy, mb3dsoundings.vi,
                	     NULL, GL_TRUE);
#ifdef MBV_DEBUG_GLX
fprintf(stderr,"%s:%d:%s glXMakeCurrent(%p,%p,%p)\n",
__FILE__,__LINE__,function_name,XtDisplay(mb3dsoundings.glwmda),XtWindow(mb3dsoundings.glwmda),mb3dsoundings.glx_context);
#endif
	glXMakeCurrent(XtDisplay(mb3dsoundings.glwmda),
			XtWindow(mb3dsoundings.glwmda),
			mb3dsoundings.glx_context);
#ifdef MBV_GET_GLX_ERRORS
mbview_glerrorcheck(0, __FILE__, __LINE__, function_name);
#endif
        glViewport(0, 0, mb3dsoundings.gl_width, mb3dsoundings.gl_height);
	mb3dsoundings.aspect_ratio = ((float)mb3dsoundings.gl_width) / ((float)mb3dsoundings.gl_height);
	mb3dsoundings.glx_init = MB_YES;

	mb3dsoundings.dpy = (Display *) XtDisplay(mb3dsoundings.mb3dsdg.Mb3dsdg);
	mb3dsoundings.xid = XtWindow(mb3dsoundings.mb3dsdg.drawingArea);
	XDefineCursor(XtDisplay(mb3dsoundings.mb3dsdg.Mb3dsdg),
			XtWindow(mb3dsoundings.mb3dsdg.drawingArea),
			mb3dsoundings.TargetBlackCursor);
#ifdef MBV_GET_GLX_ERRORS
mbview_glerrorcheck(0, __FILE__, __LINE__, function_name);
#endif

	/* print output debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> completed\n",
			function_name);
		fprintf(stderr,"dbg2  Return status:\n");
		fprintf(stderr,"dbg2       status:  %d\n",mbs_status);
		}

	/* return */
	return(mbs_status);
}

/*------------------------------------------------------------------------------*/

void
do_mb3dsdg_resize( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;
/* fprintf(stderr,"Called do_mb3dsdg_resize\n"); */

	/* reset OpenGL */
	mb3dsoundings_reset_glx();

	/* replot the data */
	mb3dsoundings_plot(mbs_verbose, &mbs_error);
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_dismiss( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;
/* fprintf(stderr,"Called do_mb3dsdg_dismiss\n"); */

    	XtPopdown(XtParent(mb3dsoundings.mainWindow));
	mb3dsoundings.init = MBS_WINDOW_HIDDEN;
	(mb3dsoundings.mb3dsoundings_dismiss_notify)();
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_mouse_toggle( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;
/* fprintf(stderr,"Called do_mb3dsdg_mouse_toggle\n"); */

	mb3dsoundings.edit_mode = MBS_EDIT_TOGGLE;

	/* set edit cursor */
	mb3dsoundings_updatecursor();

	/* set status label */
	mb3dsoundings_updatestatus();
}

/*------------------------------------------------------------------------------*/

void
do_mb3dsdg_mouse_pick( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;
/* fprintf(stderr,"Called do_mb3dsdg_mouse_pick\n"); */

	mb3dsoundings.edit_mode = MBS_EDIT_PICK;

	/* set edit cursor */
	mb3dsoundings_updatecursor();

	/* set status label */
	mb3dsoundings_updatestatus();
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_mouse_erase( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;
/* fprintf(stderr,"Called do_mb3dsdg_mouse_erase\n"); */

	mb3dsoundings.edit_mode = MBS_EDIT_ERASE;

	/* set edit cursor */
	mb3dsoundings_updatecursor();

	/* set status label */
	mb3dsoundings_updatestatus();
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_mouse_restore( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;
/* fprintf(stderr,"Called do_mb3dsdg_mouse_restore\n"); */

	mb3dsoundings.edit_mode = MBS_EDIT_RESTORE;

	/* set edit cursor */
	mb3dsoundings_updatecursor();

	/* set status label */
	mb3dsoundings_updatestatus();
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_mouse_grab( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;
/* fprintf(stderr,"Called do_mb3dsdg_mouse_grab\n"); */

	mb3dsoundings.edit_mode = MBS_EDIT_GRAB;

	/* set edit cursor */
	mb3dsoundings_updatecursor();

	/* set status label */
	mb3dsoundings_updatestatus();
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_mouse_info( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;
/* fprintf(stderr,"Called do_mb3dsdg_mouse_info\n"); */

	mb3dsoundings.edit_mode = MBS_EDIT_INFO;

	/* set edit cursor */
	mb3dsoundings_updatecursor();

	/* set status label */
	mb3dsoundings_updatestatus();
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_input( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;
	XEvent  *event;

    /* get event */
    event = acs->event;

/* fprintf(stderr,"--------\nCalled do_mb3dsdg_input: reason:%d type:%d\n-------\n", acs->reason, event->xany.type); */
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_glwda_expose( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;
/* fprintf(stderr,"Called do_mb3dsdg_glwda_expose\n"); */
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_glwda_input( Widget w, XtPointer client_data, XtPointer call_data)
{
    mbGLwDrawingAreaCallbackStruct *acs;
    acs = (mbGLwDrawingAreaCallbackStruct*)call_data;
	XEvent  *event;
	KeySym keysym;
	char buffer[1];
	int actual;

    acs = (mbGLwDrawingAreaCallbackStruct*)call_data;

    /* get event */
    event = acs->event;

/* fprintf(stderr,"Called do_mb3dsdg_glwda_input: reason:%d type:%d\n", acs->reason, event->xany.type); */
    /* If there is input in the drawing area */
    if (acs->reason == XmCR_INPUT)
    {

      /* Check for mouse pressed. */
      if (event->xany.type == ButtonPress)
      {
/* fprintf(stderr, "event->xany.type == ButtonPress  button:%d position: %d %d  mouse mode:%d\n",
event->xbutton.button,event->xbutton.x,event->xbutton.y, mb3dsoundings.mouse_mode); */
	  /* save location */
	  mb3dsoundings.button_down_x = event->xbutton.x;
	  mb3dsoundings.button_down_y = mb3dsoundings.gl_height - 1 - event->xbutton.y;

	  /* If left mouse button is pushed */
	  if (event->xbutton.button == 1)
		{
		/* set button1down flag */
		mb3dsoundings.button1down = MB_YES;

		/* deal with pick according to edit_mode */
		if (mb3dsoundings.edit_mode == MBS_EDIT_TOGGLE)
			{
			mb3dsoundings_pick(mb3dsoundings.button_down_x,
						mb3dsoundings.button_down_y);
			}
		else if (mb3dsoundings.edit_mode == MBS_EDIT_PICK)
			{
			mb3dsoundings_pick(mb3dsoundings.button_down_x,
						mb3dsoundings.button_down_y);
			}
		else if (mb3dsoundings.edit_mode == MBS_EDIT_ERASE)
			{
			mb3dsoundings_eraserestore(mb3dsoundings.button_down_x,
						mb3dsoundings.button_down_y);
			}
		else if (mb3dsoundings.edit_mode == MBS_EDIT_RESTORE)
			{
			mb3dsoundings_eraserestore(mb3dsoundings.button_down_x,
						mb3dsoundings.button_down_y);
			}
		else if (mb3dsoundings.edit_mode == MBS_EDIT_GRAB)
			{
			mb3dsoundings_grab(mb3dsoundings.button_down_x,
						mb3dsoundings.button_down_y, MBS_EDIT_GRAB_START);
			}
		else if (mb3dsoundings.edit_mode == MBS_EDIT_INFO)
			{
			mb3dsoundings_info(mb3dsoundings.button_down_x,
						mb3dsoundings.button_down_y);

			mb3dsoundings_updatestatus();
			mb3dsoundings_plot(mbs_verbose, &mbs_error);
			}

		} /* end of left button events */

	   /* If middle mouse button is pushed */
	   else if (event->xbutton.button == 2)
		{
		/* rotate mode */
		if (mb3dsoundings.mouse_mode == MBS_MOUSE_ROTATE)
			{
			/* set button2down flag */
			mb3dsoundings.button2down = MB_YES;

			/* set cursor for rotate */
	  		XDefineCursor(XtDisplay(mb3dsoundings.mb3dsdg.Mb3dsdg),
					XtWindow(mb3dsoundings.mb3dsdg.drawingArea),
					mb3dsoundings.FleurBlackCursor);

			mb3dsoundings.azimuth_save = mb3dsoundings.azimuth;
			mb3dsoundings.elevation_save = mb3dsoundings.elevation;
			}

		/* pan zoom mode */
		else if (mb3dsoundings.mouse_mode == MBS_MOUSE_PANZOOM)
			{
			/* set button2down flag */
			mb3dsoundings.button2down = MB_YES;

			/* set cursor for rotate */
	  		XDefineCursor(XtDisplay(mb3dsoundings.mb3dsdg.Mb3dsdg),
					XtWindow(mb3dsoundings.mb3dsdg.drawingArea),
					mb3dsoundings.FleurBlackCursor);

			mb3dsoundings.gl_offset_x_save = mb3dsoundings.gl_offset_x;
			mb3dsoundings.gl_offset_y_save = mb3dsoundings.gl_offset_y;
			}
		} /* end of middle button events */

	   /* If right mouse button is pushed */
	   else if (event->xbutton.button == 3)
		{
		/* rotate mode */
		if (mb3dsoundings.mouse_mode == MBS_MOUSE_ROTATE)
			{
			/* set button3down flag */
			mb3dsoundings.button3down = MB_YES;

			/* set cursor for exagerate */
	  		XDefineCursor(XtDisplay(mb3dsoundings.mb3dsdg.Mb3dsdg),
					XtWindow(mb3dsoundings.mb3dsdg.drawingArea),
					mb3dsoundings.FleurBlackCursor);

			mb3dsoundings.exageration_save = mb3dsoundings.exageration;
			}

		/* pan zoom mode */
		else if (mb3dsoundings.mouse_mode == MBS_MOUSE_PANZOOM)
			{
			/* set button3down flag */
			mb3dsoundings.button3down = MB_YES;

			/* set cursor for exagerate */
	  		XDefineCursor(XtDisplay(mb3dsoundings.mb3dsdg.Mb3dsdg),
					XtWindow(mb3dsoundings.mb3dsdg.drawingArea),
					mb3dsoundings.FleurBlackCursor);

			mb3dsoundings.gl_size_save = mb3dsoundings.gl_size;
			}

		} /* end of right button events */

      } /* end of button press events */

      /* Check for mouse motion while pressed. */
      if (event->xany.type == MotionNotify)
      {
/* fprintf(stderr, "event->xany.type == MotionNotify  %d %d  mouse mode:%d\n",
event->xbutton.x,event->xmotion.y, mb3dsoundings.mouse_mode); */

	  /* save location */
	  mb3dsoundings.button_move_x = event->xmotion.x;
	  mb3dsoundings.button_move_y = mb3dsoundings.gl_height - 1 - event->xmotion.y;

	   /* If left mouse button is dragged */
	  if (mb3dsoundings.button1down == MB_YES)
		{

		/* deal with pick according to edit_mode */
		if (mb3dsoundings.edit_mode == MBS_EDIT_TOGGLE)
			{
			}
		else if (mb3dsoundings.edit_mode == MBS_EDIT_PICK)
			{
			}
		else if (mb3dsoundings.edit_mode == MBS_EDIT_TOGGLE)
			{
			}
		else if (mb3dsoundings.edit_mode == MBS_EDIT_ERASE)
			{
			mb3dsoundings_eraserestore(mb3dsoundings.button_move_x,
						mb3dsoundings.button_move_y);
			}
		else if (mb3dsoundings.edit_mode == MBS_EDIT_RESTORE)
			{
			mb3dsoundings_eraserestore(mb3dsoundings.button_move_x,
						mb3dsoundings.button_move_y);
			}
		else if (mb3dsoundings.edit_mode == MBS_EDIT_GRAB)
			{
			mb3dsoundings_grab(mb3dsoundings.button_move_x,
						mb3dsoundings.button_move_y, MBS_EDIT_GRAB_MOVE);
			}
		else if (mb3dsoundings.edit_mode == MBS_EDIT_INFO)
			{
			}


		} /* end of left button events */

	   /* If middle mouse button is dragged */
	  else if (mb3dsoundings.button2down == MB_YES)
		{
		/* rotate mode */
		if (mb3dsoundings.mouse_mode == MBS_MOUSE_ROTATE)
			{
			/* set cursor for rotate */
	  		XDefineCursor(XtDisplay(mb3dsoundings.mb3dsdg.Mb3dsdg),
					XtWindow(mb3dsoundings.mb3dsdg.drawingArea),
					mb3dsoundings.FleurRedCursor);

			/* rotate viewpoint of 3D map */
			mb3dsoundings.azimuth = mb3dsoundings.azimuth_save
				+ 180.0 * ((double)(mb3dsoundings.button_move_x
						- mb3dsoundings.button_down_x))
					/ ((double)mb3dsoundings.gl_width);
			mb3dsoundings.elevation = mb3dsoundings.elevation_save
				+ 180.0 * ((double)(mb3dsoundings.button_down_y
						- mb3dsoundings.button_move_y))
					/ ((double)mb3dsoundings.gl_height);

			/* keep elevation and azimuth values in appropriate bounds */
			if (mb3dsoundings.elevation > 180.0)
				mb3dsoundings.elevation -= 360.0;
			if (mb3dsoundings.elevation < -180.0)
				mb3dsoundings.elevation += 360.0;
			if (mb3dsoundings.azimuth < 0.0)
				mb3dsoundings.azimuth += 360.0;
			if (mb3dsoundings.azimuth > 360.0)
				mb3dsoundings.azimuth -= 360.0;

			mb3dsoundings_updatestatus();
			mb3dsoundings_plot(mbs_verbose, &mbs_error);
			}

		/* pan zoom mode */
		else if (mb3dsoundings.mouse_mode == MBS_MOUSE_PANZOOM)
			{
			/* set cursor for pan zoom */
	  		XDefineCursor(XtDisplay(mb3dsoundings.mb3dsdg.Mb3dsdg),
					XtWindow(mb3dsoundings.mb3dsdg.drawingArea),
					mb3dsoundings.FleurRedCursor);

			/* pan */
			mb3dsoundings.gl_offset_x = mb3dsoundings.gl_offset_x_save
				+ ((double)(mb3dsoundings.button_move_x
						- mb3dsoundings.button_down_x))
			    		* (mb3dsoundings.right - mb3dsoundings.left)
					/ ((double)mb3dsoundings.gl_width);
			mb3dsoundings.gl_offset_y = mb3dsoundings.gl_offset_y_save
				+ ((double)(mb3dsoundings.button_move_y
						- mb3dsoundings.button_down_y))
			    		* (mb3dsoundings.top - mb3dsoundings.bottom)
					/ ((double)mb3dsoundings.gl_width);

			mb3dsoundings_updatestatus();
			mb3dsoundings_plot(mbs_verbose, &mbs_error);
			}
		} /* end of middle button events */

	   /* If right mouse button is dragged */
	  else if (mb3dsoundings.button3down == MB_YES)
		{
		/* rotate mode */
		if (mb3dsoundings.mouse_mode == MBS_MOUSE_ROTATE)
			{
			/* set cursor for exagerate */
	  		XDefineCursor(XtDisplay(mb3dsoundings.mb3dsdg.Mb3dsdg),
					XtWindow(mb3dsoundings.mb3dsdg.drawingArea),
					mb3dsoundings.FleurRedCursor);

			/* change vertical exageration of 3D map */
			mb3dsoundings.exageration = mb3dsoundings.exageration_save
				* exp(((double)(mb3dsoundings.button_move_y - mb3dsoundings.button_down_y))
					/ ((double)mb3dsoundings.gl_height));

			mb3dsoundings_scalez(mbs_verbose, &mbs_error);
			mb3dsoundings_updatestatus();
			mb3dsoundings_plot(mbs_verbose, &mbs_error);
			}

		/* pan zoom mode */
		else if (mb3dsoundings.mouse_mode == MBS_MOUSE_PANZOOM)
			{
			/* set cursor for zoom */
	  		XDefineCursor(XtDisplay(mb3dsoundings.mb3dsdg.Mb3dsdg),
					XtWindow(mb3dsoundings.mb3dsdg.drawingArea),
					mb3dsoundings.FleurRedCursor);

			/* change zoom */
			mb3dsoundings.gl_size = mb3dsoundings.gl_size_save
			    * exp(((double)(mb3dsoundings.button_move_y - mb3dsoundings.button_down_y))
				    / ((double)mb3dsoundings.gl_height));

			mb3dsoundings_updatestatus();
			mb3dsoundings_plot(mbs_verbose, &mbs_error);
			}
		} /* end of right button events */

      } /* end of motion notify events */


      /* Check for mouse released. */
      if (event->xany.type == ButtonRelease)
      {
/* fprintf(stderr, "event->xany.type == ButtonRelease  %d %d  mouse mode:%d\n",
event->xbutton.x,event->xbutton.y, mb3dsoundings.mouse_mode); */

	  /* save location */
	  mb3dsoundings.button_up_x = event->xbutton.x;
	  mb3dsoundings.button_up_y = mb3dsoundings.gl_height - 1 - event->xbutton.y;

	   /* If left mouse button is released */
	  if (mb3dsoundings.button1down == MB_YES)
		{

		/* deal with pick according to edit_mode */
		if (mb3dsoundings.edit_mode == MBS_EDIT_TOGGLE)
			{
			}
		else if (mb3dsoundings.edit_mode == MBS_EDIT_PICK)
			{
			}
		else if (mb3dsoundings.edit_mode == MBS_EDIT_TOGGLE)
			{
			}
		else if (mb3dsoundings.edit_mode == MBS_EDIT_ERASE)
			{
			}
		else if (mb3dsoundings.edit_mode == MBS_EDIT_RESTORE)
			{
			}
		else if (mb3dsoundings.edit_mode == MBS_EDIT_GRAB)
			{
			mb3dsoundings_grab(mb3dsoundings.button_down_x,
						mb3dsoundings.button_down_y, MBS_EDIT_GRAB_END);
			}
		else if (mb3dsoundings.edit_mode == MBS_EDIT_INFO)
			{
			}

		}

	   /* If middle mouse button is released */
	  else if (mb3dsoundings.button2down == MB_YES)
		{
		} /* end of middle button events */

	   /* If right mouse button is released */
	  else if (mb3dsoundings.button3down == MB_YES)
		{
		} /* end of right button events */


	  /* unset all buttondown flags */
	  mb3dsoundings.button1down = MB_NO;
	  mb3dsoundings.button2down = MB_NO;
	  mb3dsoundings.button3down = MB_NO;

	  /* set edit cursor */
	  mb3dsoundings_updatecursor();

     } /* end of button release events */

      /* deal with expose events by replotting */
      if (event->xany.type == Expose || event->xany.type == GraphicsExpose)
		{
		mb3dsoundings_updatestatus();
		mb3dsoundings_plot(mbs_verbose, &mbs_error);
		}

      /* Deal with KeyPress events */
      if(event->xany.type == KeyPress)
      {
/* fprintf(stderr,"KeyPress event\n"); */
      /* Get key pressed - buffer[0] */
      actual = XLookupString((XKeyEvent *)event,
		    buffer, 1, &keysym, NULL);

      /* process events */
      switch (buffer[0])
	    {
	    case 'G':
	    case 'g':
		    key_g_down = 1;
		    break;
	    case 'M':
	    case 'm':
	    case 'Z':
	    case 'z':
		    mb3dsoundings_bad_ping();
		    key_z_down = 1;
		    key_s_down = 0;
		    key_a_down = 0;
		    key_d_down = 0;
		    break;
	    case 'K':
	    case 'k':
	    case 'S':
	    case 's':
		    mb3dsoundings_good_ping();
		    key_z_down = 0;
		    key_s_down = 1;
		    key_a_down = 0;
		    key_d_down = 0;
		    break;
	    case 'J':
	    case 'j':
	    case 'A':
	    case 'a':
		    if (mb3dsoundings.keyreverse_mode == MB_NO)
		    	mb3dsoundings_left_ping();
		    else
		    	mb3dsoundings_right_ping();
		    key_z_down = 0;
		    key_s_down = 0;
		    key_a_down = 1;
		    key_d_down = 0;
		    break;
	    case 'L':
	    case 'l':
	    case 'D':
	    case 'd':
		    if (mb3dsoundings.keyreverse_mode == MB_NO)
		    	mb3dsoundings_right_ping();
		    else
		    	mb3dsoundings_left_ping();
		    key_z_down = 0;
		    key_s_down = 0;
		    key_a_down = 0;
		    key_d_down = 1;
		    break;
	    case '<':
	    case ',':
	    case 'X':
	    case 'x':
		    mb3dsoundings_flag_view();
		    break;
	    case '>':
	    case '.':
	    case 'C':
	    case 'c':
		    mb3dsoundings_unflag_view();
		    break;
	    case '!':
		    mb3dsoundings_zero_ping();
		    break;
	    case 'U':
	    case 'u':
	    case 'Q':
	    case 'q':
			    {
			    mb3dsoundings.edit_mode = MBS_EDIT_TOGGLE;
			    mb3dsoundings_updatemodetoggles();
			    mb3dsoundings_updatecursor();
			    }
		    break;
	    case 'I':
	    case 'i':
	    case 'W':
	    case 'w':
			    {
			    mb3dsoundings.edit_mode = MBS_EDIT_PICK;
			    mb3dsoundings_updatemodetoggles();
			    mb3dsoundings_updatecursor();
			    }
		    break;
	    case 'O':
	    case 'o':
	    case 'E':
	    case 'e':
			    {
			    mb3dsoundings.edit_mode = MBS_EDIT_ERASE;
			    mb3dsoundings_updatemodetoggles();
			    mb3dsoundings_updatecursor();
			    }
		    break;
	    case 'P':
	    case 'p':
	    case 'R':
	    case 'r':
			    {
			    mb3dsoundings.edit_mode = MBS_EDIT_RESTORE;
			    mb3dsoundings_updatemodetoggles();
			    mb3dsoundings_updatecursor();
			    }
		    break;
	    case '{':
	    case '[':
	    case 'T':
	    case 't':
			    {
			    mb3dsoundings.edit_mode = MBS_EDIT_GRAB;
			    mb3dsoundings_updatemodetoggles();
			    mb3dsoundings_updatecursor();
			    }
		    break;
	    case '}':
	    case ']':
	    case 'Y':
	    case 'y':
			    {
			    mb3dsoundings.edit_mode = MBS_EDIT_INFO;
			    mb3dsoundings_updatemodetoggles();
			    mb3dsoundings_updatecursor();
			    }
		    break;
	    default:
		    break;
	    } /* end of key switch */
       } /* end of key press events */

      /* Deal with KeyRelease events */
      if(event->xany.type == KeyRelease)
      {
      /* Get key pressed - buffer[0] */
      actual = XLookupString((XKeyEvent *)event,
		    buffer, 1, &keysym, NULL);

      /* process events */
      switch (buffer[0])
	    {
	    case 'G':
	    case 'g':
		    key_g_down = 0;
		    break;
	    case 'M':
	    case 'm':
	    case 'Z':
	    case 'z':
		    key_z_down = 0;
		    break;
	    case 'K':
	    case 'k':
	    case 'S':
	    case 's':
		    key_s_down = 0;
		    break;
	    case 'J':
	    case 'j':
	    case 'A':
	    case 'a':
		    key_a_down = 0;
		    break;
	    case 'L':
	    case 'l':
	    case 'D':
	    case 'd':
		    key_d_down = 0;
		    break;
	    default:
		    break;
	    } /* end of key switch */
       } /* end of key release events */


     } /* end of inputs from window */


}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_glwda_resize( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;
/* fprintf(stderr,"Called do_mb3dsdg_glwda_resize\n"); */
}

/*---------------------------------------------------------------------------------------*/

int
mb3dsoundings_scale(int verbose, int *error)
{
    struct mb3dsoundings_struct *soundingdata;
    struct mb3dsoundings_sounding_struct *sounding;
    int	i;

/* fprintf(stderr,"Called mb3dsoundings_scale\n"); */

	/* loop over all soundings */
	soundingdata = (struct mb3dsoundings_struct *) mb3dsoundings.soundingdata;
	for (i=0;i<soundingdata->num_soundings;i++)
		{
		sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
		sounding->glx = soundingdata->scale * sounding->x;
		sounding->gly = soundingdata->scale * sounding->y;
		sounding->glz = mb3dsoundings.exageration * soundingdata->zscale * sounding->z;
		}

	/* return */
	return(mbs_status);

}

/*---------------------------------------------------------------------------------------*/

int
mb3dsoundings_scalez(int verbose, int *error)
{
    struct mb3dsoundings_struct *soundingdata;
    struct mb3dsoundings_sounding_struct *sounding;
    int	i;

/* fprintf(stderr,"Called mb3dsoundings_scalez\n"); */

	/* loop over all soundings */
	soundingdata = (struct mb3dsoundings_struct *) mb3dsoundings.soundingdata;
	for (i=0;i<soundingdata->num_soundings;i++)
		{
		sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
		sounding->glz = mb3dsoundings.exageration * soundingdata->zscale * sounding->z;
		}

	/* return */
	return(mbs_status);
}
/*---------------------------------------------------------------------------------------*/

int
mb3dsoundings_pick(int x, int y)
{
    struct mb3dsoundings_struct *soundingdata;
    struct mb3dsoundings_sounding_struct *sounding;
    int		irmin;
    double	dx, dy, r, rmin;
    int		editevent;
    int		i;

/* fprintf(stderr,"Called mb3dsoundings_pick\n"); */

	/* loop over all soundings */
	soundingdata = (struct mb3dsoundings_struct *) mb3dsoundings.soundingdata;
	rmin = 10000.0;
	irmin = 0;
	editevent = MB_NO;
	for (i=0;i<soundingdata->num_soundings;i++)
		{
		sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
		dx = (double)(x - sounding->winx);
		dy = (double)(y - sounding->winy);
		r = sqrt(dx * dx + dy * dy);
		if (r < rmin
			&& (mb3dsoundings.edit_mode == MBS_EDIT_TOGGLE
				|| mb_beam_ok(sounding->beamflag)))
			{
			irmin = i;
			rmin = r;
			}
		}
	if (rmin < MBS_PICK_THRESHOLD)
		{
		sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[irmin]);
		if (mb3dsoundings.edit_mode == MBS_EDIT_TOGGLE)
			{
			if (mb_beam_ok(sounding->beamflag))
				{
				sounding->beamflag = MB_FLAG_FLAG + MB_FLAG_MANUAL;
				soundingdata->num_soundings_unflagged--;
				soundingdata->num_soundings_flagged++;
				editevent = MB_YES;

				/* last sounding edited */
				mb3dsoundings.last_sounding_defined = MB_YES;
				mb3dsoundings.last_sounding_edited = irmin;
				}
			else
				{
				sounding->beamflag = MB_FLAG_NONE;
				soundingdata->num_soundings_unflagged++;
				soundingdata->num_soundings_flagged--;
				editevent = MB_YES;

				/* last sounding edited */
				mb3dsoundings.last_sounding_defined = MB_YES;
				mb3dsoundings.last_sounding_edited = irmin;
				}
			}
		else if (mb3dsoundings.edit_mode == MBS_EDIT_PICK)
			{
			if (mb_beam_ok(sounding->beamflag))
				{
				sounding->beamflag = MB_FLAG_FLAG + MB_FLAG_MANUAL;
				soundingdata->num_soundings_unflagged--;
				soundingdata->num_soundings_flagged++;
				editevent = MB_YES;

				/* last sounding edited */
				mb3dsoundings.last_sounding_defined = MB_YES;
				mb3dsoundings.last_sounding_edited = irmin;
				}
			}
		}
	else
		{
		XBell(mb3dsoundings.dpy,100);
		}

	/* replot the data */
	if (editevent == MB_YES)
		{
		mb3dsoundings_plot(mbs_verbose, &mbs_error);
		mb3dsoundings_updatestatus();
		}

	/* communicate edit event back to calling application */
	if (editevent == MB_YES && mb3dsoundings.mb3dsoundings_edit_notify != NULL)
		{
		(mb3dsoundings.mb3dsoundings_edit_notify)(sounding->ifile, sounding->iping,
							sounding->ibeam, sounding->beamflag, MB3DSDG_EDIT_FLUSH);
		}

	/* return */
	return(mbs_status);

}
/*---------------------------------------------------------------------------------------*/

int
mb3dsoundings_eraserestore(int x, int y)
{
    struct mb3dsoundings_struct *soundingdata;
    struct mb3dsoundings_sounding_struct *sounding;
    double	dx, dy, r;
    int		editevent, neditevent;
    int		i;

/* fprintf(stderr,"\nCalled mb3dsoundings_eraserestore\n"); */

	/* loop over all soundings */
	neditevent = 0;
	soundingdata = (struct mb3dsoundings_struct *) mb3dsoundings.soundingdata;
	for (i=0;i<soundingdata->num_soundings;i++)
		{
		sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
		editevent = MB_NO;
		dx = (double)(x - sounding->winx);
		dy = (double)(y - sounding->winy);
		r = sqrt(dx * dx + dy * dy);
		if (r < MBS_ERASE_THRESHOLD)
			{
			if (mb3dsoundings.edit_mode == MBS_EDIT_ERASE
				&& mb_beam_ok(sounding->beamflag))
				{
				sounding->beamflag = MB_FLAG_FLAG + MB_FLAG_MANUAL;
				soundingdata->num_soundings_unflagged--;
				soundingdata->num_soundings_flagged++;
				editevent = MB_YES;

				/* last sounding edited */
				mb3dsoundings.last_sounding_defined = MB_YES;
				mb3dsoundings.last_sounding_edited = i;
				}
			else if (mb3dsoundings.edit_mode == MBS_EDIT_RESTORE
				&& !mb_beam_ok(sounding->beamflag))
				{
				sounding->beamflag = MB_FLAG_NONE;
				soundingdata->num_soundings_unflagged++;
				soundingdata->num_soundings_flagged--;
				editevent = MB_YES;

				/* last sounding edited */
				mb3dsoundings.last_sounding_defined = MB_YES;
				mb3dsoundings.last_sounding_edited = i;
				}

			/* handle valid edit event */
			if (editevent == MB_YES)
				{
				neditevent++;

				/* communicate edit event back to calling application */
/* fprintf(stderr,"calling mb3dsoundings_edit_notify: sounding:%d file:%d ping:%d beam:%d beamflag:%d flush:%d\n",
i,sounding->ifile, sounding->iping,sounding->ibeam, sounding->beamflag,MB3DSDG_EDIT_NOFLUSH); */
				if  (mb3dsoundings.mb3dsoundings_edit_notify != NULL)
					(mb3dsoundings.mb3dsoundings_edit_notify)(sounding->ifile, sounding->iping,
									sounding->ibeam, sounding->beamflag,
									MB3DSDG_EDIT_NOFLUSH);
				}
			}
		}

	/* replot and flush the edit events in the calling application */
	if (neditevent > 0)
		{
		/* replot the data */
		mb3dsoundings_plot(mbs_verbose, &mbs_error);
		mb3dsoundings_updatestatus();

		/* flush the edit events in the calling application */
		(mb3dsoundings.mb3dsoundings_edit_notify)(0, 0, 0,
						MB_FLAG_NULL,MB3DSDG_EDIT_FLUSHPREVIOUS);
		}

	/* return */
	return(mbs_status);

}
/*---------------------------------------------------------------------------------------*/

int
mb3dsoundings_grab(int x, int y, int grabmode)
{
    struct mb3dsoundings_struct *soundingdata;
    struct mb3dsoundings_sounding_struct *sounding;
    int		xmin, xmax, ymin, ymax;
    int		editevent, neditevent;
    int		i;

/* fprintf(stderr,"Called mb3dsoundings_grab mode:%d x:%d y:%d\n", grabmode, x, y); */

	/* save grab start point */
	if (grabmode == MBS_EDIT_GRAB_START)
		{
		/* set grab parameters */
		mb3dsoundings.grab_start_defined = MB_YES;
		mb3dsoundings.grab_end_defined = MB_NO;
		mb3dsoundings.grab_start_x = x;
		mb3dsoundings.grab_start_y = y;
		mb3dsoundings.grab_end_x = x;
		mb3dsoundings.grab_end_y = y;

		/* replot the data */
		mb3dsoundings_plot(mbs_verbose, &mbs_error);
		}

	/* save grab end point */
	else if (grabmode == MBS_EDIT_GRAB_MOVE)
		{
		/* set grab parameters */
		mb3dsoundings.grab_end_defined = MB_YES;
		mb3dsoundings.grab_end_x = x;
		mb3dsoundings.grab_end_y = y;

		/* replot the data */
		mb3dsoundings_plot(mbs_verbose, &mbs_error);
		}

	/* apply grab */
	else if (grabmode == MBS_EDIT_GRAB_END)
		{
		/* loop over all soundings */
		neditevent = 0;
		xmin = MIN(mb3dsoundings.grab_start_x, mb3dsoundings.grab_end_x);
		xmax = MAX(mb3dsoundings.grab_start_x, mb3dsoundings.grab_end_x);
		ymin = MIN(mb3dsoundings.grab_start_y, mb3dsoundings.grab_end_y);
		ymax = MAX(mb3dsoundings.grab_start_y, mb3dsoundings.grab_end_y);
/* fprintf(stderr, "Grab bounds: %d %d %d %d\n", xmin, xmax, ymin, ymax); */
		soundingdata = (struct mb3dsoundings_struct *) mb3dsoundings.soundingdata;
		for (i=0;i<soundingdata->num_soundings;i++)
			{
			sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
			editevent = MB_NO;
			if (sounding->winx >= xmin && sounding->winx <= xmax
				&& sounding->winy >= ymin && sounding->winy <= ymax)
				{
				if (mb_beam_ok(sounding->beamflag))
					{
					sounding->beamflag = MB_FLAG_FLAG + MB_FLAG_MANUAL;
					soundingdata->num_soundings_unflagged--;
					soundingdata->num_soundings_flagged++;
					editevent = MB_YES;
					neditevent++;

					/* last sounding edited */
					mb3dsoundings.last_sounding_defined = MB_YES;
					mb3dsoundings.last_sounding_edited = i;

					/* communicate edit event back to calling application */
					if  (mb3dsoundings.mb3dsoundings_edit_notify != NULL)
						(mb3dsoundings.mb3dsoundings_edit_notify)(sounding->ifile, sounding->iping,
										sounding->ibeam, sounding->beamflag,
										MB3DSDG_EDIT_NOFLUSH);
					}
				}
			}

		/* grab done so unset grab flags */
		mb3dsoundings.grab_start_defined = MB_NO;
		mb3dsoundings.grab_end_defined = MB_NO;

		/* replot and flush the edit events in the calling application */
		if (neditevent > 0)
			{
			/* replot the data */
			mb3dsoundings_plot(mbs_verbose, &mbs_error);
			mb3dsoundings_updatestatus();

			/* flush the edit events in the calling application */
			(mb3dsoundings.mb3dsoundings_edit_notify)(0, 0, 0,
							MB_FLAG_NULL,MB3DSDG_EDIT_FLUSHPREVIOUS);
			}
		}

	/* return */
	return(mbs_status);

}
/*---------------------------------------------------------------------------------------*/

int
mb3dsoundings_unflag_view()
{
    struct mb3dsoundings_struct *soundingdata;
    struct mb3dsoundings_sounding_struct *sounding;
    int		neditevent;
    int		i;

/* fprintf(stderr,"Called mb3dsoundings_unflag_view\n"); */

	/* loop over all soundings */
	neditevent = 0;
	soundingdata = (struct mb3dsoundings_struct *) mb3dsoundings.soundingdata;
	for (i=0;i<soundingdata->num_soundings;i++)
		{
		sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
		if (!mb_beam_ok(sounding->beamflag))
			{
			sounding->beamflag = MB_FLAG_NONE;
			soundingdata->num_soundings_unflagged++;
			soundingdata->num_soundings_flagged--;
			neditevent++;

			/* communicate edit event back to calling application */
			if  (mb3dsoundings.mb3dsoundings_edit_notify != NULL)
				(mb3dsoundings.mb3dsoundings_edit_notify)(sounding->ifile, sounding->iping,
								sounding->ibeam, sounding->beamflag,
								MB3DSDG_EDIT_NOFLUSH);
			}
		}

	/* last sounding edited */
	mb3dsoundings.last_sounding_defined = MB_NO;
	mb3dsoundings.last_sounding_edited = 0;

	/* replot and flush the edit events in the calling application */
	if (neditevent > 0)
		{
		/* replot the data */
		mb3dsoundings_plot(mbs_verbose, &mbs_error);
		mb3dsoundings_updatestatus();

		/* flush the edit events in the calling application */
		(mb3dsoundings.mb3dsoundings_edit_notify)(0, 0, 0,
						MB_FLAG_NULL,MB3DSDG_EDIT_FLUSHPREVIOUS);
		}

	/* return */
	return(mbs_status);

}
/*---------------------------------------------------------------------------------------*/

int
mb3dsoundings_flag_view()
{
    struct mb3dsoundings_struct *soundingdata;
    struct mb3dsoundings_sounding_struct *sounding;
    int		neditevent;
    int		i;

/* fprintf(stderr,"Called mb3dsoundings_flag_view\n"); */

	/* loop over all soundings */
	neditevent = 0;
	soundingdata = (struct mb3dsoundings_struct *) mb3dsoundings.soundingdata;
	for (i=0;i<soundingdata->num_soundings;i++)
		{
		sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
		if (mb_beam_ok(sounding->beamflag))
			{
			sounding->beamflag = MB_FLAG_FLAG + MB_FLAG_MANUAL;
			soundingdata->num_soundings_unflagged--;
			soundingdata->num_soundings_flagged++;
			neditevent++;

			/* communicate edit event back to calling application */
			if  (mb3dsoundings.mb3dsoundings_edit_notify != NULL)
				(mb3dsoundings.mb3dsoundings_edit_notify)(sounding->ifile, sounding->iping,
								sounding->ibeam, sounding->beamflag,
								MB3DSDG_EDIT_NOFLUSH);
			}
		}

	/* last sounding edited */
	mb3dsoundings.last_sounding_defined = MB_NO;
	mb3dsoundings.last_sounding_edited = 0;

	/* replot and flush the edit events in the calling application */
	if (neditevent > 0)
		{
		/* replot the data */
		mb3dsoundings_plot(mbs_verbose, &mbs_error);
		mb3dsoundings_updatestatus();

		/* flush the edit events in the calling application */
		(mb3dsoundings.mb3dsoundings_edit_notify)(0, 0, 0,
						MB_FLAG_NULL,MB3DSDG_EDIT_FLUSHPREVIOUS);
		}

	/* return */
	return(mbs_status);

}
/*---------------------------------------------------------------------------------------*/

int
mb3dsoundings_info(int x, int y)
{
    struct mb3dsoundings_struct *soundingdata;
    struct mb3dsoundings_sounding_struct *sounding;
    int		irmin;
    double	dx, dy, r, rmin;
    int		i;

/* fprintf(stderr,"Called mb3dsoundings_info\n"); */

	/* loop over all soundings */
	soundingdata = (struct mb3dsoundings_struct *) mb3dsoundings.soundingdata;
	rmin = 10000.0;
	irmin = 0;
	for (i=0;i<soundingdata->num_soundings;i++)
		{
		sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
		dx = (double)(x - sounding->winx);
		dy = (double)(y - sounding->winy);
		r = sqrt(dx * dx + dy * dy);
		if (r < rmin
			&& (mb3dsoundings.edit_mode == MBS_EDIT_TOGGLE
				|| mb_beam_ok(sounding->beamflag)))
			{
			irmin = i;
			rmin = r;
			}
		}
	if (rmin < MBS_PICK_THRESHOLD)
		{
		/* select closest sounding */
		mb3dsoundings.last_sounding_defined = MB_YES;
		mb3dsoundings.last_sounding_edited = irmin;

		mb3dsoundings_plot(mbs_verbose, &mbs_error);
		mb3dsoundings_updatestatus();
		}
	else
		{
		XBell(mb3dsoundings.dpy,100);
		}

	/* return */
	return(mbs_status);

}
/*---------------------------------------------------------------------------------------*/

int
mb3dsoundings_bad_ping()
{
    struct mb3dsoundings_struct *soundingdata;
    struct mb3dsoundings_sounding_struct *sounding;
    struct mb3dsoundings_sounding_struct *lastsounding;
    int		neditevent;
    int		i;

/* fprintf(stderr,"Called mb3dsoundings_bad_ping last sounding: %d %d\n",
mb3dsoundings.last_sounding_defined, mb3dsoundings.last_sounding_edited); */

	/* only check if last sounding defined */
	neditevent = 0;
	soundingdata = (struct mb3dsoundings_struct *) mb3dsoundings.soundingdata;
	if (mb3dsoundings.last_sounding_defined == MB_YES
		&& mb3dsoundings.last_sounding_edited < soundingdata->num_soundings)
		{
		/* loop over all soundings */
		lastsounding = (struct mb3dsoundings_sounding_struct *)
					&(soundingdata->soundings[mb3dsoundings.last_sounding_edited]);
		for (i=0;i<soundingdata->num_soundings;i++)
			{
			sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
			if (sounding->ifile == lastsounding->ifile
				&& sounding->iping == lastsounding->iping
				&& mb_beam_ok(sounding->beamflag))
				{
				sounding->beamflag = MB_FLAG_FLAG + MB_FLAG_MANUAL;
				soundingdata->num_soundings_unflagged--;
				soundingdata->num_soundings_flagged++;
				neditevent++;

				/* communicate edit event back to calling application */
				if  (mb3dsoundings.mb3dsoundings_edit_notify != NULL)
					(mb3dsoundings.mb3dsoundings_edit_notify)(sounding->ifile, sounding->iping,
									sounding->ibeam, sounding->beamflag,
									MB3DSDG_EDIT_NOFLUSH);
				}
			}
		}
	else
		{
		XBell(mb3dsoundings.dpy,100);
		}

	/* replot and flush the edit events in the calling application */
	if (neditevent > 0)
		{
		/* replot the data */
		mb3dsoundings_plot(mbs_verbose, &mbs_error);
		mb3dsoundings_updatestatus();

		/* flush the edit events in the calling application */
		(mb3dsoundings.mb3dsoundings_edit_notify)(0, 0, 0,
						MB_FLAG_NULL,MB3DSDG_EDIT_FLUSHPREVIOUS);
		}

	/* return */
	return(mbs_status);

}
/*---------------------------------------------------------------------------------------*/

int
mb3dsoundings_zero_ping()
{
    struct mb3dsoundings_struct *soundingdata;
    struct mb3dsoundings_sounding_struct *sounding;
    struct mb3dsoundings_sounding_struct *lastsounding;
    int		neditevent;
    int		i;

/* fprintf(stderr,"Called mb3dsoundings_bad_ping last sounding: %d %d\n",
mb3dsoundings.last_sounding_defined, mb3dsoundings.last_sounding_edited); */

	/* only check if last sounding defined */
	neditevent = 0;
	soundingdata = (struct mb3dsoundings_struct *) mb3dsoundings.soundingdata;
	if (mb3dsoundings.last_sounding_defined == MB_YES
		&& mb3dsoundings.last_sounding_edited < soundingdata->num_soundings)
		{
		/* loop over all soundings */
		lastsounding = (struct mb3dsoundings_sounding_struct *)
					&(soundingdata->soundings[mb3dsoundings.last_sounding_edited]);
		for (i=0;i<soundingdata->num_soundings;i++)
			{
			sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
			if (sounding->ifile == lastsounding->ifile
				&& sounding->iping == lastsounding->iping)
				{
				if (mb_beam_ok(sounding->beamflag))
					soundingdata->num_soundings_unflagged--;
				if (!mb_beam_ok(sounding->beamflag))
					soundingdata->num_soundings_flagged--;
				sounding->beamflag = MB_FLAG_NULL;
				neditevent++;

				/* communicate edit event back to calling application */
				if  (mb3dsoundings.mb3dsoundings_edit_notify != NULL)
					(mb3dsoundings.mb3dsoundings_edit_notify)(sounding->ifile, sounding->iping,
									sounding->ibeam, sounding->beamflag,
									MB3DSDG_EDIT_NOFLUSH);
				}
			}
		}
	else
		{
		XBell(mb3dsoundings.dpy,100);
		}

	/* replot and flush the edit events in the calling application */
	if (neditevent > 0)
		{
		/* replot the data */
		mb3dsoundings_plot(mbs_verbose, &mbs_error);
		mb3dsoundings_updatestatus();

		/* flush the edit events in the calling application */
		(mb3dsoundings.mb3dsoundings_edit_notify)(0, 0, 0,
						MB_FLAG_NULL,MB3DSDG_EDIT_FLUSHPREVIOUS);
		}

	/* return */
	return(mbs_status);

}
/*---------------------------------------------------------------------------------------*/

int
mb3dsoundings_left_ping()
{
    struct mb3dsoundings_struct *soundingdata;
    struct mb3dsoundings_sounding_struct *sounding;
    struct mb3dsoundings_sounding_struct *lastsounding;
    int		neditevent;
    int		i;

/* fprintf(stderr,"Called mb3dsoundings_left_ping last sounding: %d %d\n",
mb3dsoundings.last_sounding_defined, mb3dsoundings.last_sounding_edited); */

	/* only check if last sounding defined */
	neditevent = 0;
	soundingdata = (struct mb3dsoundings_struct *) mb3dsoundings.soundingdata;
	if (mb3dsoundings.last_sounding_defined == MB_YES
		&& mb3dsoundings.last_sounding_edited < soundingdata->num_soundings)
		{
		/* loop over all soundings */
		lastsounding = (struct mb3dsoundings_sounding_struct *)
					&(soundingdata->soundings[mb3dsoundings.last_sounding_edited]);
		for (i=0;i<soundingdata->num_soundings;i++)
			{
			sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
			if (sounding->ifile == lastsounding->ifile
				&& sounding->iping == lastsounding->iping
				&& sounding->ibeam <= lastsounding->ibeam
				&& mb_beam_ok(sounding->beamflag))
				{
				sounding->beamflag = MB_FLAG_FLAG + MB_FLAG_MANUAL;
				soundingdata->num_soundings_unflagged--;
				soundingdata->num_soundings_flagged++;
				neditevent++;

				/* communicate edit event back to calling application */
				if  (mb3dsoundings.mb3dsoundings_edit_notify != NULL)
					(mb3dsoundings.mb3dsoundings_edit_notify)(sounding->ifile, sounding->iping,
									sounding->ibeam, sounding->beamflag,
									MB3DSDG_EDIT_NOFLUSH);
				}
			}
		}

	/* replot and flush the edit events in the calling application */
	if (neditevent > 0)
		{
		/* replot the data */
		mb3dsoundings_plot(mbs_verbose, &mbs_error);
		mb3dsoundings_updatestatus();

		/* flush the edit events in the calling application */
		(mb3dsoundings.mb3dsoundings_edit_notify)(0, 0, 0,
						MB_FLAG_NULL,MB3DSDG_EDIT_FLUSHPREVIOUS);
		}
	else
		{
		XBell(mb3dsoundings.dpy,100);
		}

	/* return */
	return(mbs_status);

}
/*---------------------------------------------------------------------------------------*/

int
mb3dsoundings_right_ping()
{
    struct mb3dsoundings_struct *soundingdata;
    struct mb3dsoundings_sounding_struct *sounding;
    struct mb3dsoundings_sounding_struct *lastsounding;
    int		neditevent;
    int		i;

/* fprintf(stderr,"Called mb3dsoundings_right_ping last sounding: %d %d\n",
mb3dsoundings.last_sounding_defined, mb3dsoundings.last_sounding_edited); */

	/* only check if last sounding defined */
	neditevent = 0;
	soundingdata = (struct mb3dsoundings_struct *) mb3dsoundings.soundingdata;
	if (mb3dsoundings.last_sounding_defined == MB_YES
		&& mb3dsoundings.last_sounding_edited < soundingdata->num_soundings)
		{
		/* loop over all soundings */
		lastsounding = (struct mb3dsoundings_sounding_struct *)
					&(soundingdata->soundings[mb3dsoundings.last_sounding_edited]);
		for (i=0;i<soundingdata->num_soundings;i++)
			{
			sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
			if (sounding->ifile == lastsounding->ifile
				&& sounding->iping == lastsounding->iping
				&& sounding->ibeam >= lastsounding->ibeam
				&& mb_beam_ok(sounding->beamflag))
				{
				sounding->beamflag = MB_FLAG_FLAG + MB_FLAG_MANUAL;
				soundingdata->num_soundings_unflagged--;
				soundingdata->num_soundings_flagged++;
				neditevent++;

				/* communicate edit event back to calling application */
				if  (mb3dsoundings.mb3dsoundings_edit_notify != NULL)
					(mb3dsoundings.mb3dsoundings_edit_notify)(sounding->ifile, sounding->iping,
									sounding->ibeam, sounding->beamflag,
									MB3DSDG_EDIT_NOFLUSH);
				}
			}
		}

	/* replot and flush the edit events in the calling application */
	if (neditevent > 0)
		{
		/* replot the data */
		mb3dsoundings_plot(mbs_verbose, &mbs_error);
		mb3dsoundings_updatestatus();

		/* flush the edit events in the calling application */
		(mb3dsoundings.mb3dsoundings_edit_notify)(0, 0, 0,
						MB_FLAG_NULL,MB3DSDG_EDIT_FLUSHPREVIOUS);
		}
	else
		{
		XBell(mb3dsoundings.dpy,100);
		}

	/* return */
	return(mbs_status);

}
/*---------------------------------------------------------------------------------------*/

int
mb3dsoundings_good_ping()
{
    struct mb3dsoundings_struct *soundingdata;
    struct mb3dsoundings_sounding_struct *sounding;
    struct mb3dsoundings_sounding_struct *lastsounding;
    int		neditevent;
    int		i;

/* fprintf(stderr,"Called mb3dsoundings_good_ping last sounding: %d %d\n",
mb3dsoundings.last_sounding_defined, mb3dsoundings.last_sounding_edited); */

	/* only check if last sounding defined */
	neditevent = 0;
	soundingdata = (struct mb3dsoundings_struct *) mb3dsoundings.soundingdata;
	if (mb3dsoundings.last_sounding_defined == MB_YES
		&& mb3dsoundings.last_sounding_edited < soundingdata->num_soundings)
		{
		/* loop over all soundings */
		lastsounding = (struct mb3dsoundings_sounding_struct *)
					&(soundingdata->soundings[mb3dsoundings.last_sounding_edited]);
		for (i=0;i<soundingdata->num_soundings;i++)
			{
			sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
			if (sounding->ifile == lastsounding->ifile
				&& sounding->iping == lastsounding->iping
				&& !mb_beam_ok(sounding->beamflag))
				{
				sounding->beamflag = MB_FLAG_NONE;
				soundingdata->num_soundings_unflagged++;
				soundingdata->num_soundings_flagged--;
				neditevent++;

				/* communicate edit event back to calling application */
				if  (mb3dsoundings.mb3dsoundings_edit_notify != NULL)
					(mb3dsoundings.mb3dsoundings_edit_notify)(sounding->ifile, sounding->iping,
									sounding->ibeam, sounding->beamflag,
									MB3DSDG_EDIT_NOFLUSH);
				}
			}
		}
	else
		{
		XBell(mb3dsoundings.dpy,100);
		}

	/* replot and flush the edit events in the calling application */
	if (neditevent > 0)
		{
		/* replot the data */
		mb3dsoundings_plot(mbs_verbose, &mbs_error);
		mb3dsoundings_updatestatus();

		/* flush the edit events in the calling application */
		(mb3dsoundings.mb3dsoundings_edit_notify)(0, 0, 0,
						MB_FLAG_NULL,MB3DSDG_EDIT_FLUSHPREVIOUS);
		}

	/* return */
	return(mbs_status);

}
/*---------------------------------------------------------------------------------------*/

int
mb3dsoundings_setzscale(int verbose, int *error)
{
    struct mb3dsoundings_struct *soundingdata;
    struct mb3dsoundings_sounding_struct *sounding;
    int		nunflagged = 0;
    double	zmin, zmax, dz;
    int		i;

	/* get sounding data structure */
	soundingdata = (struct mb3dsoundings_struct *) mb3dsoundings.soundingdata;
/* fprintf(stderr,"Called mb3dsoundings_setzscale: %d soundings\n",soundingdata->num_soundings); */

	/* initialize zmin and zmax */
	zmin = 0.0;
	zmax = 0.0;

	/* get vertical min maxes for scaling of all soundings */
	if (mb3dsoundings.view_scalewithflagged == MB_YES && soundingdata->num_soundings > 0)
		{
		sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[0]);
		zmin = sounding->z;
		zmax = sounding->z;
		for (i=1;i<soundingdata->num_soundings;i++)
			{
			sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
			zmin = MIN(sounding->z, zmin);
			zmax = MAX(sounding->z, zmax);
			}
		}

	/* else get vertical min maxes for scaling of only unflagged soundings */
	else if (soundingdata->num_soundings > 0)
		{
		nunflagged = 0;
		for (i=1;i<soundingdata->num_soundings;i++)
			{
			sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
			if (mb_beam_ok(sounding->beamflag))
				{
				if (nunflagged == 0)
					{
					zmin = sounding->z;
					zmax = sounding->z;
					}
				else
					{
					zmin = MIN(sounding->z, zmin);
					zmax = MAX(sounding->z, zmax);
					}
				nunflagged++;
				}
			}
		}

	dz = zmax - zmin;
	soundingdata->zorigin = 0.5 * (zmin + zmax);
	soundingdata->zmin = -0.5 * dz;
	soundingdata->zmax = 0.5 * dz;
	for (i=0;i<soundingdata->num_soundings;i++)
		{
		sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
		sounding->z = sounding->z - soundingdata->zorigin;
		sounding->glz = mb3dsoundings.exageration * soundingdata->zscale * sounding->z;
		}

	/* return */
	return(mbs_status);

}

/*---------------------------------------------------------------------------------------*/

int
mb3dsoundings_plot(int verbose, int *error)
{
	/* local variables */
	char	*function_name = "mb3dsoundings_plot";

	struct mb3dsoundings_struct *soundingdata;
	struct mb3dsoundings_sounding_struct *sounding;
	struct mb3dsoundings_sounding_struct *sounding2;
	GLdouble 	model_matrix[16];
	GLdouble 	projection_matrix[16];
	GLint	viewport[4];
	int		grabxmin, grabxmax, grabymin, grabymax;
	float	glxmin, glymin, glzmin, glxmax, glymax, glzmax;
	double	xx, yy, zz;
	int	i;

	/* print starting debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> called\n",
			function_name);
		fprintf(stderr,"dbg2  Version %s\n",rcs_id);
		fprintf(stderr,"dbg2  MB-system Version %s\n",MB_VERSION);
		fprintf(stderr,"dbg2  Input arguments:\n");
		fprintf(stderr,"dbg2       verbose:                 %d\n", verbose);
		}

	/* get sounding data structure */
	soundingdata = (struct mb3dsoundings_struct *) mb3dsoundings.soundingdata;
/* fprintf(stderr,"Called mb3dsoundings_plot: %d soundings\n",
soundingdata->num_soundings); */

	/* make correct window current for OpenGL */
#ifdef MBV_DEBUG_GLX
fprintf(stderr,"%s:%d:%s glXMakeCurrent(%p,%p,%p)\n",
__FILE__,__LINE__,function_name,XtDisplay(mb3dsoundings.glwmda),XtWindow(mb3dsoundings.glwmda),mb3dsoundings.glx_context);
#endif
	glXMakeCurrent(XtDisplay(mb3dsoundings.glwmda),
			XtWindow(mb3dsoundings.glwmda),
			mb3dsoundings.glx_context);

#ifdef MBV_GET_GLX_ERRORS
mbview_glerrorcheck(0, __FILE__, __LINE__, function_name);
#endif

	/* set background color */
	glClearColor(1.0, 1.0, 1.0, 0.0);
	glClearDepth((GLclampd)(2000 * MBS_OPENGL_WIDTH));
	glDepthFunc(GL_LESS);
	glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);

	/* set projection */
	mb3dsoundings.left = -1.0 / mb3dsoundings.gl_size;
	mb3dsoundings.right = 1.0 / mb3dsoundings.gl_size;
	mb3dsoundings.bottom = -1.0 / mb3dsoundings.gl_size;
	mb3dsoundings.top = 1.0 / mb3dsoundings.gl_size;
	mb3dsoundings.aspect_ratio = 1.0 / mb3dsoundings.gl_size;
	glMatrixMode(GL_PROJECTION);
	glLoadIdentity();
	glOrtho(mb3dsoundings.left, mb3dsoundings.right,
			mb3dsoundings.bottom, mb3dsoundings.top,
			MBS_OPENGL_ZMIN2D, MBS_OPENGL_ZMAX2D);

	/* set up translations */
	glMatrixMode(GL_MODELVIEW);
	glLoadIdentity();
	glTranslated (mb3dsoundings.gl_offset_x,
			mb3dsoundings.gl_offset_y,
			MBS_OPENGL_ZMIN2D);
	glRotated ((float)(mb3dsoundings.elevation - 90.0), 1.0, 0.0, 0.0);
	glRotated ((float)(mb3dsoundings.azimuth), 0.0, 0.0, 1.0);
/* fprintf(stderr,"elevation:%f azimuth:%f\n",mb3dsoundings.elevation,mb3dsoundings.azimuth); */

	/* get modelview and projection matrices and viewport */
	glGetDoublev(GL_MODELVIEW_MATRIX, model_matrix);
	glGetDoublev(GL_PROJECTION_MATRIX, projection_matrix);
	glGetIntegerv(GL_VIEWPORT, viewport);

	/* Plot the bounding box if desired */
	if (mb3dsoundings.view_boundingbox == MB_YES)
		{
		glxmin = soundingdata->scale * soundingdata->xmin;
		glxmax = soundingdata->scale * soundingdata->xmax;
		glymin = soundingdata->scale * soundingdata->ymin;
		glymax = soundingdata->scale * soundingdata->ymax;
		glzmin = mb3dsoundings.exageration * soundingdata->zscale * soundingdata->zmin;
		glzmax = mb3dsoundings.exageration * soundingdata->zscale * soundingdata->zmax;
		glLineWidth(1.0);
		glColor3f(0.0, 0.0, 0.0);
		glEnable(GL_LINE_STIPPLE);

		if (mb3dsoundings.elevation <= 0.0)
			glLineStipple(1, 0xFFFF);
		else
			glLineStipple(1, 0x1111);
		glBegin(GL_LINE_LOOP);
		glVertex3f(glxmin, glymin, glzmin);
		glVertex3f(glxmax, glymin, glzmin);
		glVertex3f(glxmax, glymax, glzmin);
		glVertex3f(glxmin, glymax, glzmin);
		glEnd();

		if (mb3dsoundings.elevation >= 0.0)
			glLineStipple(1, 0xFFFF);
		else
			glLineStipple(1, 0x1111);
		glBegin(GL_LINE_LOOP);
		glVertex3f(glxmin, glymin, glzmax);
		glVertex3f(glxmax, glymin, glzmax);
		glVertex3f(glxmax, glymax, glzmax);
		glVertex3f(glxmin, glymax, glzmax);
		glEnd();

		if ((mb3dsoundings.azimuth >= 0.0 && mb3dsoundings.azimuth <= 90.0)
			|| (mb3dsoundings.azimuth >= 270.0 && mb3dsoundings.azimuth <= 360.0))
			{
			if (mb3dsoundings.elevation >= -90.0 && mb3dsoundings.elevation <= 90.0)
				glLineStipple(1, 0xFFFF);
			else
				glLineStipple(1, 0x1111);
			}
		else
			{
			if (mb3dsoundings.elevation >= -90.0 && mb3dsoundings.elevation <= 90.0)
				glLineStipple(1, 0x1111);
			else
				glLineStipple(1, 0xFFFF);
			}
		glBegin(GL_LINE_LOOP);
		glVertex3f(glxmin, glymin, glzmin);
		glVertex3f(glxmax, glymin, glzmin);
		glVertex3f(glxmax, glymin, glzmax);
		glVertex3f(glxmin, glymin, glzmax);
		glEnd();

		if (mb3dsoundings.azimuth >= 180.0 && mb3dsoundings.azimuth <= 360.0)
			{
			if (mb3dsoundings.elevation >= -90.0 && mb3dsoundings.elevation <= 90.0)
				glLineStipple(1, 0xFFFF);
			else
				glLineStipple(1, 0x1111);
			}
		else
			{
			if (mb3dsoundings.elevation >= -90.0 && mb3dsoundings.elevation <= 90.0)
				glLineStipple(1, 0x1111);
			else
				glLineStipple(1, 0xFFFF);
			}
		glBegin(GL_LINE_LOOP);
		glVertex3f(glxmax, glymin, glzmin);
		glVertex3f(glxmax, glymax, glzmin);
		glVertex3f(glxmax, glymax, glzmax);
		glVertex3f(glxmax, glymin, glzmax);
		glEnd();

		if (mb3dsoundings.azimuth >= 90.0 && mb3dsoundings.azimuth <= 270.0)
			{
			if (mb3dsoundings.elevation >= -90.0 && mb3dsoundings.elevation <= 90.0)
				glLineStipple(1, 0xFFFF);
			else
				glLineStipple(1, 0x1111);
			}
		else
			{
			if (mb3dsoundings.elevation >= -90.0 && mb3dsoundings.elevation <= 90.0)
				glLineStipple(1, 0x1111);
			else
				glLineStipple(1, 0xFFFF);
			}
		glBegin(GL_LINE_LOOP);
		glVertex3f(glxmax, glymax, glzmin);
		glVertex3f(glxmin, glymax, glzmin);
		glVertex3f(glxmin, glymax, glzmax);
		glVertex3f(glxmax, glymax, glzmax);
		glEnd();

		if ((mb3dsoundings.azimuth >= 0.0 && mb3dsoundings.azimuth <= 180.0)
			|| (mb3dsoundings.azimuth >= 0.0 && mb3dsoundings.azimuth <= 90.0))
			{
			if (mb3dsoundings.elevation >= -90.0 && mb3dsoundings.elevation <= 90.0)
				glLineStipple(1, 0xFFFF);
			else
				glLineStipple(1, 0x1111);
			}
		else
			{
			if (mb3dsoundings.elevation >= -90.0 && mb3dsoundings.elevation <= 90.0)
				glLineStipple(1, 0x1111);
			else
				glLineStipple(1, 0xFFFF);
			}
		glBegin(GL_LINE_LOOP);
		glVertex3f(glxmin, glymax, glzmin);
		glVertex3f(glxmin, glymin, glzmin);
		glVertex3f(glxmin, glymin, glzmax);
		glVertex3f(glxmin, glymax, glzmax);
		glEnd();

		glDisable(GL_LINE_STIPPLE);
		}

	/* Plot the profiles if desired */
	if (mb3dsoundings.view_profiles != MBS_VIEW_PROFILES_NONE)
		{
		glLineWidth(1.0);
		glBegin(GL_LINES);
		for (i=0;i<soundingdata->num_soundings-1;i++)
			{
			sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
			sounding2 = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i+1]);

			/* plot segment only if soundings are from the same ping */
			if (sounding2->ifile == sounding->ifile && sounding->iping == sounding2->iping)
				{
				/* plot in black if both soundings are good */
				if (mb_beam_ok(sounding->beamflag) && mb_beam_ok(sounding2->beamflag))
					{
					glColor3f(0.0, 0.0, 0.0);
					glVertex3f(sounding->glx, sounding->gly, sounding->glz);
					glVertex3f(sounding2->glx, sounding2->gly, sounding2->glz);
					}

				/* else plot in red if flagged profiles are desired */
				else if (mb3dsoundings.view_profiles == MBS_VIEW_PROFILES_ALL)
					{
					glColor3f(1.0, 0.0, 0.0);
					glVertex3f(sounding->glx, sounding->gly, sounding->glz);
					glVertex3f(sounding2->glx, sounding2->gly, sounding2->glz);
					}
				}
			}
		glEnd();
		}

	/* Plot the unflagged soundings */
	glPointSize(3.0);
	glColor3f(0.0, 0.0, 0.0);
	glBegin(GL_POINTS);
	for (i=0;i<soundingdata->num_soundings;i++)
		{
		sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
/*fprintf(stderr,"%d %f %f %f  %f %f %f %d", i,
sounding->x, sounding->y, sounding->z,
sounding->glx, sounding->gly, sounding->glz, sounding->beamflag);*/
		if (mb_beam_ok(sounding->beamflag))
			{
			glColor3f(colortable_object_red[sounding->beamcolor],
				colortable_object_green[sounding->beamcolor],
				colortable_object_blue[sounding->beamcolor]);
			glVertex3f(sounding->glx, sounding->gly, sounding->glz);
			/* fprintf(stderr," PLOTTED");*/
			}
/*fprintf(stderr,"\n");*/
		}
	glEnd();

	/* Plot the flagged soundings if desired */
	if (mb3dsoundings.view_flagged == MB_YES)
		{
		glColor3f(1.0, 0.0, 0.0);
		glBegin(GL_POINTS);
		for (i=0;i<soundingdata->num_soundings;i++)
			{
			sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
			if (!mb_beam_ok(sounding->beamflag))
				glVertex3f(sounding->glx, sounding->gly, sounding->glz);
/*fprintf(stderr,"%f %f %f\n", sounding->glx, sounding->gly, sounding->glz);*/
			}
		glEnd();
		}

	/* If in info mode and sounding picked plot it green */
	if (mb3dsoundings.edit_mode == MBS_EDIT_INFO
		&& mb3dsoundings.last_sounding_defined == MB_YES)
		{
		glColor3f(0.0, 1.0, 1.0);
		glBegin(GL_POINTS);
		sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[mb3dsoundings.last_sounding_edited]);
		glVertex3f(sounding->glx, sounding->gly, sounding->glz);
		glEnd();
		}

	/* save the screen positions of the soundings to facillitate picking */
	for (i=0;i<soundingdata->num_soundings;i++)
		{
		sounding = (struct mb3dsoundings_sounding_struct *) &(soundingdata->soundings[i]);
		if (mb_beam_ok(sounding->beamflag))
			{
			glVertex3f(sounding->glx, sounding->gly, sounding->glz);
			/* fprintf(stderr," PLOTTED");*/
			}
		gluProject((double)(sounding->glx),
			(double)(sounding->gly),
			(double)(sounding->glz),
			model_matrix,
			projection_matrix,
			viewport,
			&xx, &yy, &zz);
		sounding->winx = (int)xx;
		sounding->winy = (int)yy;
		}

	/* plot grab rectangle before rotations */
	glMatrixMode(GL_MODELVIEW);
	glLoadIdentity();
	if  (mb3dsoundings.button1down == MB_YES
		&& mb3dsoundings.grab_start_defined == MB_YES
		&& mb3dsoundings.grab_end_defined == MB_YES)
		{
		grabxmin = MIN(mb3dsoundings.grab_start_x, mb3dsoundings.grab_end_x);
		grabxmax = MAX(mb3dsoundings.grab_start_x, mb3dsoundings.grab_end_x);
		grabymin = MIN(mb3dsoundings.grab_start_y, mb3dsoundings.grab_end_y);
		grabymax = MAX(mb3dsoundings.grab_start_y, mb3dsoundings.grab_end_y);
		glxmin = (mb3dsoundings.right - mb3dsoundings.left)
			* ((float)grabxmin) / ((float)mb3dsoundings.gl_width)
				- 0.5 * (mb3dsoundings.right - mb3dsoundings.left);
		glxmax = (mb3dsoundings.right - mb3dsoundings.left)
			* ((float)grabxmax) / ((float)mb3dsoundings.gl_width)
				- 0.5 * (mb3dsoundings.right - mb3dsoundings.left);
		glymin = (mb3dsoundings.top - mb3dsoundings.bottom)
			* ((float)grabymin) / ((float)mb3dsoundings.gl_height)
				- 0.5 * (mb3dsoundings.top - mb3dsoundings.bottom);
		glymax = (mb3dsoundings.top - mb3dsoundings.bottom)
			* ((float)grabymax) / ((float)mb3dsoundings.gl_height)
				- 0.5 * (mb3dsoundings.top - mb3dsoundings.bottom);
/* fprintf(stderr,"glxmin:%f glxmax:%f glymin:%f glymax:%f\n", glxmin, glxmax, glymin, glymax); */
		glColor3f(1.0, 1.0, 0.0);
		glLineWidth(3.0);
		glBegin(GL_LINE_LOOP);
		glVertex3f(glxmin, glymin, -MBS_OPENGL_ZMIN2D - 0.5 * (MBS_OPENGL_ZMAX2D - MBS_OPENGL_ZMIN2D));
		glVertex3f(glxmax, glymin, -MBS_OPENGL_ZMIN2D - 0.5 * (MBS_OPENGL_ZMAX2D - MBS_OPENGL_ZMIN2D));
		glVertex3f(glxmax, glymax, -MBS_OPENGL_ZMIN2D - 0.5 * (MBS_OPENGL_ZMAX2D - MBS_OPENGL_ZMIN2D));
		glVertex3f(glxmin, glymax, -MBS_OPENGL_ZMIN2D - 0.5 * (MBS_OPENGL_ZMAX2D - MBS_OPENGL_ZMIN2D));
		glEnd();
		glLineWidth(1.0);
		}

	/* flush opengl buffers */
	glFlush();

	/* swap opengl buffers */
	glXSwapBuffers (XtDisplay(mb3dsoundings.glwmda),
			XtWindow(mb3dsoundings.glwmda));

#ifdef MBV_GET_GLX_ERRORS
mbview_glerrorcheck(0, __FILE__, __LINE__, function_name);
#endif

	/* print output debug statements */
	if (mbs_verbose >= 2)
		{
		fprintf(stderr,"\ndbg2  MBIO function <%s> completed\n",
			function_name);
		fprintf(stderr,"dbg2  Return values:\n");
		fprintf(stderr,"dbg2       error:        %d\n",*error);
		fprintf(stderr,"dbg2  Return status:\n");
		fprintf(stderr,"dbg2       status:       %d\n",mbs_status);
		}

	/* return */
	return(mbs_status);

}

/*---------------------------------------------------------------------------------------*/
int
mb3dsoundings_get_bias_values(int verbose, double *rollbias, double *pitchbias,
				double *headingbias, double *timelag, int *error)
{
/* fprintf(stderr,"Called mb3dsoundings_get_bias_values\n"); */

	/* get bias parameters */
	*rollbias = 0.01 * ((double)mb3dsoundings.irollbias);
	*pitchbias = 0.01 * ((double)mb3dsoundings.ipitchbias);
	*headingbias = 0.01 * ((double)mb3dsoundings.iheadingbias);
	*timelag = 0.01 * ((double)mb3dsoundings.itimelag);

	/* return */
	return(mbs_status);


}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_rollbias( Widget w, XtPointer client_data, XtPointer call_data)
{
	XmScaleCallbackStruct *acs;
    	int	irollbiasmin, irollbiasmax;

	acs = (XmScaleCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_rollbias: %d\n", acs->value); */

	mb3dsoundings.irollbias = acs->value;

	ac = 0;
        XtSetArg(args[ac], XmNminimum, &irollbiasmin); ac++;
        XtSetArg(args[ac], XmNmaximum, &irollbiasmax); ac++;
        XtSetArg(args[ac], XmNvalue, &(mb3dsoundings.irollbias)); ac++;
	XtGetValues(mb3dsoundings.mb3dsdg.scale_rollbias, args, ac);

	/* send bias parameters to calling program */
	if (mb3dsoundings.mb3dsoundings_bias_notify != NULL)
	(mb3dsoundings.mb3dsoundings_bias_notify)(0.01 *((double)mb3dsoundings.irollbias),
						0.01 *((double)mb3dsoundings.ipitchbias),
						0.01 *((double)mb3dsoundings.iheadingbias),
						0.01 *((double)mb3dsoundings.itimelag));

	/* rescale data to the gl coordinates */
	mb3dsoundings_scale(mbs_verbose, &mbs_error);
	mb3dsoundings_setzscale(mbs_verbose, &mbs_error);

	/* replot the data */
	mb3dsoundings_plot(mbs_verbose, &mbs_error);

	/* reset scale min max */
	if (mb3dsoundings.irollbias == irollbiasmin || mb3dsoundings.irollbias == irollbiasmax)
		{
		irollbiasmin = mb3dsoundings.irollbias - 100;
		irollbiasmax = mb3dsoundings.irollbias + 100;
		ac = 0;
        	XtSetArg(args[ac], XmNminimum, irollbiasmin); ac++;
        	XtSetArg(args[ac], XmNmaximum, irollbiasmax); ac++;
 		XtSetValues(mb3dsoundings.mb3dsdg.scale_rollbias, args, ac);
		}
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_pitchbias( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmScaleCallbackStruct *acs;
    acs = (XmScaleCallbackStruct*)call_data;
    	int	ipitchbiasmin, ipitchbiasmax;

   	acs = (XmScaleCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_pitchbias: %d\n", acs->value); */

	mb3dsoundings.ipitchbias = acs->value;

	ac = 0;
        XtSetArg(args[ac], XmNminimum, &ipitchbiasmin); ac++;
        XtSetArg(args[ac], XmNmaximum, &ipitchbiasmax); ac++;
        XtSetArg(args[ac], XmNvalue, &(mb3dsoundings.ipitchbias)); ac++;
	XtGetValues(mb3dsoundings.mb3dsdg.scale_pitchbias, args, ac);

	/* send bias parameters to calling program */
	if (mb3dsoundings.mb3dsoundings_bias_notify != NULL)
	(mb3dsoundings.mb3dsoundings_bias_notify)(0.01 *((double)mb3dsoundings.irollbias),
						0.01 *((double)mb3dsoundings.ipitchbias),
						0.01 *((double)mb3dsoundings.iheadingbias),
						0.01 *((double)mb3dsoundings.itimelag));

	/* rescale data to the gl coordinates */
	mb3dsoundings_scale(mbs_verbose, &mbs_error);
	mb3dsoundings_setzscale(mbs_verbose, &mbs_error);

	/* replot the data */
	mb3dsoundings_plot(mbs_verbose, &mbs_error);

	/* reset scale min max */
	if (mb3dsoundings.ipitchbias == ipitchbiasmin || mb3dsoundings.ipitchbias == ipitchbiasmax)
		{
		ipitchbiasmin = mb3dsoundings.ipitchbias - 100;
		ipitchbiasmax = mb3dsoundings.ipitchbias + 100;
		ac = 0;
        	XtSetArg(args[ac], XmNminimum, ipitchbiasmin); ac++;
        	XtSetArg(args[ac], XmNmaximum, ipitchbiasmax); ac++;
		XtSetValues(mb3dsoundings.mb3dsdg.scale_pitchbias, args, ac);
		}
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_headingbias( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmScaleCallbackStruct *acs;
    acs = (XmScaleCallbackStruct*)call_data;
    	int	iheadingbiasmin, iheadingbiasmax;

  	acs = (XmScaleCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_headingbias: %d\n", acs->value); */

	mb3dsoundings.iheadingbias = acs->value;

	ac = 0;
        XtSetArg(args[ac], XmNminimum, &iheadingbiasmin); ac++;
        XtSetArg(args[ac], XmNmaximum, &iheadingbiasmax); ac++;
        XtSetArg(args[ac], XmNvalue, &(mb3dsoundings.iheadingbias)); ac++;
	XtGetValues(mb3dsoundings.mb3dsdg.scale_headingbias, args, ac);

	/* send bias parameters to calling program */
	if (mb3dsoundings.mb3dsoundings_bias_notify != NULL)
	(mb3dsoundings.mb3dsoundings_bias_notify)(0.01 *((double)mb3dsoundings.irollbias),
						0.01 *((double)mb3dsoundings.ipitchbias),
						0.01 *((double)mb3dsoundings.iheadingbias),
						0.01 *((double)mb3dsoundings.itimelag));

	/* rescale data to the gl coordinates */
	mb3dsoundings_scale(mbs_verbose, &mbs_error);
	mb3dsoundings_setzscale(mbs_verbose, &mbs_error);

	/* replot the data */
	mb3dsoundings_plot(mbs_verbose, &mbs_error);

	/* reset scale min max */
	if (mb3dsoundings.iheadingbias == iheadingbiasmin
		|| mb3dsoundings.iheadingbias == iheadingbiasmax)
		{
		iheadingbiasmin = mb3dsoundings.iheadingbias - 100;
		iheadingbiasmax = mb3dsoundings.iheadingbias + 100;
		ac = 0;
        	XtSetArg(args[ac], XmNminimum, iheadingbiasmin); ac++;
        	XtSetArg(args[ac], XmNmaximum, iheadingbiasmax); ac++;
		XtSetValues(mb3dsoundings.mb3dsdg.scale_headingbias, args, ac);
		}
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_timelag( Widget w, XtPointer client_data, XtPointer call_data)
{
	XmScaleCallbackStruct *acs;
    	int	itimelagmin, itimelagmax;

	acs = (XmScaleCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_timelag: %d\n", acs->value); */

	mb3dsoundings.itimelag = acs->value;

	ac = 0;
        XtSetArg(args[ac], XmNminimum, &itimelagmin); ac++;
        XtSetArg(args[ac], XmNmaximum, &itimelagmax); ac++;
        XtSetArg(args[ac], XmNvalue, &(mb3dsoundings.itimelag)); ac++;
	XtGetValues(mb3dsoundings.mb3dsdg.scale_timelag, args, ac);

	/* send bias parameters to calling program */
	if (mb3dsoundings.mb3dsoundings_bias_notify != NULL)
	(mb3dsoundings.mb3dsoundings_bias_notify)(0.01 *((double)mb3dsoundings.irollbias),
						0.01 *((double)mb3dsoundings.ipitchbias),
						0.01 *((double)mb3dsoundings.iheadingbias),
						0.01 *((double)mb3dsoundings.itimelag));

	/* rescale data to the gl coordinates */
	mb3dsoundings_scale(mbs_verbose, &mbs_error);
	mb3dsoundings_setzscale(mbs_verbose, &mbs_error);

	/* replot the data */
	mb3dsoundings_plot(mbs_verbose, &mbs_error);

	/* reset scale min max */
	if (mb3dsoundings.itimelag == itimelagmin
		|| mb3dsoundings.itimelag == itimelagmax)
		{
		itimelagmin = mb3dsoundings.itimelag - 100;
		itimelagmax = mb3dsoundings.itimelag + 100;
		ac = 0;
        	XtSetArg(args[ac], XmNminimum, itimelagmin); ac++;
        	XtSetArg(args[ac], XmNmaximum, itimelagmax); ac++;
		XtSetValues(mb3dsoundings.mb3dsdg.scale_timelag, args, ac);
		}
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_view_flagged( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_view_flagged\n"); */

	mb3dsoundings.view_flagged = XmToggleButtonGetState(mb3dsoundings.mb3dsdg.toggleButton_view_flagged);

	/* replot the data */
	mb3dsoundings_plot(mbs_verbose, &mbs_error);
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_view_noprofile( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_view_noprofile\n"); */

	mb3dsoundings.view_profiles = MBS_VIEW_PROFILES_NONE;

   	XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_noconnect,
			True, False);
    	XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_connectgood,
			False, False);
    	XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_connectall,
			False, False);

	/* replot the data */
	mb3dsoundings_plot(mbs_verbose, &mbs_error);
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_view_goodprofile( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_view_goodprofile\n"); */

	mb3dsoundings.view_profiles = MBS_VIEW_PROFILES_UNFLAGGED;

    	XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_noconnect,
			False, False);
    	XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_connectgood,
			True, False);
    	XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_connectall,
			False, False);

	/* replot the data */
	mb3dsoundings_plot(mbs_verbose, &mbs_error);
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_view_allprofile( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_view_allprofile\n"); */

	mb3dsoundings.view_profiles = MBS_VIEW_PROFILES_ALL;

    	XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_noconnect,
			False, False);
    	XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_connectgood,
			False, False);
    	XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_view_connectall,
			True, False);

	/* replot the data */
	mb3dsoundings_plot(mbs_verbose, &mbs_error);
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_resetview( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_view_reset\n"); */

	/* reset view orientation */
	mb3dsoundings.elevation = 0.0;
	mb3dsoundings.azimuth = 0.0;
	mb3dsoundings.exageration = 1.0;

	/* rescale */
	mb3dsoundings_scalez(mbs_verbose, &mbs_error);
	mb3dsoundings_updatestatus();

	/* replot the data */
	mb3dsoundings_plot(mbs_verbose, &mbs_error);
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_view_boundingbox( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_view_boundingbox\n"); */

	mb3dsoundings.view_boundingbox = XmToggleButtonGetState(mb3dsoundings.mb3dsdg.toggleButton_view_boundingbox);

	/* replot the data */
	mb3dsoundings_plot(mbs_verbose, &mbs_error);
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_view_scalewithflagged( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_view_scalewithflagged\n"); */

	mb3dsoundings.view_scalewithflagged = XmToggleButtonGetState(mb3dsoundings.mb3dsdg.toggleButton_view_scalewithflagged);

	/* replot the data */
	mb3dsoundings_setzscale(mbs_verbose, &mbs_error);
	mb3dsoundings_plot(mbs_verbose, &mbs_error);
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_action_applybias( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_action_applybias\n"); */

	/* send bias parameters to calling program to be applied */
	if (mb3dsoundings.mb3dsoundings_biasapply_notify != NULL)
	(mb3dsoundings.mb3dsoundings_biasapply_notify)(0.01 *((double)mb3dsoundings.irollbias),
						0.01 *((double)mb3dsoundings.ipitchbias),
						0.01 *((double)mb3dsoundings.iheadingbias),
						0.01 *((double)mb3dsoundings.itimelag));
}
/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_action_colorsoundingsblack( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_action_colorsoundingsblack\n"); */

	/* notify calling program to color current selected unflagged soundings */
	if (mb3dsoundings.mb3dsoundings_colorsoundings_notify != NULL)
	(mb3dsoundings.mb3dsoundings_colorsoundings_notify)(MBV_COLOR_BLACK);

	/* replot the data */
	mb3dsoundings_plot(mbs_verbose, &mbs_error);
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_action_colorsoundingsred( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_action_colorsoundingsred\n"); */

	/* notify calling program to color current selected unflagged soundings */
	if (mb3dsoundings.mb3dsoundings_colorsoundings_notify != NULL)
	(mb3dsoundings.mb3dsoundings_colorsoundings_notify)(MBV_COLOR_RED);

	/* replot the data */
	mb3dsoundings_plot(mbs_verbose, &mbs_error);
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_action_colorsoundingsyellow( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_action_colorsoundingsyellow\n"); */

	/* notify calling program to color current selected unflagged soundings */
	if (mb3dsoundings.mb3dsoundings_colorsoundings_notify != NULL)
	(mb3dsoundings.mb3dsoundings_colorsoundings_notify)(MBV_COLOR_YELLOW);

	/* replot the data */
	mb3dsoundings_plot(mbs_verbose, &mbs_error);
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_action_colorsoundingsgreen( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_action_colorsoundingsgreen\n"); */

	/* notify calling program to color current selected unflagged soundings */
	if (mb3dsoundings.mb3dsoundings_colorsoundings_notify != NULL)
	(mb3dsoundings.mb3dsoundings_colorsoundings_notify)(MBV_COLOR_GREEN);

	/* replot the data */
	mb3dsoundings_plot(mbs_verbose, &mbs_error);
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_action_colorsoundingsbluegreen( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_action_colorsoundingsbluegreen\n"); */

	/* notify calling program to color current selected unflagged soundings */
	if (mb3dsoundings.mb3dsoundings_colorsoundings_notify != NULL)
	(mb3dsoundings.mb3dsoundings_colorsoundings_notify)(MBV_COLOR_BLUEGREEN);

	/* replot the data */
	mb3dsoundings_plot(mbs_verbose, &mbs_error);
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_action_colorsoundingsblue( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_action_colorsoundingsblue\n"); */

	/* notify calling program to color current selected unflagged soundings */
	if (mb3dsoundings.mb3dsoundings_colorsoundings_notify != NULL)
	(mb3dsoundings.mb3dsoundings_colorsoundings_notify)(MBV_COLOR_BLUE);

	/* replot the data */
	mb3dsoundings_plot(mbs_verbose, &mbs_error);
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_action_colorsoundingspurple( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_action_colorsoundingspurple\n"); */

	/* notify calling program to color current selected unflagged soundings */
	if (mb3dsoundings.mb3dsoundings_colorsoundings_notify != NULL)
	(mb3dsoundings.mb3dsoundings_colorsoundings_notify)(MBV_COLOR_PURPLE);

	/* replot the data */
	mb3dsoundings_plot(mbs_verbose, &mbs_error);
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_mouse_panzoom( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_mouse_panzoom\n"); */

	mb3dsoundings.mouse_mode = MBS_MOUSE_PANZOOM;
   	XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_rotate,
			False, False);
    	XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_panzoom,
			True, False);
   	XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_rotate1,
			False, False);
    	XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_panzoom1,
			True, False);

	/* set mouse mode label */
        sprintf(value_text, ":::t\"Mouse Mode:\":t\"L: Edit (Toggle)\":t\"M: Pan\"\"R: Zoom\"");
	set_mbview_label_multiline_string(mb3dsoundings.mb3dsdg.label_mousemode, value_text);
}

/*---------------------------------------------------------------------------------------*/

void
do_mb3dsdg_mouse_rotate( Widget w, XtPointer client_data, XtPointer call_data)
{
    XmAnyCallbackStruct *acs;
    acs = (XmAnyCallbackStruct*)call_data;

/* fprintf(stderr,"Called do_mb3dsdg_mouse_rotate\n"); */

	mb3dsoundings.mouse_mode = MBS_MOUSE_ROTATE;

    	XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_rotate,
			True, False);
    	XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_panzoom,
			False, False);
    	XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_rotate1,
			True, False);
    	XmToggleButtonSetState(mb3dsoundings.mb3dsdg.toggleButton_mouse_panzoom1,
			False, False);

	/* set mouse mode label */
        sprintf(value_text, ":::t\"Mouse Mode:\":t\"L: Edit (Toggle)\":t\"M: Rotate Soundings\"\"R: Exageration\"");
	set_mbview_label_multiline_string(mb3dsoundings.mb3dsdg.label_mousemode, value_text);
}

/*---------------------------------------------------------------------------------------*/
