http://www.jwz.org/xscreensaver/xscreensaver-5.07.tar.gz
[xscreensaver] / hacks / glx / teapot.c
1
2 /* Copyright (c) Mark J. Kilgard, 1994. */
3
4 /**
5 (c) Copyright 1993, Silicon Graphics, Inc.
6
7 ALL RIGHTS RESERVED
8
9 Permission to use, copy, modify, and distribute this software
10 for any purpose and without fee is hereby granted, provided
11 that the above copyright notice appear in all copies and that
12 both the copyright notice and this permission notice appear in
13 supporting documentation, and that the name of Silicon
14 Graphics, Inc. not be used in advertising or publicity
15 pertaining to distribution of the software without specific,
16 written prior permission.
17
18 THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU
19 "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR
20 OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF
21 MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.  IN NO
22 EVENT SHALL SILICON GRAPHICS, INC.  BE LIABLE TO YOU OR ANYONE
23 ELSE FOR ANY DIRECT, SPECIAL, INCIDENTAL, INDIRECT OR
24 CONSEQUENTIAL DAMAGES OF ANY KIND, OR ANY DAMAGES WHATSOEVER,
25 INCLUDING WITHOUT LIMITATION, LOSS OF PROFIT, LOSS OF USE,
26 SAVINGS OR REVENUE, OR THE CLAIMS OF THIRD PARTIES, WHETHER OR
27 NOT SILICON GRAPHICS, INC.  HAS BEEN ADVISED OF THE POSSIBILITY
28 OF SUCH LOSS, HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
29 ARISING OUT OF OR IN CONNECTION WITH THE POSSESSION, USE OR
30 PERFORMANCE OF THIS SOFTWARE.
31
32 US Government Users Restricted Rights
33
34 Use, duplication, or disclosure by the Government is subject to
35 restrictions set forth in FAR 52.227.19(c)(2) or subparagraph
36 (c)(1)(ii) of the Rights in Technical Data and Computer
37 Software clause at DFARS 252.227-7013 and/or in similar or
38 successor clauses in the FAR or the DOD or NASA FAR
39 Supplement.  Unpublished-- rights reserved under the copyright
40 laws of the United States.  Contractor/manufacturer is Silicon
41 Graphics, Inc., 2011 N.  Shoreline Blvd., Mountain View, CA
42 94039-7311.
43
44 OpenGL(TM) is a trademark of Silicon Graphics, Inc.
45 */
46
47 #ifdef HAVE_CONFIG_H
48 # include "config.h"
49 #endif
50
51 #include "teapot.h"
52
53 #ifdef HAVE_COCOA
54 # include <OpenGL/gl.h>
55 #else
56 # include <GL/gl.h>
57 #endif
58
59
60 /* Rim, body, lid, and bottom data must be reflected in x
61    and y; handle and spout data across the y axis only.  */
62
63 static long patchdata[][16] =
64 {
65     /* rim */
66   {102, 103, 104, 105, 4, 5, 6, 7, 8, 9, 10, 11,
67     12, 13, 14, 15},
68     /* body */
69   {12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23,
70     24, 25, 26, 27},
71   {24, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 36,
72     37, 38, 39, 40},
73     /* lid */
74   {96, 96, 96, 96, 97, 98, 99, 100, 101, 101, 101,
75     101, 0, 1, 2, 3,},
76   {0, 1, 2, 3, 106, 107, 108, 109, 110, 111, 112,
77     113, 114, 115, 116, 117},
78     /* bottom */
79   {118, 118, 118, 118, 124, 122, 119, 121, 123, 126,
80     125, 120, 40, 39, 38, 37},
81     /* handle */
82   {41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52,
83     53, 54, 55, 56},
84   {53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64,
85     28, 65, 66, 67},
86     /* spout */
87   {68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
88     80, 81, 82, 83},
89   {80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91,
90     92, 93, 94, 95}
91 };
92 /* *INDENT-OFF* */
93
94 static float cpdata[][3] =
95 {
96     {0.2, 0, 2.7}, {0.2, -0.112, 2.7}, {0.112, -0.2, 2.7}, {0,
97     -0.2, 2.7}, {1.3375, 0, 2.53125}, {1.3375, -0.749, 2.53125},
98     {0.749, -1.3375, 2.53125}, {0, -1.3375, 2.53125}, {1.4375,
99     0, 2.53125}, {1.4375, -0.805, 2.53125}, {0.805, -1.4375,
100     2.53125}, {0, -1.4375, 2.53125}, {1.5, 0, 2.4}, {1.5, -0.84,
101     2.4}, {0.84, -1.5, 2.4}, {0, -1.5, 2.4}, {1.75, 0, 1.875},
102     {1.75, -0.98, 1.875}, {0.98, -1.75, 1.875}, {0, -1.75,
103     1.875}, {2, 0, 1.35}, {2, -1.12, 1.35}, {1.12, -2, 1.35},
104     {0, -2, 1.35}, {2, 0, 0.9}, {2, -1.12, 0.9}, {1.12, -2,
105     0.9}, {0, -2, 0.9}, {-2, 0, 0.9}, {2, 0, 0.45}, {2, -1.12,
106     0.45}, {1.12, -2, 0.45}, {0, -2, 0.45}, {1.5, 0, 0.225},
107     {1.5, -0.84, 0.225}, {0.84, -1.5, 0.225}, {0, -1.5, 0.225},
108     {1.5, 0, 0.15}, {1.5, -0.84, 0.15}, {0.84, -1.5, 0.15}, {0,
109     -1.5, 0.15}, {-1.6, 0, 2.025}, {-1.6, -0.3, 2.025}, {-1.5,
110     -0.3, 2.25}, {-1.5, 0, 2.25}, {-2.3, 0, 2.025}, {-2.3, -0.3,
111     2.025}, {-2.5, -0.3, 2.25}, {-2.5, 0, 2.25}, {-2.7, 0,
112     2.025}, {-2.7, -0.3, 2.025}, {-3, -0.3, 2.25}, {-3, 0,
113     2.25}, {-2.7, 0, 1.8}, {-2.7, -0.3, 1.8}, {-3, -0.3, 1.8},
114     {-3, 0, 1.8}, {-2.7, 0, 1.575}, {-2.7, -0.3, 1.575}, {-3,
115     -0.3, 1.35}, {-3, 0, 1.35}, {-2.5, 0, 1.125}, {-2.5, -0.3,
116     1.125}, {-2.65, -0.3, 0.9375}, {-2.65, 0, 0.9375}, {-2,
117     -0.3, 0.9}, {-1.9, -0.3, 0.6}, {-1.9, 0, 0.6}, {1.7, 0,
118     1.425}, {1.7, -0.66, 1.425}, {1.7, -0.66, 0.6}, {1.7, 0,
119     0.6}, {2.6, 0, 1.425}, {2.6, -0.66, 1.425}, {3.1, -0.66,
120     0.825}, {3.1, 0, 0.825}, {2.3, 0, 2.1}, {2.3, -0.25, 2.1},
121     {2.4, -0.25, 2.025}, {2.4, 0, 2.025}, {2.7, 0, 2.4}, {2.7,
122     -0.25, 2.4}, {3.3, -0.25, 2.4}, {3.3, 0, 2.4}, {2.8, 0,
123     2.475}, {2.8, -0.25, 2.475}, {3.525, -0.25, 2.49375},
124     {3.525, 0, 2.49375}, {2.9, 0, 2.475}, {2.9, -0.15, 2.475},
125     {3.45, -0.15, 2.5125}, {3.45, 0, 2.5125}, {2.8, 0, 2.4},
126     {2.8, -0.15, 2.4}, {3.2, -0.15, 2.4}, {3.2, 0, 2.4}, {0, 0,
127     3.15}, {0.8, 0, 3.15}, {0.8, -0.45, 3.15}, {0.45, -0.8,
128     3.15}, {0, -0.8, 3.15}, {0, 0, 2.85}, {1.4, 0, 2.4}, {1.4,
129     -0.784, 2.4}, {0.784, -1.4, 2.4}, {0, -1.4, 2.4}, {0.4, 0,
130     2.55}, {0.4, -0.224, 2.55}, {0.224, -0.4, 2.55}, {0, -0.4,
131     2.55}, {1.3, 0, 2.55}, {1.3, -0.728, 2.55}, {0.728, -1.3,
132     2.55}, {0, -1.3, 2.55}, {1.3, 0, 2.4}, {1.3, -0.728, 2.4},
133     {0.728, -1.3, 2.4}, {0, -1.3, 2.4}, {0, 0, 0}, {1.425,
134     -0.798, 0}, {1.5, 0, 0.075}, {1.425, 0, 0}, {0.798, -1.425,
135     0}, {0, -1.5, 0.075}, {0, -1.425, 0}, {1.5, -0.84, 0.075},
136     {0.84, -1.5, 0.075}
137 };
138
139 static float tex[2][2][2] =
140 {
141   { {0, 0},
142     {1, 0}},
143   { {0, 1},
144     {1, 1}}
145 };
146
147
148 int
149 unit_teapot (int grid, int wire_p)
150 {
151   GLenum type = wire_p ? GL_LINE : GL_FILL;
152   float p[4][4][3], q[4][4][3], r[4][4][3], s[4][4][3];
153   long i, j, k, l;
154   int polys = 0;
155
156   glPushAttrib(GL_ENABLE_BIT | GL_EVAL_BIT);
157   glEnable(GL_AUTO_NORMAL);
158   glEnable(GL_NORMALIZE);
159   glEnable(GL_MAP2_VERTEX_3);
160   glEnable(GL_MAP2_TEXTURE_COORD_2);
161   glFrontFace (GL_CW);
162   glPushMatrix();
163   glRotatef(270.0, 1.0, 0.0, 0.0);
164   glScalef(0.5, 0.5, 0.5);
165   glTranslatef(0.0, 0.0, -1.5);
166   for (i = 0; i < 10; i++) {
167     for (j = 0; j < 4; j++) {
168       for (k = 0; k < 4; k++) {
169         for (l = 0; l < 3; l++) {
170           p[j][k][l] = cpdata[patchdata[i][j * 4 + k]][l];
171           q[j][k][l] = cpdata[patchdata[i][j * 4 + (3 - k)]][l];
172           if (l == 1)
173             q[j][k][l] *= -1.0;
174           if (i < 6) {
175             r[j][k][l] =
176               cpdata[patchdata[i][j * 4 + (3 - k)]][l];
177             if (l == 0)
178               r[j][k][l] *= -1.0;
179             s[j][k][l] = cpdata[patchdata[i][j * 4 + k]][l];
180             if (l == 0)
181               s[j][k][l] *= -1.0;
182             if (l == 1)
183               s[j][k][l] *= -1.0;
184           }
185         }
186       }
187     }
188     glMap2f(GL_MAP2_TEXTURE_COORD_2, 0, 1, 2, 2, 0, 1, 4, 2,
189       &tex[0][0][0]);
190     glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4,
191       &p[0][0][0]);
192     glMapGrid2f(grid, 0.0, 1.0, grid, 0.0, 1.0);
193     glEvalMesh2(type, 0, grid, 0, grid);
194     polys += grid*grid;
195     glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4,
196       &q[0][0][0]);
197     glEvalMesh2(type, 0, grid, 0, grid);
198     polys += grid*grid;
199     if (i < 6) {
200       glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4,
201         &r[0][0][0]);
202       glEvalMesh2(type, 0, grid, 0, grid);
203       polys += grid*grid;
204       glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4,
205         &s[0][0][0]);
206       glEvalMesh2(type, 0, grid, 0, grid);
207       polys += grid*grid;
208     }
209   }
210   glPopMatrix();
211   glPopAttrib();
212
213   return polys;
214 }