#include "Vlib.h"

#ifdef X11
#include "gray0.xbm"
#include "gray1.xbm"
#include "gray2.xbm"
#include "gray3.xbm"
#include "gray4.xbm"
#include "gray5.xbm"
#include "gray6.xbm"
#include "gray7.xbm"
#endif
 

extern void VComputeClipNormals(Viewport * v);

int
ViewportSetDepthCueing(Viewport * v, int flag)
{
	int       status = 0;

	if (_VDefaultWorkContext->depthCueSteps > 1 &&
		v->flags & (VPFastAnimation || VPDoubleBuffer)) {
		if (flag)
			v->flags |= VPDepthCueing;
		else
			v->flags &= ~VPDepthCueing;
	}
	else {
		return -1;
	}
	return status;
}

Viewport *
VOpenViewport(Display * dpy, int screen, Window win, Colormap cmap, Visual * visual, double unit, double dist, double scale, int width, int height)
{

	Viewport *v;
	VPoint    clip[4];
	int       planes, i;
	int       maxpcolors;

	maxpcolors = (visual->map_entries == 2) ? 256 : visual->map_entries;

/*
 *  Allocate space for the Viewport structure
 */

	v = (Viewport *) Vmalloc(sizeof(Viewport));
	v->zsize = 32768;
	v->ztop = 0;
	v->zpool = (ZInfo *) Vmalloc(sizeof(ZInfo) * v->zsize);
	v->depth = MaxDepth;

	v->lastPixel = 0xffffffff;

#ifndef X11
	v->w = InitializeAWindow(width, height);
#endif

/*
 * Calculate screen resolution in pixels per unit.
 */

	v->dist = dist;
	v->units = unit;

	v->xres = ((((double) DisplayWidth(dpy, screen)) * unit * 1000.0) /
			   ((double) DisplayWidthMM(dpy, screen)));
	v->yres = ((((double) DisplayHeight(dpy, screen)) * unit * 1000.0) /
			   ((double) DisplayHeightMM(dpy, screen)));
/*
 *  Use that info to set scaling factors.
 */

	v->Scale.x = v->xres * dist * scale * 4;
	v->Scale.y = v->yres * dist * scale * 4;
	v->Scale.z = 1.0;

	v->Middl.x = width * 2;
	v->Middl.y = height * 2;

/*
 *  Build the clipping planes for our view into the eye space.
 */

	clip[0].x = -width / v->xres / 2.0 / scale;
	clip[0].y = -height / v->yres / 2.0 / scale;
	clip[0].z = dist;
	clip[1].x = -width / v->xres / 2.0 / scale;
	clip[1].y = height / v->yres / 2.0 / scale;
	clip[1].z = dist;
	clip[2].x = width / v->xres / 2.0 / scale;
	clip[2].y = height / v->yres / 2.0 / scale;
	clip[2].z = dist;
	clip[3].x = width / v->xres / 2.0 / scale;
	clip[3].y = -height / v->yres / 2.0 / scale;
	clip[3].z = dist;

	v->clipPoly = VCreatePolygon(4, clip, (VColor *) 0);
	VGetPlanes(v->clipPoly);
	VComputeClipNormals(v);

/*
 *  Fill out the rest of the structure.
 */

	v->flags = VPPerspective | VPClip | VPFastAnimation;
	v->dpy = dpy;
	v->cmap = cmap;
	v->visual = visual;
	v->screen = screen;
	v->win = win;
	VIdentMatrix(&v->eyeSpace);
	v->set = 0;
	v->width = width;
	v->height = height;
	v->aPixel = (Color *) Vmalloc(sizeof(Color) * maxpcolors);
	memset(v->aPixel, 0, sizeof(Color) * maxpcolors);
	for (i = 0; i < MAXCOLORS; ++i) {
		v->bPixel[i] = 0;
	}

	v->colorTweakProc = (void (*)()) NULL;

/*
 *  Is this a monochrome situation?  We also resort to monochrome on
 *  color systems that probably won't have enough color cell space
 *  to support double buffering.  We'll also use pixmaps if the
 *  global variable "usePixmaps" is non-zero.
 */

	planes = DisplayPlanes(dpy, screen);
	if (v->flags & VPDoubleBuffer || 
	    planes < PLANECOUNT * 2 + 2 || 
	    _VDefaultWorkContext->usePixmaps != 0) {
		if ((v->flags & VPFastAnimation) == 0) {
			v->monoPixmap = XCreatePixmap(dpy,
						 RootWindow(dpy, screen), width, height, planes);
			v->flags |= VPPixmap;
		}
#ifdef HAVE_X11_DBE
		if (v->flags & VPDoubleBuffer) {
		  v->gc = XCreateGC(dpy, RootWindow(dpy, screen),
                                          0, NULL);
		  v->flags |= VPPixmap;
		  v->dbeDrawable =  XdbeAllocateBackBufferName(dpy, win,
							      XdbeUntouched);
		  v->AllocColor = VdbeAllocColor;
		  v->DrawSegments = VdbeDrawSegments;
		  v->DrawLine = VdbeDrawLine;
		  v->FillPolygon = VdbeFillPolygon;
		  v->FillRectangle = VdbeFillRectangle;
		  v->ExposeBuffer = VdbeExposeBuffer;
		  v->SetClipRect = VdbeSetClipRect;
		  v->Close = VdbeClose;

		  return v;
		}
#endif

		if (planes == 1 || _VDefaultWorkContext->usePixmaps != 0)
			v->flags |= VPMono;
		v->mask = AllPlanes;
	}

#ifdef X11

	v->w = InitializeX11AWindow(dpy, screen, win,
								(v->flags & VPMono) ? AMonoMode : 0);

	v->AllocColor = AlibAllocColor;
	v->DrawSegments = AlibDrawSegments;
	v->DrawLine = AlibDrawLine;
	v->FillPolygon = AlibFillPolygon;
	v->FillRectangle = AlibFillRectangle;
	v->ExposeBuffer = AlibExposeBuffer;
	v->SetClipRect = AlibSetClipRect;
	v->Close = AlibClose;

/*
 *  Create the halftone bitmaps
 */

	v->halftone[0] = XCreateBitmapFromData(dpy, win, gray0_bits,
										   gray0_width, gray0_height);
	v->halftone[1] = XCreateBitmapFromData(dpy, win, gray1_bits,
										   gray1_width, gray1_height);
	v->halftone[2] = XCreateBitmapFromData(dpy, win, gray2_bits,
										   gray2_width, gray2_height);
	v->halftone[3] = XCreateBitmapFromData(dpy, win, gray3_bits,
										   gray3_width, gray3_height);
	v->halftone[4] = XCreateBitmapFromData(dpy, win, gray4_bits,
										   gray4_width, gray4_height);
	v->halftone[5] = XCreateBitmapFromData(dpy, win, gray5_bits,
										   gray5_width, gray5_height);
	v->halftone[6] = XCreateBitmapFromData(dpy, win, gray6_bits,
										   gray6_width, gray6_height);
	v->halftone[7] = XCreateBitmapFromData(dpy, win, gray7_bits,
										   gray7_width, gray7_height);

	v->w->stipple = v->halftone;
#endif

	return v;
}