3 * Program to draw a fractal by Michael Barnsley's deterministic algorithm.
5 * (1) Define the affine transformations (of the form r(i+1) = A r(i) + b )
6 * (2) Find the stationary point for each transformation
8 * - If you are at the lowest level, draw lines connecting all the stationary points
9 * - If not, call the draw function recursively with each affine transformation applied
14 * +,- - increment/decrement number of levels
15 * PgUp, PgDn - increase/decrease scaling
16 * Arrow keys - translate viewing section
21 #include <GL/freeglut.h>
28 double a00, a01, a10, a11 ; /* Transformation matrix */
29 double b0, b1 ; /* Constant vector added on */
30 double statx, staty ; /* Coordinates of the stationary point */
34 /* Number of levels to draw the fractal */
35 static int num_levels = 0 ;
37 /* The definition of the fractal */
38 static int num_trans ;
39 static AffineTrans *affine ;
41 /* the window title */
42 char window_title [ 80 ] ;
44 /* The amount the view is translated and scaled */
45 double xwin = 0.0, ywin = 0.0 ;
46 double scale_factor = 1.0 ;
48 static void draw_level ( int num, double m00, double m01, double m10, double m11, double n0, double n1 )
50 /* Draw a fractal transformed by "M", "N" as passed in */
55 double x0 = m00 * affine[0].statx + m01 * affine[0].staty + n0 ;
56 double y0 = m10 * affine[0].statx + m11 * affine[0].staty + n1 ;
58 for ( i = 1; i < num_trans; i++ )
60 double x1 = m00 * affine[i].statx + m01 * affine[i].staty + n0 ;
61 double y1 = m10 * affine[i].statx + m11 * affine[i].staty + n1 ;
63 glVertex2d ( x0, y0 ) ;
64 glVertex2d ( x1, y1 ) ;
72 /* Map each affine transformation in the fractal through the one passed in and call "draw_level" */
74 for ( i = 0; i < num_trans; i++ )
76 draw_level ( num-1, m00*affine[i].a00+m01*affine[i].a10, m00*affine[i].a01+m01*affine[i].a11,
77 m10*affine[i].a00+m11*affine[i].a10, m10*affine[i].a01+m11*affine[i].a11,
78 m00*affine[i].b0 +m01*affine[i].b1 + n0, m10*affine[i].b0 +m11*affine[i].b1 + n1 ) ;
86 glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
90 glScalef(2.5, 2.5, 2.5);
92 glColor4f(0.0, 0.0, 0.0, 1.0);
93 glBegin ( GL_LINES ) ;
94 draw_level ( num_levels, 1.0, 0.0, 0.0, 1.0, 0.0, 0.0 );
102 Reshape(int width, int height)
105 glViewport ( 0, 0, width, height ) ;
106 glMatrixMode ( GL_PROJECTION ) ;
108 ar = (float) width / (float) height ;
109 glFrustum ( -ar, ar, -1.0, 1.0, 2.0, 100.0 ) ;
110 glMatrixMode ( GL_MODELVIEW ) ;
114 glTranslated ( xwin, ywin, -5.0 ) ;
118 Key(unsigned char key, int x, int y)
121 case 27: /* Escape key */
122 glutLeaveMainLoop () ;
130 if ( num_levels > 0 )
134 case 'r' : case 'R' :
135 glMatrixMode ( GL_MODELVIEW ) ;
139 glTranslated ( xwin, ywin, -5.0 ) ;
148 Special(int key, int x, int y)
152 glMatrixMode ( GL_MODELVIEW ) ;
153 ywin += 0.1 * scale_factor ;
154 glTranslated ( 0.0, 0.1 * scale_factor, 0.0 ) ;
158 glMatrixMode ( GL_MODELVIEW ) ;
159 ywin -= 0.1 * scale_factor ;
160 glTranslated ( 0.0, -0.1 * scale_factor, 0.0 ) ;
164 glMatrixMode ( GL_MODELVIEW ) ;
165 xwin -= 0.1 * scale_factor ;
166 glTranslated ( -0.1 * scale_factor, 0.0, 0.0 ) ;
169 case GLUT_KEY_RIGHT :
170 glMatrixMode ( GL_MODELVIEW ) ;
171 xwin += 0.1 * scale_factor ;
172 glTranslated ( 0.1 * scale_factor, 0.0, 0.0 ) ;
175 case GLUT_KEY_PAGE_UP :
176 glMatrixMode ( GL_MODELVIEW ) ;
177 glTranslated ( -xwin, -ywin, 0.0 ) ;
178 glScaled ( 1.25, 1.25, 1.25 ) ;
179 glTranslated ( xwin, ywin, 0.0 ) ;
180 scale_factor *= 0.8 ;
183 case GLUT_KEY_PAGE_DOWN :
184 glMatrixMode ( GL_MODELVIEW ) ;
185 glTranslated ( -xwin, -ywin, 0.0 ) ;
186 glScaled ( 0.8, 0.8, 0.8 ) ;
187 glTranslated ( xwin, ywin, 0.0 ) ;
188 scale_factor *= 1.25 ;
195 void readConfigFile ( char *fnme )
197 FILE *fptr = fopen ( fnme, "rt" ) ;
199 char inputline [ 256 ] ;
201 /* Read a header line */
202 fgets ( inputline, 256, fptr ) ;
204 /* Read a comment line */
205 fgets ( inputline, 256, fptr ) ;
207 /* Read the window title */
208 fgets ( inputline, 256, fptr ) ;
209 sscanf ( inputline, "%s", window_title ) ;
211 /* Read a comment line */
212 fgets ( inputline, 256, fptr ) ;
214 /* Read the number of affine transformations */
215 fgets ( inputline, 256, fptr ) ;
216 sscanf ( inputline, "%d", &num_trans ) ;
218 affine = (AffineTrans *)malloc ( num_trans * sizeof(AffineTrans) ) ;
220 /* Read a comment line */
221 fgets ( inputline, 256, fptr ) ;
223 for ( i = 0; i < num_trans; i++ )
225 double m00, m01, m10, m11 ; /* Matrix "I" minus "A" */
226 double determ ; /* Determinant of this matrix */
228 /* Read an affine transformation definition */
229 fgets ( inputline, 256, fptr ) ;
230 sscanf ( inputline, "%lf %lf %lf %lf %lf %lf", &affine[i].a00, &affine[i].a01,
231 &affine[i].a10, &affine[i].a11, &affine[i].b0, &affine[i].b1 ) ;
233 /* Calculate the stationary point */
235 m00 = 1.0 - affine[i].a00 ;
236 m01 = - affine[i].a01 ;
237 m10 = - affine[i].a10 ;
238 m11 = 1.0 - affine[i].a11 ;
240 determ = m00 * m11 - m01 * m10 ;
242 if ( fabs ( determ ) > 1.e-6 )
244 affine[i].statx = ( m11 * affine[i].b0 - m01 * affine[i].b1 ) / determ ;
245 affine[i].staty = ( -m10 * affine[i].b0 + m00 * affine[i].b1 ) / determ ;
248 affine[i].statx = affine[i].staty = 0.0 ;
253 main(int argc, char *argv[])
258 readConfigFile ( argv[1] ) ;
260 readConfigFile ( "fractals.dat" ) ;
262 glutInit(&argc, argv);
263 glutInitWindowSize(500, 250);
264 glutInitWindowPosition ( 140, 140 ) ;
266 glutInitDisplayMode(GLUT_RGB | GLUT_DOUBLE | GLUT_DEPTH);
268 fractal_window = glutCreateWindow( window_title );
270 glClearColor(1.0, 1.0, 1.0, 1.0);
272 glutReshapeFunc(Reshape);
273 glutKeyboardFunc(Key);
274 glutSpecialFunc(Special);
275 glutDisplayFunc(Display);
279 printf ( "Back from the 'freeglut' main loop\n" ) ;
281 return 0; /* ANSI C requires main to return int. */