#define _PORTABLE_32BIT_CONTEXT
#include <windows.h>		// Header File For Windows
#include <winuser.h>		
#include <shellapi.h>		
#include <gl\gl.h>			// Header File For The OpenGL32 Library
#include <gl\glu.h>			// Header File For The GLu32 Library
#include <gl\glaux.h>		// Header File For The Glaux Library

#include <stdio.h>
#include <stdarg.h>
#include <string.h>
#ifdef __cplusplus
extern "C" {
#endif
#define __STDC__
#include "pict.h"
#ifdef __cplusplus
}
#endif

#define ALPHA_OPAC  0x00
#define IH(a)  (a)->image_H
#define IW(a)  (a)->image_W

/*#define SW 1280*/
/*#define SH 1024*/

int SW=1024;
int SH=768;

/*#define SW 800*/
/*#define SH 600*/

/*#define SW 640*/
/*#define SH 480*/

Pict pl=NULL;
Pict pr=NULL;
Pict LoadPicture(char *name);
int DrawGLScene(GLvoid);

HDC			hDC=NULL;		// Private GDI Device Context
HGLRC		hRC=NULL;		// Permanent Rendering Context
HWND		hWnd=NULL;		// Holds Our Window Handle
HINSTANCE	hInstance;		// Holds The Instance Of The Application

bool	keys[256];			// Array Used For The Keyboard Routine
bool	active=TRUE;		// Window Active Flag Set To TRUE By Default
bool	fullscreen=TRUE;	// Fullscreen Flag Set To Fullscreen Mode By Default
bool	anaglyph=FALSE;
bool	pleft=TRUE;
bool	twoscreen=FALSE;
int	origin=0;
int	offset_w=0;
int	offset_h=0;

LRESULT	CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);	// Declaration For WndProc

#define fprintf	merror

void merror(FILE *foo,char *fmt, ...)
{
	char str[512];
	char * lpMsgBuf;

	va_list                 vl;

	va_start(vl,fmt);
		vsprintf(str, fmt, vl);
	va_end(vl);


/*	FormatMessage(*/
/*	FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYS*/
/*	TEM,*/
/*	NULL,*/
/*	GetLastError(),*/
/*	MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),*/
/*	(LPTSTR) &lpMsgBuf,*/
/*	0,*/
/*	NULL*/
/*	);*/

	/* Display the string.  */
/*	MessageBox( NULL, lpMsgBuf, str, MB_OK|MB_ICONINFORMATION );*/
	MessageBox( NULL, str, NULL, MB_OK|MB_ICONINFORMATION );


	LocalFree( lpMsgBuf );

}

GLvoid ReSizeGLScene(GLsizei width, GLsizei height)		// Resize And Initialize The GL Window
{
	if (height==0)										// Prevent A Divide By Zero By
	{
		height=1;										// Making Height Equal One
	}

	glViewport(0,0,width,height);						// Reset The Current Viewport

}

int InitGL(GLvoid)										// All Setup For OpenGL Goes Here
{
	glClearColor(0.0f, 0.0f, 0.0f, 0.5f);				// Black Background
	return TRUE;										// Initialization Went OK
}

GLvoid KillGLWindow(GLvoid)								// Properly Kill The Window
{
	if (fullscreen)										// Are We In Fullscreen Mode?
	{
		ChangeDisplaySettings(NULL,0);					// If So Switch Back To The Desktop
		ShowCursor(TRUE);								// Show Mouse Pointer
	}

	if (hRC)											// Do We Have A Rendering Context?
	{
		if (!wglMakeCurrent(NULL,NULL))					// Are We Able To Release The DC And RC Contexts?
		{
			MessageBox(NULL,"Release Of DC And RC Failed.","SHUTDOWN ERROR",MB_OK | MB_ICONINFORMATION);
		}

		if (!wglDeleteContext(hRC))						// Are We Able To Delete The RC?
		{
			MessageBox(NULL,"Release Rendering Context Failed.","SHUTDOWN ERROR",MB_OK | MB_ICONINFORMATION);
		}
		hRC=NULL;										// Set RC To NULL
	}

	if (hDC && !ReleaseDC(hWnd,hDC))					// Are We Able To Release The DC
	{
		MessageBox(NULL,"Release Device Context Failed.","SHUTDOWN ERROR",MB_OK | MB_ICONINFORMATION);
		hDC=NULL;										// Set DC To NULL
	}

	if (hWnd && !DestroyWindow(hWnd))					// Are We Able To Destroy The Window?
	{
		MessageBox(NULL,"Could Not Release hWnd.","SHUTDOWN ERROR",MB_OK | MB_ICONINFORMATION);
		hWnd=NULL;										// Set hWnd To NULL
	}

	if (!UnregisterClass("OpenGL",hInstance))			// Are We Able To Unregister Class
	{
		MessageBox(NULL,"Could Not Unregister Class.","SHUTDOWN ERROR",MB_OK | MB_ICONINFORMATION);
		hInstance=NULL;									// Set hInstance To NULL
	}
}

