/*
 * Copyright (C) 1996-1997 Id Software, Inc.
 *
 * This program is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the Free
 * Software Foundation; either version 2 of the License, or (at your option)
 * any later version.
 *
 * This program is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE.
 *
 * See the GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License along with
 * this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 * Place - Suite 330, Boston, MA 02111-1307, USA.
 *
 */
// r_misc.c

#include "quakedef.h"
#include "r_local.h"

/*
 * R_CheckVariables
 */
void R_CheckVariables (void) {
    static float  oldbright;

    if (r_fullbright.value != oldbright) {
        oldbright = r_fullbright.value;
        D_FlushCaches ();              // so all lighting changes
    }
}

/*
 * Show
 *
 * Debugging use
 */
void Show (void) {
    vrect_t       vr;

    vr.x = vr.y = 0;
    vr.width = vid.width;
    vr.height = vid.height;
    vr.pnext = NULL;
    VID_Update (&vr);
}

/*
 * R_TimeRefresh_f
 *
 * For program optimization
 */
void R_TimeRefresh_f (void) {
    int           i, startangle;
    float         start, stop, time;
    vrect_t       vr;

    startangle = r_refdef.viewangles[1];

    start = Sys_DoubleTime ();
    for (i = 0; i < 128; i++) {
        r_refdef.viewangles[1] = i / 128.0 * 360.0;

        VID_LockBuffer ();

        R_RenderView ();

        VID_UnlockBuffer ();

        vr.x = r_refdef.vrect.x;
        vr.y = r_refdef.vrect.y;
        vr.width = r_refdef.vrect.width;
        vr.height = r_refdef.vrect.height;
        vr.pnext = NULL;
        VID_Update (&vr);
    }
    stop = Sys_DoubleTime ();
    time = stop - start;
    Con_Printf ("%f seconds (%f fps)\n", time, 128 / time);

    r_refdef.viewangles[1] = startangle;
}

/*
 * R_LineGraph
 *
 * Only called by R_DisplayTime
 */
void R_LineGraph (int x, int y, int h) {
    int           i, s;
    byte         *dest;

    // FIXME: should be disabled on no-buffer adapters, or should be in the
    // driver

    x += r_refdef.vrect.x;
    y += r_refdef.vrect.y;

    dest = vid.buffer + vid.rowbytes * y + x;

    s = r_graphheight.value;

    if (h > s)
        h = s;

    for (i = 0; i < h; i++, dest -= vid.rowbytes * 2) {
        dest[0] = 0xff;
        *(dest - vid.rowbytes) = 0x30;
    }
    for (; i < s; i++, dest -= vid.rowbytes * 2) {
        dest[0] = 0x30;
        *(dest - vid.rowbytes) = 0x30;
    }
}

/*
 * R_TimeGraph
 *
 * Performance monitoring tool
 */
#define	MAX_TIMINGS	100
extern float  mouse_x, mouse_y;
void R_TimeGraph (void) {
    static int    timex;
    int           a, x;
    float         r_time2;
    static byte   r_timings[MAX_TIMINGS];

    r_time2 = Sys_DoubleTime ();

    a = (r_time2 - r_time1) / 0.01;
    // a = fabs(mouse_y * 0.05);
    // a = (int)((r_refdef.vieworg[2] + 1024)/1)%(int)r_graphheight.value;
    // a = fabs(velocity[0])/20;
    // a = ((int)fabs(origin[0])/8)%20;
    // a = (cl.idealpitch + 30)/5;
    r_timings[timex] = a;
    a = timex;

    if (r_refdef.vrect.width <= MAX_TIMINGS)
        x = r_refdef.vrect.width - 1;
    else
        x = r_refdef.vrect.width - (r_refdef.vrect.width - MAX_TIMINGS) / 2;
    do {
        R_LineGraph (x, r_refdef.vrect.height - 2, r_timings[a]);
        if (!x)
            break;                     // screen too small to hold entire thing
        x--;
        a--;
        if (a == -1)
            a = MAX_TIMINGS - 1;
    }
    while (a != timex);

    timex = (timex + 1) % MAX_TIMINGS;
}

