/* _rc_go_xy.spl - get row/col from user for ^G cursor goto, called internally */

static rcgo_xval;
static rcgo_yval;
static rcgo_zval;
static rcgo_row;
static rcgo_col;

_rc_go_xy(mode = 0, x, y, z, row, col)
{
        local menu_status = 0, menu_name;

        rcgo_xval = x;
        rcgo_yval = y;
        rcgo_zval = z;

        rcgo_row = row;
        rcgo_col = col;

        switch (mode)
        {
                case 0:
                default:
                        /* interval series */
                        menu_name = "rc_go_x.pan";
                        break;

                case 1:
                        /* XY series */
                        menu_name = "rc_go_xy.pan";
                        break;

                case 2:
                        /* density, contour or 3D surface */
                        menu_name = "rc_go_xyitv.pan";
                        break;

                case 3:
                        /* XYZ series */
                        menu_name = "rc_go_xyz.pan";
                        break;
        }

        _mf(menu_name);

        return(menu_status);
}


/* getters */
_rc_go_xval()
{
        return(castreal(rcgo_xval));
}


_rc_go_yval()
{
        return(castreal(rcgo_yval));
}


_rc_go_zval()
{
        return(castreal(rcgo_zval));
}


_rc_go_row()
{
        return(castint(rcgo_row));
}


_rc_go_col()
{
        return(castint(rcgo_col));
}