/*	This Code Creates Our OpenGL Window.  Parameters Are:					*
 *	title			- Title To Appear At The Top Of The Window				*
 *	width			- Width Of The GL Window Or Fullscreen Mode				*
 *	height			- Height Of The GL Window Or Fullscreen Mode			*
 *	bits			- Number Of Bits To Use For Color (8/16/24/32)			*
 *	fullscreenflag	- Use Fullscreen Mode (TRUE) Or Windowed Mode (FALSE)	*/
 
BOOL CreateGLWindow(char* title, int left, int top, int width, int height, int bits, bool fullscreenflag)
{
	GLuint		PixelFormat;			// Holds The Results After Searching For A Match
	WNDCLASS	wc;						// Windows Class Structure
	DWORD		dwExStyle;				// Window Extended Style
	DWORD		dwStyle;				// Window Style
	RECT		WindowRect;				// Grabs Rectangle Upper Left / Lower Right Values

	if (fullscreen)
	{
		width=SW;
		height=SH;
	}

	WindowRect.right=(long)width;
	WindowRect.left=(long)0;
	WindowRect.top=(long)0;
	WindowRect.bottom=(long)height;

	fullscreen=fullscreenflag;			// Set The Global Fullscreen Flag

	hInstance			= GetModuleHandle(NULL);				// Grab An Instance For Our Window
	wc.style			= CS_HREDRAW | CS_VREDRAW | CS_OWNDC;	// Redraw On Size, And Own DC For Window.
	wc.lpfnWndProc		= (WNDPROC) WndProc;					// WndProc Handles Messages
	wc.cbClsExtra		= 0;									// No Extra Window Data
	wc.cbWndExtra		= 0;									// No Extra Window Data
	wc.hInstance		= hInstance;							// Set The Instance
	wc.hIcon			= LoadIcon(NULL, IDI_WINLOGO);			// Load The Default Icon
	wc.hCursor			= LoadCursor(NULL, IDC_ARROW);			// Load The Arrow Pointer
	wc.hbrBackground	= NULL;									// No Background Required For GL
	wc.lpszMenuName		= NULL;									// We Don't Want A Menu
	wc.lpszClassName	= "OpenGL";								// Set The Class Name

	if (!RegisterClass(&wc))									// Attempt To Register The Window Class
	{
		MessageBox(NULL,"Failed To Register The Window Class.","ERROR",MB_OK|MB_ICONEXCLAMATION);
		return FALSE;											// Return FALSE
	}
	
	if (fullscreen)												// Attempt Fullscreen Mode?
	{
		DEVMODE dmScreenSettings;								// Device Mode
		memset(&dmScreenSettings,0,sizeof(dmScreenSettings));	// Makes Sure Memory's Cleared
		dmScreenSettings.dmSize=sizeof(dmScreenSettings);		// Size Of The Devmode Structure
		dmScreenSettings.dmPelsWidth	= width;				// Selected Screen Width
		dmScreenSettings.dmPelsHeight	= height;				// Selected Screen Height
		dmScreenSettings.dmBitsPerPel	= bits;					// Selected Bits Per Pixel
		dmScreenSettings.dmFields=DM_BITSPERPEL|DM_PELSWIDTH|DM_PELSHEIGHT;

		// Try To Set Selected Mode And Get Results.  NOTE: CDS_FULLSCREEN Gets Rid Of Start Bar.
		if (ChangeDisplaySettings(&dmScreenSettings,CDS_FULLSCREEN)!=DISP_CHANGE_SUCCESSFUL)
		{
			// If The Mode Fails, Offer Two Options.  Quit Or Use Windowed Mode.
			if (MessageBox(NULL,"The Requested Fullscreen Mode Is Not Supported By\nYour Video Card. Use Windowed Mode Instead?","NeHe GL",MB_YESNO|MB_ICONEXCLAMATION)==IDYES)
			{
				fullscreen=FALSE;		// Windowed Mode Selected.  Fullscreen = FALSE
			}
			else
			{
				// Pop Up A Message Box Letting User Know The Program Is Closing.
				MessageBox(NULL,"Program Will Now Close.","ERROR",MB_OK|MB_ICONSTOP);
				return FALSE;									// Return FALSE
			}
		}
	}

	if (fullscreen)												// Are We Still In Fullscreen Mode?
	{
		dwExStyle=WS_EX_APPWINDOW;								// Window Extended Style
		dwStyle=WS_POPUP;										// Windows Style
		ShowCursor(FALSE);										// Hide Mouse Pointer
	}
	else
	{
		dwExStyle=WS_EX_APPWINDOW | WS_EX_WINDOWEDGE;			// Window Extended Style
		dwStyle=WS_OVERLAPPEDWINDOW;							// Windows Style
	}

	AdjustWindowRectEx(&WindowRect, dwStyle, FALSE, dwExStyle);		// Adjust Window To True Requested Size

	// Create The Window
	if (!(hWnd=CreateWindowEx(	dwExStyle,
								"OpenGL",
								title,
								dwStyle |
								WS_CLIPSIBLINGS |
								WS_CLIPCHILDREN,
								left, top,	// Window Position
								WindowRect.right-WindowRect.left,
								WindowRect.bottom-WindowRect.top,
								NULL,
								NULL,
								hInstance,
								NULL)))		// Dont Pass Anything To WM_CREATE
	{
		KillGLWindow();								// Reset The Display
		MessageBox(NULL,"Window Creation Error.","ERROR",MB_OK|MB_ICONEXCLAMATION);
		return FALSE;								// Return FALSE
	}

	static	PIXELFORMATDESCRIPTOR pfd=				// pfd Tells Windows How We Want Things To Be
	{
		sizeof(PIXELFORMATDESCRIPTOR),				// Size Of This Pixel Format Descriptor
		1,											// Version Number
		PFD_DRAW_TO_WINDOW |						// Format Must Support Window
		PFD_SUPPORT_OPENGL,							// Must Support Double Buffering
		PFD_TYPE_RGBA,								// Request An RGBA Format
		bits,										// Select Our Color Depth
		0, 0, 0, 0, 0, 0,							// Color Bits Ignored
		0,											// No Alpha Buffer
		0,											// Shift Bit Ignored
		0,											// No Accumulation Buffer
		0, 0, 0, 0,									// Accumulation Bits Ignored
		0,											// No Z-Buffer (Depth Buffer)  
		0,											// No Stencil Buffer
		0,											// No Auxiliary Buffer
		PFD_MAIN_PLANE,								// Main Drawing Layer
		0,											// Reserved
		0, 0, 0										// Layer Masks Ignored
	};
	
	if (!(hDC=GetDC(hWnd)))							// Did We Get A Device Context?
	{
		KillGLWindow();								// Reset The Display
		MessageBox(NULL,"Can't Create A GL Device Context.","ERROR",MB_OK|MB_ICONEXCLAMATION);
		return FALSE;								// Return FALSE
	}

	if (!(PixelFormat=ChoosePixelFormat(hDC,&pfd)))	// Did Windows Find A Matching Pixel Format?
	{
		KillGLWindow();								// Reset The Display
		MessageBox(NULL,"Can't Find A Suitable PixelFormat.","ERROR",MB_OK|MB_ICONEXCLAMATION);
		return FALSE;								// Return FALSE
	}

	if(!SetPixelFormat(hDC,PixelFormat,&pfd))		// Are We Able To Set The Pixel Format?
	{
		KillGLWindow();								// Reset The Display
		MessageBox(NULL,"Can't Set The PixelFormat.","ERROR",MB_OK|MB_ICONEXCLAMATION);
		return FALSE;								// Return FALSE
	}

	if (!(hRC=wglCreateContext(hDC)))				// Are We Able To Get A Rendering Context?
	{
		KillGLWindow();								// Reset The Display
		MessageBox(NULL,"Can't Create A GL Rendering Context.","ERROR",MB_OK|MB_ICONEXCLAMATION);
		return FALSE;								// Return FALSE
	}

	if(!wglMakeCurrent(hDC,hRC))					// Try To Activate The Rendering Context
	{
		KillGLWindow();								// Reset The Display
		MessageBox(NULL,"Can't Activate The GL Rendering Context.","ERROR",MB_OK|MB_ICONEXCLAMATION);
		return FALSE;								// Return FALSE
	}

	ShowWindow(hWnd,SW_SHOW);						// Show The Window
	SetForegroundWindow(hWnd);						// Slightly Higher Priority
	SetFocus(hWnd);									// Sets Keyboard Focus To The Window
	ReSizeGLScene(width, height);					// Set Up Our Perspective GL Screen

	if (!InitGL())									// Initialize Our Newly Created GL Window
	{
		KillGLWindow();								// Reset The Display
		MessageBox(NULL,"Initialization Failed.","ERROR",MB_OK|MB_ICONEXCLAMATION);
		return FALSE;								// Return FALSE
	}

	glClear(GL_COLOR_BUFFER_BIT);	// Clear Screen Buffer
	return TRUE;									// Success
}


