This is teapot.c in view mode; [Download] [Up]
/* 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]);
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.