19f065b056f2dd43be07047bf255d1d2c1cf3ace
[xscreensaver] / hacks / glx / tangram_shapes.c
1 /* tangram, Copyright (c) 2005 Jeremy English <jhe@jeremyenglish.org>
2  *
3  * Permission to use, copy, modify, distribute, and sell this software and its
4  * documentation for any purpose is hereby granted without fee, provided that
5  * the above copyright notice appear in all copies and that both that
6  * copyright notice and this permission notice appear in supporting
7  * documentation.  No representations are made about the suitability of this
8  * software for any purpose.  It is provided "as is" without express or
9  * implied warranty.
10  */
11
12 #ifdef HAVE_CONFIG_H
13 # include "config.h"
14 #endif /* HAVE_CONFIG_H */
15
16 #ifndef HAVE_COCOA
17 # include <GL/gl.h>
18 #endif
19
20 #ifdef HAVE_JWZGLES
21 # include "jwzgles.h"
22 #endif /* HAVE_JWZGLES */
23
24 #include "tangram_shapes.h"
25
26 #define small_scale  ( 1 )
27 #define large_scale  ( 2 )
28 #define medium_scale ( 1.414213562 )
29
30 #define alpha (0.05)
31
32 static void
33 tri_45_90(int wire)
34 {
35     GLfloat vertices[][3] = {
36         {0, alpha, 0},
37         {0, alpha, 1},
38         {1, alpha, 0},
39         {0, -alpha, 0},
40         {0, -alpha, 1},
41         {1, -alpha, 0}
42     };
43
44     glBegin((wire) ? GL_LINE_LOOP : GL_TRIANGLES);
45
46     glNormal3f(0, 1, 0);
47     glVertex3fv(vertices[0]);
48     glNormal3f(0, 1, 0);
49     glVertex3fv(vertices[2]);
50     glNormal3f(0, 1, 0);
51     glVertex3fv(vertices[1]);
52
53     glNormal3f(0, -1, 0);
54     glVertex3fv(vertices[3]);
55     glNormal3f(0, -1, 0);
56     glVertex3fv(vertices[4]);
57     glNormal3f(0, -1, 0);
58     glVertex3fv(vertices[5]);
59     glEnd();
60
61     glBegin((wire) ? GL_LINE_LOOP : GL_QUADS);
62     glNormal3f(1, 0, 1);
63     glVertex3fv(vertices[2]);
64     glNormal3f(1, 0, 1);
65     glVertex3fv(vertices[5]);
66     glNormal3f(1, 0, 1);
67     glVertex3fv(vertices[4]);
68     glNormal3f(1, 0, 1);
69     glVertex3fv(vertices[1]);
70
71     glNormal3f(-1, 0, 0);
72     glVertex3fv(vertices[0]);
73     glNormal3f(-1, 0, 0);
74     glVertex3fv(vertices[1]);
75     glNormal3f(-1, 0, 0);
76     glVertex3fv(vertices[4]);
77     glNormal3f(-1, 0, 0);
78     glVertex3fv(vertices[3]);
79
80     glNormal3f(0, 0, -1);
81     glVertex3fv(vertices[0]);
82     glNormal3f(0, 0, -1);
83     glVertex3fv(vertices[3]);
84     glNormal3f(0, 0, -1);
85     glVertex3fv(vertices[5]);
86     glNormal3f(0, 0, -1);
87     glVertex3fv(vertices[2]);
88     glEnd();
89 }
90
91 static void
92 unit_cube(int wire)
93 {
94     glBegin((wire) ? GL_LINE_LOOP : GL_QUADS);
95
96
97     glNormal3f(0.0f, 1.0f, 0.0f);
98     glVertex3f(0.0f, alpha, 0.0f);
99     glVertex3f(0.0f, alpha, 1.0f);
100     glVertex3f(1.0f, alpha, 1.0f);
101     glVertex3f(1.0f, alpha, 0.0f);
102
103     glNormal3f(0.0f, 0.0f, 1.0f);
104     glVertex3f(0.0f, -alpha, 1.0f);
105     glVertex3f(1.0f, -alpha, 1.0f);
106     glVertex3f(1.0f, alpha, 1.0f);
107     glVertex3f(0.0f, alpha, 1.0f);
108
109     glNormal3f(0.0f, 0.0f, -1.0f);
110     glVertex3f(0.0f, -alpha, 0.0f);
111     glVertex3f(0.0f, alpha, 0.0f);
112     glVertex3f(1.0f, alpha, 0.0f);
113     glVertex3f(1.0f, -alpha, 0.0f);
114
115     glNormal3f(1.0f, 0.0f, 0.0f);
116     glVertex3f(1.0f, -alpha, 0.0f);
117     glVertex3f(1.0f, alpha, 0.0f);
118     glVertex3f(1.0f, alpha, 1.0f);
119     glVertex3f(1.0f, -alpha, 1.0f);
120
121     glNormal3f(-1.0f, 0.0f, 0.0f);
122     glVertex3f(0.0f, -alpha, 0.0f);
123     glVertex3f(0.0f, -alpha, 1.0f);
124     glVertex3f(0.0f, alpha, 1.0f);
125     glVertex3f(0.0f, alpha, 0.0f);
126
127     glNormal3f(0.0f, -1.0f, 0.0f);
128     glVertex3f(0.0f, -alpha, 0.0f);
129     glVertex3f(1.0f, -alpha, 0.0f);
130     glVertex3f(1.0f, -alpha, 1.0f);
131     glVertex3f(0.0f, -alpha, 1.0f);
132
133     glEnd();
134 }
135
136 static void
137 unit_rhomboid(int wire)
138 {
139     glBegin((wire) ? GL_LINE_LOOP : GL_QUADS);
140
141     glNormal3f(0.0f, 1.0f, 0.0f);
142     glVertex3f(0, alpha, 0);
143     glVertex3f(1, alpha, 1);
144     glVertex3f(1, alpha, 2);
145     glVertex3f(0, alpha, 1);
146
147     glNormal3f(0.0f, -1.0f, 0.0f);
148     glVertex3f(0, -alpha, 0);
149     glVertex3f(0, -alpha, 1);
150     glVertex3f(1, -alpha, 2);
151     glVertex3f(1, -alpha, 1);
152
153     glNormal3f(-1.0f, 0.0f, 0.0f);
154     glVertex3f(0, alpha, 0);
155     glVertex3f(0, alpha, 1);
156     glVertex3f(0, -alpha, 1);
157     glVertex3f(0, -alpha, 0);
158
159
160     glNormal3f(0.0f, 0.0f, 1.0f);
161     glVertex3f(0, alpha, 1);
162     glVertex3f(1, alpha, 2);
163     glVertex3f(1, -alpha, 2);
164     glVertex3f(0, -alpha, 1);
165
166     glNormal3f(1.0f, 0.0f, 0.0f);
167     glVertex3f(1, alpha, 1);
168     glVertex3f(1, -alpha, 1);
169     glVertex3f(1, -alpha, 2);
170     glVertex3f(1, alpha, 2);
171
172     glNormal3f(0.0f, 0.0f, 1.0f);
173     glVertex3f(0, alpha, 0);
174     glVertex3f(0, -alpha, 0);
175     glVertex3f(1, -alpha, 1);
176     glVertex3f(1, alpha, 1);
177
178     glEnd();
179 }
180
181 /* All of the pieces have the same thickness so all of the Y values are the same */
182
183 GLuint
184 tangram_get_sm_tri_dl(int wire)
185 {
186     GLuint triangle = glGenLists(1);
187     glNewList(triangle, GL_COMPILE);
188     glScalef(small_scale, small_scale, small_scale);
189     tri_45_90(wire);
190     glEndList();
191     return triangle;
192 }
193
194 GLuint
195 tangram_get_lg_tri_dl(int wire)
196 {
197     GLuint triangle = glGenLists(1);
198     glNewList(triangle, GL_COMPILE);
199     glScalef(large_scale, small_scale, large_scale);
200     tri_45_90(wire);
201     glEndList();
202     return triangle;
203 }
204
205 GLuint
206 tangram_get_md_tri_dl(int wire)
207 {
208     GLuint triangle = glGenLists(1);
209     glNewList(triangle, GL_COMPILE);
210     glScalef(medium_scale, small_scale, medium_scale);
211     tri_45_90(wire);
212     glEndList();
213     return triangle;
214 }
215
216 GLuint
217 tangram_get_square_dl(int wire)
218 {
219     GLuint square = glGenLists(1);
220     glNewList(square, GL_COMPILE);
221     glScalef(small_scale, small_scale, small_scale);
222     unit_cube(wire);
223     glEndList();
224     return square;
225 }
226
227 GLuint
228 tangram_get_rhomboid_dl(int wire)
229 {
230     GLuint rhomboid = glGenLists(1);
231     glNewList(rhomboid, GL_COMPILE);
232     glScalef(small_scale, small_scale, small_scale);
233     unit_rhomboid(wire);
234     glEndList();
235     return rhomboid;
236 }