LRESULT CALLBACK WndProc(	HWND	hWnd,			// Handle For This Window
							UINT	uMsg,			// Message For This Window
							WPARAM	wParam,			// Additional Message Information
							LPARAM	lParam)			// Additional Message Information
{
	switch (uMsg)									// Check For Windows Messages
	{
		case WM_ACTIVATE:							// Watch For Window Activate Message
		{
			if (!HIWORD(wParam))					// Check Minimization State
			{
				active=TRUE;						// Program Is Active
			}
			else
			{
				active=FALSE;						// Program Is No Longer Active
			}

			return 0;								// Return To The Message Loop
		}

		case WM_SYSCOMMAND:							// Intercept System Commands
		{
			switch (wParam)							// Check System Calls
			{
				case SC_SCREENSAVE:					// Screensaver Trying To Start?
				case SC_MONITORPOWER:				// Monitor Trying To Enter Powersave?
				return 0;							// Prevent From Happening
			}
			break;									// Exit
		}

		case WM_CLOSE:								// Did We Receive A Close Message?
		{
			PostQuitMessage(0);						// Send A Quit Message
			return 0;								// Jump Back
		}

		case WM_KEYDOWN:							// Is A Key Being Held Down?
		{
			keys[wParam] = TRUE;					// If So, Mark It As TRUE
			return 0;								// Jump Back
		}

		case WM_KEYUP:								// Has A Key Been Released?
		{
			keys[wParam] = FALSE;					// If So, Mark It As FALSE
			return 0;								// Jump Back
		}

		case WM_SIZE:								// Resize The OpenGL Window
		{
			ReSizeGLScene(LOWORD(lParam),HIWORD(lParam));  // LoWord=Width, HiWord=Height
			return 0;								// Jump Back
		}
	}

	// Pass All Unhandled Messages To DefWindowProc
	return DefWindowProc(hWnd,uMsg,wParam,lParam);
}

