1765243cba111240466aa8045a2f238c39a49c66
[xscreensaver] / hacks / xjack.c
1 /* xscreensaver, Copyright (c) 1997-2012 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  * Wendy, let me explain something to you.  Whenever you come in here and
12  * interrupt me, you're BREAKING my CONCENTRATION.  You're DISTRACTING me!
13  * And it will then take me time to get back to where I was. You understand?
14  * Now, we're going to make a new rule.  When you come in here and you hear
15  * me typing, or whether you DON'T hear me typing, or whatever the FUCK you
16  * hear me doing; when I'm in here, it means that I am working, THAT means
17  * don't come in!  Now, do you think you can handle that?
18  */
19
20 #include <ctype.h>
21 #include "screenhack.h"
22
23 static const char *source = "All work and no play makes Jack a dull boy.  ";
24 /* If you're here because you're thinking about making the above string be
25    customizable, then you don't get the joke.  You loser. */
26
27 struct state {
28   Display *dpy;
29   Window window;
30   XWindowAttributes xgwa;
31   XFontStruct *font;
32   GC gc;
33
34   const char *s;
35   int columns, rows;            /* characters */
36   int left, right;              /* characters */
37   int char_width, line_height;  /* pixels */
38   int x, y;                     /* characters */
39   int mode;
40   int hspace;                   /* pixels */
41   int vspace;                   /* pixels */
42   Bool break_para;
43   Bool caps;
44   int sentences;
45   int paras;
46   int scrolling;
47   int subscrolling;
48   int pining;
49
50   int delay;
51 };
52
53
54 static void
55 xjack_reshape (Display *dpy, Window window, void *closure, 
56                  unsigned int w, unsigned int h)
57 {
58   struct state *st = (struct state *) closure;
59   XGetWindowAttributes (st->dpy, st->window, &st->xgwa);
60   st->columns = (st->xgwa.width  - st->hspace - st->hspace) / st->char_width;
61   st->rows    = (st->xgwa.height - st->vspace - st->vspace) / st->line_height;
62   st->rows--;
63   st->columns--;
64
65   /* If the window is stupidly small, just truncate. */
66   if (st->rows < 4)     st->rows = 4;
67   if (st->columns < 12) st->columns = 12;
68
69   if (st->y > st->rows)    st->y = st->rows-1;
70   if (st->x > st->columns) st->x = st->columns-2;
71
72   if (st->right > st->columns) st->right = st->columns;
73   if (st->left > st->columns-20) st->left = st->columns-20;
74   if (st->left < 0) st->left = 0;
75
76   XClearWindow (st->dpy, st->window);
77 }
78
79
80 static void *
81 xjack_init (Display *dpy, Window window)
82 {
83   struct state *st = (struct state *) calloc (1, sizeof(*st));
84   XGCValues gcv;
85   char *fontname;
86
87   st->dpy = dpy;
88   st->window = window;
89   st->s = source;
90   st->delay = get_integer_resource (st->dpy, "delay", "Integer");
91   fontname = get_string_resource (st->dpy, "font", "Font");
92
93   XGetWindowAttributes (st->dpy, st->window, &st->xgwa);
94
95   if (st->xgwa.width <= 480)
96     fontname = "-*-courier-medium-r-*-*-*-180-*-*-m-*-*-*";
97
98   st->font = XLoadQueryFont (st->dpy, fontname);
99
100   if (!st->font)
101     st->font = XLoadQueryFont (st->dpy, "-*-*-medium-r-*-*-*-240-*-*-m-*-*-*");
102   if (!st->font)
103     st->font = XLoadQueryFont (st->dpy,
104                                "-*-courier-medium-r-*-*-*-180-*-*-m-*-*-*");
105   if (!st->font)
106     st->font = XLoadQueryFont (st->dpy, "-*-*-*-r-*-*-*-240-*-*-m-*-*-*");
107   if (!st->font)
108     {
109       fprintf(stderr, "no big fixed-width font like \"%s\"\n", fontname);
110       exit(1);
111     }
112
113   gcv.font = st->font->fid;
114   gcv.foreground = get_pixel_resource (st->dpy, st->xgwa.colormap,
115                                        "foreground", "Foreground");
116   gcv.background = get_pixel_resource (st->dpy, st->xgwa.colormap,
117                                        "background", "Background");
118   st->gc = XCreateGC (st->dpy, st->window,
119                       (GCFont | GCForeground | GCBackground), &gcv);
120
121   st->char_width = 
122     (st->font->per_char
123      ? st->font->per_char['n'-st->font->min_char_or_byte2].rbearing
124      : st->font->min_bounds.rbearing);
125   st->line_height = st->font->ascent + st->font->descent + 1;
126
127   xjack_reshape (dpy, window, st, st->xgwa.width, st->xgwa.height);
128
129   if (st->columns >= 21)
130     {
131       st->left = 0xFF & (random() % ((st->columns / 2)+1));
132       st->right = st->left + (0xFF & (random() % (st->columns - st->left - 10)
133                                       + 10));
134     }
135   st->x = 0;
136   st->y = 0;
137
138   if (st->xgwa.width > 200 && st->xgwa.height > 200)
139     st->hspace = st->vspace = 40;
140
141   return st;
142 }
143
144 static unsigned long
145 xjack_scroll (struct state *st)
146 {
147   st->break_para = 0;
148   if (st->subscrolling)
149     {
150       int inc = st->line_height / 7;
151       XCopyArea (st->dpy, st->window, st->window, st->gc,
152                  0, inc,
153                  st->xgwa.width, st->xgwa.height - inc,
154                  0, 0);
155
156       /* See? It's OK. He saw it on the television. */
157       XClearArea (st->dpy, st->window,
158                   0, st->xgwa.height - inc, st->xgwa.width, inc,
159                   False);
160
161       st->subscrolling -= inc;
162       if (st->subscrolling <= 0)
163         st->subscrolling = 0;
164       if (st->subscrolling == 0)
165         {
166           if (st->scrolling > 0)
167             st->scrolling--;
168           st->y--;
169         }
170       return st->delay / 1000;
171     }
172   else if (st->scrolling)
173     st->subscrolling = st->line_height;
174
175   if (st->y < 0)
176     st->y = 0;
177   else if (st->y >= st->rows-1)
178     st->y = st->rows-1;
179
180   return st->delay;
181 }
182
183 static unsigned long
184 xjack_pine (struct state *st)
185 {
186   /* See also http://catalog.com/hopkins/unix-haters/login.html */
187   const char *n1 = "NFS server overlook not responding, still trying...";
188   const char *n2 = "NFS server overlook ok.";
189   int prev = st->pining;
190
191   if (!st->pining)
192     st->pining = 1 + (random() % 3);
193
194   if (prev)
195     while (*n2)
196       {
197         XDrawString (st->dpy, st->window, st->gc,
198                      (st->x * st->char_width) + st->hspace,
199                      ((st->y * st->line_height) + st->vspace
200                       + st->font->ascent),
201                      (char *) n2, 1);
202         st->x++;
203         if (st->x >= st->columns) st->x = 0, st->y++;
204         n2++;
205       }
206   st->y++;
207   st->x = 0;
208   st->pining--;
209
210   if (st->pining)
211     while (*n1)
212       {
213         XDrawString (st->dpy, st->window, st->gc,
214                      (st->x * st->char_width) + st->hspace,
215                      ((st->y * st->line_height) + st->vspace
216                       + st->font->ascent),
217                      (char *) n1, 1);
218         st->x++;
219         if (st->x >= st->columns) st->x = 0, st->y++;
220         n1++;
221       }
222
223   return 5000000;
224 }
225
226
227 static unsigned long
228 xjack_draw (Display *dpy, Window window, void *closure)
229 {
230   struct state *st = (struct state *) closure;
231   int this_delay = st->delay;
232   int word_length = 0;
233   const char *s2;
234
235   if (st->scrolling)
236     return xjack_scroll (st);
237   if (st->pining)
238     return xjack_pine (st);
239
240   for (s2 = st->s; *s2 && *s2 != ' '; s2++)
241     word_length++;
242
243   if (st->break_para ||
244       (*st->s != ' ' &&
245        (st->x + word_length) >= st->right))
246     {
247       st->x = st->left;
248       st->y++;
249
250       if (st->break_para)
251         st->y++;
252
253       if (st->mode == 1 || st->mode == 2)
254         {
255           /* 1 = left margin goes southwest; 2 = southeast */
256           st->left += (st->mode == 1 ? 1 : -1);
257           if (st->left >= st->right - 10)
258             {
259               if ((st->right < (st->columns - 10)) && (random() & 1))
260                 st->right += (0xFF & (random() % (st->columns - st->right)));
261               else
262                 st->mode = 2;
263             }
264           else if (st->left <= 0)
265             {
266               st->left = 0;
267               st->mode = 1;
268             }
269         }
270       else if (st->mode == 3 || st->mode == 4)
271         {
272           /* 3 = right margin goes southeast; 4 = southwest */
273           st->right += (st->mode == 3 ? 1 : -1);
274           if (st->right >= st->columns)
275             {
276               st->right = st->columns;
277               st->mode = 4;
278             }
279           else if (st->right <= st->left + 10)
280             st->mode = 3;
281         }
282
283       if (st->y >= st->rows-1)  /* bottom of page */
284         {
285           /* scroll by 1-5 lines */
286           st->scrolling = (random() % 5 ? 0 : (0xFF & (random() % 5))) + 1;
287           if (st->break_para)
288             st->scrolling++;
289
290           /* but sometimes scroll by a whole page */
291           if (0 == (random() % 100))
292             st->scrolling += st->rows;
293
294           return xjack_scroll (st);
295         }
296     }
297
298   if (*st->s != ' ')
299     {
300       char c = *st->s;
301       int xshift = 0, yshift = 0;
302       if (0 == random() % 50)
303         {
304           xshift = random() % ((st->char_width / 3) + 1);      /* mis-strike */
305           yshift = random() % ((st->line_height / 6) + 1);
306           if (0 == (random() % 3))
307             yshift *= 2;
308           if (random() & 1)
309             xshift = -xshift;
310           if (random() & 1)
311             yshift = -yshift;
312         }
313
314       if (0 == (random() % 250))        /* introduce adjascent-key typo */
315         {
316           static const char * const typo[] = {
317             "asqw", "ASQW", "bgvhn", "cxdfv", "dserfcx", "ewsdrf",
318             "Jhuikmn", "kjiol,m", "lkop;.,", "mnjk,", "nbhjm", "oiklp09",
319             "pol;(-0", "redft54", "sawedxz", "uyhji87", "wqase32",
320             "yuhgt67", ".,l;/", 0 };
321           int i = 0;
322           while (typo[i] && typo[i][0] != c)
323             i++;
324           if (typo[i])
325             c = typo[i][0xFF & ((random() % strlen(typo[i]+1)) + 1)];
326         }
327
328       /* caps typo */
329       if (c >= 'a' && c <= 'z' && (st->caps || 0 == (random() % 350)))
330         {
331           c -= ('a'-'A');
332           if (c == 'O' && random() & 1)
333             c = '0';
334         }
335
336     OVERSTRIKE:
337       XDrawString (st->dpy, st->window, st->gc,
338                    (st->x * st->char_width) + st->hspace + xshift,
339                    ((st->y * st->line_height) + st->vspace + st->font->ascent
340                     + yshift),
341                    &c, 1);
342       if (xshift == 0 && yshift == 0 && (0 == (random() & 3000)))
343         {
344           if (random() & 1)
345             xshift--;
346           else
347             yshift--;
348           goto OVERSTRIKE;
349         }
350
351       if ((tolower(c) != tolower(*st->s))
352           ? (0 == (random() % 10))              /* backup to correct */
353           : (0 == (random() % 400)))    /* fail to advance */
354         {
355           st->x--;
356           st->s--;
357           if (st->delay)
358             st->delay += (0xFFFF & (st->delay + 
359                                     (random() % (st->delay * 10))));
360         }
361     }
362
363   st->x++;
364   st->s++;
365
366   if (0 == random() % 200)
367     {
368       if (random() & 1 && st->s != source)
369         st->s--;        /* duplicate character */
370       else if (*st->s)
371         st->s++;        /* skip character */
372     }
373
374   if (*st->s == 0)
375     {
376       st->sentences++;
377       st->caps = (0 == random() % 40);  /* capitalize sentence */
378
379       if (0 == (random() % 10) ||       /* randomly break paragraph */
380           (st->mode == 0 &&
381            ((0 == (random() % 10)) || st->sentences > 20)))
382         {
383           st->break_para = True;
384           st->sentences = 0;
385           st->paras++;
386
387           if (random() & 1)             /* mode=0 50% of the time */
388             st->mode = 0;
389           else
390             st->mode = (0xFF & (random() % 5));
391
392           if (0 == (random() % 2))      /* re-pick margins */
393             {
394               st->left = 0xFF & (random() % (st->columns / 3));
395               st->right = (st->columns -
396                            (0xFF & (random() % (st->columns / 3))));
397
398               if (0 == random() % 3)    /* sometimes be wide */
399                 st->right = st->left + ((st->right - st->left) / 2);
400             }
401
402           if (st->right - st->left <= 10)       /* introduce sanity */
403             {
404               st->left = 0;
405               st->right = st->columns;
406             }
407
408           if (st->right - st->left > 50)        /* if wide, shrink and move */
409             {
410               st->left += (0xFF & (random() % ((st->columns - 50) + 1)));
411               st->right = st->left + (0xFF & ((random() % 40) + 10));
412             }
413
414           /* oh, gag. */
415           if (st->mode == 0 &&
416               st->right - st->left < 25 &&
417               st->columns > 40)
418             {
419               st->right += 20;
420               if (st->right > st->columns)
421                 st->left -= (st->right - st->columns);
422             }
423         }
424       st->s = source;
425     }
426
427   if (st->delay)
428     {
429       if (0 == random() % 3)
430         this_delay += (0xFFFFFF & ((random() % (st->delay * 5)) + 1));
431
432       if (st->break_para)
433         this_delay += (0xFFFFFF & ((random() % (st->delay * 15)) + 1));
434     }
435
436   if (st->paras > 5 &&
437       (0 == (random() % 1000)) &&
438       st->y < st->rows-2)
439     return xjack_pine (st);
440
441   return this_delay;
442 }
443
444 static Bool
445 xjack_event (Display *dpy, Window window, void *closure, XEvent *event)
446 {
447   struct state *st = (struct state *) closure;
448   if (event->xany.type == ButtonPress)
449     {
450       st->scrolling++;
451       return True;
452     }
453
454   return False;
455 }
456
457 static void
458 xjack_free (Display *dpy, Window window, void *closure)
459 {
460   struct state *st = (struct state *) closure;
461   free (st);
462 }
463
464
465 static const char *xjack_defaults [] = {
466   ".background:         #FFF0B4",
467   ".foreground:         #000000",
468   "*fpsSolid:           true",
469 #ifdef HAVE_COCOA
470   ".font:               American Typewriter 24",
471 #else
472   ".font:               -*-courier-medium-r-*-*-*-240-*-*-m-*-*-*",
473 #endif
474   "*delay:              50000",
475   0
476 };
477
478 static XrmOptionDescRec xjack_options [] = {
479   { "-delay",           ".delay",       XrmoptionSepArg, 0 },
480   { "-font",            ".font",        XrmoptionSepArg, 0 },
481   { 0, 0, 0, 0 }
482 };
483
484 XSCREENSAVER_MODULE ("XJack", xjack)