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

   1 /* Copyright (c) 2003 Levi Burton <donburton@sbcglobal.net>
   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 #include "screenhack.h"
  13 #include "colors.h"
  14
  15 #ifdef HAVE_DOUBLE_BUFFER_EXTENSION
  16 # include "xdbe.h"
  17 #endif /* HAVE_DOUBLE_BUFFER_EXTENSION */
  18
  19 typedef struct _square {
  20   int x, y, w, h;
  21   int color;
  22 } square;
  23
  24 static void
  25 randomize_square_colors(square *squares, int nsquares, int ncolors)
  26 {
  27   int i;
  28   square *s = squares;
  29   for (i = 0; i < nsquares; i++)
  30     s[i].color = random() % ncolors;
  31 }
  32
  33
  34 struct state {
  35   Display *dpy;
  36   Window window;
  37
  38    int delay, subdivision, border, ncolors, twitch, dbuf;
  39     XWindowAttributes xgwa;
  40     GC gc;
  41     XColor *colors;
  42     int sw, sh, gw, gh, nsquares;
  43     square *squares;
  44     Pixmap b, ba, bb;
  45 #ifdef HAVE_DOUBLE_BUFFER_EXTENSION
  46     XdbeBackBuffer backb;
  47 #endif /* HAVE_DOUBLE_BUFFER_EXTENSION */
  48 };
  49
  50 static void *
  51 popsquares_init (Display *dpy, Window window)
  52 {
  53   struct state *st = (struct state *) calloc (1, sizeof(*st));
  54   int x, y;
  55   double s1, v1, s2, v2 = 0;
  56   int h1, h2 = 0;
  57   /* Not sure how to use DBEClear */
  58   /* Bool dbeclear_p = get_boolean_resource(dpy, "useDBEClear", "Boolean"); */
  59   XColor fg, bg;
  60   XGCValues gcv;
  61
  62   st->dpy = dpy;
  63   st->window = window;
  64
  65   st->delay = get_integer_resource (st->dpy, "delay", "Integer");
  66   st->subdivision = get_integer_resource(st->dpy, "subdivision", "Integer");
  67   st->border = get_integer_resource(st->dpy, "border", "Integer");
  68   st->ncolors = get_integer_resource(st->dpy, "ncolors", "Integer");
  69   st->twitch = get_boolean_resource(st->dpy, "twitch", "Boolean");
  70   st->dbuf = get_boolean_resource(st->dpy, "doubleBuffer", "Boolean");
  71
  72 # ifdef HAVE_COCOA      /* Don't second-guess Quartz's double-buffering */
  73   st->dbuf = False;
  74 # endif
  75
  76   XGetWindowAttributes (st->dpy, st->window, &st->xgwa);
  77
  78   fg.pixel = get_pixel_resource (st->dpy, st->xgwa.colormap, "foreground", "Foreground");
  79   bg.pixel = get_pixel_resource (st->dpy, st->xgwa.colormap, "background", "Background");
  80
  81   XQueryColor (st->dpy, st->xgwa.colormap, &fg);
  82   XQueryColor (st->dpy, st->xgwa.colormap, &bg);
  83
  84   st->sw = st->xgwa.width / st->subdivision;
  85   st->sh = st->xgwa.height / st->subdivision;
  86   st->gw = st->sw ? st->xgwa.width / st->sw : 0;
  87   st->gh = st->sh ? st->xgwa.height / st->sh : 0;
  88   st->nsquares = st->gw * st->gh;
  89
  90   gcv.foreground = fg.pixel;
  91   gcv.background = bg.pixel;
  92   st->gc = XCreateGC (st->dpy, st->window, GCForeground|GCBackground, &gcv);
  93
  94   st->colors = (XColor *) calloc (st->ncolors, sizeof(XColor));
  95   st->squares = (square *) calloc (st->nsquares, sizeof(square));
  96
  97   rgb_to_hsv (fg.red, fg.green, fg.blue, &h1, &s1, &v1);
  98   rgb_to_hsv (bg.red, bg.green, bg.blue, &h2, &s2, &v2);
  99   make_color_ramp (st->dpy, st->xgwa.colormap,
 100                    h1, s1, v1,
 101                    h2, s2, v2,
 102                    st->colors, &st->ncolors,  /* would this be considered a value-result argument? */
 103                    True, True, False);
 104   if (st->ncolors < 2)
 105     {
 106       fprintf (stderr, "%s: insufficient colors!\n", progname);
 107       exit (1);
 108     }
 109
 110   for (y = 0; y < st->gh; y++)
 111     for (x = 0; x < st->gw; x++)
 112       {
 113         square *s = (square *) &st->squares[st->gw * y + x];
 114         s->w = st->sw;
 115         s->h = st->sh;
 116         s->x = x * st->sw;
 117         s->y = y * st->sh;
 118       }
 119
 120   randomize_square_colors(st->squares, st->nsquares, st->ncolors);
 121
 122   if (st->dbuf)
 123     {
 124 #ifdef HAVE_DOUBLE_BUFFER_EXTENSION
 125       st->b = xdbe_get_backbuffer (st->dpy, st->window, XdbeUndefined);
 126       st->backb = st->b;
 127 #endif /* HAVE_DOUBLE_BUFFER_EXTENSION */
 128       if (!st->b)
 129         {
 130           st->ba = XCreatePixmap (st->dpy, st->window, st->xgwa.width, st->xgwa.height, st->xgwa.depth);
 131           st->bb = XCreatePixmap (st->dpy, st->window, st->xgwa.width, st->xgwa.height, st->xgwa.depth);
 132           st->b = st->ba;
 133         }
 134     }
 135   else
 136     {
 137       st->b = st->window;
 138     }
 139
 140   return st;
 141 }
 142
 143 static unsigned long
 144 popsquares_draw (Display *dpy, Window window, void *closure)
 145 {
 146   struct state *st = (struct state *) closure;
 147   int x, y;
 148   for (y = 0; y < st->gh; y++)
 149     for (x = 0; x < st->gw; x++)
 150       {
 151         square *s = (square *) &st->squares[st->gw * y + x];
 152         XSetForeground (st->dpy, st->gc, st->colors[s->color].pixel);
 153         XFillRectangle (st->dpy, st->b, st->gc, s->x, s->y,
 154                         st->border ? s->w - st->border : s->w,
 155                         st->border ? s->h - st->border : s->h);
 156         s->color++;
 157         if (s->color == st->ncolors)
 158           {
 159             if (st->twitch && ((random() % 4) == 0))
 160               randomize_square_colors (st->squares, st->nsquares, st->ncolors);
 161             else
 162               s->color = random() % st->ncolors;
 163           }
 164       }
 165 #ifdef HAVE_DOUBLE_BUFFER_EXTENSION
 166   if (st->backb)
 167     {
 168       XdbeSwapInfo info[1];
 169       info[0].swap_window = st->window;
 170       info[0].swap_action = XdbeUndefined;
 171       XdbeSwapBuffers (st->dpy, info, 1);
 172     }
 173   else
 174 #endif /* HAVE_DOUBLE_BUFFER_EXTENSION */
 175     if (st->dbuf)
 176       {
 177         XCopyArea (st->dpy, st->b, st->window, st->gc, 0, 0,
 178                    st->xgwa.width, st->xgwa.height, 0, 0);
 179         st->b = (st->b == st->ba ? st->bb : st->ba);
 180       }
 181
 182   return st->delay;
 183 }
 184
 185
 186 static void
 187 popsquares_reshape (Display *dpy, Window window, void *closure,
 188                  unsigned int w, unsigned int h)
 189 {
 190   struct state *st = (struct state *) closure;
 191   int x, y;
 192   XGetWindowAttributes (st->dpy, st->window, &st->xgwa);
 193   st->sw = st->xgwa.width / st->subdivision;
 194   st->sh = st->xgwa.height / st->subdivision;
 195   st->gw = st->sw ? st->xgwa.width / st->sw : 0;
 196   st->gh = st->sh ? st->xgwa.height / st->sh : 0;
 197   st->nsquares = st->gw * st->gh;
 198   free (st->squares);
 199   st->squares = (square *) calloc (st->nsquares, sizeof(square));
 200
 201   for (y = 0; y < st->gh; y++)
 202     for (x = 0; x < st->gw; x++)
 203       {
 204         square *s = (square *) &st->squares[st->gw * y + x];
 205         s->w = st->sw;
 206         s->h = st->sh;
 207         s->x = x * st->sw;
 208         s->y = y * st->sh;
 209       }
 210
 211   randomize_square_colors(st->squares, st->nsquares, st->ncolors);
 212
 213   if (st->dbuf) {
 214     XFreePixmap (dpy, st->ba);
 215     XFreePixmap (dpy, st->bb);
 216     st->ba = XCreatePixmap (st->dpy, st->window, st->xgwa.width, st->xgwa.height, st->xgwa.depth);
 217     st->bb = XCreatePixmap (st->dpy, st->window, st->xgwa.width, st->xgwa.height, st->xgwa.depth);
 218     st->b = st->ba;
 219   }
 220 }
 221
 222 static Bool
 223 popsquares_event (Display *dpy, Window window, void *closure, XEvent *event)
 224 {
 225   return False;
 226 }
 227
 228 static void
 229 popsquares_free (Display *dpy, Window window, void *closure)
 230 {
 231   struct state *st = (struct state *) closure;
 232   free (st);
 233 }
 234
 235
 236 static const char *popsquares_defaults [] = {
 237   ".background: #0000FF",
 238   ".foreground: #00008B",
 239   "*delay: 25000",
 240   "*subdivision:  5",
 241   "*border: 1",
 242   "*ncolors: 128",
 243   "*twitch: False",
 244   "*doubleBuffer: False",
 245 #ifdef HAVE_DOUBLE_BUFFER_EXTENSION
 246   "*useDBE: True",
 247   "*useDBEClear: True",
 248 #endif /* HAVE_DOUBLE_BUFFER_EXTENSION */
 249   0
 250 };
 251
 252 static XrmOptionDescRec popsquares_options [] = {
 253   { "-fg", ".foreground", XrmoptionSepArg, 0},
 254   { "-bg", ".background", XrmoptionSepArg, 0},
 255   { "-delay",     ".delay", XrmoptionSepArg, 0 },
 256   { "-subdivision", ".subdivision", XrmoptionSepArg, 0 },
 257   { "-border", ".border", XrmoptionSepArg, 0},
 258   { "-ncolors",   ".ncolors", XrmoptionSepArg, 0 },
 259   { "-twitch",    ".twitch", XrmoptionNoArg, "True" },
 260   { "-no-twitch", ".twitch", XrmoptionNoArg, "False" },
 261   { "-db",        ".doubleBuffer", XrmoptionNoArg, "True" },
 262   { "-no-db",     ".doubleBuffer", XrmoptionNoArg, "False" },
 263   { 0, 0, 0, 0 }
 264 };
 265
 266
 267 XSCREENSAVER_MODULE ("PopSquares", popsquares)