/* set scales to show X label */
xlabel_set_scales(w, foc)
{
        local sc;

        sc = getscales(w);

        /* do x scales have labels? */
        switch(sc)
        {
                /* none */
                case 0:
                        sc = 2;
                        break;

                /* XBYL */
                case 1:
                        sc = 2;
                        break;

                /* XBYR */
                case 4:
                        sc = 3;
                        break;

                /* XTYR */
                case 5:
                        sc = 8;
                        break;

                /* XTYL */
                case 6:
                        sc = 7;
                        break;

                /* YL */
                case 9:
                        sc = 2;
                        break;

                /* YR */
                case 10:
                        sc = 3;
                        break;

                /* XB */
                case 11:
                        sc = 2;
                        break;

                /* XT */
                case 12:
                        sc = 7;
                        break;

                default:
                        break;
        }

        if (isstripchart(w) && foc > 1)
        {
                /* stripchart traces other than first one */
                switch (sc)
                {
                        case 2:
                                sc = 13;
                                break;

                        case 3:
                                sc = 14;
                                break;

                        case 7:
                                sc = 13;
                                break;

                        case 8:
                                sc = 14;
                                break;

                        default:
                                break;
                }
        }
                
        scales(w, sc);
}