int WINAPI WinMain(	HINSTANCE	hInstance,			// Instance
					HINSTANCE	hPrevInstance,		// Previous Instance
					LPSTR		lpCmdLine,			// Command Line Parameters
					int			nCmdShow)			// Window Show State
{
	MSG		msg;
	BOOL	done=FALSE;
	BOOL	winopen=FALSE;


	int i,argtc;
	char *argt[1024];
	char **c;

	fullscreen=FALSE;							// Windowed Mode

	argtc=0;
	c=argt;
	for( *c = strtok( lpCmdLine, " \t" );
	*c != NULL;
	*(++c) =  strtok(NULL, " \t"))
	{
		argtc++;
	};

	for ( i=0; i< argtc; i++)
	{
	if ( !strcmp( argt[i], "-l" ))
	{
		pleft=TRUE;
	}
	else if ( !strcmp( argt[i], "-r" ))
	{
		pleft=FALSE;
		origin=SW;
	}
	else if ( !strcmp( argt[i], "-b" ))
	{
		fullscreen=TRUE;
	}
	else if ( !strcmp( argt[i], "-A" ))
	{
		anaglyph=TRUE;
	}
	else if ( !strcmp( argt[i], "-3" ))
	{
		twoscreen=TRUE;
		SW *= 2;
	}
	else if ( !strcmp( argt[i], "-h" ))
	{
		fprintf(stderr,"use: gdp -l|r|b|3 left.pict [right.pict]\n");
		return(1);
	}
	else if ( argt[i][0] != '-' )
	{
		break;
	}
	}

	while ( i < argtc )
	{
	if ( twoscreen )
	{
		if ( NULL == (pl=LoadPicture(argt[i])))
			return (1);
		if ( NULL == (pr=LoadPicture(argt[i+1])))
			return (1);
		i+=2;
	}
	else
	{
		if ( NULL == (pl=LoadPicture(argt[i])))
			return (1);
		i++;
	}


	if (!winopen)
	{
	// Create Our OpenGL Window
	if (!CreateGLWindow(argt[i-1],origin,0,IW(pl),IH(pl),32,fullscreen))
		return 0;
	else
		winopen = TRUE;
	}


	while(!done)									// Loop That Runs While done=FALSE
	{
		while(PeekMessage(&msg,NULL,0,0,PM_REMOVE))	// Is There A Message Waiting?
		{
			if (msg.message==WM_QUIT)				// Have We Received A Quit Message?
			{
				done=TRUE;							// If So done=TRUE
			}
			else									// If Not, Deal With Window Messages
			{
				TranslateMessage(&msg);				// Translate The Message
				DispatchMessage(&msg);				// Dispatch The Message
			}
		}
		
		if (!done)
		{
			// Draw The Scene.  Watch For ESC Key And Quit Messages From DrawGLScene()
			if (active)								// Program Active?
			{
				if (keys[VK_ESCAPE])				// Was ESC Pressed?
				{
					done=TRUE;						// ESC Signalled A Quit
				}
				else								// Not Time To Quit, Update Screen
				{
					DrawGLScene();					// Draw The Scene
				}
			}

			if (keys[VK_F1])						// Is F1 Being Pressed?
			{
				keys[VK_F1]=FALSE;					// If So Make Key FALSE
				KillGLWindow();						// Kill Our Current Window
				fullscreen=!fullscreen;				// Toggle Fullscreen / Windowed Mode
				// Recreate Our OpenGL Window
				if (!CreateGLWindow("foo.pict",origin,0,IW(pl),IH(pl),32,fullscreen))
				{
					return 0;						// Quit If Window Was Not Created
				}
			}
			else if (keys[VK_LEFT])
			{
				offset_w-=10;
				DrawGLScene();
				glClear(GL_COLOR_BUFFER_BIT);	// Clear Screen Buffer
			}
			else if (keys[VK_RIGHT])
			{
				offset_w+=10;
				DrawGLScene();
				glClear(GL_COLOR_BUFFER_BIT);	// Clear Screen Buffer
			}
			else if (keys[VK_UP])
			{
				offset_h-=10;
				DrawGLScene();
				glClear(GL_COLOR_BUFFER_BIT);	// Clear Screen Buffer
			}
			else if (keys[VK_DOWN])
			{
				offset_h+=10;
				DrawGLScene();
				glClear(GL_COLOR_BUFFER_BIT);	// Clear Screen Buffer
			}
		}
		WaitMessage();
	}


	pict_close(pl);
	if (NULL!=pr) pict_close(pr);
	done=FALSE;
	}
	KillGLWindow();									// Kill The Window
	return (msg.wParam);							// Exit The Program
}


