From http://www.jwz.org/xscreensaver/xscreensaver-5.16.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_JWZGLES
54 int unit_teapot (int grid, int wire_p) { return 0; }
55 #else /* !HAVE_JWZGLES */
56
57
58 #ifndef HAVE_COCOA
59 # include <GL/gl.h>
60 #endif
61
62 #ifdef HAVE_JWZGLES
63 # include "jwzgles.h"
64 #endif /* HAVE_JWZGLES */
65
66
67 /* Rim, body, lid, and bottom data must be reflected in x
68    and y; handle and spout data across the y axis only.  */
69
70 static long patchdata[][16] =
71 {
72     /* rim */
73   {102, 103, 104, 105, 4, 5, 6, 7, 8, 9, 10, 11,
74     12, 13, 14, 15},
75     /* body */
76   {12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23,
77     24, 25, 26, 27},
78   {24, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 36,
79     37, 38, 39, 40},
80     /* lid */
81   {96, 96, 96, 96, 97, 98, 99, 100, 101, 101, 101,
82     101, 0, 1, 2, 3,},
83   {0, 1, 2, 3, 106, 107, 108, 109, 110, 111, 112,
84     113, 114, 115, 116, 117},
85     /* bottom */
86   {118, 118, 118, 118, 124, 122, 119, 121, 123, 126,
87     125, 120, 40, 39, 38, 37},
88     /* handle */
89   {41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52,
90     53, 54, 55, 56},
91   {53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64,
92     28, 65, 66, 67},
93     /* spout */
94   {68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
95     80, 81, 82, 83},
96   {80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91,
97     92, 93, 94, 95}
98 };
99 /* *INDENT-OFF* */
100
101 static float cpdata[][3] =
102 {
103     {0.2, 0, 2.7}, {0.2, -0.112, 2.7}, {0.112, -0.2, 2.7}, {0,
104     -0.2, 2.7}, {1.3375, 0, 2.53125}, {1.3375, -0.749, 2.53125},
105     {0.749, -1.3375, 2.53125}, {0, -1.3375, 2.53125}, {1.4375,
106     0, 2.53125}, {1.4375, -0.805, 2.53125}, {0.805, -1.4375,
107     2.53125}, {0, -1.4375, 2.53125}, {1.5, 0, 2.4}, {1.5, -0.84,
108     2.4}, {0.84, -1.5, 2.4}, {0, -1.5, 2.4}, {1.75, 0, 1.875},
109     {1.75, -0.98, 1.875}, {0.98, -1.75, 1.875}, {0, -1.75,
110     1.875}, {2, 0, 1.35}, {2, -1.12, 1.35}, {1.12, -2, 1.35},
111     {0, -2, 1.35}, {2, 0, 0.9}, {2, -1.12, 0.9}, {1.12, -2,
112     0.9}, {0, -2, 0.9}, {-2, 0, 0.9}, {2, 0, 0.45}, {2, -1.12,
113     0.45}, {1.12, -2, 0.45}, {0, -2, 0.45}, {1.5, 0, 0.225},
114     {1.5, -0.84, 0.225}, {0.84, -1.5, 0.225}, {0, -1.5, 0.225},
115     {1.5, 0, 0.15}, {1.5, -0.84, 0.15}, {0.84, -1.5, 0.15}, {0,
116     -1.5, 0.15}, {-1.6, 0, 2.025}, {-1.6, -0.3, 2.025}, {-1.5,
117     -0.3, 2.25}, {-1.5, 0, 2.25}, {-2.3, 0, 2.025}, {-2.3, -0.3,
118     2.025}, {-2.5, -0.3, 2.25}, {-2.5, 0, 2.25}, {-2.7, 0,
119     2.025}, {-2.7, -0.3, 2.025}, {-3, -0.3, 2.25}, {-3, 0,
120     2.25}, {-2.7, 0, 1.8}, {-2.7, -0.3, 1.8}, {-3, -0.3, 1.8},
121     {-3, 0, 1.8}, {-2.7, 0, 1.575}, {-2.7, -0.3, 1.575}, {-3,
122     -0.3, 1.35}, {-3, 0, 1.35}, {-2.5, 0, 1.125}, {-2.5, -0.3,
123     1.125}, {-2.65, -0.3, 0.9375}, {-2.65, 0, 0.9375}, {-2,
124     -0.3, 0.9}, {-1.9, -0.3, 0.6}, {-1.9, 0, 0.6}, {1.7, 0,
125     1.425}, {1.7, -0.66, 1.425}, {1.7, -0.66, 0.6}, {1.7, 0,
126     0.6}, {2.6, 0, 1.425}, {2.6, -0.66, 1.425}, {3.1, -0.66,
127     0.825}, {3.1, 0, 0.825}, {2.3, 0, 2.1}, {2.3, -0.25, 2.1},
128     {2.4, -0.25, 2.025}, {2.4, 0, 2.025}, {2.7, 0, 2.4}, {2.7,
129     -0.25, 2.4}, {3.3, -0.25, 2.4}, {3.3, 0, 2.4}, {2.8, 0,
130     2.475}, {2.8, -0.25, 2.475}, {3.525, -0.25, 2.49375},
131     {3.525, 0, 2.49375}, {2.9, 0, 2.475}, {2.9, -0.15, 2.475},
132     {3.45, -0.15, 2.5125}, {3.45, 0, 2.5125}, {2.8, 0, 2.4},
133     {2.8, -0.15, 2.4}, {3.2, -0.15, 2.4}, {3.2, 0, 2.4}, {0, 0,
134     3.15}, {0.8, 0, 3.15}, {0.8, -0.45, 3.15}, {0.45, -0.8,
135     3.15}, {0, -0.8, 3.15}, {0, 0, 2.85}, {1.4, 0, 2.4}, {1.4,
136     -0.784, 2.4}, {0.784, -1.4, 2.4}, {0, -1.4, 2.4}, {0.4, 0,
137     2.55}, {0.4, -0.224, 2.55}, {0.224, -0.4, 2.55}, {0, -0.4,
138     2.55}, {1.3, 0, 2.55}, {1.3, -0.728, 2.55}, {0.728, -1.3,
139     2.55}, {0, -1.3, 2.55}, {1.3, 0, 2.4}, {1.3, -0.728, 2.4},
140     {0.728, -1.3, 2.4}, {0, -1.3, 2.4}, {0, 0, 0}, {1.425,
141     -0.798, 0}, {1.5, 0, 0.075}, {1.425, 0, 0}, {0.798, -1.425,
142     0}, {0, -1.5, 0.075}, {0, -1.425, 0}, {1.5, -0.84, 0.075},
143     {0.84, -1.5, 0.075}
144 };
145
146 static float tex[2][2][2] =
147 {
148   { {0, 0},
149     {1, 0}},
150   { {0, 1},
151     {1, 1}}
152 };
153
154
155 int
156 unit_teapot (int grid, int wire_p)
157 {
158   GLenum type = wire_p ? GL_LINE : GL_FILL;
159   float p[4][4][3], q[4][4][3], r[4][4][3], s[4][4][3];
160   long i, j, k, l;
161   int polys = 0;
162
163   glPushAttrib(GL_ENABLE_BIT | GL_EVAL_BIT);
164   glEnable(GL_AUTO_NORMAL);
165   glEnable(GL_NORMALIZE);
166   glEnable(GL_MAP2_VERTEX_3);
167   glEnable(GL_MAP2_TEXTURE_COORD_2);
168   glFrontFace (GL_CW);
169   glPushMatrix();
170   glRotatef(270.0, 1.0, 0.0, 0.0);
171   glScalef(0.5, 0.5, 0.5);
172   glTranslatef(0.0, 0.0, -1.5);
173   for (i = 0; i < 10; i++) {
174     for (j = 0; j < 4; j++) {
175       for (k = 0; k < 4; k++) {
176         for (l = 0; l < 3; l++) {
177           p[j][k][l] = cpdata[patchdata[i][j * 4 + k]][l];
178           q[j][k][l] = cpdata[patchdata[i][j * 4 + (3 - k)]][l];
179           if (l == 1)
180             q[j][k][l] *= -1.0;
181           if (i < 6) {
182             r[j][k][l] =
183               cpdata[patchdata[i][j * 4 + (3 - k)]][l];
184             if (l == 0)
185               r[j][k][l] *= -1.0;
186             s[j][k][l] = cpdata[patchdata[i][j * 4 + k]][l];
187             if (l == 0)
188               s[j][k][l] *= -1.0;
189             if (l == 1)
190               s[j][k][l] *= -1.0;
191           }
192         }
193       }
194     }
195     glMap2f(GL_MAP2_TEXTURE_COORD_2, 0, 1, 2, 2, 0, 1, 4, 2,
196       &tex[0][0][0]);
197     glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4,
198       &p[0][0][0]);
199     glMapGrid2f(grid, 0.0, 1.0, grid, 0.0, 1.0);
200     glEvalMesh2(type, 0, grid, 0, grid);
201     polys += grid*grid;
202     glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4,
203       &q[0][0][0]);
204     glEvalMesh2(type, 0, grid, 0, grid);
205     polys += grid*grid;
206     if (i < 6) {
207       glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4,
208         &r[0][0][0]);
209       glEvalMesh2(type, 0, grid, 0, grid);
210       polys += grid*grid;
211       glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4,
212         &s[0][0][0]);
213       glEvalMesh2(type, 0, grid, 0, grid);
214       polys += grid*grid;
215     }
216   }
217   glPopMatrix();
218   glPopAttrib();
219
220   return polys;
221 }
222
223 #endif /* !HAVE_JWZGLES */