/* set tic style to always tic first y value */
setyticfirst(w, val)
{
        local style;

        if (argc < 2)
        {
                if (argc < 1) w = refwindow(w0);

                if (iswindow(w))
                {
                        val = -1;
                }
                else
                {
                        val = w;
                        w = refwindow(w0);
                }
        }

        if (val >= 0)
        {
                val   = val != 0;
                style = getyticstyle(w);

                /* clear style */
                style &= ~0x01;

                if (val) style |= 0x01;

                setyticstyle(w, style);
        }
}