View Raw SPL
/* for XY panel, 2 series and 2 columns */
_s2c2(ser1, col1, ser2, col2, ser3, col3, xyintrp, nc1, nc2, nc3, xyitv, xyauto, xydt)
{
        local s;

        if (numstr(col1) == 1 && nc1 == 1)
        {
                s = sprintf("%s", ser1);
        }
        else
        {
                s = sprintf("col(%s, %s)", ser1, col1);
        }
        if (numstr(col2) == 1 && nc2 == 1)
        {
                s = sprintf("%s, %s", s, ser2);
        }
        else
        {
                s = sprintf("%s, col(%s, %s)", s, ser2, col2);
        }

        if (xydt)
        {
                if (numstr(col3) == 1 && nc3 == 1)
                {
                        s = sprintf("%s, %s", s, ser3);
                }
                else
                {
                        s = sprintf("%s, col(%s, %s)", s, ser3, col3);
                }

                s = sprintf("xydt(%s)", s);

                if (xyintrp)
                {
                        if (xyauto)
                        {
                                s = sprintf("Xyinterp(%s)", s);
                        }
                        else
                        {
                                s = sprintf("Xyinterp(%s, %g)", s, xyitv);
                        }
                }
        }
        else
        {
                if (xyintrp)
                {
                        if (xyauto)
                        {
                                s = sprintf("Xyinterp(%s)", s);
                        }
                        else
                        {
                                s = sprintf("Xyinterp(%s, %g)", s, xyitv);
                        }
                }
                else
                {
                        s = sprintf("XY(%s)", s);
                }
        }

        return(s);
}