From http://www.jwz.org/xscreensaver/xscreensaver-5.30.tar.gz
[xscreensaver] / hacks / wander.c
1 /* wander, by Rick Campbell <rick@campbellcentral.org>, 19 December 1998.
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 <stdio.h>
13
14 #include "screenhack.h"
15 #include "colors.h"
16 #include "erase.h"
17
18 #define MAXIMUM_COLOR_COUNT (256)
19
20 struct state {
21   Display *dpy;
22   Window window;
23
24    unsigned int advance;
25    Bool         circles;
26    Colormap     color_map;
27    int          color_count;
28    int          color_index;
29    XColor       colors      [MAXIMUM_COLOR_COUNT];
30    GC           context;
31    unsigned int density;
32    int          depth;
33    int          height;
34    unsigned int length;
35    unsigned int reset;
36    Bool reset_p;
37    unsigned int size;
38    int          width;
39    int delay;
40
41   int x, y, last_x, last_y, width_1, height_1, length_limit, reset_limit;
42   unsigned long color;
43   Pixmap pixmap;
44
45   eraser_state *eraser;
46 };
47
48
49 static void *
50 wander_init (Display *dpy, Window window)
51 {
52     struct state *st = (struct state *) calloc (1, sizeof(*st));
53     XGCValues values;
54     XWindowAttributes attributes;
55
56     st->dpy = dpy;
57     st->window = window;
58     st->delay = get_integer_resource (st->dpy, "delay", "Integer");
59
60     XClearWindow (st->dpy, st->window);
61     XGetWindowAttributes (st->dpy, st->window, &attributes);
62     st->width = attributes.width;
63     st->height = attributes.height;
64     st->depth = attributes.depth;
65     st->color_map = attributes.colormap;
66     if (st->color_count)
67     {
68         free_colors (attributes.screen, st->color_map,
69                      st->colors, st->color_count);
70         st->color_count = 0;
71     }
72     st->context = XCreateGC (st->dpy, st->window, 0, &values);
73     st->color_count = MAXIMUM_COLOR_COUNT;
74     make_color_loop (attributes.screen, attributes.visual, st->color_map,
75                     0,   1, 1,
76                     120, 1, 1,
77                     240, 1, 1,
78                     st->colors, &st->color_count, True, False);
79     if (st->color_count <= 0)
80     {
81         st->color_count = 2;
82         st->colors [0].red = st->colors [0].green = st->colors [0].blue = 0;
83         st->colors [1].red = st->colors [1].green = st->colors [1].blue = 0xFFFF;
84         XAllocColor (st->dpy, st->color_map, &st->colors [0]);
85         XAllocColor (st->dpy, st->color_map, &st->colors [1]);
86     }
87     st->color_index = random () % st->color_count;
88     
89     st->advance = get_integer_resource (st->dpy, "advance", "Integer");
90     st->density = get_integer_resource (st->dpy, "density", "Integer");
91     if (st->density < 1) st->density = 1;
92     st->reset = get_integer_resource (st->dpy, "reset", "Integer");
93     if (st->reset < 100) st->reset = 100;
94     st->circles = get_boolean_resource (st->dpy, "circles", "Boolean");
95     st->size = get_integer_resource (st->dpy, "size", "Integer");
96     if (st->size < 1) st->size = 1;
97     st->width = st->width / st->size;
98     st->height = st->height / st->size;
99     st->length = get_integer_resource (st->dpy, "length", "Integer");
100     if (st->length < 1) st->length = 1;
101     XSetForeground (st->dpy, st->context, st->colors [st->color_index].pixel);
102
103
104     st->x = random () % st->width;
105     st->y = random () % st->height;
106     st->last_x = st->x;
107     st->last_y = st->y;
108     st->width_1 = st->width - 1;
109     st->height_1 = st->height - 1;
110     st->length_limit = st->length;
111     st->reset_limit = st->reset;
112     st->color_index = random () % st->color_count;
113     st->color = st->colors [random () % st->color_count].pixel;
114     st->pixmap = XCreatePixmap (st->dpy, window, st->size,
115                             st->size, st->depth);
116
117     XSetForeground (st->dpy, st->context,
118                     BlackPixel (st->dpy, DefaultScreen (st->dpy)));
119     XFillRectangle (st->dpy, st->pixmap, st->context, 0, 0,
120                     st->width * st->size, st->height * st->size);
121     XSetForeground (st->dpy, st->context, st->color);
122     XFillArc (st->dpy, st->pixmap, st->context, 0, 0, st->size, st->size, 0, 360*64);
123
124     return st;
125 }
126
127
128 static unsigned long
129 wander_draw (Display *dpy, Window window, void *closure)
130 {
131   struct state *st = (struct state *) closure;
132   int i;
133
134   if (st->eraser) {
135     st->eraser = erase_window (st->dpy, st->window, st->eraser);
136     goto END;
137   }
138
139   for (i = 0; i < 2000; i++)
140     {
141       if (random () % st->density)
142         {
143           st->x = st->last_x;
144           st->y = st->last_y;
145         }
146       else
147         {
148           st->last_x = st->x;
149           st->last_y = st->y;
150           st->x = (st->x + st->width_1  + (random () % 3)) % st->width;
151           st->y = (st->y + st->height_1 + (random () % 3)) % st->height;
152         }
153
154       if ((random () % st->length_limit) == 0)
155         {
156           if (st->advance == 0)
157             {
158               st->color_index = random () % st->color_count;
159             }
160           else
161             {
162               st->color_index = (st->color_index + st->advance) % st->color_count;
163             }
164           st->color = st->colors [st->color_index].pixel;
165           XSetForeground (st->dpy, st->context, st->color);
166           if (st->circles)
167             {
168               XFillArc (st->dpy, st->pixmap, st->context,
169                         0, 0, st->size, st->size, 0, 360 * 64);
170             }
171         }
172
173       if (st->reset_p || (random () % st->reset_limit) == 0)
174         {
175           st->reset_p = 0;
176           st->eraser = erase_window (st->dpy, st->window, st->eraser);
177           st->color = st->colors [random () % st->color_count].pixel;
178           st->x = random () % st->width;
179           st->y = random () % st->height;
180           st->last_x = st->x;
181           st->last_y = st->y;
182           if (st->circles)
183             {
184               XFillArc (st->dpy, st->pixmap, st->context, 0, 0, st->size, st->size, 0, 360*64);
185             }
186         }
187
188       if (st->size == 1)
189         {
190           XDrawPoint (st->dpy, st->window, st->context, st->x, st->y);
191         }
192       else
193         {
194           if (st->circles)
195             {
196               XCopyArea (st->dpy, st->pixmap, st->window, st->context, 0, 0, st->size, st->size,
197                          st->x * st->size, st->y * st->size);
198             }
199           else
200             {
201               XFillRectangle (st->dpy, st->window, st->context, st->x * st->size, st->y * st->size,
202                               st->size, st->size);
203             }
204         }
205     }
206
207  END:
208   return st->delay;
209 }
210
211
212 static void
213 wander_reshape (Display *dpy, Window window, void *closure, 
214                  unsigned int w, unsigned int h)
215 {
216   struct state *st = (struct state *) closure;
217   st->width  = w / st->size;
218   st->height = h / st->size;
219   st->width_1  = st->width - 1;
220   st->height_1 = st->height - 1;
221 }
222
223 static Bool
224 wander_event (Display *dpy, Window window, void *closure, XEvent *event)
225 {
226   struct state *st = (struct state *) closure;
227   if (screenhack_event_helper (dpy, window, event))
228     {
229       st->reset_p = 1;
230       return True;
231     }
232   return False;
233 }
234
235 static void
236 wander_free (Display *dpy, Window window, void *closure)
237 {
238 }
239
240 static const char *wander_defaults [] =
241 {
242     ".background: black",
243     ".foreground: white",
244     ".fpsSolid:   true",
245     ".advance:    1",
246     ".density:    2",
247     ".length:     25000",
248     ".delay:      20000",
249     ".reset:      2500000",
250     ".circles:    False",
251     ".size:       1",
252 #ifdef USE_IPHONE
253   "*ignoreRotation: True",
254 #endif
255     0
256 };
257
258 static XrmOptionDescRec wander_options [] =
259 {
260     { "-advance", ".advance", XrmoptionSepArg, 0 },
261     { "-circles", ".circles",   XrmoptionNoArg, "True" },
262     { "-no-circles",".circles", XrmoptionNoArg, "False" },
263     { "-density", ".density", XrmoptionSepArg, 0 },
264     { "-length",  ".length",  XrmoptionSepArg, 0 },
265     { "-delay",   ".delay",   XrmoptionSepArg, 0 },
266     { "-reset",   ".reset",   XrmoptionSepArg, 0 },
267     { "-size",    ".size",    XrmoptionSepArg, 0 },
268     { 0, 0, 0, 0 }
269 };
270
271
272 XSCREENSAVER_MODULE ("Wander", wander)