/*
 * R_PrintTimes
 */
void R_PrintTimes (void) {
    double        r_time2;
    float         ms;

    r_time2 = Sys_DoubleTime ();

    ms = 1000 * (r_time2 - r_time1);

    Con_Printf ("%5.1f ms %3i/%3i/%3i poly %3i surf\n", ms, c_faceclip, r_polycount, r_drawnpolycount, c_surf);
    c_surf = 0;
}

/*
 * R_PrintDSpeeds
 */
void R_PrintDSpeeds (void) {
    double        ms, dp_time, r_time2, rw_time, db_time, se_time, de_time, dv_time;

    r_time2 = Sys_DoubleTime ();

    dp_time = (dp_time2 - dp_time1) * 1000;
    rw_time = (rw_time2 - rw_time1) * 1000;
    db_time = (db_time2 - db_time1) * 1000;
    se_time = (se_time2 - se_time1) * 1000;
    de_time = (de_time2 - de_time1) * 1000;
    dv_time = (dv_time2 - dv_time1) * 1000;
    ms = (r_time2 - r_time1) * 1000;

    Con_Printf ("%3i %4.1fp %3iw %4.1fb %3is %4.1fe %4.1fv\n", (int) ms, dp_time, (int) rw_time, db_time, (int) se_time,
                de_time, dv_time);
}

/*
 * R_PrintAliasStats
 */
void R_PrintAliasStats (void) {
    Con_Printf ("%3i polygon model drawn\n", r_amodels_drawn);
}

void WarpPalette (void) {
    int           i, j, basecolor[3];
    byte          newpalette[768];

    basecolor[0] = 130;
    basecolor[1] = 80;
    basecolor[2] = 50;

    // pull the colors halfway to bright brown
    for (i = 0; i < 256; i++) {
        for (j = 0; j < 3; j++) {
            newpalette[i * 3 + j] = (host_basepal[i * 3 + j] + basecolor[j]) / 2;
        }
    }

    VID_ShiftPalette (newpalette);
}

/*
 * R_TransformFrustum
 */
void R_TransformFrustum (void) {
    int           i;
    vec3_t        v, v2;

    for (i = 0; i < 4; i++) {
        v[0] = screenedge[i].normal[2];
        v[1] = -screenedge[i].normal[0];
        v[2] = screenedge[i].normal[1];

        v2[0] = v[1] * vright[0] + v[2] * vup[0] + v[0] * vpn[0];
        v2[1] = v[1] * vright[1] + v[2] * vup[1] + v[0] * vpn[1];
        v2[2] = v[1] * vright[2] + v[2] * vup[2] + v[0] * vpn[2];

        VectorCopy (v2, view_clipplanes[i].normal);

        view_clipplanes[i].dist = DotProduct (modelorg, v2);
    }
}

#if !id386
/*
 * TransformVector
 */
void TransformVector (vec3_t in, vec3_t out) {
    out[0] = DotProduct (in, vright);
    out[1] = DotProduct (in, vup);
    out[2] = DotProduct (in, vpn);
}
#endif

/*
 * R_TransformPlane
 */
void R_TransformPlane (mplane_t * p, float *normal, float *dist) {
    *dist = -PlaneDiff (r_origin, p);
    // TODO: when we have rotating entities, this will need to use the view
    // matrix
    TransformVector (p->normal, normal);
}

/*
 * R_SetUpFrustumIndexes
 */
void R_SetUpFrustumIndexes (void) {
    int           i, j, *pindex;

    pindex = r_frustum_indexes;

    for (i = 0; i < 4; i++) {
        for (j = 0; j < 3; j++) {
            if (view_clipplanes[i].normal[j] < 0) {
                pindex[j] = j;
                pindex[j + 3] = j + 3;
            } else {
                pindex[j] = j + 3;
                pindex[j + 3] = j;
            }
        }

        // FIXME: do just once at start
        pfrustum_indexes[i] = pindex;
        pindex += 6;
    }
}

