+++ /dev/null
-/* -*- Mode: C; tab-width: 4 -*-
- * forest.c --- draw a fractal forest.
- */
-#if !defined( lint ) && !defined( SABER )
-static const char sccsid[] = "@(#)forest.c 4.03 97/05/10 xlockmore";
-#endif
-
-/* Copyright (c) 1995 Pascal Pensa <pensa@aurora.unice.fr>
- *
- * Original idea : Guillaume Ramey <ramey@aurora.unice.fr>
- *
- * Permission to use, copy, modify, and distribute this software and its
- * documentation for any purpose and without fee is hereby granted,
- * provided that the above copyright notice appear in all copies and that
- * both that copyright notice and this permission notice appear in
- * supporting documentation.
- *
- * This file is provided AS IS with no warranties of any kind. The author
- * shall have no liability with respect to the infringement of copyrights,
- * trade secrets or any patents by this file or any part thereof. In no
- * event will the author be liable for any lost revenue or profits or
- * other special, indirect and consequential damages.
- *
- * Revision History:
- * 10-May-97: Compatible with xscreensaver
- */
-
-#ifdef STANDALONE
-# define PROGCLASS "Forest"
-# define HACK_INIT init_forest
-# define HACK_DRAW draw_forest
-# define forest_opts xlockmore_opts
-# define DEFAULTS "*count: 100 \n" \
- "*cycles: 200 \n" \
- "*delay: 400000 \n" \
- "*ncolors: 100 \n"
-# define UNIFORM_COLORS
-# include "xlockmore.h" /* from the xscreensaver distribution */
-# include "erase.h"
-#else /* !STANDALONE */
-# include "xlock.h" /* from the xlockmore distribution */
-#endif /* !STANDALONE */
-
-ModeSpecOpt forest_opts = {
- 0, NULL, 0, NULL, NULL };
-
-
-#define MINTREES 1
-
-#define MINHEIGHT 20 /* Tree height range */
-#define MAXHEIGHT 40
-
-#define MINANGLE 15 /* (degree) angle between soon */
-#define MAXANGLE 35
-#define RANDANGLE 15 /* (degree) Max random angle from default */
-
-#define REDUCE 90 /* Height % from father */
-
-#define ITERLEVEL 10 /* Tree iteration */
-
-#define COLORSPEED 2 /* Color increment */
-
-/* degree to radian */
-#define DEGTORAD(x) (((float)(x)) * M_PI / 180.0)
-
-#define RANGE_RAND(min,max) ((min) + NRAND((max) - (min)))
-
-typedef struct {
- int width;
- int height;
- int time; /* up time */
- int ntrees;
-} foreststruct;
-
-static foreststruct *forests = NULL;
-
-static void
-draw_tree(ModeInfo * mi,
- short int x, short int y, short int len,
- float a, float as, short int c, short int level)
- /* Father's end */
- /* Length */
- /* color */
- /* Height level */
- /* Father's angle */
- /* Father's angle step */
-{
- Display *display = MI_DISPLAY(mi);
- Window window = MI_WINDOW(mi);
- GC gc = MI_GC(mi);
- short x_1, y_1, x_2, y_2;
- float a1, a2;
-
- /* left */
-
- a1 = a + as + DEGTORAD(NRAND(2 * RANDANGLE) - RANDANGLE);
-
- x_1 = x + (short) (COSF(a1) * ((float) len));
- y_1 = y + (short) (SINF(a1) * ((float) len));
-
- /* right */
-
- a2 = a - as + DEGTORAD(NRAND(2 * RANDANGLE) - RANDANGLE);
-
- x_2 = x + (short) (COSF(a2) * ((float) len));
- y_2 = y + (short) (SINF(a2) * ((float) len));
-
- if (MI_NPIXELS(mi) > 2) {
- XSetForeground(display, gc, MI_PIXEL(mi, c));
- c = (c + COLORSPEED) % MI_NPIXELS(mi);
- } else
- XSetForeground(display, gc, MI_WIN_WHITE_PIXEL(mi));
-
- XDrawLine(display, window, gc, x, y, x_1, y_1);
- XDrawLine(display, window, gc, x, y, x_2, y_2);
-
- if (level < 2) {
- XDrawLine(display, window, gc, x + 1, y, x_1 + 1, y_1);
- XDrawLine(display, window, gc, x + 1, y, x_2 + 1, y_2);
- }
- len = (len * REDUCE * 10) / 1000;
-
- if (level < ITERLEVEL) {
- draw_tree(mi, x_1, y_1, len, a1, as, c, level + 1);
- draw_tree(mi, x_2, y_2, len, a2, as, c, level + 1);
- }
-}
-
-void
-init_forest(ModeInfo * mi)
-{
- foreststruct *fp;
-
- if (forests == NULL) {
- if ((forests = (foreststruct *) calloc(MI_NUM_SCREENS(mi),
- sizeof (foreststruct))) == NULL)
- return;
- }
- fp = &forests[MI_SCREEN(mi)];
-
- fp->width = MI_WIN_WIDTH(mi);
- fp->height = MI_WIN_HEIGHT(mi);
- fp->time = 0;
-
- fp->ntrees = MI_BATCHCOUNT(mi);
- if (fp->ntrees < -MINTREES)
- fp->ntrees = NRAND(-fp->ntrees - MINTREES + 1) + MINTREES;
- else if (fp->ntrees < MINTREES)
- fp->ntrees = MINTREES;
- XClearWindow(MI_DISPLAY(mi), MI_WINDOW(mi));
-}
-
-void
-draw_forest(ModeInfo * mi)
-{
- Display *display = MI_DISPLAY(mi);
- GC gc = MI_GC(mi);
- foreststruct *fp = &forests[MI_SCREEN(mi)];
- short x, y, x_2, y_2, len, c = 0;
- float a, as;
-
- if (fp->time < fp->ntrees) {
-
- x = RANGE_RAND(0, fp->width);
- y = RANGE_RAND(0, fp->height + MAXHEIGHT);
- a = -M_PI / 2.0 + DEGTORAD(NRAND(2 * RANDANGLE) - RANDANGLE);
- as = DEGTORAD(RANGE_RAND(MINANGLE, MAXANGLE));
- len = ((RANGE_RAND(MINHEIGHT, MAXHEIGHT) * (fp->width / 20)) / 50) + 2;
-
- if (MI_NPIXELS(mi) > 2) {
- c = NRAND(MI_NPIXELS(mi));
- XSetForeground(display, gc, MI_PIXEL(mi, c));
- c = (c + COLORSPEED) % MI_NPIXELS(mi);
- } else
- XSetForeground(display, gc, MI_WIN_WHITE_PIXEL(mi));
-
- x_2 = x + (short) (COSF(a) * ((float) len));
- y_2 = y + (short) (SINF(a) * ((float) len));
-
- XDrawLine(display, MI_WINDOW(mi), gc, x, y, x_2, y_2);
- XDrawLine(display, MI_WINDOW(mi), gc, x + 1, y, x_2 + 1, y_2);
-
- draw_tree(mi, x_2, y_2, (len * REDUCE) / 100, a, as, c, 1);
- }
- if (++fp->time > MI_CYCLES(mi)) {
-#ifdef STANDALONE
- erase_full_window(MI_DISPLAY(mi), MI_WINDOW(mi));
-#endif /* STANDALONE */
- init_forest(mi);
- }
-}
-
-void
-release_forest(ModeInfo * mi)
-{
- if (forests != NULL) {
- (void) free((void *) forests);
- forests = NULL;
- }
-}
-
-void
-refresh_forest(ModeInfo * mi)
-{
- foreststruct *fp = &forests[MI_SCREEN(mi)];
-
- if (fp->time < fp->ntrees)
- XClearWindow(MI_DISPLAY(mi), MI_WINDOW(mi));
- else
- init_forest(mi);
-}