/*
 * teapot.c 
 */

#include "GL/gl.h"
#include "glaux.h"

/*
 * Rim, body, lid, and bottom data must be reflected in x and y; 
 * * handle and spout data across the y axis only.
 */

static long patchdata[][16] =
{
  {102, 103, 104, 105, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15},	       /*
									        * rim 
									        */
  {12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27},	       /*
									        * body 
									        */
  {24, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40},	       /*
									        * body 
									        */
  {96, 96, 96, 96, 97, 98, 99, 100, 101, 101, 101, 101, 0, 1, 2, 3,},	       /*
									        * lid 
									        */
  {0, 1, 2, 3, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117},    /*
									        * lid 
									        */
  {118, 118, 118, 118, 124, 122, 119, 121, 123, 126, 125, 120, 40, 39, 38, 37},		/*
											 * bottom 
											 */
  {41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56},	       /*
									        * handle 
									        */
  {53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 28, 65, 66, 67},	       /*
									        * handle 
									        */
  {68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83},	       /*
									        * spout 
									        */
  {80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95}	       /*
									        * spout 
									        */
};

static float cpdata[][3] =
{
  {0.2, 0, 2.7},
  {0.2, -0.112, 2.7},
  {0.112, -0.2, 2.7},
  {0, -0.2, 2.7},
  {1.3375, 0, 2.53125},
  {1.3375, -0.749, 2.53125},
  {0.749, -1.3375, 2.53125},
  {0, -1.3375, 2.53125},
  {1.4375, 0, 2.53125},
  {1.4375, -0.805, 2.53125},
  {0.805, -1.4375, 2.53125},
  {0, -1.4375, 2.53125},
  {1.5, 0, 2.4},
  {1.5, -0.84, 2.4},
  {0.84, -1.5, 2.4},
  {0, -1.5, 2.4},
  {1.75, 0, 1.875},
  {1.75, -0.98, 1.875},
  {0.98, -1.75, 1.875},
  {0, -1.75, 1.875},
  {2, 0, 1.35},
  {2, -1.12, 1.35},
  {1.12, -2, 1.35},
  {0, -2, 1.35},
  {2, 0, 0.9},
  {2, -1.12, 0.9},
  {1.12, -2, 0.9},
  {0, -2, 0.9},
  {-2, 0, 0.9},
  {2, 0, 0.45},
  {2, -1.12, 0.45},
  {1.12, -2, 0.45},
  {0, -2, 0.45},
  {1.5, 0, 0.225},
  {1.5, -0.84, 0.225},
  {0.84, -1.5, 0.225},
  {0, -1.5, 0.225},
  {1.5, 0, 0.15},
  {1.5, -0.84, 0.15},
  {0.84, -1.5, 0.15},
  {0, -1.5, 0.15},
  {-1.6, 0, 2.025},
  {-1.6, -0.3, 2.025},
  {-1.5, -0.3, 2.25},
  {-1.5, 0, 2.25},
  {-2.3, 0, 2.025},
  {-2.3, -0.3, 2.025},
  {-2.5, -0.3, 2.25},
  {-2.5, 0, 2.25},
  {-2.7, 0, 2.025},
  {-2.7, -0.3, 2.025},
  {-3, -0.3, 2.25},
  {-3, 0, 2.25},
  {-2.7, 0, 1.8},
  {-2.7, -0.3, 1.8},
  {-3, -0.3, 1.8},
  {-3, 0, 1.8},
  {-2.7, 0, 1.575},
  {-2.7, -0.3, 1.575},
  {-3, -0.3, 1.35},
  {-3, 0, 1.35},
  {-2.5, 0, 1.125},
  {-2.5, -0.3, 1.125},
  {-2.65, -0.3, 0.9375},
  {-2.65, 0, 0.9375},
  {-2, -0.3, 0.9},
  {-1.9, -0.3, 0.6},
  {-1.9, 0, 0.6},
  {1.7, 0, 1.425},
  {1.7, -0.66, 1.425},
  {1.7, -0.66, 0.6},
  {1.7, 0, 0.6},
  {2.6, 0, 1.425},
  {2.6, -0.66, 1.425},
  {3.1, -0.66, 0.825},
  {3.1, 0, 0.825},
  {2.3, 0, 2.1},
  {2.3, -0.25, 2.1},
  {2.4, -0.25, 2.025},
  {2.4, 0, 2.025},
  {2.7, 0, 2.4},
  {2.7, -0.25, 2.4},
  {3.3, -0.25, 2.4},
  {3.3, 0, 2.4},
  {2.8, 0, 2.475},
  {2.8, -0.25, 2.475},
  {3.525, -0.25, 2.49375},
  {3.525, 0, 2.49375},
  {2.9, 0, 2.475},
  {2.9, -0.15, 2.475},
  {3.45, -0.15, 2.5125},
  {3.45, 0, 2.5125},
  {2.8, 0, 2.4},
  {2.8, -0.15, 2.4},
  {3.2, -0.15, 2.4},
  {3.2, 0, 2.4},
  {0, 0, 3.15},
  {0.8, 0, 3.15},
  {0.8, -0.45, 3.15},
  {0.45, -0.8, 3.15},
  {0, -0.8, 3.15},
  {0, 0, 2.85},
  {1.4, 0, 2.4},
  {1.4, -0.784, 2.4},
  {0.784, -1.4, 2.4},
  {0, -1.4, 2.4},
  {0.4, 0, 2.55},
  {0.4, -0.224, 2.55},
  {0.224, -0.4, 2.55},
  {0, -0.4, 2.55},
  {1.3, 0, 2.55},
  {1.3, -0.728, 2.55},
  {0.728, -1.3, 2.55},
  {0, -1.3, 2.55},
  {1.3, 0, 2.4},
  {1.3, -0.728, 2.4},
  {0.728, -1.3, 2.4},
  {0, -1.3, 2.4},
  {0, 0, 0},
  {1.425, -0.798, 0},
  {1.5, 0, 0.075},
  {1.425, 0, 0},
  {0.798, -1.425, 0},
  {0, -1.5, 0.075},
  {0, -1.425, 0},
  {1.5, -0.84, 0.075},
  {0.84, -1.5, 0.075}
};

