http://ftp.ksu.edu.tw/FTP/FreeBSD/distfiles/xscreensaver-4.20.tar.gz
[xscreensaver] / hacks / glx / extrusion-helix4.c
1
2 /* 
3  * helicoid (gernalized torus) demo 
4  *
5  * FUNCTION:
6  * This code provides a very simple example of the helicoid primitive.
7  * Most of this code is required to set up OpenGL and GLUT, and very
8  * very little to set up the helix drawer. Don't blink!
9  *
10  * =======> MOUSE HOOKED UP TO AFFINE < ========
11  *
12  * HISTORY:
13  * Written by Linas Vepstas, March 1995
14  */
15
16 /* required include files */
17 #ifdef HAVE_CONFIG_H
18 #include <config.h>
19 #endif
20
21 #include <GL/gl.h>
22 /*#include <GL/glut.h>*/
23 #ifdef HAVE_GLE3
24 #include <GL/gle.h>
25 #else
26 #include <GL/tube.h>
27 #endif
28
29 /* controls shape of object */
30 extern float lastx;
31 extern float lasty;
32
33 void InitStuff_helix4 (void) 
34 {
35 }
36
37 /* draw the helix shape */
38 void DrawStuff_helix4 (void) 
39 {
40    double affine[2][3];
41    double delta_affine[2][3];
42
43    glClear (GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
44    glColor3f (0.7, 0.5, 0.3);
45
46    /* set up some matrices so that the object spins with the mouse */
47    glPushMatrix ();
48 /* glTranslatef (0.0, 0.0, -80.0); */
49 /* glRotatef (220.0, 0.0, 1.0, 0.0); */
50 /* glRotatef (65.0, 1.0, 0.0, 0.0); */
51
52    /* Phew. FINALLY, Draw the helix  -- */
53    affine [0][0] = 1.0/ (0.01*lastx);
54    affine [1][0] = 0.0;
55    affine [0][1] = 0.0;
56    affine [1][1] = 0.01*lastx;
57    affine [0][2] = 0.0;
58    affine [1][2] = 0.0;
59
60    delta_affine [0][0] = 0.0;
61    delta_affine [1][0] = 0.03*lasty;
62    delta_affine [0][1] = -0.03*lasty;
63    delta_affine [1][1] = 0.0;
64    delta_affine [0][2] = 0.0;
65    delta_affine [1][2] = 0.0;
66
67    gleSetJoinStyle (TUBE_NORM_EDGE | TUBE_JN_ANGLE | TUBE_JN_CAP);
68    gleHelicoid (1.0, 7.0, -1.0, 
69                -4.0, 6.0, affine, delta_affine, 0.0, 980.0);
70
71    glPopMatrix ();
72
73 }
74 /* ------------------------- end of file ----------------- */