/*
 * R_SetupFrame
 */
void R_SetupFrame (void) {
    int           edgecount;
    vrect_t       vrect;
    float         w, h;

    if (r_numsurfs.value) {
        if ((surface_p - surfaces) > r_maxsurfsseen)
            r_maxsurfsseen = surface_p - surfaces;

        Con_Printf ("Used %d of %d surfs; %d max\n", surface_p - surfaces, surf_max - surfaces, r_maxsurfsseen);
    }

    if (r_numedges.value) {
        edgecount = edge_p - r_edges;

        if (edgecount > r_maxedgesseen)
            r_maxedgesseen = edgecount;

        Con_Printf ("Used %d of %d edges; %d max\n", edgecount, r_numallocatededges, r_maxedgesseen);
    }

    r_refdef.ambientlight = r_ambient.value;

    if (r_refdef.ambientlight < 0)
        r_refdef.ambientlight = 0;

    if (!sv.active)
        r_draworder.value = 0;         // don't let cheaters look behind walls

    R_CheckVariables ();

    R_AnimateLight ();

    r_framecount++;

    // build the transformation matrix for the given view angles
    VectorCopy (r_refdef.vieworg, modelorg);
    VectorCopy (r_refdef.vieworg, r_origin);

    AngleVectors (r_refdef.viewangles, vpn, vright, vup);

    // current viewleaf
    r_oldviewleaf = r_viewleaf;
    r_viewleaf = Mod_PointInLeaf (r_origin, cl.worldmodel);

    r_dowarpold = r_dowarp;
    r_dowarp = r_waterwarp.value && (r_viewleaf->contents <= CONTENTS_WATER);

    if ((r_dowarp != r_dowarpold) || r_viewchanged || lcd_x.value) {
        if (r_dowarp) {
            if ((vid.width <= vid.maxwarpwidth) && (vid.height <= vid.maxwarpheight)) {
                vrect.x = 0;
                vrect.y = 0;
                vrect.width = vid.width;
                vrect.height = vid.height;

                R_ViewChanged (&vrect, sb_lines, vid.aspect);
            } else {
                w = vid.width;
                h = vid.height;

                if (w > vid.maxwarpwidth) {
                    h *= (float) vid.maxwarpwidth / w;
                    w = vid.maxwarpwidth;
                }

                if (h > vid.maxwarpheight) {
                    h = vid.maxwarpheight;
                    w *= (float) vid.maxwarpheight / h;
                }

                vrect.x = 0;
                vrect.y = 0;
                vrect.width = (int) w;
                vrect.height = (int) h;

                R_ViewChanged (&vrect, (int) ((float) sb_lines * (h / (float) vid.height)),
                               vid.aspect * (h / w) * ((float) vid.width / (float) vid.height));
            }
        } else {
            vrect.x = 0;
            vrect.y = 0;
            vrect.width = vid.width;
            vrect.height = vid.height;

            R_ViewChanged (&vrect, sb_lines, vid.aspect);
        }

        r_viewchanged = false;
    }
    // start off with just the four screen edge clip planes
    R_TransformFrustum ();

    // save base values
    VectorCopy (vpn, base_vpn);
    VectorCopy (vright, base_vright);
    VectorCopy (vup, base_vup);
    VectorCopy (modelorg, base_modelorg);

    R_SetSkyFrame ();

    R_SetUpFrustumIndexes ();

    r_cache_thrash = false;

    // clear frame counts
    c_faceclip = 0;
    d_spanpixcount = 0;
    r_polycount = 0;
    r_drawnpolycount = 0;
    r_wholepolycount = 0;
    r_amodels_drawn = 0;
    r_outofsurfaces = 0;
    r_outofedges = 0;

    D_SetupFrame ();
}