long GRD;

#define TEAPOTSOLID 0
#define TEAPOTWIRE 1

static GLuint teapots[2] =
{0, 0};

static float tex[2][2][2] =
{
  {
    {0, 0},
    {1, 0}},
  {
    {0, 1},
    {1, 1}}};

static void solidTeapot(long grid, GLdouble scale)
{
  float p[4][4][3], q[4][4][3], r[4][4][3], s[4][4][3];
  long i, j, k, l;

  if (grid < 2)
    grid = 7;
  GRD = grid;
  teapots[TEAPOTSOLID] = glGenLists(1);
  glNewList(teapots[TEAPOTSOLID], GL_COMPILE);
  glPushMatrix();
  glRotatef(270.0, 1.0, 0.0, 0.0);
  glScalef(0.5 * scale, 0.5 * scale, 0.5 * scale);
  glTranslatef(0.0, 0.0, -1.5);
  for (i = 0; i < 10; i++) {
    for (j = 0; j < 4; j++)
      for (k = 0; k < 4; k++)
	for (l = 0; l < 3; l++) {
	  p[j][k][l] = cpdata[patchdata[i][j * 4 + k]][l];
	  q[j][k][l] = cpdata[patchdata[i][j * 4 + (3 - k)]][l];
	  if (l == 1)
	    q[j][k][l] *= -1.0;
	  if (i < 6) {
	    r[j][k][l] = cpdata[patchdata[i][j * 4 + (3 - k)]][l];
	    if (l == 0)
	      r[j][k][l] *= -1.0;
	    s[j][k][l] = cpdata[patchdata[i][j * 4 + k]][l];
	    if (l == 0)
	      s[j][k][l] *= -1.0;
	    if (l == 1)
	      s[j][k][l] *= -1.0;
	  }
	}
    glMap2f(GL_MAP2_TEXTURE_COORD_2, 0, 1, 2, 2, 0, 1, 4, 2, &tex[0][0][0]);
    glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, &p[0][0][0]);
    glEnable(GL_MAP2_VERTEX_3);
    glEnable(GL_MAP2_TEXTURE_COORD_2);
    glMapGrid2f(GRD, 0.0, 1.0, GRD, 0.0, 1.0);
    glEvalMesh2(GL_FILL, 0, GRD, 0, GRD);
    glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, &q[0][0][0]);
    glEvalMesh2(GL_FILL, 0, GRD, 0, GRD);
    if (i < 6) {
      glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, &r[0][0][0]);
      glEvalMesh2(GL_FILL, 0, GRD, 0, GRD);
      glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, &s[0][0][0]);
      glEvalMesh2(GL_FILL, 0, GRD, 0, GRD);
    }
  }
  glDisable(GL_MAP2_VERTEX_3);
  glDisable(GL_MAP2_TEXTURE_COORD_2);
  glPopMatrix();
  glEndList();
}