Pict LoadPicture(char *name)
{
	Pict p=NULL;
	U_char	*pix;
	U_char  *unpacked,*r_ptr,*g_ptr,*b_ptr,*a_ptr;
	int i,j;

		p=pict_open(name,P_READ,0,0,0,NULL);

		if ( NULL == p )
		{
			MessageBox(NULL,"Open Failed.",name,MB_OK | MB_ICONINFORMATION);
			return NULL;
		}

		p->pixels =
		(U_char *)calloc(   (size_t)IH(p) * (size_t)IW(p) , (size_t)4);

		unpacked = (U_char *)malloc((size_t)IW(p)*(size_t)p->n_comp+1);
		pix = p->pixels + (size_t)4*IW(p)*(IH(p)-1);

		for (i=0; i < IH(p); i++)
		{

			a_ptr = unpacked;
			r_ptr = a_ptr+IW(p);
			g_ptr = r_ptr+IW(p);
			b_ptr = g_ptr+IW(p);

			pict_get_line(p,unpacked);

			switch(p->clr_mode)
			{
				case M_MONO:
				case M_RGB8:
				for (j=0; j<IW(p); j++)
				{
					*pix++ = ALPHA_OPAC;
					*pix++ = p->map[*a_ptr][0];
					*pix++ = p->map[*a_ptr][1];
					*pix++ = p->map[*a_ptr++][2];
				}
				break;
				case M_RGB24:
				for (j=0; j<IW(p); j++)
				{
					*pix++ = *a_ptr++;
					*pix++ = *r_ptr++;
					*pix++ = *g_ptr++;
					*pix++ = ALPHA_OPAC;
				}
				break;
				case M_RGBA32:
				for (j=0; j<IW(p); j++)
				{
				/*                            *pix++ = *r_ptr++;*/
				/*                            *pix++ = *g_ptr++;*/
				/*                            *pix++ = *b_ptr++;*/
				/*                            *pix++ = *a_ptr++;*/
					*pix++ = *a_ptr++;
					*pix++ = *r_ptr++;
					*pix++ = *g_ptr++;
					*pix++ = *b_ptr++;
				}
				break;

				default:
				for (j=0; j<IW(p); j++)
				{
					*pix++ = ALPHA_OPAC;
					*pix++ = *a_ptr;
					*pix++ = *a_ptr;
					*pix++ = *a_ptr++;
				}
				break;

			}
			pix -= 8*IW(p);
		}


		free((void*)unpacked);


	return p;										// Everything Went OK
}

