ftp://ftp.smr.ru/pub/0/FreeBSD/releases/distfiles/xscreensaver-3.16.tar.gz

[xscreensaver] / hacks / vines.c

diff --git a/hacks/vines.c b/hacks/vines.c
new file mode 100644 (file)
index 0000000..4c562f9
--- /dev/null
+++ b/hacks/vines.c
@@ -0,0 +1,142 @@
+/* -*- Mode: C; tab-width: 4 -*-
+ * vines --- another geometric pattern generator.
+ */
+#if !defined( lint ) && !defined( SABER )
+static const char sccsid[] = "@(#)vines.c      4.02 97/04/01 xlockmore";
+#endif
+
+/* xlockmore mode written by Tracy Camp
+ * campt@hurrah.com 1997
+ * released to the public domain
+ *
+ * This was modifed from a 'screen saver' that a friend and I
+ * wrote on our TI-8x calculators in high school physics one day
+ * Basically another geometric pattern generator, this ones claim
+ * to fame is a pseudo-fractal looking vine like pattern that creates
+ * nifty whorls and loops.
+ *
+ * Revision History:
+ * 10-May-97: jwz@jwz.org: turned into a standalone program.
+ * 21-Mar-97:  David Hansen <dhansen@metapath.com>
+ *             Updated mode to draw complete patterns on every
+ *             iteration instead of growing the vine.  Also made
+ *             adjustments to randomization and changed variable
+ *             names to make logic easier to follow.
+ */
+
+#ifdef STANDALONE
+# define PROGCLASS                                     "Vines"
+# define HACK_INIT                                     init_vines
+# define HACK_DRAW                                     draw_vines
+# define vines_opts                                    xlockmore_opts
+# define DEFAULTS              "*delay:        200000 \n"                      \
+                                               "*ncolors:      64     \n"                      \
+                                               "*eraseSpeed:   400 \n"                 \
+                                               "*eraseMode:    -1 \n"
+# include "xlockmore.h"                                /* from the xscreensaver distribution */
+# include "erase.h"
+#else  /* !STANDALONE */
+# include "xlock.h"                                    /* from the xlockmore distribution */
+#endif /* !STANDALONE */
+
+ModeSpecOpt vines_opts = {
+  0, NULL, 0, NULL, NULL };
+
+typedef struct {
+       int         a;
+       int         x1;
+       int         y1;
+       int         x2;
+       int         y2;
+       int         length;
+       int         iterations;
+       int         constant;
+       int         ang;
+       int         centerx;
+       int         centery;
+} vinestruct;
+
+static vinestruct *vines = NULL;
+
+void
+refresh_vines(ModeInfo * mi)
+{
+}
+
+void
+init_vines(ModeInfo * mi)
+{
+       Display    *display = MI_DISPLAY(mi);
+       vinestruct *fp;
+
+       if (vines == NULL) {
+               if ((vines = (vinestruct *) calloc(MI_NUM_SCREENS(mi), sizeof (vinestruct))) == NULL) {
+                       return;
+               }
+       }
+       fp = &vines[MI_SCREEN(mi)];
+
+       fp->iterations = 30 + NRAND(100);
+
+       XClearWindow(display, MI_WINDOW(mi));
+}
+
+void
+draw_vines(ModeInfo * mi)
+{
+       vinestruct *fp = &vines[MI_SCREEN(mi)];
+       Display    *display = MI_DISPLAY(mi);
+       GC          gc = MI_GC(mi);
+       int         i;
+
+       if (--(fp->iterations) == 0) {
+#ifdef STANDALONE
+         erase_full_window(MI_DISPLAY(mi), MI_WINDOW(mi));
+#endif /* STANDALONE */
+         init_vines(mi);
+       }
+
+       fp->centerx = NRAND(MI_WIN_WIDTH(mi));
+       fp->centery = NRAND(MI_WIN_HEIGHT(mi));
+
+       fp->ang = 60 + NRAND(720);
+       fp->length = 100 + NRAND(3000);
+       fp->constant = fp->length * (10 + NRAND(10));
+
+       fp->a = 0;
+       fp->x1 = 0;
+       fp->y1 = 0;
+       fp->x2 = 1;
+       fp->y2 = 0;
+
+       if (MI_NPIXELS(mi) > 2)
+               XSetForeground(display, gc, MI_PIXEL(mi, NRAND(MI_NPIXELS(mi))));
+       else
+               XSetForeground(display, gc, MI_WIN_WHITE_PIXEL(mi));
+
+
+       for (i = 0; i < fp->length; i++) {
+               XDrawLine(display, MI_WINDOW(mi), gc,
+                         fp->centerx + (fp->x1 / fp->constant),
+                         fp->centery - (fp->y1 / fp->constant),
+                         fp->centerx + (fp->x2 / fp->constant),
+                         fp->centery - (fp->y2 / fp->constant));
+
+               fp->a += (fp->ang * i);
+
+               fp->x1 = fp->x2;
+               fp->y1 = fp->y2;
+
+               fp->x2 += (int) (i * ((cos(fp->a) * 360) / (2 * M_PI)));
+               fp->y2 += (int) (i * ((sin(fp->a) * 360) / (2 * M_PI)));
+       }
+}
+
+void
+release_vines(ModeInfo * mi)
+{
+       if (vines != NULL) {
+               (void) free((void *) vines);
+               vines = NULL;
+       }
+}