static void wireTeapot(long grid, GLdouble scale)
{
  float p[4][4][3], q[4][4][3], r[4][4][3], s[4][4][3];
  long i, j, k, l;

  if (grid < 2)
    grid = 7;
  GRD = grid;
  teapots[TEAPOTWIRE] = glGenLists(1);
  glNewList(teapots[TEAPOTWIRE], GL_COMPILE);
  glPushMatrix();
  glRotatef(270.0, 1.0, 0.0, 0.0);
  glScalef(0.5 * scale, 0.5 * scale, 0.5 * scale);
  glTranslatef(0.0, 0.0, -1.5);
  for (i = 0; i < 10; i++) {
    for (j = 0; j < 4; j++)
      for (k = 0; k < 4; k++)
	for (l = 0; l < 3; l++) {
	  p[j][k][l] = cpdata[patchdata[i][j * 4 + k]][l];
	  q[j][k][l] = cpdata[patchdata[i][j * 4 + (3 - k)]][l];
	  if (l == 1)
	    q[j][k][l] *= -1.0;
	  if (i < 6) {
	    r[j][k][l] = cpdata[patchdata[i][j * 4 + (3 - k)]][l];
	    if (l == 0)
	      r[j][k][l] *= -1.0;
	    s[j][k][l] = cpdata[patchdata[i][j * 4 + k]][l];
	    if (l == 0)
	      s[j][k][l] *= -1.0;
	    if (l == 1)
	      s[j][k][l] *= -1.0;
	  }
	}
    glMap2f(GL_MAP2_TEXTURE_COORD_2, 0, 1, 2, 2, 0, 1, 4, 2, &tex[0][0][0]);
    glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, &p[0][0][0]);
    glEnable(GL_MAP2_VERTEX_3);
    glEnable(GL_MAP2_TEXTURE_COORD_2);
    glMapGrid2f(GRD, 0.0, 1.0, GRD, 0.0, 1.0);
    glEvalMesh2(GL_LINE, 0, GRD, 0, GRD);
    glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, &q[0][0][0]);
    glEvalMesh2(GL_LINE, 0, GRD, 0, GRD);
    if (i < 6) {
      glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, &r[0][0][0]);
      glEvalMesh2(GL_LINE, 0, GRD, 0, GRD);
      glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, &s[0][0][0]);
      glEvalMesh2(GL_LINE, 0, GRD, 0, GRD);
    }
  }
  glDisable(GL_MAP2_VERTEX_3);
  glDisable(GL_MAP2_TEXTURE_COORD_2);
  glPopMatrix();
  glEndList();
}

void auxSolidTeapot(GLdouble scale)
{
  if (glIsList(teapots[TEAPOTSOLID]) == 0)
    solidTeapot(14, scale);
  glCallList(teapots[TEAPOTSOLID]);
}

void auxWireTeapot(GLdouble scale)
{
  if (glIsList(teapots[TEAPOTWIRE]) == 0)
    wireTeapot(10, scale);
  glCallList(teapots[TEAPOTWIRE]);
}