int DrawGLScene(GLvoid)
{
/*	glClear(GL_COLOR_BUFFER_BIT);	// Clear Screen Buffer*/
	if (twoscreen)
	{
		if ( anaglyph )
			glColorMask(GL_TRUE,GL_FALSE,GL_FALSE,GL_TRUE);

		glRasterPos2f(-0.5-(GLfloat)(IW(pl)-offset_w)/SW,-((GLfloat)IH(pl)+offset_h)/SH);
		glDrawPixels(IW(pl),IH(pl),GL_RGBA,GL_UNSIGNED_BYTE,pl->pixels);

		if ( anaglyph )
			glColorMask(GL_FALSE,GL_TRUE,GL_TRUE,GL_TRUE);

		glRasterPos2f(+0.5-(GLfloat)(IW(pr)+offset_w)/SW,-((GLfloat)IH(pr)+offset_h)/SH);
		glDrawPixels(IW(pr),IH(pr),GL_RGBA,GL_UNSIGNED_BYTE,pr->pixels);

		if ( anaglyph )
			glColorMask(GL_TRUE,GL_TRUE,GL_TRUE,GL_TRUE);
	}
	else
	{
		if (fullscreen)
		{
			glRasterPos2f(-(float)IW(pl)/SW,-(float)IH(pl)/SH);
		}
		glDrawPixels(IW(pl),IH(pl),GL_RGBA,GL_UNSIGNED_BYTE,pl->pixels);
	}
	return TRUE;										// Everything Went OK
}