git.hungrycats.org Git - xscreensaver/blob - hacks/whirlygig.c

   1 /*  Whirlygig -- an experiment in X programming
   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  *  When I was in trigonometry class as a kid, I remember being fascinated
  12  *  by the beauty of the shapes one receives when playing with sine waves
  13  *  Here is a little experiment to show that beauty is simple
  14  */
  15
  16 #include <stdio.h>
  17 #include <math.h>
  18 #include "screenhack.h"
  19
  20 #ifdef HAVE_DOUBLE_BUFFER_EXTENSION
  21 # include "xdbe.h"
  22 #endif /* HAVE_DOUBLE_BUFFER_EXTENSION */
  23
  24 #define NCOLORS 100
  25 #define FULL_CYCLE 429496729
  26 #define START_ARC 0
  27 #define END_ARC 23040
  28
  29 struct info {
  30 /*    Bool writable; / * Is the screen writable */
  31     double xspeed; /* A factor to modify the horizontal movement */
  32     double yspeed; /* A factor to modify vertical movement */
  33     double xamplitude;
  34     double yamplitude;
  35     int whirlies; /*  How many whirlies per line do you want? */
  36     int nlines;   /*  How many lines of whirlies do you want? */
  37     int half_width;         /* 1/2 the width of the screen */
  38     int half_height;
  39     int speed;
  40     int trail;
  41     int color_modifier;
  42     double xoffset;
  43     double yoffset;
  44     double offset_period;
  45     Bool wrap;
  46 };
  47
  48 enum object_mode {
  49     spin_mode, funky_mode, circle_mode, linear_mode, test_mode, fun_mode, innie_mode, lissajous_mode
  50 };
  51
  52 struct state {
  53   Display *dpy;
  54   Window window;
  55
  56     XGCValues gcv;      /* The structure to hold the GC data */
  57     XWindowAttributes xgwa;       /*  A structure to hold window data */
  58     Pixmap b, ba;       /* double-buffer to reduce flicker */
  59 #ifdef HAVE_DOUBLE_BUFFER_EXTENSION
  60     Bool dbeclear_p;
  61     XdbeBackBuffer backb;
  62 #endif /* HAVE_DOUBLE_BUFFER_EXTENSION */
  63
  64     GC fgc, bgc;
  65     int screen;
  66     Bool dbuf;
  67
  68     unsigned long int current_time; /* The global int telling the current time */
  69     unsigned long int start_time;
  70     struct info  *info;
  71     char *xmode_str, *ymode_str; /* holds the current mode for x and y computation */
  72
  73  /* pos is the current position x,y -- last_x contains one cell of
  74     every x coordinate for every position of every whirly in every
  75     line up to 100 whirlies in 100 lines -- lasy_y and last_size hold
  76     the same information for y and size respectively */
  77
  78     int pos[2], last_x[100][100], last_y[100][100], last_size[100][100];
  79     int current_color;
  80     Bool wrap;
  81     int xmode, ymode;
  82     double modifier;    /* for innie */
  83
  84    XColor colors[NCOLORS];
  85    int ncolors;
  86    int explaining;
  87 };
  88
  89 static void draw_explain_string(struct state *, int, int, Display *, Window, GC);
  90 static void spin(struct state *, unsigned long int, struct info *, int *, int);
  91 static void funky(struct state *, unsigned long int, struct info *, int *, int);
  92 static void circle(struct state *, unsigned long int, struct info *, int *, int);
  93 static void fun(struct state *, unsigned long int, struct info *, int *, int);
  94 static void linear(struct state *, unsigned long int, struct info *, int *, int);
  95 static void lissajous(struct state *, unsigned long int, struct info *, int *, int);
  96 static void test(struct state *, unsigned long int, struct info *, int *, int);
  97 static void innie(struct state *, unsigned long int, struct info *, int *, int, double);
  98
  99
 100
 101 static const char spin_explanation[] =
 102 "Spin mode is a simple sin/cos with every argument modified";
 103
 104 static const char funky_explanation[] =
 105 "Funky mode is me goofing off.";
 106
 107 static const char circle_explanation[] =
 108 "Circle mode graphs the x and y positions as you trace the edge of a circle over time.";
 109
 110 static const char linear_explanation[] =
 111 "Linear mode draws a straight line";
 112
 113 static const char test_explanation[] =
 114 "Test mode is a mode that I play around with ideas in.";
 115
 116 static const char fun_explanation[] =
 117 "Fun mode is the coolest.";
 118
 119 static const char innie_explanation[] =
 120 "Innie mode does something or other. Looks cool, though.";
 121
 122 static const char lissajous_explanation[] =
 123 "Lissajous mode draws a slightly modified lissajous curve";
 124
 125 static void
 126 draw_explain_string(struct state *st, int mode, int offset, Display *dpy, Window window, GC fgc)
 127 {
 128   switch(mode) {
 129   case spin_mode:
 130     XDrawString(st->dpy, st->window, st->fgc, 50, offset,
 131                 (char*) spin_explanation, strlen(spin_explanation));
 132     break;
 133   case funky_mode:
 134     XDrawString(st->dpy, st->window, st->fgc, 50, offset,
 135                 (char*) funky_explanation, strlen(funky_explanation));
 136     break;
 137   case circle_mode:
 138     XDrawString(st->dpy, st->window, st->fgc, 50, offset,
 139                 (char*) circle_explanation, strlen(circle_explanation));
 140     break;
 141   case linear_mode:
 142     XDrawString(st->dpy, st->window, st->fgc, 50, offset,
 143                 (char*) linear_explanation, strlen(linear_explanation));
 144     break;
 145   case test_mode:
 146     XDrawString(st->dpy, st->window, st->fgc, 50, offset,
 147                 (char*) test_explanation, strlen(test_explanation));
 148     break;
 149   case fun_mode:
 150     XDrawString(st->dpy, st->window, st->fgc, 50, offset,
 151                 (char*) fun_explanation, strlen(fun_explanation));
 152     break;
 153   case innie_mode:
 154     XDrawString(st->dpy, st->window, st->fgc, 50, offset,
 155                 (char*) innie_explanation, strlen(innie_explanation));
 156     break;
 157   case lissajous_mode:
 158     XDrawString(st->dpy, st->window, st->fgc, 50, offset,
 159                 (char*) lissajous_explanation, strlen(linear_explanation));
 160   }
 161 }
 162
 163 static void
 164 funky(struct state *st, unsigned long int the_time, struct info *info, int pos[], int index)
 165 {
 166     double new_time = ((the_time % 360 ) / 180.0) * M_PI;
 167     if (index == 0) {
 168         double time_modifier = cos(new_time / 180.0);
 169         double the_cos = cos((new_time * (double)st->info->xspeed) + (time_modifier * 80.0));
 170         double dist_mod_x = cos(new_time) * (st->info->half_width - 50);
 171         st->pos[index]= st->info->xamplitude * (the_cos * dist_mod_x) + st->info->half_width;
 172     }
 173     else {
 174         double new_time = ((the_time % 360 ) / 180.0) * M_PI;
 175         double time_modifier = sin(new_time / 180.0);
 176         double the_sin = sin((new_time * (double)st->info->yspeed) + (time_modifier * 80.0));
 177         double dist_mod_y = sin(new_time) * (st->info->half_height - 50);
 178         st->pos[index] = st->info->yamplitude * (the_sin * dist_mod_y) + st->info->half_height;
 179     }
 180 }
 181
 182 static void
 183 innie(struct state *st, unsigned long int the_time, struct info *info, int pos[], int index, double modifier)
 184 {
 185     double frequency = 2000000.0 + (st->modifier * cos(((double)the_time / 100.0)));
 186     double arg = (double)the_time / frequency;
 187     double amplitude = 200.0 * cos(arg);
 188     double fun = 150.0 * cos((double)the_time / 2000.0);
 189     int vert_mod, horiz_mod;
 190     if (index == 0) {
 191         horiz_mod = (int)(fun * cos((double)the_time / 100.0)) + st->info->half_width;
 192         st->pos[index] = (amplitude * cos((double)the_time / 100.0 * st->info->xspeed)) + horiz_mod;
 193     }
 194     else {
 195         vert_mod = (int)(fun * sin((double)the_time / 100.0)) + st->info->half_height;
 196         st->pos[index] = (amplitude * sin((double)the_time / 100.0 * st->info->yspeed)) + vert_mod;
 197     }
 198 }
 199
 200 static void
 201 lissajous(struct state *st, unsigned long int the_time, struct info *info, int pos[], int index)
 202 {
 203       /*  This is a pretty standard lissajous curve
 204            x = a sin(nt + c)
 205            y = b sin(t)
 206            The n and c modifiers are cyclic as well, however... */
 207   int result;
 208   double time = (double)the_time / 100.0;
 209   double fun = 15.0 * cos((double)the_time / 800.0);
 210   double weird = cos((time / 1100000.0) / 1000.0);
 211
 212   if (index == 0) {
 213       result = st->info->xamplitude * 200.0 * sin((weird * time) + fun) + st->info->half_width;
 214   }
 215   else {
 216       result = st->info->yamplitude * 200.0 * sin(time) + st->info->half_height;
 217   }
 218   st->pos[index] = result;
 219 }
 220
 221 static void
 222 circle(struct state *st, unsigned long int the_time, struct info *info, int pos[], int index)
 223 {
 224     int result;
 225     if (index == 0) {
 226         result = st->info->xamplitude * (cos((double)the_time / 100.0 * st->info->xspeed) * (st->info->half_width / 2)) + st->info->half_width;
 227     }
 228     else {
 229         result = st->info->yamplitude * (sin((double)the_time / 100.0 * st->info->yspeed) * (st->info->half_height / 2)) + st->info->half_height;
 230     }
 231     st->pos[index] = result;
 232 }
 233
 234 #if 0
 235 static void
 236 mod(unsigned long int the_time, struct info *info, int pos[], int index)
 237 {
 238     int amplitude;
 239     int max = st->info->half_width;
 240     if ((the_time % (max * 2)) < max)
 241         amplitude = max - ((the_time % (max * 2)) - max);
 242     else
 243         amplitude = the_time % (max * 2);
 244     amplitude = amplitude - max;
 245 }
 246 #endif
 247
 248 static void
 249 spin(struct state *st, unsigned long int the_time, struct info *info, int pos[], int index)
 250 {
 251     double funky = (((the_time % 360) * 1.0) / 180.0) * M_PI;
 252     if (index ==0) {
 253     double the_cos = cos((double)the_time / (180.0 * st->info->xspeed));
 254     double dist_mod_x = cos((double)funky) * (st->info->half_width - 50);
 255     st->pos[index] = st->info->xamplitude * (the_cos * dist_mod_x) + st->info->half_width;
 256     }
 257     else {
 258     double the_sin = sin((double)the_time / (180.0 * st->info->yspeed));
 259     double dist_mod_y = sin((double)funky) * (st->info->half_height - 50);
 260     st->pos[index] = st->info->yamplitude * (the_sin * dist_mod_y) + st->info->half_height;
 261     }
 262 }
 263
 264 static void
 265 fun(struct state *st, unsigned long int the_time, struct info *info, int pos[], int index)
 266 {
 267     int amplitude;
 268     int max = st->info->half_width;
 269     if ((the_time % (max * 2)) < max)
 270         amplitude = max - ((the_time % (max * 2)) - max);
 271     else
 272         amplitude = the_time % (max * 2);
 273     amplitude = amplitude - max;
 274     if (index ==0) {
 275         st->pos[index] = (amplitude * cos((double)the_time / 100.0 * st->info->xspeed)) + st->info->half_width;
 276     }
 277     else {
 278         st->pos[index] = (amplitude * sin((double)the_time / 100.0 * st->info->yspeed)) + st->info->half_height;
 279     }
 280 }
 281
 282 static void
 283 linear(struct state *st, unsigned long int the_time, struct info *info, int pos[], int index)
 284 {
 285     if (index == 0)   /* Calculate for the x axis */
 286         st->pos[index] = ((the_time / 2) % (st->info->half_width * 2));
 287     else
 288         st->pos[index] = ((the_time / 2) % (st->info->half_height * 2));
 289 }
 290
 291 static void
 292 test(struct state *st, unsigned long int the_time, struct info *info, int pos[], int index)
 293 {
 294     if (index == 0) {
 295         st->pos[index] = st->info->xamplitude * (cos((double)the_time / 100.0 * st->info->xspeed) * (st->info->half_width / 2)) + st->info->half_width;
 296     }
 297     else {
 298         st->pos[index] = st->info->yamplitude * (sin((double)the_time / 100.0 * st->info->yspeed) * (st->info->half_height / 2)) + st->info->half_height;
 299     }
 300 }
 301
 302 static int preen(int current, int max) {
 303     if (current > max)
 304         current=current-max;
 305     if (current < 0)
 306         current=current+max;
 307     return(current);
 308 }
 309
 310 static void
 311 smoothen(struct state *st, int x, int lastx, int y, int lasty, int size, int last_color, XColor *colors, Display *dpy, Window window, GC bgc, int screen, struct info *info)
 312 {
 313     double xdistance = abs((double)x-(double)lastx);
 314     double ydistance = abs((double)y-(double)lasty);
 315     double distance = sqrt(((xdistance * xdistance) + (ydistance * ydistance)) );
 316     double slope = (((double)y-(double)lasty) / ((double)x-(double)lastx));
 317     printf("Starting smoothen with values: %f, %f, %f, %f\n", xdistance, ydistance, distance, slope);
 318     if (distance > 2.0) {
 319         int newx = (int)((xdistance / distance) * slope);
 320         int newy = (int)((ydistance / distance) * slope);
 321         if (! st->info->trail) {
 322             XSetForeground(st->dpy, st->bgc, BlackPixel(st->dpy, st->screen));
 323             XFillArc(st->dpy, st->window, st->bgc, lastx, lasty, size, size, START_ARC, END_ARC);
 324         }
 325         XSetForeground(st->dpy, st->bgc, st->colors[last_color].pixel);
 326         XFillArc(st->dpy, st->window, st->bgc, newx, newy, size, size, START_ARC, END_ARC);
 327         smoothen(st, newx, x, newy, y, size, last_color, st->colors, st->dpy, st->window, st->bgc, st->screen, st->info);
 328     }
 329 }
 330
 331
 332 static void *
 333 whirlygig_init (Display *dpy, Window window)
 334 {
 335   struct state *st = (struct state *) calloc (1, sizeof(*st));
 336   st->dpy = dpy;
 337   st->window = window;
 338
 339   st->ncolors = NCOLORS;
 340
 341     st->dbuf = get_boolean_resource (st->dpy, "doubleBuffer", "Boolean");
 342
 343 # ifdef HAVE_COCOA      /* Don't second-guess Quartz's double-buffering */
 344     st->dbuf = False;
 345 # endif
 346
 347     st->start_time = st->current_time;
 348     st->info = (struct info *)malloc(sizeof(struct info));
 349
 350     st->screen = DefaultScreen(st->dpy);
 351     XGetWindowAttributes (st->dpy, st->window, &st->xgwa);
 352     if (st->dbuf)
 353       {
 354 #ifdef HAVE_DOUBLE_BUFFER_EXTENSION
 355         if (get_boolean_resource(st->dpy,"useDBE","Boolean"))
 356           {
 357             st->dbeclear_p = get_boolean_resource (st->dpy, "useDBEClear",
 358                                                    "Boolean");
 359             if (st->dbeclear_p)
 360               st->b = xdbe_get_backbuffer (st->dpy, st->window, XdbeBackground);
 361             else
 362               st->b = xdbe_get_backbuffer (st->dpy, st->window, XdbeUndefined);
 363             st->backb = st->b;
 364           }
 365 #endif /* HAVE_DOUBLE_BUFFER_EXTENSION */
 366
 367         if (!st->b)
 368           {
 369             st->ba = XCreatePixmap (st->dpy, st->window, st->xgwa.width, st->xgwa.height,st->xgwa.depth);
 370             st->b = st->ba;
 371           }
 372       }
 373     else
 374       {
 375         st->b = st->window;
 376       }
 377
 378     st->gcv.foreground = get_pixel_resource(st->dpy, st->xgwa.colormap, "foreground", "Foreground");
 379     st->fgc = XCreateGC (st->dpy, st->b, GCForeground, &st->gcv);
 380     st->gcv.foreground = get_pixel_resource(st->dpy, st->xgwa.colormap, "background", "Background");
 381     st->bgc = XCreateGC (st->dpy, st->b, GCForeground, &st->gcv);
 382
 383 #ifdef HAVE_COCOA  /* #### should turn off double-buffering instead */
 384     jwxyz_XSetAntiAliasing (dpy, st->fgc, False);
 385     jwxyz_XSetAntiAliasing (dpy, st->bgc, False);
 386 #endif
 387
 388     {
 389       Bool writable_p = False;
 390     make_uniform_colormap (st->dpy, st->xgwa.visual, st->xgwa.colormap, st->colors, &st->ncolors, True, &writable_p, True);
 391     }
 392
 393     if (st->ba) XFillRectangle (st->dpy, st->ba, st->bgc, 0, 0, st->xgwa.width, st->xgwa.height);
 394
 395         /* info is a structure holding all the random pieces of information I may want to
 396            pass to my baby functions -- much of it I may never use, but it is nice to
 397            have around just in case I want it to make a funky function funkier */
 398 /*    info->writable = get_boolean_resource (dpy, "cycle", "Boolean"); */
 399     st->info->xspeed = get_float_resource(st->dpy, "xspeed" , "Float");
 400     st->info->yspeed = get_float_resource(st->dpy, "yspeed" , "Float");
 401     st->info->xamplitude = get_float_resource(st->dpy, "xamplitude", "Float");
 402     st->info->yamplitude = get_float_resource(st->dpy, "yamplitude", "Float");
 403     st->info->offset_period = get_float_resource(st->dpy, "offset_period", "Float");
 404     st->info->whirlies = get_integer_resource(st->dpy, "whirlies", "Integer");
 405     st->info->nlines = get_integer_resource(st->dpy, "nlines", "Integer");
 406     st->info->half_width = st->xgwa.width / 2;
 407     st->info->half_height = st->xgwa.height / 2;
 408     st->info->speed = get_integer_resource(st->dpy, "speed" , "Integer");
 409     st->info->trail = get_integer_resource(st->dpy, "trail", "Integer");
 410     st->info->color_modifier = get_integer_resource(st->dpy, "color_modifier", "Integer");
 411     st->info->xoffset = get_float_resource(st->dpy, "xoffset", "Float");
 412     st->info->yoffset = get_float_resource(st->dpy, "yoffset", "Float");
 413     st->xmode_str = get_string_resource(st->dpy, "xmode", "Mode");
 414     st->ymode_str = get_string_resource(st->dpy, "ymode", "Mode");
 415     st->wrap = get_boolean_resource(st->dpy, "wrap", "Boolean");
 416     st->modifier = 3000.0 + frand(1500.0);
 417     if (! st->xmode_str) st->xmode = spin_mode;
 418     else if (! strcmp (st->xmode_str, "spin")) st->xmode = spin_mode;
 419     else if (! strcmp (st->xmode_str, "funky")) st->xmode = funky_mode;
 420     else if (! strcmp (st->xmode_str, "circle")) st->xmode = circle_mode;
 421     else if (! strcmp (st->xmode_str, "linear")) st->xmode = linear_mode;
 422     else if (! strcmp (st->xmode_str, "test")) st->xmode = test_mode;
 423     else if (! strcmp (st->xmode_str, "fun")) st->xmode = fun_mode;
 424     else if (! strcmp (st->xmode_str, "innie")) st->xmode = innie_mode;
 425     else if (! strcmp (st->xmode_str, "lissajous")) st->xmode = lissajous_mode;
 426     else {
 427         st->xmode = random() % (int) lissajous_mode;
 428     }
 429     if (! st->ymode_str) st->ymode = spin_mode;
 430     else if (! strcmp (st->ymode_str, "spin")) st->ymode = spin_mode;
 431     else if (! strcmp (st->ymode_str, "funky")) st->ymode = funky_mode;
 432     else if (! strcmp (st->ymode_str, "circle")) st->ymode = circle_mode;
 433     else if (! strcmp (st->ymode_str, "linear")) st->ymode = linear_mode;
 434     else if (! strcmp (st->ymode_str, "test")) st->ymode = test_mode;
 435     else if (! strcmp (st->ymode_str, "fun")) st->ymode = fun_mode;
 436     else if (! strcmp (st->ymode_str, "innie")) st->ymode = innie_mode;
 437     else if (! strcmp (st->ymode_str, "lissajous")) st->ymode = lissajous_mode;
 438     else {
 439         st->ymode = random() % (int) lissajous_mode;
 440     }
 441
 442     if (get_integer_resource(st->dpy, "start_time", "Integer") == -1)
 443         st->current_time = (unsigned long int)(random());
 444     else
 445         st->current_time = get_integer_resource(st->dpy, "start_time", "Integer");
 446     if (st->info->whirlies == -1)
 447         st->info->whirlies = 1 + (random() % 15);
 448     if (st->info->nlines == -1)
 449         st->info->nlines = 1 + (random() % 5);
 450     if (st->info->color_modifier == -1)
 451         st->info->color_modifier = 1 + (random() % 25);
 452     if (get_boolean_resource(st->dpy, "explain", "Integer"))
 453       st->explaining = 1;
 454     st->current_color = 1 + (random() % NCOLORS);
 455
 456   return st;
 457 }
 458
 459 static unsigned long
 460 whirlygig_draw (Display *dpy, Window window, void *closure)
 461 {
 462   struct state *st = (struct state *) closure;
 463   int wcount;  /* wcount is a counter incremented for every whirly take note of
 464                   internal_time before you mess with it */
 465   int change_time = 4000;
 466
 467   if (st->explaining == 1) {
 468     XClearWindow (st->dpy, st->window);
 469     draw_explain_string(st, st->xmode, st->info->half_height-100,
 470                         st->dpy, st->window, st->fgc);
 471     st->explaining++;
 472     return 3000000;
 473   } else if (st->explaining == 2) {
 474     XClearWindow (st->dpy, st->window);
 475     st->explaining = 0;
 476   }
 477
 478   if (! strcmp (st->xmode_str, "change") && ! strcmp (st->ymode_str, "change")) {
 479     if ((st->current_time - st->start_time) > change_time) {
 480       st->start_time = st->current_time;
 481       st->xmode = 1 + (random() % 4);
 482       st->ymode = 1 + (random() % 4);
 483     }
 484   }
 485   else if (! strcmp (st->xmode_str, "change")) {
 486     if ((st->current_time - st->start_time) > change_time) {
 487       st->start_time = st->current_time;
 488       st->xmode = 1 + (random() % 4);
 489     }
 490   }
 491   else if (! strcmp (st->ymode_str, "change")) {
 492     if ((st->current_time - st->start_time) > change_time) {
 493       st->start_time = st->current_time;
 494       st->ymode = 1 + (random() % 3);
 495       printf("Changing ymode to %d\n", st->ymode);
 496     }
 497   }
 498   if (++st->current_color >= NCOLORS)
 499     st->current_color = 0;
 500   for (wcount = 0; wcount < st->info->whirlies; wcount++) {
 501     int lcount; /* lcount is a counter for every line -- take note of the offsets changing */
 502     int internal_time = st->current_time;
 503     int color_offset = (st->current_color + (st->info->color_modifier * wcount)) % NCOLORS;
 504     if (st->current_time == 0)
 505       internal_time = 0;
 506     else
 507       /* I want the distance between whirlies to increase more each whirly */
 508       internal_time = st->current_time + (10 * wcount) + (wcount * wcount);
 509     switch (st->xmode) {
 510       /* All these functions expect an int time, the struct info,
 511          a pointer to an array of positions, and the index that the
 512          the function will fill of the array */
 513     case spin_mode:
 514       spin(st, internal_time, st->info, st->pos, 0);
 515       break;
 516     case funky_mode:
 517       funky(st, internal_time, st->info, st->pos, 0);
 518       break;
 519     case circle_mode:
 520       circle(st, internal_time, st->info, st->pos, 0);
 521       break;
 522     case linear_mode:
 523       linear(st, internal_time, st->info, st->pos, 0);
 524       break;
 525     case fun_mode:
 526       fun(st, internal_time, st->info, st->pos, 0);
 527       break;
 528     case test_mode:
 529       test(st, internal_time, st->info, st->pos, 0);
 530       break;
 531     case innie_mode:
 532       innie(st, internal_time, st->info, st->pos, 0, st->modifier);
 533       break;
 534     case lissajous_mode:
 535       lissajous(st, internal_time, st->info, st->pos, 0);
 536       break;
 537     default:
 538       spin(st, internal_time, st->info, st->pos, 0);
 539       break;
 540     }   /* End of the switch for the x position*/
 541     switch (st->ymode) {
 542     case spin_mode:
 543       spin(st, internal_time, st->info, st->pos, 1);
 544       break;
 545     case funky_mode:
 546       funky(st, internal_time, st->info, st->pos, 1);
 547       break;
 548     case circle_mode:
 549       circle(st, internal_time, st->info, st->pos, 1);
 550       break;
 551     case linear_mode:
 552       linear(st, internal_time, st->info, st->pos, 1);
 553       break;
 554     case fun_mode:
 555       fun(st, internal_time, st->info, st->pos, 1);
 556       break;
 557     case test_mode:
 558       test(st, internal_time, st->info, st->pos, 1);
 559       break;
 560     case innie_mode:
 561       innie(st, internal_time, st->info, st->pos, 1, st->modifier);
 562       break;
 563     case lissajous_mode:
 564       lissajous(st, internal_time, st->info, st->pos, 1);
 565       break;
 566     default:
 567       spin(st, internal_time, st->info, st->pos, 1);
 568       break;
 569     } /* End of the switch for the y position*/
 570     for (lcount = 0; lcount < st->info->nlines; lcount++) {
 571       double arg = (double)((internal_time * st->info->offset_period) / 90.0);
 572       double line_offset = 20.0 * (double)lcount * sin(arg);
 573       int size;
 574       size = (int)(15.0 + 5.0 * sin((double)internal_time / 180.0));
 575       /* First delete the old circle... */
 576       if (!st->info->trail
 577 #ifdef HAVE_DOUBLE_BUFFER_EXTENSION
 578           && ( !st->dbeclear_p || !st->backb)
 579 #endif /* HAVE_DOUBLE_BUFFER_EXTENSION */
 580           ) {
 581         XSetForeground(st->dpy, st->bgc, BlackPixel(st->dpy, st->screen));
 582         XFillArc(st->dpy, st->b, st->bgc, st->last_x[wcount][lcount], st->last_y[wcount][lcount], st->last_size[wcount][lcount], st->last_size[wcount][lcount], START_ARC, END_ARC);
 583       }
 584       /* Now, lets draw in the new circle */
 585       {  /* Starting new scope for local x_pos and y_pos */
 586         int xpos, ypos;
 587         if (st->wrap) {
 588           xpos = preen((int)(st->info->xoffset*line_offset)+st->pos[0], st->info->half_width * 2);
 589           ypos = preen((int)(st->info->yoffset*line_offset)+st->pos[1], st->info->half_height * 2);
 590         }
 591         else {
 592           xpos = (int)(st->info->xoffset*line_offset)+st->pos[0];
 593           ypos = (int)(st->info->yoffset*line_offset)+st->pos[1];
 594         }
 595         if (st->start_time == st->current_time) {
 596           /* smoothen should move from one mode to another prettily... */
 597
 598           /* Note: smoothen has not been modified to take the double
 599              buffering code into account, and needs to be hacked on
 600              before uncommenting.
 601           */
 602           /*
 603              smoothen(xpos, last_x[wcount][lcount], ypos, last_y[wcount][lcount], size, color_offset, colors, dpy, window, bgc, screen, info);
 604           */
 605         }
 606         st->last_x[wcount][lcount] = xpos;
 607         st->last_y[wcount][lcount] = ypos;
 608         st->last_size[wcount][lcount] = size;
 609         XSetForeground(st->dpy, st->bgc, st->colors[color_offset].pixel);
 610         XFillArc(st->dpy, st->b, st->bgc, xpos, ypos, size, size, START_ARC, END_ARC);
 611       } /* End of my temporary scope for xpos and ypos */
 612     }  /* End of the for each line in nlines */
 613   } /* End of the for each whirly in whirlies */
 614
 615
 616 #ifdef HAVE_DOUBLE_BUFFER_EXTENSION
 617   if (st->backb)
 618     {
 619       XdbeSwapInfo info[1];
 620       info[0].swap_window = st->window;
 621       info[0].swap_action = (st->dbeclear_p ? XdbeBackground : XdbeUndefined);
 622       XdbeSwapBuffers (st->dpy, info, 1);
 623     }
 624   else
 625 #endif /* HAVE_DOUBLE_BUFFER_EXTENSION */
 626     if (st->dbuf)
 627       {
 628         XCopyArea (st->dpy, st->b, st->window, st->bgc, 0, 0,
 629                    st->xgwa.width, st->xgwa.height, 0, 0);
 630       }
 631
 632   if (st->current_time == FULL_CYCLE)
 633     st->current_time = 1;
 634   else
 635     st->current_time = st->current_time + st->info->speed;
 636
 637   return 10000;
 638 }
 639
 640
 641 static void
 642 whirlygig_reshape (Display *dpy, Window window, void *closure,
 643                  unsigned int w, unsigned int h)
 644 {
 645 }
 646
 647 static Bool
 648 whirlygig_event (Display *dpy, Window window, void *closure, XEvent *event)
 649 {
 650   return False;
 651 }
 652
 653 static void
 654 whirlygig_free (Display *dpy, Window window, void *closure)
 655 {
 656 }
 657
 658
 659 static const char *whirlygig_defaults [] = {
 660   ".background: black",
 661   ".foreground: white",
 662   "*xspeed: 1.0",
 663   "*yspeed: 1.0",
 664   "*xamplitude: 1.0",
 665   "*yamplitude: 1.0",
 666   "*whirlies: -1",
 667   "*nlines: -1",
 668   "*xmode: change",
 669   "*ymode: change",
 670   "*speed: 1",
 671   "*trail: 0",
 672   "*color_modifier: -1",
 673   "*start_time: -1",
 674   "*explain: False",
 675   "*xoffset: 1.0",
 676   "*yoffset: 1.0",
 677   "*offset_period:    1",
 678   "*wrap:               False",
 679   "*doubleBuffer:       True",
 680 #ifdef HAVE_DOUBLE_BUFFER_EXTENSION
 681   "*useDBEClear:        True",
 682   "*useDBE:             True",
 683 #endif /* HAVE_DOUBLE_BUFFER_EXTENSION */
 684   0
 685 };
 686
 687 static XrmOptionDescRec whirlygig_options [] = {
 688   { "-xspeed",          ".xspeed", XrmoptionSepArg, 0 },
 689       /* xspeed is a modifier of the argument to cos -- changing it thus
 690          changes the frequency of cos */
 691   { "-yspeed",          ".yspeed", XrmoptionSepArg, 0 },
 692       /*  Similiarly, yspeed changes the frequency of sin */
 693   { "-xamplitude",      ".xamplitude", XrmoptionSepArg, 0 },
 694       /* A factor by which to increase/decrease the amplitude of the sin */
 695   { "-yamplitude",      ".yamplitude", XrmoptionSepArg, 0 },
 696       /* A factor by which to increase/decrease the amplitude of the cos */
 697   { "-whirlies",         ".whirlies",XrmoptionSepArg, 0 },
 698       /*  whirlies defines the number of circles to draw per line */
 699   { "-nlines",         ".nlines",XrmoptionSepArg, 0 },
 700       /* nlines is the number of lines of whirlies to draw */
 701   { "-xmode",        ".xmode", XrmoptionSepArg, 0 },
 702       /*  There are a few different modes that I have written -- each mode
 703           is in theory a different experiment with the possible modifiers to sin/cos */
 704   { "-ymode",       ".ymode", XrmoptionSepArg, 0 },
 705   { "-speed",        ".speed", XrmoptionSepArg, 0 },
 706       /*  This will modify how often it should draw, changing it will probably suck */
 707   { "-trail",           ".trail", XrmoptionSepArg, 0 },
 708       /* Control whether or not you want the old circles to be erased */
 709   { "-color_modifier",          ".color_modifier", XrmoptionSepArg, 0 },
 710       /*  How many colors away from the current should the next whirly be? */
 711   { "-start_time",                ".start_time", XrmoptionSepArg, 0 },
 712       /*  Specify exactly at what time to start graphing...  */
 713   { "-xoffset",                    ".xoffset", XrmoptionSepArg, 0 },
 714       /*  Tell the whirlies to be offset by this factor of a sin */
 715   { "-yoffset",                    ".yoffset", XrmoptionSepArg, 0 },
 716       /*  Tell the whirlies to be offset by this factor of a cos */
 717   { "-offset_period",          ".offset_period", XrmoptionSepArg, 0 },
 718       /*  Change the period of an offset cycle */
 719   { "-explain",                    ".explain", XrmoptionNoArg, "True" },
 720       /*  Specify whether or not to print an explanation of the function used. */
 721   { "-wrap",                      ".wrap", XrmoptionNoArg, "True" },
 722   { "-no-wrap",                   ".wrap", XrmoptionNoArg, "False" },
 723       /* Specify if you want whirlies which are out of the boundary of the screen to be
 724          wrapped around to the other side */
 725   { "-db",              ".doubleBuffer", XrmoptionNoArg,  "True" },
 726   { "-no-db",           ".doubleBuffer", XrmoptionNoArg,  "False" },
 727   { 0, 0, 0, 0 }
 728 };
 729
 730 XSCREENSAVER_MODULE ("Whirlygig", whirlygig)