http://www.jwz.org/xscreensaver/xscreensaver-5.13.tar.gz
[xscreensaver] / hacks / moire.c
1 /* xscreensaver, Copyright (c) 1997-2008 Jamie Zawinski <jwz@jwz.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  * Concept snarfed from Michael D. Bayne in
12  * http://www.go2net.com/internet/deep/1997/04/16/body.html
13  */
14
15 #include "screenhack.h"
16
17 #undef HAVE_XSHM_EXTENSION  /* this is broken here at the moment */
18
19
20 #ifdef HAVE_XSHM_EXTENSION
21 # include "xshm.h"
22 #endif /* HAVE_XSHM_EXTENSION */
23
24 struct state {
25   Display *dpy;
26   Window window;
27 #ifdef HAVE_XSHM_EXTENSION
28   Bool use_shm;
29   XShmSegmentInfo shm_info;
30 #endif /* HAVE_XSHM_EXTENSION */
31
32   int delay;
33   int offset;
34   XColor *colors;
35   int ncolors;
36   GC gc;
37   unsigned long fg_pixel;
38   unsigned long bg_pixel;
39   int depth;
40
41   int draw_y, draw_xo, draw_yo;
42   int draw_factor;
43   XImage *draw_image;
44   XWindowAttributes xgwa;
45 };
46
47 static void
48 moire_init_1 (struct state *st)
49 {
50   int oncolors;
51   int i;
52   int fgh, bgh;
53   double fgs, fgv, bgs, bgv;
54   XWindowAttributes xgwa;
55   XColor fgc, bgc;
56   XGCValues gcv;
57
58   XGetWindowAttributes (st->dpy, st->window, &xgwa);
59
60   st->delay = get_integer_resource (st->dpy, "delay", "Integer");
61   st->offset = get_integer_resource (st->dpy, "offset", "Integer");
62   if (st->offset < 2) st->offset = 2;
63
64 #ifdef HAVE_XSHM_EXTENSION
65   st->use_shm = get_boolean_resource(st->dpy, "useSHM", "Boolean");
66 #endif /*  HAVE_XSHM_EXTENSION */
67
68  MONO:
69   if (st->colors)
70     {
71       for (i = 0; i < st->ncolors; i++)
72         XFreeColors (st->dpy, xgwa.colormap, &st->colors[i].pixel, 1, 0);
73       free(st->colors);
74       st->colors = 0;
75     }
76
77   if (mono_p)
78     {
79       st->fg_pixel = WhitePixelOfScreen (DefaultScreenOfDisplay(st->dpy));
80       st->bg_pixel = BlackPixelOfScreen (DefaultScreenOfDisplay(st->dpy));
81     }
82   else
83     {
84       st->fg_pixel = get_pixel_resource (st->dpy,
85                                      xgwa.colormap, "foreground", "Foreground");
86       st->bg_pixel = get_pixel_resource (st->dpy,
87                                      xgwa.colormap, "background", "Background");
88     }
89
90   if (mono_p)
91     {
92       st->offset *= 20;   /* compensate for lack of shading */
93       gcv.foreground = st->fg_pixel;
94     }
95   else
96     {
97       st->ncolors = get_integer_resource (st->dpy, "ncolors", "Integer");
98       if (st->ncolors < 2) st->ncolors = 2;
99       oncolors = st->ncolors;
100
101       fgc.flags = bgc.flags = DoRed|DoGreen|DoBlue;
102       if (get_boolean_resource(st->dpy, "random","Boolean"))
103         {
104           fgc.red   = random() & 0xFFFF;
105           fgc.green = random() & 0xFFFF;
106           fgc.blue  = random() & 0xFFFF;
107           bgc.red   = random() & 0xFFFF;
108           bgc.green = random() & 0xFFFF;
109           bgc.blue  = random() & 0xFFFF;
110         }
111       else
112         {
113           fgc.pixel = st->fg_pixel;
114           bgc.pixel = st->bg_pixel;
115           XQueryColor (st->dpy, xgwa.colormap, &fgc);
116           XQueryColor (st->dpy, xgwa.colormap, &bgc);
117         }
118       rgb_to_hsv (fgc.red, fgc.green, fgc.blue, &fgh, &fgs, &fgv);
119       rgb_to_hsv (bgc.red, bgc.green, bgc.blue, &bgh, &bgs, &bgv);
120
121       st->colors = (XColor *) malloc (sizeof (XColor) * (st->ncolors+2));
122       memset(st->colors, 0, (sizeof (XColor) * (st->ncolors+2)));
123       make_color_ramp (st->dpy, xgwa.colormap,
124                        fgh, fgs, fgv, bgh, bgs, bgv,
125                        st->colors, &st->ncolors,
126                        True, True, False);
127       if (st->ncolors != oncolors)
128         fprintf(stderr, "%s: got %d of %d requested colors.\n",
129                 progname, st->ncolors, oncolors);
130
131       if (st->ncolors <= 2)
132         {
133           mono_p = True;
134           goto MONO;
135         }
136
137       gcv.foreground = st->colors[0].pixel;
138     }
139   st->gc = XCreateGC (st->dpy, st->window, GCForeground, &gcv);
140 }
141
142
143 static void *
144 moire_init (Display *dpy, Window window)
145 {
146   struct state *st = (struct state *) calloc (1, sizeof(*st));
147   st->dpy = dpy;
148   st->window = window;
149   moire_init_1 (st);
150   return st;
151 }
152
153
154 static unsigned long
155 moire_draw (Display *dpy, Window window, void *closure)
156 {
157   struct state *st = (struct state *) closure;
158   XGCValues gcv;
159   int chunk_size = 20, ii;
160
161   if (st->draw_y == 0) 
162     {
163       moire_init_1 (st);
164
165       XGetWindowAttributes (st->dpy, st->window, &st->xgwa);
166
167       st->draw_xo = (random() % st->xgwa.width)  - st->xgwa.width/2;
168       st->draw_yo = (random() % st->xgwa.height) - st->xgwa.height/2;
169       st->draw_factor = (random() % st->offset) + 1;
170
171       st->depth = visual_depth(DefaultScreenOfDisplay(st->dpy), st->xgwa.visual);
172
173 # ifdef HAVE_XSHM_EXTENSION
174       if (st->use_shm)
175         {
176           st->draw_image = create_xshm_image(st->dpy, st->xgwa.visual, 
177                                              st->depth, ZPixmap, 0,
178                                              &st->shm_info, st->xgwa.width, 1);
179           if (!st->draw_image)
180             st->use_shm = False;
181         }
182 # endif /* HAVE_XSHM_EXTENSION */
183
184       if (!st->draw_image)
185         {
186           st->draw_image = XCreateImage (st->dpy, st->xgwa.visual,
187                                          st->depth, ZPixmap, 0,     /* depth, format, offset */
188                                          0, st->xgwa.width, 1, 8, 0); /* data, w, h, pad, bpl */
189           st->draw_image->data = (char *) calloc(st->draw_image->height, st->draw_image->bytes_per_line);
190         }
191     }
192
193   /* for (y = 0; y < st->xgwa.height; y++) */
194   for (ii = 0; ii < chunk_size; ii++)
195     {
196       int x;
197       for (x = 0; x < st->xgwa.width; x++)
198         {
199           double xx = x + st->draw_xo;
200           double yy = st->draw_y + st->draw_yo;
201           double i = ((xx * xx) + (yy * yy)) / (double) st->draw_factor;
202           if (mono_p)
203             gcv.foreground = ((((long) i) & 1) ? st->fg_pixel : st->bg_pixel);
204           else
205             gcv.foreground = st->colors[((long) i) % st->ncolors].pixel;
206           XPutPixel (st->draw_image, x, 0, gcv.foreground);
207         }
208
209 # ifdef HAVE_XSHM_EXTENSION
210       if (st->use_shm)
211         XShmPutImage(st->dpy, st->window, st->gc, st->draw_image, 0, 0, 0, st->draw_y, st->xgwa.width, 1, False);
212       else
213 # endif /*  HAVE_XSHM_EXTENSION */
214         XPutImage (st->dpy, st->window, st->gc, st->draw_image, 0, 0, 0, st->draw_y, st->xgwa.width, 1);
215
216       st->draw_y++;
217       if (st->draw_y >= st->xgwa.height)
218         break;
219     }
220
221
222     if (st->draw_y >= st->xgwa.height)
223       {
224         st->draw_y = 0;
225
226 # ifdef HAVE_XSHM_EXTENSION
227         if (!st->use_shm)
228 # endif /*  HAVE_XSHM_EXTENSION */
229           if (st->draw_image->data)
230             {
231               free(st->draw_image->data);
232               st->draw_image->data = 0;
233             }
234
235 # ifdef HAVE_XSHM_EXTENSION
236         if (st->use_shm)
237           destroy_xshm_image (st->dpy, st->draw_image, &st->shm_info);
238         else
239 # endif /*  HAVE_XSHM_EXTENSION */
240           XDestroyImage (st->draw_image);
241         st->draw_image = 0;
242
243         return st->delay * 1000000;
244       }
245
246   return st->delay * 10000;
247 }
248
249 \f
250 static const char *moire_defaults [] = {
251   ".background:         blue",
252   ".foreground:         red",
253   "*fpsSolid:           true",
254   "*random:             true",
255   "*delay:              5",
256   "*ncolors:            64",
257   "*offset:             50",
258 #ifdef HAVE_XSHM_EXTENSION
259   "*useSHM:           True",
260 #else
261   "*useSHM:           False",
262 #endif
263   0
264 };
265
266 static XrmOptionDescRec moire_options [] = {
267   { "-random",          ".random",      XrmoptionNoArg, "True" },
268   { "-no-random",       ".random",      XrmoptionNoArg, "False" },
269   { "-delay",           ".delay",       XrmoptionSepArg, 0 },
270   { "-ncolors",         ".ncolors",     XrmoptionSepArg, 0 },
271   { "-offset",          ".offset",      XrmoptionSepArg, 0 },
272   { "-shm",             ".useSHM",      XrmoptionNoArg, "True" },
273   { "-no-shm",          ".useSHM",      XrmoptionNoArg, "False" },
274   { 0, 0, 0, 0 }
275 };
276
277 static void
278 moire_reshape (Display *dpy, Window window, void *closure, 
279                  unsigned int w, unsigned int h)
280 {
281 }
282
283 static Bool
284 moire_event (Display *dpy, Window window, void *closure, XEvent *event)
285 {
286   return False;
287 }
288
289 static void
290 moire_free (Display *dpy, Window window, void *closure)
291 {
292 }
293
294 XSCREENSAVER_MODULE ("Moire", moire)