progs/demos/tunnel2.c - third_party/mesa - Git at Google

 /*
  * This program is under the GNU GPL.
  * Use at your own risk.
  *
  * You need TWO Voodoo Graphics boards in order to run
  * this demo !
  *
  * written by David Bucciarelli (tech.hmw@plus.it)
  *            Humanware s.r.l.
  */

 #include <stdio.h>
 #include <stdlib.h>
 #include <math.h>
 #include <time.h>

 #ifdef WIN32
 #include <windows.h>
 #endif

 #include <GL/glut.h>
 #include "readtex.c"
 #include "tunneldat.h"

 #ifdef FX
 #endif

 #ifdef XMESA
 #include "GL/xmesa.h"
 static int fullscreen = 1;
 #endif

 #ifdef FX
 GLboolean fxMesaSelectCurrentBoard(int);
 #endif

 static int WIDTHC0 = 640;
 static int HEIGHTC0 = 480;

 static int WIDTHC1 = 640;
 static int HEIGHTC1 = 480;

 static GLint T0 = 0;
 static GLint Frames = 0;

 #define NUMBLOC 5

 #ifndef M_PI
 #define M_PI 3.1415926535
 #endif

 static float obs[3] = { 1000.0, 0.0, 2.0 };
 static float dir[3];
 static float v = 0.5;
 static float alpha = 90.0;
 static float beta = 90.0;

 static int fog = 0;
 static int bfcull = 1;
 static int usetex = 1;
 static int cstrip = 0;
 static int help = 1;
 static int joyavailable = 0;
 static int joyactive = 0;

 static int channel[2];

 static GLuint t1id, t2id;

 static void
 inittextures(void)
 {
    glGenTextures(1, &t1id);
    glBindTexture(GL_TEXTURE_2D, t1id);

    if (!LoadRGBMipmaps("../images/tile.rgb", GL_RGB)) {
       fprintf(stderr, "Error reading a texture.\n");
       exit(-1);
    }

    glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
    glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);

    glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER,
 		   GL_LINEAR_MIPMAP_NEAREST);
    glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);

    glGenTextures(1, &t2id);
    glBindTexture(GL_TEXTURE_2D, t2id);

    if (!LoadRGBMipmaps("../images/bw.rgb", GL_RGB)) {
       fprintf(stderr, "Error reading a texture.\n");
       exit(-1);
    }

    glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
    glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);

    glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER,
 		   GL_LINEAR_MIPMAP_NEAREST);
    glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);

    glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
 }

 static void
 drawobjs(const int *l, const float *f)
 {
    int mend, j;

    if (cstrip) {
       float r = 0.33, g = 0.33, b = 0.33;

       for (; (*l) != 0;) {
 	 mend = *l++;

 	 r += 0.33;
 	 if (r > 1.0) {
 	    r = 0.33;
 	    g += 0.33;
 	    if (g > 1.0) {
 	       g = 0.33;
 	       b += 0.33;
 	       if (b > 1.0)
 		  b = 0.33;
 	    }
 	 }

 	 glColor3f(r, g, b);
 	 glBegin(GL_TRIANGLE_STRIP);
 	 for (j = 0; j < mend; j++) {
 	    f += 4;
 	    glTexCoord2fv(f);
 	    f += 2;
 	    glVertex3fv(f);
 	    f += 3;
 	 }
 	 glEnd();
       }
    }
    else
       for (; (*l) != 0;) {
 	 mend = *l++;

 	 glBegin(GL_TRIANGLE_STRIP);
 	 for (j = 0; j < mend; j++) {
 	    glColor4fv(f);
 	    f += 4;
 	    glTexCoord2fv(f);
 	    f += 2;
 	    glVertex3fv(f);
 	    f += 3;
 	 }
 	 glEnd();
       }
 }

 static void
 calcposobs(void)
 {
    dir[0] = sin(alpha * M_PI / 180.0);
    dir[1] = cos(alpha * M_PI / 180.0) * sin(beta * M_PI / 180.0);
    dir[2] = cos(beta * M_PI / 180.0);

    if (dir[0] < 1.0e-5 && dir[0] > -1.0e-5)
       dir[0] = 0;
    if (dir[1] < 1.0e-5 && dir[1] > -1.0e-5)
       dir[1] = 0;
    if (dir[2] < 1.0e-5 && dir[2] > -1.0e-5)
       dir[2] = 0;

    obs[0] += v * dir[0];
    obs[1] += v * dir[1];
    obs[2] += v * dir[2];
 }

 static void
 special(int k, int x, int y)
 {
    switch (k) {
    case GLUT_KEY_LEFT:
       alpha -= 2.0;
       break;
    case GLUT_KEY_RIGHT:
       alpha += 2.0;
       break;
    case GLUT_KEY_DOWN:
       beta -= 2.0;
       break;
    case GLUT_KEY_UP:
       beta += 2.0;
       break;
    }
 }

 static void
 key(unsigned char k, int x, int y)
 {
    switch (k) {
    case 27:
       exit(0);
       break;

    case 'a':
       v += 0.01;
       break;
    case 'z':
       v -= 0.01;
       break;

 #ifdef XMESA
    case ' ':
       fullscreen = (!fullscreen);

       glutSetWindow(channel[0]);
       XMesaSetFXmode(fullscreen ? XMESA_FX_FULLSCREEN : XMESA_FX_WINDOW);

       glutSetWindow(channel[1]);
       XMesaSetFXmode(fullscreen ? XMESA_FX_FULLSCREEN : XMESA_FX_WINDOW);
       break;
 #endif

    case 'j':
       joyactive = (!joyactive);
       break;
    case 'h':
       help = (!help);
       break;
    case 'f':
       fog = (!fog);
       break;
    case 't':
       usetex = (!usetex);
       break;
    case 'b':
       if (bfcull) {
 	 glDisable(GL_CULL_FACE);
 	 bfcull = 0;
       }
       else {
 	 glEnable(GL_CULL_FACE);
 	 bfcull = 1;
       }
       break;
    case 'm':
       cstrip = (!cstrip);
       break;

    case 'd':
       fprintf(stderr, "Deleting textures...\n");
       glDeleteTextures(1, &t1id);
       glDeleteTextures(1, &t2id);
       fprintf(stderr, "Loading textures...\n");
       inittextures();
       fprintf(stderr, "Done.\n");
       break;
    }
 }

 static void
 reshapechannel0(int w, int h)
 {
    float ratio;

    WIDTHC0 = w;
    HEIGHTC0 = h;
    glMatrixMode(GL_PROJECTION);
    glLoadIdentity();

    ratio = 0.5f * w / (float) h;

    glFrustum(-2.0, 0.0, -1.0 * ratio, 1.0 * ratio, 1.0, 60.0);

    glMatrixMode(GL_MODELVIEW);
    glLoadIdentity();
    glViewport(0, 0, w, h);
 }

 static void
 reshapechannel1(int w, int h)
 {
    float ratio;

    WIDTHC1 = w;
    HEIGHTC1 = h;
    glMatrixMode(GL_PROJECTION);
    glLoadIdentity();

    ratio = 0.5f * w / (float) h;

    glFrustum(0.0, 2.0, -1.0 * ratio, 1.0 * ratio, 1.0, 60.0);

    glMatrixMode(GL_MODELVIEW);
    glLoadIdentity();
    glViewport(0, 0, w, h);
 }

 static void
 printstring(void *font, char *string)
 {
    int len, i;

    len = (int) strlen(string);
    for (i = 0; i < len; i++)
       glutBitmapCharacter(font, string[i]);
 }

 static void
 printhelp(void)
 {
    glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
    glColor4f(0.0, 0.0, 0.0, 0.5);
    glRecti(40, 40, 600, 440);

    glColor3f(1.0, 0.0, 0.0);
    glRasterPos2i(300, 420);
    printstring(GLUT_BITMAP_TIMES_ROMAN_24, "Help");

    glRasterPos2i(60, 390);
    printstring(GLUT_BITMAP_TIMES_ROMAN_24, "h - Togle Help");
    glRasterPos2i(60, 360);
    printstring(GLUT_BITMAP_TIMES_ROMAN_24, "t - Togle Textures");
    glRasterPos2i(60, 330);
    printstring(GLUT_BITMAP_TIMES_ROMAN_24, "f - Togle Fog");
    glRasterPos2i(60, 300);
    printstring(GLUT_BITMAP_TIMES_ROMAN_24, "m - Togle strips");
    glRasterPos2i(60, 270);
    printstring(GLUT_BITMAP_TIMES_ROMAN_24, "b - Togle Back face culling");
    glRasterPos2i(60, 240);
    printstring(GLUT_BITMAP_TIMES_ROMAN_24, "Arrow Keys - Rotate");
    glRasterPos2i(60, 210);
    printstring(GLUT_BITMAP_TIMES_ROMAN_24, "a - Increase velocity");
    glRasterPos2i(60, 180);
    printstring(GLUT_BITMAP_TIMES_ROMAN_24, "z - Decrease velocity");

    glRasterPos2i(60, 150);
    if (joyavailable)
       printstring(GLUT_BITMAP_TIMES_ROMAN_24,
 		  "j - Togle jostick control (Joystick control available)");
    else
       printstring(GLUT_BITMAP_TIMES_ROMAN_24,
 		  "(No Joystick control available)");
 }

 static void
 dojoy(void)
 {
 #ifdef WIN32
    static UINT max[2] = { 0, 0 };
    static UINT min[2] = { 0xffffffff, 0xffffffff }, center[2];
    MMRESULT res;
    JOYINFO joy;

    res = joyGetPos(JOYSTICKID1, &joy);

    if (res == JOYERR_NOERROR) {
       joyavailable = 1;

       if (max[0] < joy.wXpos)
 	 max[0] = joy.wXpos;
       if (min[0] > joy.wXpos)
 	 min[0] = joy.wXpos;
       center[0] = (max[0] + min[0]) / 2;

       if (max[1] < joy.wYpos)
 	 max[1] = joy.wYpos;
       if (min[1] > joy.wYpos)
 	 min[1] = joy.wYpos;
       center[1] = (max[1] + min[1]) / 2;

       if (joyactive) {
 	 if (fabs(center[0] - (float) joy.wXpos) > 0.1 * (max[0] - min[0]))
 	    alpha -=
 	       2.0 * (center[0] - (float) joy.wXpos) / (max[0] - min[0]);
 	 if (fabs(center[1] - (float) joy.wYpos) > 0.1 * (max[1] - min[1]))
 	    beta += 2.0 * (center[1] - (float) joy.wYpos) / (max[1] - min[1]);

 	 if (joy.wButtons & JOY_BUTTON1)
 	    v += 0.01;
 	 if (joy.wButtons & JOY_BUTTON2)
 	    v -= 0.01;
       }
    }
    else
       joyavailable = 0;
 #endif
 }

 static void
 draw(void)
 {
    static char frbuf[80] = "";
    int i;
    float base, offset;

    dojoy();

    glClear(GL_COLOR_BUFFER_BIT);

    glClear(GL_COLOR_BUFFER_BIT);

    if (usetex)
       glEnable(GL_TEXTURE_2D);
    else
       glDisable(GL_TEXTURE_2D);

    if (fog)
       glEnable(GL_FOG);
    else
       glDisable(GL_FOG);

    glShadeModel(GL_SMOOTH);

    glPushMatrix();
    calcposobs();
    gluLookAt(obs[0], obs[1], obs[2],
 	     obs[0] + dir[0], obs[1] + dir[1], obs[2] + dir[2],
 	     0.0, 0.0, 1.0);

    if (dir[0] > 0) {
       offset = 8.0;
       base = obs[0] - fmod(obs[0], 8.0);
    }
    else {
       offset = -8.0;
       base = obs[0] + (8.0 - fmod(obs[0], 8.0));
    }

    glPushMatrix();
    glTranslatef(base - offset / 2.0, 0.0, 0.0);
    for (i = 0; i < NUMBLOC; i++) {
       glTranslatef(offset, 0.0, 0.0);
       glBindTexture(GL_TEXTURE_2D, t1id);
       drawobjs(striplength_skin_11, stripdata_skin_11);
       glBindTexture(GL_TEXTURE_2D, t2id);
       drawobjs(striplength_skin_12, stripdata_skin_12);
       drawobjs(striplength_skin_9, stripdata_skin_9);
       drawobjs(striplength_skin_13, stripdata_skin_13);
    }
    glPopMatrix();
    glPopMatrix();

    glDisable(GL_TEXTURE_2D);
    glDisable(GL_FOG);
    glShadeModel(GL_FLAT);

    glMatrixMode(GL_PROJECTION);
    glPushMatrix();
    glLoadIdentity();
    glOrtho(-0.5, 639.5, -0.5, 479.5, -1.0, 1.0);

    glMatrixMode(GL_MODELVIEW);
    glLoadIdentity();

    glColor3f(1.0, 0.0, 0.0);
    glRasterPos2i(10, 10);
    printstring(GLUT_BITMAP_HELVETICA_18, frbuf);
    glRasterPos2i(350, 470);
    printstring(GLUT_BITMAP_HELVETICA_10,
 	       "Tunnel2 V1.0 Written by David Bucciarelli (tech.hmw@plus.it)");

    if (help)
       printhelp();

    glMatrixMode(GL_PROJECTION);
    glPopMatrix();
    glMatrixMode(GL_MODELVIEW);

    Frames++;
    {
       GLint t = glutGet(GLUT_ELAPSED_TIME);
       if (t - T0 >= 2000) {
          GLfloat seconds = (t - T0) / 1000.0;
          GLfloat fps = Frames / seconds;
          sprintf(frbuf, "Frame rate: %f", fps);
          T0 = t;
          Frames = 0;
       }
    }
 }

 static void
 drawchannel0(void)
 {
    glutSetWindow(channel[0]);
    draw();
    glutSwapBuffers();
 }

 static void
 drawchannel1(void)
 {
    glutSetWindow(channel[1]);
    draw();
    glutSwapBuffers();
 }

 static void
 drawall(void)
 {
    glutSetWindow(channel[0]);
    draw();
    glutSetWindow(channel[1]);
    draw();

    glutSetWindow(channel[0]);
    glutSwapBuffers();
    glutSetWindow(channel[1]);
    glutSwapBuffers();
 }

 static void
 init(void)
 {
    float fogcolor[4] = { 0.7, 0.7, 0.7, 1.0 };

    glShadeModel(GL_SMOOTH);
    glDisable(GL_DEPTH_TEST);
    glEnable(GL_CULL_FACE);
    glEnable(GL_TEXTURE_2D);

    glEnable(GL_FOG);
    glFogi(GL_FOG_MODE, GL_EXP2);
    glFogfv(GL_FOG_COLOR, fogcolor);

    glFogf(GL_FOG_DENSITY, 0.06);
    glHint(GL_FOG_HINT, GL_NICEST);

    glEnable(GL_BLEND);
    /*
    glBlendFunc(GL_SRC_ALPHA_SATURATE, GL_ONE);
    glEnable(GL_POLYGON_SMOOTH);
    */

    glClearColor(fogcolor[0], fogcolor[1], fogcolor[2], fogcolor[3]);
    glClear(GL_COLOR_BUFFER_BIT);
 }

 int
 main(int ac, char **av)
 {
    fprintf(stderr,
 	   "Tunnel2 V1.0\nWritten by David Bucciarelli (tech.hmw@plus.it)\n");

    glutInitWindowPosition(0, 0);
    glutInitWindowSize(WIDTHC0, HEIGHTC0);
    glutInit(&ac, av);

    glutInitDisplayMode(GLUT_RGB | GLUT_DOUBLE);

 #ifdef FX
    if (!fxMesaSelectCurrentBoard(0)) {
       fprintf(stderr, "The first Voodoo Graphics board is missing !?!?\n");
       return -1;
    }
 #endif
    if (!(channel[0] = glutCreateWindow("Channel 0"))) {
       fprintf(stderr, "Error, couldn't open window\n");
       return -1;
    }

    reshapechannel0(WIDTHC0, HEIGHTC0);
    init();
    inittextures();
    glutDisplayFunc(drawchannel0);
    glutReshapeFunc(reshapechannel0);
    glutKeyboardFunc(key);
    glutSpecialFunc(special);

 #ifdef FX
    if (!fxMesaSelectCurrentBoard(1)) {
       fprintf(stderr, "The second Voodoo Graphics board is missing !\n");
       exit(-1);
    }
 #endif
    glutInitWindowPosition(WIDTHC0, 0);
    glutInitWindowSize(WIDTHC1, HEIGHTC1);
    if (!(channel[1] = glutCreateWindow("Channel 1"))) {
       fprintf(stderr, "Error, couldn't open window\n");
       exit(-1);
    }

    reshapechannel1(WIDTHC1, HEIGHTC1);
    init();
    inittextures();
    glutDisplayFunc(drawchannel1);
    glutReshapeFunc(reshapechannel1);
    glutKeyboardFunc(key);
    glutSpecialFunc(special);

    glutIdleFunc(drawall);

    calcposobs();

    glutMainLoop();

    return 0;
 }
	/*
	* This program is under the GNU GPL.
	* Use at your own risk.
	*
	* You need TWO Voodoo Graphics boards in order to run
	* this demo !
	*
	* written by David Bucciarelli (tech.hmw@plus.it)
	* Humanware s.r.l.
	*/

	#include <stdio.h>
	#include <stdlib.h>
	#include <math.h>
	#include <time.h>

	#ifdef WIN32
	#include <windows.h>
	#endif

	#include <GL/glut.h>
	#include "readtex.c"
	#include "tunneldat.h"

	#ifdef FX
	#endif

	#ifdef XMESA
	#include "GL/xmesa.h"
	static int fullscreen = 1;
	#endif

	#ifdef FX
	GLboolean fxMesaSelectCurrentBoard(int);
	#endif

	static int WIDTHC0 = 640;
	static int HEIGHTC0 = 480;

	static int WIDTHC1 = 640;
	static int HEIGHTC1 = 480;

	static GLint T0 = 0;
	static GLint Frames = 0;

	#define NUMBLOC 5

	#ifndef M_PI
	#define M_PI 3.1415926535
	#endif

	static float obs[3] = { 1000.0, 0.0, 2.0 };
	static float dir[3];
	static float v = 0.5;
	static float alpha = 90.0;
	static float beta = 90.0;

	static int fog = 0;
	static int bfcull = 1;
	static int usetex = 1;
	static int cstrip = 0;
	static int help = 1;
	static int joyavailable = 0;
	static int joyactive = 0;

	static int channel[2];

	static GLuint t1id, t2id;

	static void
	inittextures(void)
	{
	glGenTextures(1, &t1id);
	glBindTexture(GL_TEXTURE_2D, t1id);

	if (!LoadRGBMipmaps("../images/tile.rgb", GL_RGB)) {
	fprintf(stderr, "Error reading a texture.\n");
	exit(-1);
	}

	glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
	glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);

	glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER,
	GL_LINEAR_MIPMAP_NEAREST);
	glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);

	glGenTextures(1, &t2id);
	glBindTexture(GL_TEXTURE_2D, t2id);

	if (!LoadRGBMipmaps("../images/bw.rgb", GL_RGB)) {
	fprintf(stderr, "Error reading a texture.\n");
	exit(-1);
	}

	glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
	glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);

	glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER,
	GL_LINEAR_MIPMAP_NEAREST);
	glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);

	glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
	}

	static void
	drawobjs(const int l, const float f)
	{
	int mend, j;

	if (cstrip) {
	float r = 0.33, g = 0.33, b = 0.33;

	for (; (*l) != 0;) {
	mend = *l++;

	r += 0.33;
	if (r > 1.0) {
	r = 0.33;
	g += 0.33;
	if (g > 1.0) {
	g = 0.33;
	b += 0.33;
	if (b > 1.0)
	b = 0.33;
	}
	}

	glColor3f(r, g, b);
	glBegin(GL_TRIANGLE_STRIP);
	for (j = 0; j < mend; j++) {
	f += 4;
	glTexCoord2fv(f);
	f += 2;
	glVertex3fv(f);
	f += 3;
	}
	glEnd();
	}
	}
	else
	for (; (*l) != 0;) {
	mend = *l++;

	glBegin(GL_TRIANGLE_STRIP);
	for (j = 0; j < mend; j++) {
	glColor4fv(f);
	f += 4;
	glTexCoord2fv(f);
	f += 2;
	glVertex3fv(f);
	f += 3;
	}
	glEnd();
	}
	}

	static void
	calcposobs(void)
	{
	dir[0] = sin(alpha * M_PI / 180.0);
	dir[1] = cos(alpha * M_PI / 180.0) * sin(beta * M_PI / 180.0);
	dir[2] = cos(beta * M_PI / 180.0);

	if (dir[0] < 1.0e-5 && dir[0] > -1.0e-5)
	dir[0] = 0;
	if (dir[1] < 1.0e-5 && dir[1] > -1.0e-5)
	dir[1] = 0;
	if (dir[2] < 1.0e-5 && dir[2] > -1.0e-5)
	dir[2] = 0;

	obs[0] += v * dir[0];
	obs[1] += v * dir[1];
	obs[2] += v * dir[2];
	}

	static void
	special(int k, int x, int y)
	{
	switch (k) {
	case GLUT_KEY_LEFT:
	alpha -= 2.0;
	break;
	case GLUT_KEY_RIGHT:
	alpha += 2.0;
	break;
	case GLUT_KEY_DOWN:
	beta -= 2.0;
	break;
	case GLUT_KEY_UP:
	beta += 2.0;
	break;
	}
	}

	static void
	key(unsigned char k, int x, int y)
	{
	switch (k) {
	case 27:
	exit(0);
	break;

	case 'a':
	v += 0.01;
	break;
	case 'z':
	v -= 0.01;
	break;

	#ifdef XMESA
	case ' ':
	fullscreen = (!fullscreen);

	glutSetWindow(channel[0]);
	XMesaSetFXmode(fullscreen ? XMESA_FX_FULLSCREEN : XMESA_FX_WINDOW);

	glutSetWindow(channel[1]);
	XMesaSetFXmode(fullscreen ? XMESA_FX_FULLSCREEN : XMESA_FX_WINDOW);
	break;
	#endif

	case 'j':
	joyactive = (!joyactive);
	break;
	case 'h':
	help = (!help);
	break;
	case 'f':
	fog = (!fog);
	break;
	case 't':
	usetex = (!usetex);
	break;
	case 'b':
	if (bfcull) {
	glDisable(GL_CULL_FACE);
	bfcull = 0;
	}
	else {
	glEnable(GL_CULL_FACE);
	bfcull = 1;
	}
	break;
	case 'm':
	cstrip = (!cstrip);
	break;

	case 'd':
	fprintf(stderr, "Deleting textures...\n");
	glDeleteTextures(1, &t1id);
	glDeleteTextures(1, &t2id);
	fprintf(stderr, "Loading textures...\n");
	inittextures();
	fprintf(stderr, "Done.\n");
	break;
	}
	}

	static void
	reshapechannel0(int w, int h)
	{
	float ratio;

	WIDTHC0 = w;
	HEIGHTC0 = h;
	glMatrixMode(GL_PROJECTION);
	glLoadIdentity();

	ratio = 0.5f * w / (float) h;

	glFrustum(-2.0, 0.0, -1.0 * ratio, 1.0 * ratio, 1.0, 60.0);

	glMatrixMode(GL_MODELVIEW);
	glLoadIdentity();
	glViewport(0, 0, w, h);
	}

	static void
	reshapechannel1(int w, int h)
	{
	float ratio;

	WIDTHC1 = w;
	HEIGHTC1 = h;
	glMatrixMode(GL_PROJECTION);
	glLoadIdentity();

	ratio = 0.5f * w / (float) h;

	glFrustum(0.0, 2.0, -1.0 * ratio, 1.0 * ratio, 1.0, 60.0);

	glMatrixMode(GL_MODELVIEW);
	glLoadIdentity();
	glViewport(0, 0, w, h);
	}

	static void
	printstring(void font, char string)
	{
	int len, i;

	len = (int) strlen(string);
	for (i = 0; i < len; i++)
	glutBitmapCharacter(font, string[i]);
	}

	static void
	printhelp(void)
	{
	glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
	glColor4f(0.0, 0.0, 0.0, 0.5);
	glRecti(40, 40, 600, 440);

	glColor3f(1.0, 0.0, 0.0);
	glRasterPos2i(300, 420);
	printstring(GLUT_BITMAP_TIMES_ROMAN_24, "Help");

	glRasterPos2i(60, 390);
	printstring(GLUT_BITMAP_TIMES_ROMAN_24, "h - Togle Help");
	glRasterPos2i(60, 360);
	printstring(GLUT_BITMAP_TIMES_ROMAN_24, "t - Togle Textures");
	glRasterPos2i(60, 330);
	printstring(GLUT_BITMAP_TIMES_ROMAN_24, "f - Togle Fog");
	glRasterPos2i(60, 300);
	printstring(GLUT_BITMAP_TIMES_ROMAN_24, "m - Togle strips");
	glRasterPos2i(60, 270);
	printstring(GLUT_BITMAP_TIMES_ROMAN_24, "b - Togle Back face culling");
	glRasterPos2i(60, 240);
	printstring(GLUT_BITMAP_TIMES_ROMAN_24, "Arrow Keys - Rotate");
	glRasterPos2i(60, 210);
	printstring(GLUT_BITMAP_TIMES_ROMAN_24, "a - Increase velocity");
	glRasterPos2i(60, 180);
	printstring(GLUT_BITMAP_TIMES_ROMAN_24, "z - Decrease velocity");

	glRasterPos2i(60, 150);
	if (joyavailable)
	printstring(GLUT_BITMAP_TIMES_ROMAN_24,
	"j - Togle jostick control (Joystick control available)");
	else
	printstring(GLUT_BITMAP_TIMES_ROMAN_24,
	"(No Joystick control available)");
	}

	static void
	dojoy(void)
	{
	#ifdef WIN32
	static UINT max[2] = { 0, 0 };
	static UINT min[2] = { 0xffffffff, 0xffffffff }, center[2];
	MMRESULT res;
	JOYINFO joy;

	res = joyGetPos(JOYSTICKID1, &joy);

	if (res == JOYERR_NOERROR) {
	joyavailable = 1;

	if (max[0] < joy.wXpos)
	max[0] = joy.wXpos;
	if (min[0] > joy.wXpos)
	min[0] = joy.wXpos;
	center[0] = (max[0] + min[0]) / 2;

	if (max[1] < joy.wYpos)
	max[1] = joy.wYpos;
	if (min[1] > joy.wYpos)
	min[1] = joy.wYpos;
	center[1] = (max[1] + min[1]) / 2;

	if (joyactive) {
	if (fabs(center[0] - (float) joy.wXpos) > 0.1 * (max[0] - min[0]))
	alpha -=
	2.0 * (center[0] - (float) joy.wXpos) / (max[0] - min[0]);
	if (fabs(center[1] - (float) joy.wYpos) > 0.1 * (max[1] - min[1]))
	beta += 2.0 * (center[1] - (float) joy.wYpos) / (max[1] - min[1]);

	if (joy.wButtons & JOY_BUTTON1)
	v += 0.01;
	if (joy.wButtons & JOY_BUTTON2)
	v -= 0.01;
	}
	}
	else
	joyavailable = 0;
	#endif
	}

	static void
	draw(void)
	{
	static char frbuf[80] = "";
	int i;
	float base, offset;

	dojoy();

	glClear(GL_COLOR_BUFFER_BIT);

	glClear(GL_COLOR_BUFFER_BIT);

	if (usetex)
	glEnable(GL_TEXTURE_2D);
	else
	glDisable(GL_TEXTURE_2D);

	if (fog)
	glEnable(GL_FOG);
	else
	glDisable(GL_FOG);

	glShadeModel(GL_SMOOTH);

	glPushMatrix();
	calcposobs();
	gluLookAt(obs[0], obs[1], obs[2],
	obs[0] + dir[0], obs[1] + dir[1], obs[2] + dir[2],
	0.0, 0.0, 1.0);

	if (dir[0] > 0) {
	offset = 8.0;
	base = obs[0] - fmod(obs[0], 8.0);
	}
	else {
	offset = -8.0;
	base = obs[0] + (8.0 - fmod(obs[0], 8.0));
	}

	glPushMatrix();
	glTranslatef(base - offset / 2.0, 0.0, 0.0);
	for (i = 0; i < NUMBLOC; i++) {
	glTranslatef(offset, 0.0, 0.0);
	glBindTexture(GL_TEXTURE_2D, t1id);
	drawobjs(striplength_skin_11, stripdata_skin_11);
	glBindTexture(GL_TEXTURE_2D, t2id);
	drawobjs(striplength_skin_12, stripdata_skin_12);
	drawobjs(striplength_skin_9, stripdata_skin_9);
	drawobjs(striplength_skin_13, stripdata_skin_13);
	}
	glPopMatrix();
	glPopMatrix();

	glDisable(GL_TEXTURE_2D);
	glDisable(GL_FOG);
	glShadeModel(GL_FLAT);

	glMatrixMode(GL_PROJECTION);
	glPushMatrix();
	glLoadIdentity();
	glOrtho(-0.5, 639.5, -0.5, 479.5, -1.0, 1.0);

	glMatrixMode(GL_MODELVIEW);
	glLoadIdentity();

	glColor3f(1.0, 0.0, 0.0);
	glRasterPos2i(10, 10);
	printstring(GLUT_BITMAP_HELVETICA_18, frbuf);
	glRasterPos2i(350, 470);
	printstring(GLUT_BITMAP_HELVETICA_10,
	"Tunnel2 V1.0 Written by David Bucciarelli (tech.hmw@plus.it)");

	if (help)
	printhelp();

	glMatrixMode(GL_PROJECTION);
	glPopMatrix();
	glMatrixMode(GL_MODELVIEW);

	Frames++;
	{
	GLint t = glutGet(GLUT_ELAPSED_TIME);
	if (t - T0 >= 2000) {
	GLfloat seconds = (t - T0) / 1000.0;
	GLfloat fps = Frames / seconds;
	sprintf(frbuf, "Frame rate: %f", fps);
	T0 = t;
	Frames = 0;
	}
	}
	}

	static void
	drawchannel0(void)
	{
	glutSetWindow(channel[0]);
	draw();
	glutSwapBuffers();
	}

	static void
	drawchannel1(void)
	{
	glutSetWindow(channel[1]);
	draw();
	glutSwapBuffers();
	}

	static void
	drawall(void)
	{
	glutSetWindow(channel[0]);
	draw();
	glutSetWindow(channel[1]);
	draw();

	glutSetWindow(channel[0]);
	glutSwapBuffers();
	glutSetWindow(channel[1]);
	glutSwapBuffers();
	}

	static void
	init(void)
	{
	float fogcolor[4] = { 0.7, 0.7, 0.7, 1.0 };

	glShadeModel(GL_SMOOTH);
	glDisable(GL_DEPTH_TEST);
	glEnable(GL_CULL_FACE);
	glEnable(GL_TEXTURE_2D);

	glEnable(GL_FOG);
	glFogi(GL_FOG_MODE, GL_EXP2);
	glFogfv(GL_FOG_COLOR, fogcolor);

	glFogf(GL_FOG_DENSITY, 0.06);
	glHint(GL_FOG_HINT, GL_NICEST);

	glEnable(GL_BLEND);
	/*
	glBlendFunc(GL_SRC_ALPHA_SATURATE, GL_ONE);
	glEnable(GL_POLYGON_SMOOTH);
	*/

	glClearColor(fogcolor[0], fogcolor[1], fogcolor[2], fogcolor[3]);
	glClear(GL_COLOR_BUFFER_BIT);
	}

	int
	main(int ac, char **av)
	{
	fprintf(stderr,
	"Tunnel2 V1.0\nWritten by David Bucciarelli (tech.hmw@plus.it)\n");

	glutInitWindowPosition(0, 0);
	glutInitWindowSize(WIDTHC0, HEIGHTC0);
	glutInit(&ac, av);

	glutInitDisplayMode(GLUT_RGB \| GLUT_DOUBLE);

	#ifdef FX
	if (!fxMesaSelectCurrentBoard(0)) {
	fprintf(stderr, "The first Voodoo Graphics board is missing !?!?\n");
	return -1;
	}
	#endif
	if (!(channel[0] = glutCreateWindow("Channel 0"))) {
	fprintf(stderr, "Error, couldn't open window\n");
	return -1;
	}

	reshapechannel0(WIDTHC0, HEIGHTC0);
	init();
	inittextures();
	glutDisplayFunc(drawchannel0);
	glutReshapeFunc(reshapechannel0);
	glutKeyboardFunc(key);
	glutSpecialFunc(special);

	#ifdef FX
	if (!fxMesaSelectCurrentBoard(1)) {
	fprintf(stderr, "The second Voodoo Graphics board is missing !\n");
	exit(-1);
	}
	#endif
	glutInitWindowPosition(WIDTHC0, 0);
	glutInitWindowSize(WIDTHC1, HEIGHTC1);
	if (!(channel[1] = glutCreateWindow("Channel 1"))) {
	fprintf(stderr, "Error, couldn't open window\n");
	exit(-1);
	}

	reshapechannel1(WIDTHC1, HEIGHTC1);
	init();
	inittextures();
	glutDisplayFunc(drawchannel1);
	glutReshapeFunc(reshapechannel1);
	glutKeyboardFunc(key);
	glutSpecialFunc(special);

	glutIdleFunc(drawall);

	calcposobs();

	glutMainLoop();

	return 0;
	}